rebase
This commit is contained in:
@ -1,34 +0,0 @@
|
||||
(* TEST: [-asc -tc -cg -ir] *)
|
||||
|
||||
#include "std.alpha"
|
||||
(* Standard Alpha Library - Provided by Carl *)
|
||||
|
||||
type string: 1 -> character
|
||||
function entry: string2integer
|
||||
|
||||
|
||||
type rec: [integer: x; integer: y; integer: z; integer: a; integer: b; integer: c; integer: d]
|
||||
|
||||
type T2: rec -> integer
|
||||
type T: integer -> integer
|
||||
type main: string -> integer
|
||||
function entry: main
|
||||
function bar: T2
|
||||
function ahh: T
|
||||
|
||||
ahh (a) := {
|
||||
a := printInteger(a);
|
||||
return -1;
|
||||
}
|
||||
|
||||
bar (a, b, c,d,e,f,g) := {
|
||||
a := printInteger(f);
|
||||
return b;
|
||||
}
|
||||
|
||||
entry (arg) := {
|
||||
[integer:x; integer:y; integer: result]
|
||||
|
||||
result := bar(1,2,3,4,5,6,7);
|
||||
return 1;
|
||||
}
|
Reference in New Issue
Block a user