FUNCTION CALLS WORK WITH 6+ ENTRIES YIPPEEgit add .

tests/sprint4/test/sp4_cg_calls.alpha

@@ -0,0 +1,34 @@
+(* 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(g);
+    return b;
+}
+
+entry (arg) := {
+    [integer:x; integer:y; integer: result]
+
+    result := bar(1,2,3,4,5,6,7);
+    return 1;
+}

tests/sprint4/test/sp4_cg_calls.alpha~

@@ -0,0 +1,34 @@
+(* 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;
+}