This commit is contained in:
Scarlett
2025-05-06 15:34:55 -04:00
parent 596434e152
commit c8491b62e4
49 changed files with 1560 additions and 339 deletions

View File

@ -1 +1,30 @@
(* TODO *)
(* TEST: [-asc -tc -cg -ir] *)
#include "std.alpha"
function entry : string2integer
function Fib : integer2integer
Fib(i) := {
[ Boolean: a ; Boolean: b ; Boolean: c]
if( i = 0 ) then {
return 7;
} else {
i := i;
}
b := b | (a & c);
b := 2 < 3;
if(i = 1) then {
return 1;
} else {
return i + Fib(i - 1);
}
}
entry (arg) := {
[ integer: x; integer: y ]
x := 2;
x := Fib(2);
y := printInteger(Fib(2));
return 1;
}

View File

@ -5,6 +5,8 @@ function entry: string2integer
entry (arg) := {
[integer: x; string: s; character: c; integer: result]
result := printS("hello world");
s := inS(1);
result := printS(s);

View File

@ -1,10 +1,47 @@
001: type main: integer -> integer
002: function test: main
003:
004: test (a) := {
005: [integer:x; integer:y]
006: y := 1;
007: x := 3;
008: y := x + y;
009: return y;
010: }
001:
002: type string: 1 -> character
003: type BooleanXBoolean: [Boolean: x; Boolean: y]
004: type characterXcharacter: [character: x; character: y]
005: type integerXinteger: [integer: x; integer: y]
006:
007: type Boolean2Boolean: Boolean -> Boolean
008: type integer2integer: integer -> integer
009: type character2integer: character -> integer
010: type Boolean2integer: Boolean -> integer
011: type string2integer: string -> integer
012: type integerXinteger2integer: integerXinteger -> integer
013: type integerXinteger2Boolean: integerXinteger -> Boolean
014: type characterXcharacter2Boolean: characterXcharacter -> Boolean
015: type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
016: type integer2address: integer -> address
017: type address2integer: address -> integer
018: type integer2string: integer -> string
019: type integer2character: integer -> character
020: type integer2Boolean: integer -> Boolean
021:
022:
023: external function printInteger: integer2integer
024: external function printCharacter: character2integer
025: external function printBoolean: Boolean2integer
026:
027: external function printS: string2integer
028: external function printI: integer2integer
029: external function printC: character2integer
030: external function printB: Boolean2integer
031:
032: external function inS: integer2string
033: external function inI: integer2integer
034: external function inC: integer2character
035:
036: function entry: string2integer
037:
038: entry (arg) := {
039: [integer:x; integer:y; integer: result]
040:
041: y := 1;
042: x := 3;
043: y := x + y;
044:
045: result := printInteger(y);
046: return y;
047: }

View File

@ -1,8 +1,16 @@
1: func : test
2: $t0 = 1
3: y = $t0
4: $t1 = 3
5: x = $t1
6: $t2 = x + y
7: y = $t2
8: return : y
1: func_dec : entry
2: func : entry
3: $t0 = 1
4: Label : 1
5: y = $t0
6: $t1 = 3
7: Label : 2
8: x = $t1
9: $t2 = x + y
10: Label : 3
11: y = $t2
12: param y
13: call : printInteger 1
14: Label : 4
15: result = $t3
16: return : y

View File

@ -1,12 +1,30 @@
movl $1, -4(%rbp) #constant assign
movl -4(%rbp), %eax #assign start
movl %eax, -8(%rbp) #assign end
movl $3, -12(%rbp) #constant assign
.globl entry
entry:
pushq %rbp
movq %rsp, %rbp
subq $128, %rsp
movl %edi, -8(%rbp) #FunctionStart1param end
movl $1, -12(%rbp) #constant assign
.L1:
movl -12(%rbp), %eax #assign start
movl %eax, -16(%rbp) #assign end
movl -16(%rbp), %eax #addition start
movl -16(%rbp), %eax
addl %edx, %eax
movl %eax, -20(%rbp) #addition end
movl $3, -20(%rbp) #constant assign
.L2:
movl -20(%rbp), %eax #assign start
movl %eax, -8(%rbp) #assign end
movl %eax, -24(%rbp) #assign end
movl -24(%rbp), %eax #addition start
addl -16(%rbp), %eax
movl %eax, -28(%rbp) #addition end
.L3:
movl -28(%rbp), %eax #assign start
movl %eax, -16(%rbp) #assign end
movl -16(%rbp), %edi #adding param start
call printInteger
movl %eax, -32(%rbp) #store return from call
.L4:
movl -32(%rbp), %eax #assign start
movl %eax, -36(%rbp) #assign end
movl -16(%rbp), %eax #return y
leave
ret

View File

@ -1,10 +1,50 @@
001: type main: integer -> integer
002: function test: main
003:
004: test (a) := {
005: [Boolean:b; Boolean: c; Boolean: d]
006: c := true;
007: d := false;
008: d := c & d;
009: return 1;
010: }
001:
002: type string: 1 -> character
003: type BooleanXBoolean: [Boolean: x; Boolean: y]
004: type characterXcharacter: [character: x; character: y]
005: type integerXinteger: [integer: x; integer: y]
006:
007: type Boolean2Boolean: Boolean -> Boolean
008: type integer2integer: integer -> integer
009: type character2integer: character -> integer
010: type Boolean2integer: Boolean -> integer
011: type string2integer: string -> integer
012: type integerXinteger2integer: integerXinteger -> integer
013: type integerXinteger2Boolean: integerXinteger -> Boolean
014: type characterXcharacter2Boolean: characterXcharacter -> Boolean
015: type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
016: type integer2address: integer -> address
017: type address2integer: address -> integer
018: type integer2string: integer -> string
019: type integer2character: integer -> character
020: type integer2Boolean: integer -> Boolean
021:
022:
023: external function printInteger: integer2integer
024: external function printCharacter: character2integer
025: external function printBoolean: Boolean2integer
026:
027: external function printS: string2integer
028: external function printI: integer2integer
029: external function printC: character2integer
030: external function printB: Boolean2integer
031:
032: external function inS: integer2string
033: external function inI: integer2integer
034: external function inC: integer2character
035:
036: function entry: string2integer
037:
038: entry (arg) := {
039: [Boolean:b; Boolean: c; Boolean: d; integer: result]
040:
041: z := true;
LINE (41:14) ** TYPE ERROR: Assignable Assign Expression - Object undefined of type undefined != Object $t0 of type Boolean
LINE (41:14) ** TYPE ERROR: Invalid type passed to assignable.
LINE (41:5) ** TYPE ERROR: Undefined variable z
042: d := false;
043: d := c & d;
044:
045: result := printBoolean(d);
046: return 1;
047: }

View File

@ -0,0 +1,60 @@
001:
002: type string: 1 -> character
003: type BooleanXBoolean: [Boolean: x; Boolean: y]
004: type characterXcharacter: [character: x; character: y]
005: type integerXinteger: [integer: x; integer: y]
006:
007: type Boolean2Boolean: Boolean -> Boolean
008: type integer2integer: integer -> integer
009: type character2integer: character -> integer
010: type Boolean2integer: Boolean -> integer
011: type string2integer: string -> integer
012: type integerXinteger2integer: integerXinteger -> integer
013: type integerXinteger2Boolean: integerXinteger -> Boolean
014: type characterXcharacter2Boolean: characterXcharacter -> Boolean
015: type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
016: type integer2address: integer -> address
017: type address2integer: address -> integer
018: type integer2string: integer -> string
019: type integer2character: integer -> character
020: type integer2Boolean: integer -> Boolean
021:
022:
023: external function printInteger: integer2integer
024: external function printCharacter: character2integer
025: external function printBoolean: Boolean2integer
026:
027: external function printS: string2integer
028: external function printI: integer2integer
029: external function printC: character2integer
030: external function printB: Boolean2integer
031:
032: external function inS: integer2string
033: external function inI: integer2integer
034: external function inC: integer2character
035:
036: function entry: string2integer
037:
038:
039: type rec: [integer: x; integer: y; integer: z; integer: a; integer: b; integer: c; integer: d]
040: type T2: rec -> integer
041: type T: integer -> integer
042: function bar: T2
043: function ahh: T
044:
045: ahh (a) := {
046: a := printInteger(a);
047: return -1;
048: }
049:
050: bar (a, b, c,d,e,f,g) := {
051: a := printInteger(g);
052: return b;
053: }
054:
055: entry (arg) := {
056: [integer:x; integer:y; integer: result]
057:
058: result := bar(1,2,3,4,5,6,7);
059: return 1;
060: }

View File

@ -0,0 +1,37 @@
1: func_dec : entry
2: func_dec : bar
3: func_dec : ahh
4: func : ahh
5: param a
6: call : printInteger 1
7: Label : 1
8: a = $t0
9: $t1 = 1
10: $t2 = -$t1
11: return : $t2
12: func : bar
13: param g
14: call : printInteger 1
15: Label : 2
16: a = $t3
17: return : b
18: func : entry
19: $t4 = 1
20: $t5 = 2
21: $t6 = 3
22: $t7 = 4
23: $t8 = 5
24: $t9 = 6
25: $t10 = 7
26: param $t10
27: param $t9
28: param $t8
29: param $t7
30: param $t6
31: param $t5
32: param $t4
33: call : bar 7
34: Label : 3
35: result = $t11
36: $t12 = 1
37: return : $t12

View File

@ -0,0 +1,69 @@
.globl entry
ahh:
pushq %rbp
movq %rsp, %rbp
subq $128, %rsp
movl %edi, -4(%rbp) #FunctionStart1param end
movl -4(%rbp), %edi #adding param start
call printInteger
movl %eax, -8(%rbp) #store return from call
.L1:
movl -8(%rbp), %eax #assign start
movl %eax, -4(%rbp) #assign end
movl $1, -12(%rbp) #constant assign
movl -12(%rbp), %eax #negation start
negl %eax
movl %eax, -16(%rbp) #negation end
movl -16(%rbp), %eax #return $t2
leave
ret
bar:
pushq %rbp
movq %rsp, %rbp
subq $128, %rsp
movl 20(%rbp), %eax #FunctionStart1Param start
movl %eax, -4(%rbp) #FunctionStart1param end
movl %r9d, -12(%rbp) #FunctionStart1param end
movl %r8d, -16(%rbp) #FunctionStart1param end
movl %ecx, -20(%rbp) #FunctionStart1param end
movl %edx, -24(%rbp) #FunctionStart1param end
movl %esi, -28(%rbp) #FunctionStart1param end
movl %edi, -32(%rbp) #FunctionStart1param end
movl -32(%rbp), %edi #adding param start
call printInteger
movl %eax, -36(%rbp) #store return from call
.L2:
movl -36(%rbp), %eax #assign start
movl %eax, -4(%rbp) #assign end
movl -12(%rbp), %eax #return b
leave
ret
entry:
pushq %rbp
movq %rsp, %rbp
subq $128, %rsp
movl %edi, -8(%rbp) #FunctionStart1param end
movl $1, -12(%rbp) #constant assign
movl $2, -16(%rbp) #constant assign
movl $3, -20(%rbp) #constant assign
movl $4, -24(%rbp) #constant assign
movl $5, -28(%rbp) #constant assign
movl $6, -32(%rbp) #constant assign
movl $7, -36(%rbp) #constant assign
movl -36(%rbp), %edi #adding param start
movl -32(%rbp), %esi #adding param start
movl -28(%rbp), %edx #adding param start
movl -24(%rbp), %ecx #adding param start
movl -20(%rbp), %r8d #adding param start
movl -16(%rbp), %r9d #adding param start
movl -12(%rbp), %eax #adding param start
movl %eax, 88(%rbp) #adding param end
call bar
movl %eax, -44(%rbp) #store return from call
.L3:
movl -44(%rbp), %eax #assign start
movl %eax, -48(%rbp) #assign end
movl $1, -52(%rbp) #constant assign
movl -52(%rbp), %eax #return $t12
leave
ret

View File

@ -1,10 +1,47 @@
001: type main: integer -> integer
002: function test: main
003:
004: test (a) := {
005: [integer:x; integer:y]
006: y := 1;
007: x := 3;
008: y := x / y;
009: return y;
010: }
001:
002: type string: 1 -> character
003: type BooleanXBoolean: [Boolean: x; Boolean: y]
004: type characterXcharacter: [character: x; character: y]
005: type integerXinteger: [integer: x; integer: y]
006:
007: type Boolean2Boolean: Boolean -> Boolean
008: type integer2integer: integer -> integer
009: type character2integer: character -> integer
010: type Boolean2integer: Boolean -> integer
011: type string2integer: string -> integer
012: type integerXinteger2integer: integerXinteger -> integer
013: type integerXinteger2Boolean: integerXinteger -> Boolean
014: type characterXcharacter2Boolean: characterXcharacter -> Boolean
015: type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
016: type integer2address: integer -> address
017: type address2integer: address -> integer
018: type integer2string: integer -> string
019: type integer2character: integer -> character
020: type integer2Boolean: integer -> Boolean
021:
022:
023: external function printInteger: integer2integer
024: external function printCharacter: character2integer
025: external function printBoolean: Boolean2integer
026:
027: external function printS: string2integer
028: external function printI: integer2integer
029: external function printC: character2integer
030: external function printB: Boolean2integer
031:
032: external function inS: integer2string
033: external function inI: integer2integer
034: external function inC: integer2character
035:
036: function entry: string2integer
037:
038: entry (arg) := {
039: [integer:x; integer:y; integer: result]
040:
041: x := 24;
042: y := 3;
043: y := x / y;
044:
045: result := printInteger(y);
046: return y;
047: }

View File

@ -1,8 +1,16 @@
1: func : test
2: $t0 = 1
3: y = $t0
4: $t1 = 3
5: x = $t1
6: $t2 = x / y
7: y = $t2
8: return : y
1: func_dec : entry
2: func : entry
3: $t0 = 24
4: Label : 1
5: x = $t0
6: $t1 = 3
7: Label : 2
8: y = $t1
9: $t2 = x / y
10: Label : 3
11: y = $t2
12: param y
13: call : printInteger 1
14: Label : 4
15: result = $t3
16: return : y

View File

@ -1,12 +1,30 @@
movl $1, -4(%rbp) #constant assign
movl -4(%rbp), %eax #assign start
movl %eax, -8(%rbp) #assign end
movl $3, -12(%rbp) #constant assign
.globl entry
entry:
pushq %rbp
movq %rsp, %rbp
subq $128, %rsp
movl %edi, -8(%rbp) #FunctionStart1param end
movl $24, -12(%rbp) #constant assign
.L1:
movl -12(%rbp), %eax #assign start
movl %eax, -16(%rbp) #assign end
movl $3, -20(%rbp) #constant assign
.L2:
movl -20(%rbp), %eax #assign start
movl %eax, -24(%rbp) #assign end
movl -16(%rbp), %eax #division start
cltd
idivl -8(%rbp)
movl %eax, -20(%rbp) #division end
movl -20(%rbp), %eax #assign start
movl %eax, -8(%rbp) #assign end
idivl -24(%rbp)
movl %eax, -28(%rbp) #division end
.L3:
movl -28(%rbp), %eax #assign start
movl %eax, -24(%rbp) #assign end
movl -24(%rbp), %edi #adding param start
call printInteger
movl %eax, -32(%rbp) #store return from call
.L4:
movl -32(%rbp), %eax #assign start
movl %eax, -36(%rbp) #assign end
movl -24(%rbp), %eax #return y
leave
ret

View File

@ -1,10 +1,47 @@
001: type main: integer -> integer
002: function test: main
003:
004: test (a) := {
005: [Boolean: b; integer: x; integer: y]
006: x := 1;
007: y := 2;
008: b := x = y;
009: return 1;
010: }
001:
002: type string: 1 -> character
003: type BooleanXBoolean: [Boolean: x; Boolean: y]
004: type characterXcharacter: [character: x; character: y]
005: type integerXinteger: [integer: x; integer: y]
006:
007: type Boolean2Boolean: Boolean -> Boolean
008: type integer2integer: integer -> integer
009: type character2integer: character -> integer
010: type Boolean2integer: Boolean -> integer
011: type string2integer: string -> integer
012: type integerXinteger2integer: integerXinteger -> integer
013: type integerXinteger2Boolean: integerXinteger -> Boolean
014: type characterXcharacter2Boolean: characterXcharacter -> Boolean
015: type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
016: type integer2address: integer -> address
017: type address2integer: address -> integer
018: type integer2string: integer -> string
019: type integer2character: integer -> character
020: type integer2Boolean: integer -> Boolean
021:
022:
023: external function printInteger: integer2integer
024: external function printCharacter: character2integer
025: external function printBoolean: Boolean2integer
026:
027: external function printS: string2integer
028: external function printI: integer2integer
029: external function printC: character2integer
030: external function printB: Boolean2integer
031:
032: external function inS: integer2string
033: external function inI: integer2integer
034: external function inC: integer2character
035:
036: function entry: string2integer
037:
038: entry (arg) := {
039: [Boolean: b; integer: x; integer: y; integer: result]
040:
041: x := 1;
042: y := 2;
043: b := x = y;
044:
045: result := printBoolean(b);
046: return 1;
047: }

View File

@ -1,10 +1,17 @@
1: func : test
2: $t0 = 1
3: x = $t0
4: $t1 = 2
5: y = $t1
6: if ( x = y ) GOTO 0
7: GOTO : 0
8: b = $t2
9: $t3 = 1
10: return : $t3
1: func_dec : entry
2: func : entry
3: $t0 = 1
4: Label : 1
5: x = $t0
6: $t1 = 2
7: Label : 2
8: y = $t1
9: $t2 = x == y
10: Label : 3
11: b = $t2
12: param b
13: call : printBoolean 1
14: Label : 4
15: result = $t3
16: $t4 = 1
17: return : $t4

View File

@ -1,11 +1,31 @@
movl $1, -4(%rbp) #constant assign
movl -4(%rbp), %eax #assign start
movl %eax, -8(%rbp) #assign end
movl $2, -12(%rbp) #constant assign
.globl entry
entry:
pushq %rbp
movq %rsp, %rbp
subq $128, %rsp
movl %edi, -8(%rbp) #FunctionStart1param end
movl $1, -12(%rbp) #constant assign
.L1:
movl -12(%rbp), %eax #assign start
movl %eax, -16(%rbp) #assign end
movl -8(%rbp), %eax #equal to start
cmpl -16(%rbp), %eax
movl $2, -20(%rbp) #constant assign
.L2:
movl -20(%rbp), %eax #assign start
movl %eax, -24(%rbp) #assign end
movl -16(%rbp), %eax #equal to start
cmpl -24(%rbp), %eax
sete %al
movb %al, -15(%rbp) #equal to end
movl $1, -20(%rbp) #constant assign
movb %al, -25(%rbp) #equal to end
.L3:
movl -25(%rbp), %eax #assign start
movl %eax, -26(%rbp) #assign end
movl -26(%rbp), %edi #adding param start
call printBoolean
movl %eax, -30(%rbp) #store return from call
.L4:
movl -30(%rbp), %eax #assign start
movl %eax, -34(%rbp) #assign end
movl $1, -38(%rbp) #constant assign
movl -38(%rbp), %eax #return $t4
leave
ret

View File

@ -1,10 +1,47 @@
001: type main: integer -> integer
002: function test: main
003:
004: test (a) := {
005: [Boolean: b; integer: x; integer: y]
006: x := 1;
007: y := 2;
008: b := x < y;
009: return 1;
010: }
001:
002: type string: 1 -> character
003: type BooleanXBoolean: [Boolean: x; Boolean: y]
004: type characterXcharacter: [character: x; character: y]
005: type integerXinteger: [integer: x; integer: y]
006:
007: type Boolean2Boolean: Boolean -> Boolean
008: type integer2integer: integer -> integer
009: type character2integer: character -> integer
010: type Boolean2integer: Boolean -> integer
011: type string2integer: string -> integer
012: type integerXinteger2integer: integerXinteger -> integer
013: type integerXinteger2Boolean: integerXinteger -> Boolean
014: type characterXcharacter2Boolean: characterXcharacter -> Boolean
015: type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
016: type integer2address: integer -> address
017: type address2integer: address -> integer
018: type integer2string: integer -> string
019: type integer2character: integer -> character
020: type integer2Boolean: integer -> Boolean
021:
022:
023: external function printInteger: integer2integer
024: external function printCharacter: character2integer
025: external function printBoolean: Boolean2integer
026:
027: external function printS: string2integer
028: external function printI: integer2integer
029: external function printC: character2integer
030: external function printB: Boolean2integer
031:
032: external function inS: integer2string
033: external function inI: integer2integer
034: external function inC: integer2character
035:
036: function entry: string2integer
037:
038: entry (arg) := {
039: [Boolean: b; integer: x; integer: y; integer: result]
040:
041: x := 1;
042: y := 2;
043: b := x < y;
044:
045: result := printBoolean(b);
046: return 1;
047: }

View File

@ -1,10 +1,17 @@
1: func : test
2: $t0 = 1
3: x = $t0
4: $t1 = 2
5: y = $t1
6: if ( x < y ) GOTO 0
7: GOTO : 0
8: b = $t2
9: $t3 = 1
10: return : $t3
1: func_dec : entry
2: func : entry
3: $t0 = 1
4: Label : 1
5: x = $t0
6: $t1 = 2
7: Label : 2
8: y = $t1
9: $t2 = x < y
10: Label : 3
11: b = $t2
12: param b
13: call : printBoolean 1
14: Label : 4
15: result = $t3
16: $t4 = 1
17: return : $t4

View File

@ -1,11 +1,31 @@
movl $1, -4(%rbp) #constant assign
movl -4(%rbp), %eax #assign start
movl %eax, -8(%rbp) #assign end
movl $2, -12(%rbp) #constant assign
.globl entry
entry:
pushq %rbp
movq %rsp, %rbp
subq $128, %rsp
movl %edi, -8(%rbp) #FunctionStart1param end
movl $1, -12(%rbp) #constant assign
.L1:
movl -12(%rbp), %eax #assign start
movl %eax, -16(%rbp) #assign end
movl -8(%rbp), %eax #less than start
cmpl -16(%rbp), %eax
movl $2, -20(%rbp) #constant assign
.L2:
movl -20(%rbp), %eax #assign start
movl %eax, -24(%rbp) #assign end
movl -16(%rbp), %eax #less than start
cmpl -24(%rbp), %eax
setl %al
movb %al, -15(%rbp) #less than end
movl $1, -20(%rbp) #constant assign
movb %al, -25(%rbp) #less than end
.L3:
movl -25(%rbp), %eax #assign start
movl %eax, -26(%rbp) #assign end
movl -26(%rbp), %edi #adding param start
call printBoolean
movl %eax, -30(%rbp) #store return from call
.L4:
movl -30(%rbp), %eax #assign start
movl %eax, -34(%rbp) #assign end
movl $1, -38(%rbp) #constant assign
movl -38(%rbp), %eax #return $t4
leave
ret

View File

@ -1,10 +1,47 @@
001: type main: integer -> integer
002: function test: main
003:
004: test (a) := {
005: [integer:x; integer:y]
006: y := 1;
007: x := 3;
008: y := x % y;
009: return y;
010: }
001:
002: type string: 1 -> character
003: type BooleanXBoolean: [Boolean: x; Boolean: y]
004: type characterXcharacter: [character: x; character: y]
005: type integerXinteger: [integer: x; integer: y]
006:
007: type Boolean2Boolean: Boolean -> Boolean
008: type integer2integer: integer -> integer
009: type character2integer: character -> integer
010: type Boolean2integer: Boolean -> integer
011: type string2integer: string -> integer
012: type integerXinteger2integer: integerXinteger -> integer
013: type integerXinteger2Boolean: integerXinteger -> Boolean
014: type characterXcharacter2Boolean: characterXcharacter -> Boolean
015: type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
016: type integer2address: integer -> address
017: type address2integer: address -> integer
018: type integer2string: integer -> string
019: type integer2character: integer -> character
020: type integer2Boolean: integer -> Boolean
021:
022:
023: external function printInteger: integer2integer
024: external function printCharacter: character2integer
025: external function printBoolean: Boolean2integer
026:
027: external function printS: string2integer
028: external function printI: integer2integer
029: external function printC: character2integer
030: external function printB: Boolean2integer
031:
032: external function inS: integer2string
033: external function inI: integer2integer
034: external function inC: integer2character
035:
036: function entry: string2integer
037:
038: entry (arg) := {
039: [integer:x; integer:y; integer: result]
040:
041: x := 4;
042: y := 20;
043: y := y % x;
044:
045: result := printInteger(y);
046: return y;
047: }

View File

@ -1,8 +1,16 @@
1: func : test
2: $t0 = 1
3: y = $t0
4: $t1 = 3
5: x = $t1
6: $t2 = x % y
7: y = $t2
8: return : y
1: func_dec : entry
2: func : entry
3: $t0 = 4
4: Label : 1
5: x = $t0
6: $t1 = 20
7: Label : 2
8: y = $t1
9: $t2 = y % x
10: Label : 3
11: y = $t2
12: param y
13: call : printInteger 1
14: Label : 4
15: result = $t3
16: return : y

View File

@ -1,12 +1,30 @@
movl $1, -4(%rbp) #constant assign
movl -4(%rbp), %eax #assign start
movl %eax, -8(%rbp) #assign end
movl $3, -12(%rbp) #constant assign
.globl entry
entry:
pushq %rbp
movq %rsp, %rbp
subq $128, %rsp
movl %edi, -8(%rbp) #FunctionStart1param end
movl $4, -12(%rbp) #constant assign
.L1:
movl -12(%rbp), %eax #assign start
movl %eax, -16(%rbp) #assign end
movl -16(%rbp), %eax #mod start
cltd
idivl -8(%rbp)
movl %edx, -20(%rbp) #mod end
movl $20, -20(%rbp) #constant assign
.L2:
movl -20(%rbp), %eax #assign start
movl %eax, -8(%rbp) #assign end
movl %eax, -24(%rbp) #assign end
movl -24(%rbp), %eax #mod start
cltd
idivl -16(%rbp)
movl %edx, -28(%rbp) #mod end
.L3:
movl -28(%rbp), %eax #assign start
movl %eax, -24(%rbp) #assign end
movl -24(%rbp), %edi #adding param start
call printInteger
movl %eax, -32(%rbp) #store return from call
.L4:
movl -32(%rbp), %eax #assign start
movl %eax, -36(%rbp) #assign end
movl -24(%rbp), %eax #return y
leave
ret

View File

@ -1,10 +1,47 @@
001: type main: integer -> integer
002: function test: main
003:
004: test (a) := {
005: [integer:x; integer:y]
006: y := 1;
007: x := 3;
008: y := x * x;
009: return y;
010: }
001:
002: type string: 1 -> character
003: type BooleanXBoolean: [Boolean: x; Boolean: y]
004: type characterXcharacter: [character: x; character: y]
005: type integerXinteger: [integer: x; integer: y]
006:
007: type Boolean2Boolean: Boolean -> Boolean
008: type integer2integer: integer -> integer
009: type character2integer: character -> integer
010: type Boolean2integer: Boolean -> integer
011: type string2integer: string -> integer
012: type integerXinteger2integer: integerXinteger -> integer
013: type integerXinteger2Boolean: integerXinteger -> Boolean
014: type characterXcharacter2Boolean: characterXcharacter -> Boolean
015: type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
016: type integer2address: integer -> address
017: type address2integer: address -> integer
018: type integer2string: integer -> string
019: type integer2character: integer -> character
020: type integer2Boolean: integer -> Boolean
021:
022:
023: external function printInteger: integer2integer
024: external function printCharacter: character2integer
025: external function printBoolean: Boolean2integer
026:
027: external function printS: string2integer
028: external function printI: integer2integer
029: external function printC: character2integer
030: external function printB: Boolean2integer
031:
032: external function inS: integer2string
033: external function inI: integer2integer
034: external function inC: integer2character
035:
036: function entry: string2integer
037:
038: entry (arg) := {
039: [integer:x; integer:y; integer: result]
040:
041: x := 3;
042: y := 20;
043: y := x * y;
044:
045: result := printInteger(y);
046: return y;
047: }

View File

@ -1,8 +1,16 @@
1: func : test
2: $t0 = 1
3: y = $t0
4: $t1 = 3
5: x = $t1
6: $t2 = x * x
7: y = $t2
8: return : y
1: func_dec : entry
2: func : entry
3: $t0 = 3
4: Label : 1
5: x = $t0
6: $t1 = 20
7: Label : 2
8: y = $t1
9: $t2 = x * y
10: Label : 3
11: y = $t2
12: param y
13: call : printInteger 1
14: Label : 4
15: result = $t3
16: return : y

View File

@ -1,11 +1,29 @@
movl $1, -4(%rbp) #constant assign
movl -4(%rbp), %eax #assign start
movl %eax, -8(%rbp) #assign end
.globl entry
entry:
pushq %rbp
movq %rsp, %rbp
subq $128, %rsp
movl %edi, -8(%rbp) #FunctionStart1param end
movl $3, -12(%rbp) #constant assign
.L1:
movl -12(%rbp), %eax #assign start
movl %eax, -16(%rbp) #assign end
movl -16(%rbp), %eax #multiplication start
imull -16(%rbp), %eax
movl %eax, -20(%rbp) #multiplication end
movl $20, -20(%rbp) #constant assign
.L2:
movl -20(%rbp), %eax #assign start
movl %eax, -8(%rbp) #assign end
movl %eax, -24(%rbp) #assign end
movl -16(%rbp), %eax #multiplication start
imull -24(%rbp), %eax
movl %eax, -28(%rbp) #multiplication end
.L3:
movl -28(%rbp), %eax #assign start
movl %eax, -24(%rbp) #assign end
movl -24(%rbp), %edi #adding param start
call printInteger
movl %eax, -32(%rbp) #store return from call
.L4:
movl -32(%rbp), %eax #assign start
movl %eax, -36(%rbp) #assign end
movl -24(%rbp), %eax #return y
leave
ret

View File

@ -1,9 +1,46 @@
001: type main: integer -> integer
002: function test: main
003:
004: test (a) := {
005: [integer:x; integer:y]
006: x := 3;
007: y := -x;
008: return y;
009: }
001:
002: type string: 1 -> character
003: type BooleanXBoolean: [Boolean: x; Boolean: y]
004: type characterXcharacter: [character: x; character: y]
005: type integerXinteger: [integer: x; integer: y]
006:
007: type Boolean2Boolean: Boolean -> Boolean
008: type integer2integer: integer -> integer
009: type character2integer: character -> integer
010: type Boolean2integer: Boolean -> integer
011: type string2integer: string -> integer
012: type integerXinteger2integer: integerXinteger -> integer
013: type integerXinteger2Boolean: integerXinteger -> Boolean
014: type characterXcharacter2Boolean: characterXcharacter -> Boolean
015: type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
016: type integer2address: integer -> address
017: type address2integer: address -> integer
018: type integer2string: integer -> string
019: type integer2character: integer -> character
020: type integer2Boolean: integer -> Boolean
021:
022:
023: external function printInteger: integer2integer
024: external function printCharacter: character2integer
025: external function printBoolean: Boolean2integer
026:
027: external function printS: string2integer
028: external function printI: integer2integer
029: external function printC: character2integer
030: external function printB: Boolean2integer
031:
032: external function inS: integer2string
033: external function inI: integer2integer
034: external function inC: integer2character
035:
036: function entry: string2integer
037:
038: entry (arg) := {
039: [integer:x; integer:y; integer: result]
040:
041: x := 3;
042: y := -x;
043:
044: result := printInteger(y);
045: return y;
046: }

View File

@ -1,6 +1,13 @@
1: func : test
2: $t0 = 3
3: x = $t0
4: $t1 = -x
5: y = $t1
6: return : y
1: func_dec : entry
2: func : entry
3: $t0 = 3
4: Label : 1
5: x = $t0
6: $t1 = -x
7: Label : 2
8: y = $t1
9: param y
10: call : printInteger 1
11: Label : 3
12: result = $t2
13: return : y

View File

@ -1,8 +1,25 @@
movl $3, -4(%rbp) #constant assign
movl -4(%rbp), %eax #assign start
movl %eax, -8(%rbp) #assign end
movl -8(%rbp), %eax #negation start
negl %eax
movl %eax, -12(%rbp) #negation end
.globl entry
entry:
pushq %rbp
movq %rsp, %rbp
subq $128, %rsp
movl %edi, -8(%rbp) #FunctionStart1param end
movl $3, -12(%rbp) #constant assign
.L1:
movl -12(%rbp), %eax #assign start
movl %eax, -16(%rbp) #assign end
movl -16(%rbp), %eax #negation start
negl %eax
movl %eax, -20(%rbp) #negation end
.L2:
movl -20(%rbp), %eax #assign start
movl %eax, -24(%rbp) #assign end
movl -24(%rbp), %edi #adding param start
call printInteger
movl %eax, -28(%rbp) #store return from call
.L3:
movl -28(%rbp), %eax #assign start
movl %eax, -32(%rbp) #assign end
movl -24(%rbp), %eax #return y
leave
ret

View File

@ -1,9 +1,46 @@
001: type main: integer -> integer
002: function test: main
003:
004: test (a) := {
005: [Boolean: c; Boolean: d]
006: c := true;
007: d := !c;
008: return 1;
009: }
001:
002: type string: 1 -> character
003: type BooleanXBoolean: [Boolean: x; Boolean: y]
004: type characterXcharacter: [character: x; character: y]
005: type integerXinteger: [integer: x; integer: y]
006:
007: type Boolean2Boolean: Boolean -> Boolean
008: type integer2integer: integer -> integer
009: type character2integer: character -> integer
010: type Boolean2integer: Boolean -> integer
011: type string2integer: string -> integer
012: type integerXinteger2integer: integerXinteger -> integer
013: type integerXinteger2Boolean: integerXinteger -> Boolean
014: type characterXcharacter2Boolean: characterXcharacter -> Boolean
015: type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
016: type integer2address: integer -> address
017: type address2integer: address -> integer
018: type integer2string: integer -> string
019: type integer2character: integer -> character
020: type integer2Boolean: integer -> Boolean
021:
022:
023: external function printInteger: integer2integer
024: external function printCharacter: character2integer
025: external function printBoolean: Boolean2integer
026:
027: external function printS: string2integer
028: external function printI: integer2integer
029: external function printC: character2integer
030: external function printB: Boolean2integer
031:
032: external function inS: integer2string
033: external function inI: integer2integer
034: external function inC: integer2character
035:
036: function entry: string2integer
037:
038: entry (arg) := {
039: [Boolean: c; Boolean: d; integer: result]
040:
041: c := true;
042: d := !c;
043:
044: result := printBoolean(d);
045: return 1;
046: }

View File

@ -1,7 +1,13 @@
1: func : test
2: $t0 = true
3: c = $t0
4: $t1 = !c
5: d = $t1
6: $t2 = 1
7: return : $t2
1: func_dec : entry
2: func : entry
3: $t0 = true
4: Label : 1
5: c = $t0
6: Label : 2
7: d = $t1
8: param d
9: call : printBoolean 1
10: Label : 3
11: result = $t2
12: $t3 = 1
13: return : $t3

View File

@ -1,13 +1,21 @@
movl $-1, -1(%rbp) #constant assign
movl -1(%rbp), %eax #assign start
movl %eax, -2(%rbp) #assign end
movzbl -2(%rbp), %eax #not start
testl %eax, %eax
setne %al
xorl $1, %eax
movzbl %al, %eax
movb %al, -3(%rbp)
andb $1, -3(%rbp) #not end
movl -3(%rbp), %eax #assign start
movl %eax, -4(%rbp) #assign end
movl $1, -8(%rbp) #constant assign
.globl entry
entry:
pushq %rbp
movq %rsp, %rbp
subq $128, %rsp
movl %edi, -8(%rbp) #FunctionStart1param end
movl $-1, -9(%rbp) #constant assign
.L1:
movl -9(%rbp), %eax #assign start
movl %eax, -10(%rbp) #assign end
.L2:
movl -11(%rbp), %edi #adding param start
call printBoolean
movl %eax, -15(%rbp) #store return from call
.L3:
movl -15(%rbp), %eax #assign start
movl %eax, -19(%rbp) #assign end
movl $1, -23(%rbp) #constant assign
movl -23(%rbp), %eax #return $t3
leave
ret

View File

@ -1,10 +1,47 @@
001: type main: integer -> integer
002: function test: main
003:
004: test (a) := {
005: [Boolean:b; Boolean: c; Boolean: d]
006: c := true;
007: d := false;
008: d := c | d;
009: return 1;
010: }
001:
002: type string: 1 -> character
003: type BooleanXBoolean: [Boolean: x; Boolean: y]
004: type characterXcharacter: [character: x; character: y]
005: type integerXinteger: [integer: x; integer: y]
006:
007: type Boolean2Boolean: Boolean -> Boolean
008: type integer2integer: integer -> integer
009: type character2integer: character -> integer
010: type Boolean2integer: Boolean -> integer
011: type string2integer: string -> integer
012: type integerXinteger2integer: integerXinteger -> integer
013: type integerXinteger2Boolean: integerXinteger -> Boolean
014: type characterXcharacter2Boolean: characterXcharacter -> Boolean
015: type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
016: type integer2address: integer -> address
017: type address2integer: address -> integer
018: type integer2string: integer -> string
019: type integer2character: integer -> character
020: type integer2Boolean: integer -> Boolean
021:
022:
023: external function printInteger: integer2integer
024: external function printCharacter: character2integer
025: external function printBoolean: Boolean2integer
026:
027: external function printS: string2integer
028: external function printI: integer2integer
029: external function printC: character2integer
030: external function printB: Boolean2integer
031:
032: external function inS: integer2string
033: external function inI: integer2integer
034: external function inC: integer2character
035:
036: function entry: string2integer
037:
038: entry (arg) := {
039: [Boolean:b; Boolean: c; Boolean: d; integer: result]
040:
041: c := true;
042: d := false;
043: d := c | d;
044:
045: result := printBoolean(d);
046: return 1;
047: }

View File

@ -1,9 +1,24 @@
1: func : test
2: $t0 = true
3: c = $t0
4: $t1 = false
5: d = $t1
6: $t2 = c | d
7: d = $t2
8: $t3 = 1
9: return : $t3
1: func_dec : entry
2: func : entry
3: $t0 = true
4: Label : 1
5: c = $t0
6: $t1 = false
7: Label : 2
8: d = $t1
9: $t2 = true
10: Label : 3
11: if c True GOTO 5
12: GOTO : 4
13: Label : 4
14: if d True GOTO 5
15: $t2 = false
16: GOTO : 5
17: Label : 5
18: d = $t2
19: param d
20: call : printBoolean 1
21: Label : 6
22: result = $t3
23: $t4 = 1
24: return : $t4

View File

@ -1,21 +1,31 @@
movl $-1, -1(%rbp) #constant assign
movl -1(%rbp), %eax #assign start
movl %eax, -2(%rbp) #assign end
movl $-1, -3(%rbp) #constant assign
movl -3(%rbp), %eax #assign start
movl %eax, -4(%rbp) #assign end
cmpl $0, -2(%rbp) #start or
jne .L1or2
cmpl $0, -4(%rbp)
je .L1or3
.L1or2:
movl $1, %eax
jmp .L1or4
.L1or3:
movl $0, %eax
.L1or4:
movb %al, -5(%rbp)
andb $1, -5(%rbp) #or end
movl -5(%rbp), %eax #assign start
movl %eax, -4(%rbp) #assign end
movl $1, -9(%rbp) #constant assign
.globl entry
entry:
pushq %rbp
movq %rsp, %rbp
subq $128, %rsp
movl %edi, -8(%rbp) #FunctionStart1param end
movl $-1, -9(%rbp) #constant assign
.L1:
movl -9(%rbp), %eax #assign start
movl %eax, -10(%rbp) #assign end
movl $-1, -11(%rbp) #constant assign
.L2:
movl -11(%rbp), %eax #assign start
movl %eax, -12(%rbp) #assign end
movl $-1, -13(%rbp) #constant assign
.L3:
.L4:
movl $-1, -13(%rbp) #constant assign
.L5:
movl -13(%rbp), %eax #assign start
movl %eax, -12(%rbp) #assign end
movl -12(%rbp), %edi #adding param start
call printBoolean
movl %eax, -17(%rbp) #store return from call
.L6:
movl -17(%rbp), %eax #assign start
movl %eax, -21(%rbp) #assign end
movl $1, -25(%rbp) #constant assign
movl -25(%rbp), %eax #return $t4
leave
ret

View File

@ -1,10 +1,47 @@
001: type main: integer -> integer
002: function test: main
003:
004: test (a) := {
005: [integer:x; integer:y]
006: y := 1;
007: x := 3;
008: y := x - y;
009: return y;
010: }
001:
002: type string: 1 -> character
003: type BooleanXBoolean: [Boolean: x; Boolean: y]
004: type characterXcharacter: [character: x; character: y]
005: type integerXinteger: [integer: x; integer: y]
006:
007: type Boolean2Boolean: Boolean -> Boolean
008: type integer2integer: integer -> integer
009: type character2integer: character -> integer
010: type Boolean2integer: Boolean -> integer
011: type string2integer: string -> integer
012: type integerXinteger2integer: integerXinteger -> integer
013: type integerXinteger2Boolean: integerXinteger -> Boolean
014: type characterXcharacter2Boolean: characterXcharacter -> Boolean
015: type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
016: type integer2address: integer -> address
017: type address2integer: address -> integer
018: type integer2string: integer -> string
019: type integer2character: integer -> character
020: type integer2Boolean: integer -> Boolean
021:
022:
023: external function printInteger: integer2integer
024: external function printCharacter: character2integer
025: external function printBoolean: Boolean2integer
026:
027: external function printS: string2integer
028: external function printI: integer2integer
029: external function printC: character2integer
030: external function printB: Boolean2integer
031:
032: external function inS: integer2string
033: external function inI: integer2integer
034: external function inC: integer2character
035:
036: function entry: string2integer
037:
038: entry (arg) := {
039: [integer:x; integer:y; integer: result]
040:
041: y := 1;
042: x := 3;
043: y := x - y;
044:
045: result := printInteger(y);
046: return y;
047: }

View File

@ -1,8 +1,16 @@
1: func : test
2: $t0 = 1
3: y = $t0
4: $t1 = 3
5: x = $t1
6: $t2 = x - y
7: y = $t2
8: return : y
1: func_dec : entry
2: func : entry
3: $t0 = 1
4: Label : 1
5: y = $t0
6: $t1 = 3
7: Label : 2
8: x = $t1
9: $t2 = x - y
10: Label : 3
11: y = $t2
12: param y
13: call : printInteger 1
14: Label : 4
15: result = $t3
16: return : y

View File

@ -1,11 +1,29 @@
movl $1, -4(%rbp) #constant assign
movl -4(%rbp), %eax #assign start
movl %eax, -8(%rbp) #assign end
movl $3, -12(%rbp) #constant assign
.globl entry
entry:
pushq %rbp
movq %rsp, %rbp
subq $128, %rsp
movl %edi, -8(%rbp) #FunctionStart1param end
movl $1, -12(%rbp) #constant assign
.L1:
movl -12(%rbp), %eax #assign start
movl %eax, -16(%rbp) #assign end
movl -16(%rbp), %eax #subtraction start
subl -8(%rbp), %eax
movl %eax, -20(%rbp) #subtraction end
movl $3, -20(%rbp) #constant assign
.L2:
movl -20(%rbp), %eax #assign start
movl %eax, -8(%rbp) #assign end
movl %eax, -24(%rbp) #assign end
movl -24(%rbp), %eax #subtraction start
subl -16(%rbp), %eax
movl %eax, -28(%rbp) #subtraction end
.L3:
movl -28(%rbp), %eax #assign start
movl %eax, -16(%rbp) #assign end
movl -16(%rbp), %edi #adding param start
call printInteger
movl %eax, -32(%rbp) #store return from call
.L4:
movl -32(%rbp), %eax #assign start
movl %eax, -36(%rbp) #assign end
movl -16(%rbp), %eax #return y
leave
ret

View File

@ -1,6 +1,40 @@
(* TEST: [-asc -tc -cg -ir] *)
#include "std.alpha"
type string: 1 -> character
type BooleanXBoolean: [Boolean: x; Boolean: y]
type characterXcharacter: [character: x; character: y]
type integerXinteger: [integer: x; integer: y]
type Boolean2Boolean: Boolean -> Boolean
type integer2integer: integer -> integer
type character2integer: character -> integer
type Boolean2integer: Boolean -> integer
type string2integer: string -> integer
type integerXinteger2integer: integerXinteger -> integer
type integerXinteger2Boolean: integerXinteger -> Boolean
type characterXcharacter2Boolean: characterXcharacter -> Boolean
type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
type integer2address: integer -> address
type address2integer: address -> integer
type integer2string: integer -> string
type integer2character: integer -> character
type integer2Boolean: integer -> Boolean
external function printInteger: integer2integer
external function printCharacter: character2integer
external function printBoolean: Boolean2integer
external function printS: string2integer
external function printI: integer2integer
external function printC: character2integer
external function printB: Boolean2integer
external function inS: integer2string
external function inI: integer2integer
external function inC: integer2character
function entry: string2integer
entry (arg) := {
[integer:x; integer:y; integer: result]

View File

@ -1,6 +1,40 @@
(* TEST: [-asc -tc -cg -ir] *)
#include "std.alpha"
type string: 1 -> character
type BooleanXBoolean: [Boolean: x; Boolean: y]
type characterXcharacter: [character: x; character: y]
type integerXinteger: [integer: x; integer: y]
type Boolean2Boolean: Boolean -> Boolean
type integer2integer: integer -> integer
type character2integer: character -> integer
type Boolean2integer: Boolean -> integer
type string2integer: string -> integer
type integerXinteger2integer: integerXinteger -> integer
type integerXinteger2Boolean: integerXinteger -> Boolean
type characterXcharacter2Boolean: characterXcharacter -> Boolean
type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
type integer2address: integer -> address
type address2integer: address -> integer
type integer2string: integer -> string
type integer2character: integer -> character
type integer2Boolean: integer -> Boolean
external function printInteger: integer2integer
external function printCharacter: character2integer
external function printBoolean: Boolean2integer
external function printS: string2integer
external function printI: integer2integer
external function printC: character2integer
external function printB: Boolean2integer
external function inS: integer2string
external function inI: integer2integer
external function inC: integer2character
function entry: string2integer
entry (arg) := {
[Boolean:b; Boolean: c; Boolean: d; integer: result]

View File

@ -1,18 +1,45 @@
(* TEST: [-asc -tc -cg -ir] *)
#include "std.alpha"
(* Standard Alpha Library - Provided by Carl *)
type string: 1 -> character
type BooleanXBoolean: [Boolean: x; Boolean: y]
type characterXcharacter: [character: x; character: y]
type integerXinteger: [integer: x; integer: y]
type Boolean2Boolean: Boolean -> Boolean
type integer2integer: integer -> integer
type character2integer: character -> integer
type Boolean2integer: Boolean -> integer
type string2integer: string -> integer
type integerXinteger2integer: integerXinteger -> integer
type integerXinteger2Boolean: integerXinteger -> Boolean
type characterXcharacter2Boolean: characterXcharacter -> Boolean
type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
type integer2address: integer -> address
type address2integer: address -> integer
type integer2string: integer -> string
type integer2character: integer -> character
type integer2Boolean: integer -> Boolean
external function printInteger: integer2integer
external function printCharacter: character2integer
external function printBoolean: Boolean2integer
external function printS: string2integer
external function printI: integer2integer
external function printC: character2integer
external function printB: Boolean2integer
external function inS: integer2string
external function inI: integer2integer
external function inC: integer2character
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

View File

@ -1,6 +1,40 @@
(* TEST: [-asc -tc -cg -ir] *)
#include "std.alpha"
type string: 1 -> character
type BooleanXBoolean: [Boolean: x; Boolean: y]
type characterXcharacter: [character: x; character: y]
type integerXinteger: [integer: x; integer: y]
type Boolean2Boolean: Boolean -> Boolean
type integer2integer: integer -> integer
type character2integer: character -> integer
type Boolean2integer: Boolean -> integer
type string2integer: string -> integer
type integerXinteger2integer: integerXinteger -> integer
type integerXinteger2Boolean: integerXinteger -> Boolean
type characterXcharacter2Boolean: characterXcharacter -> Boolean
type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
type integer2address: integer -> address
type address2integer: address -> integer
type integer2string: integer -> string
type integer2character: integer -> character
type integer2Boolean: integer -> Boolean
external function printInteger: integer2integer
external function printCharacter: character2integer
external function printBoolean: Boolean2integer
external function printS: string2integer
external function printI: integer2integer
external function printC: character2integer
external function printB: Boolean2integer
external function inS: integer2string
external function inI: integer2integer
external function inC: integer2character
function entry: string2integer
entry (arg) := {
[integer:x; integer:y; integer: result]

View File

@ -1,6 +1,40 @@
(* TEST: [-asc -tc -cg -ir] *)
#include "std.alpha"
type string: 1 -> character
type BooleanXBoolean: [Boolean: x; Boolean: y]
type characterXcharacter: [character: x; character: y]
type integerXinteger: [integer: x; integer: y]
type Boolean2Boolean: Boolean -> Boolean
type integer2integer: integer -> integer
type character2integer: character -> integer
type Boolean2integer: Boolean -> integer
type string2integer: string -> integer
type integerXinteger2integer: integerXinteger -> integer
type integerXinteger2Boolean: integerXinteger -> Boolean
type characterXcharacter2Boolean: characterXcharacter -> Boolean
type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
type integer2address: integer -> address
type address2integer: address -> integer
type integer2string: integer -> string
type integer2character: integer -> character
type integer2Boolean: integer -> Boolean
external function printInteger: integer2integer
external function printCharacter: character2integer
external function printBoolean: Boolean2integer
external function printS: string2integer
external function printI: integer2integer
external function printC: character2integer
external function printB: Boolean2integer
external function inS: integer2string
external function inI: integer2integer
external function inC: integer2character
function entry: string2integer
entry (arg) := {
[Boolean: b; integer: x; integer: y; integer: result]

View File

@ -1,34 +0,0 @@
(* TEST: [-asc -tc -cg -ir] *)
#include "std.alpha"
type M : string -> integer
function entry : M
type fib: integer -> integer
function Fib : fib
Fib(i) := {
[ Boolean: a ; Boolean: b ; Boolean: c]
if( i = 0 ) then {
return 7;
} else {
i := i;
}
b := b | (a & c);
b := 2 < 3;
if(i = 1) then {
return 1;
} else {
return i + Fib(i - 1);
}
}
entry (arg) := {
[ integer: x; integer: y ]
x := 2;
x := Fib(2);
y := printInteger(Fib(2));
return 1;
}

View File

@ -1,6 +1,40 @@
(* TEST: [-asc -tc -cg -ir] *)
#include "std.alpha"
type string: 1 -> character
type BooleanXBoolean: [Boolean: x; Boolean: y]
type characterXcharacter: [character: x; character: y]
type integerXinteger: [integer: x; integer: y]
type Boolean2Boolean: Boolean -> Boolean
type integer2integer: integer -> integer
type character2integer: character -> integer
type Boolean2integer: Boolean -> integer
type string2integer: string -> integer
type integerXinteger2integer: integerXinteger -> integer
type integerXinteger2Boolean: integerXinteger -> Boolean
type characterXcharacter2Boolean: characterXcharacter -> Boolean
type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
type integer2address: integer -> address
type address2integer: address -> integer
type integer2string: integer -> string
type integer2character: integer -> character
type integer2Boolean: integer -> Boolean
external function printInteger: integer2integer
external function printCharacter: character2integer
external function printBoolean: Boolean2integer
external function printS: string2integer
external function printI: integer2integer
external function printC: character2integer
external function printB: Boolean2integer
external function inS: integer2string
external function inI: integer2integer
external function inC: integer2character
function entry: string2integer
entry (arg) := {
[Boolean: b; integer: x; integer: y; integer: result]

View File

@ -1,6 +1,40 @@
(* TEST: [-asc -tc -cg -ir] *)
#include "std.alpha"
type string: 1 -> character
type BooleanXBoolean: [Boolean: x; Boolean: y]
type characterXcharacter: [character: x; character: y]
type integerXinteger: [integer: x; integer: y]
type Boolean2Boolean: Boolean -> Boolean
type integer2integer: integer -> integer
type character2integer: character -> integer
type Boolean2integer: Boolean -> integer
type string2integer: string -> integer
type integerXinteger2integer: integerXinteger -> integer
type integerXinteger2Boolean: integerXinteger -> Boolean
type characterXcharacter2Boolean: characterXcharacter -> Boolean
type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
type integer2address: integer -> address
type address2integer: address -> integer
type integer2string: integer -> string
type integer2character: integer -> character
type integer2Boolean: integer -> Boolean
external function printInteger: integer2integer
external function printCharacter: character2integer
external function printBoolean: Boolean2integer
external function printS: string2integer
external function printI: integer2integer
external function printC: character2integer
external function printB: Boolean2integer
external function inS: integer2string
external function inI: integer2integer
external function inC: integer2character
function entry: string2integer
entry (arg) := {
[integer:x; integer:y; integer: result]

View File

@ -1,6 +1,40 @@
(* TEST: [-asc -tc -cg -ir] *)
#include "std.alpha"
type string: 1 -> character
type BooleanXBoolean: [Boolean: x; Boolean: y]
type characterXcharacter: [character: x; character: y]
type integerXinteger: [integer: x; integer: y]
type Boolean2Boolean: Boolean -> Boolean
type integer2integer: integer -> integer
type character2integer: character -> integer
type Boolean2integer: Boolean -> integer
type string2integer: string -> integer
type integerXinteger2integer: integerXinteger -> integer
type integerXinteger2Boolean: integerXinteger -> Boolean
type characterXcharacter2Boolean: characterXcharacter -> Boolean
type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
type integer2address: integer -> address
type address2integer: address -> integer
type integer2string: integer -> string
type integer2character: integer -> character
type integer2Boolean: integer -> Boolean
external function printInteger: integer2integer
external function printCharacter: character2integer
external function printBoolean: Boolean2integer
external function printS: string2integer
external function printI: integer2integer
external function printC: character2integer
external function printB: Boolean2integer
external function inS: integer2string
external function inI: integer2integer
external function inC: integer2character
function entry: string2integer
entry (arg) := {
[integer:x; integer:y; integer: result]

View File

@ -1,6 +1,40 @@
(* TEST: [-asc -tc -cg -ir] *)
#include "std.alpha"
type string: 1 -> character
type BooleanXBoolean: [Boolean: x; Boolean: y]
type characterXcharacter: [character: x; character: y]
type integerXinteger: [integer: x; integer: y]
type Boolean2Boolean: Boolean -> Boolean
type integer2integer: integer -> integer
type character2integer: character -> integer
type Boolean2integer: Boolean -> integer
type string2integer: string -> integer
type integerXinteger2integer: integerXinteger -> integer
type integerXinteger2Boolean: integerXinteger -> Boolean
type characterXcharacter2Boolean: characterXcharacter -> Boolean
type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
type integer2address: integer -> address
type address2integer: address -> integer
type integer2string: integer -> string
type integer2character: integer -> character
type integer2Boolean: integer -> Boolean
external function printInteger: integer2integer
external function printCharacter: character2integer
external function printBoolean: Boolean2integer
external function printS: string2integer
external function printI: integer2integer
external function printC: character2integer
external function printB: Boolean2integer
external function inS: integer2string
external function inI: integer2integer
external function inC: integer2character
function entry: string2integer
entry (arg) := {
[integer:x; integer:y; integer: result]

View File

@ -1,6 +1,40 @@
(* TEST: [-asc -tc -cg -ir] *)
#include "std.alpha"
type string: 1 -> character
type BooleanXBoolean: [Boolean: x; Boolean: y]
type characterXcharacter: [character: x; character: y]
type integerXinteger: [integer: x; integer: y]
type Boolean2Boolean: Boolean -> Boolean
type integer2integer: integer -> integer
type character2integer: character -> integer
type Boolean2integer: Boolean -> integer
type string2integer: string -> integer
type integerXinteger2integer: integerXinteger -> integer
type integerXinteger2Boolean: integerXinteger -> Boolean
type characterXcharacter2Boolean: characterXcharacter -> Boolean
type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
type integer2address: integer -> address
type address2integer: address -> integer
type integer2string: integer -> string
type integer2character: integer -> character
type integer2Boolean: integer -> Boolean
external function printInteger: integer2integer
external function printCharacter: character2integer
external function printBoolean: Boolean2integer
external function printS: string2integer
external function printI: integer2integer
external function printC: character2integer
external function printB: Boolean2integer
external function inS: integer2string
external function inI: integer2integer
external function inC: integer2character
function entry: string2integer
entry (arg) := {
[Boolean: c; Boolean: d; integer: result]

View File

@ -1,6 +1,40 @@
(* TEST: [-asc -tc -cg -ir] *)
#include "std.alpha"
type string: 1 -> character
type BooleanXBoolean: [Boolean: x; Boolean: y]
type characterXcharacter: [character: x; character: y]
type integerXinteger: [integer: x; integer: y]
type Boolean2Boolean: Boolean -> Boolean
type integer2integer: integer -> integer
type character2integer: character -> integer
type Boolean2integer: Boolean -> integer
type string2integer: string -> integer
type integerXinteger2integer: integerXinteger -> integer
type integerXinteger2Boolean: integerXinteger -> Boolean
type characterXcharacter2Boolean: characterXcharacter -> Boolean
type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
type integer2address: integer -> address
type address2integer: address -> integer
type integer2string: integer -> string
type integer2character: integer -> character
type integer2Boolean: integer -> Boolean
external function printInteger: integer2integer
external function printCharacter: character2integer
external function printBoolean: Boolean2integer
external function printS: string2integer
external function printI: integer2integer
external function printC: character2integer
external function printB: Boolean2integer
external function inS: integer2string
external function inI: integer2integer
external function inC: integer2character
function entry: string2integer
entry (arg) := {
[Boolean:b; Boolean: c; Boolean: d; integer: result]

View File

@ -1,6 +1,40 @@
(* TEST: [-asc -tc -cg -ir] *)
#include "std.alpha"
type string: 1 -> character
type BooleanXBoolean: [Boolean: x; Boolean: y]
type characterXcharacter: [character: x; character: y]
type integerXinteger: [integer: x; integer: y]
type Boolean2Boolean: Boolean -> Boolean
type integer2integer: integer -> integer
type character2integer: character -> integer
type Boolean2integer: Boolean -> integer
type string2integer: string -> integer
type integerXinteger2integer: integerXinteger -> integer
type integerXinteger2Boolean: integerXinteger -> Boolean
type characterXcharacter2Boolean: characterXcharacter -> Boolean
type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
type integer2address: integer -> address
type address2integer: address -> integer
type integer2string: integer -> string
type integer2character: integer -> character
type integer2Boolean: integer -> Boolean
external function printInteger: integer2integer
external function printCharacter: character2integer
external function printBoolean: Boolean2integer
external function printS: string2integer
external function printI: integer2integer
external function printC: character2integer
external function printB: Boolean2integer
external function inS: integer2string
external function inI: integer2integer
external function inC: integer2character
function entry: string2integer
entry (arg) := {
[integer:x; integer:y; integer: result]