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