NikolajDanger/IPS_W-assignments
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

stehau

Browse Source
This commit is contained in:
NikolajDanger
2022-05-15 12:54:29 +02:00
parent 383332077b
commit ba22cff91f
222 changed files with 23320 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

623
W2/fasto/tests/assign1.asm Normal file
View File

@ -0,0 +1,623 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _Incorre_58_
# was: la _Incorre_58__addr, _Incorre_58_
ori $3, $0, 16
# was: ori _Incorre_58__init, $0, 16
sw $3, 0($4)
# was: sw _Incorre_58__init, 0(_Incorre_58__addr)
la $4, _Incorre_49_
# was: la _Incorre_49__addr, _Incorre_49_
ori $3, $0, 16
# was: ori _Incorre_49__init, $0, 16
sw $3, 0($4)
# was: sw _Incorre_49__init, 0(_Incorre_49__addr)
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function mul
mul:
sw $31, -4($29)
sw $16, -8($29)
addi $29, $29, -12
ori $16, $2, 0
# was: ori _param_x_1_, $2, 0
# ori _param_y_2_,$3,0
# ori _eq_L_8_,_param_y_2_,0
ori $4, $0, 0
# was: ori _eq_R_9_, $0, 0
ori $2, $0, 0
# was: ori _cond_7_, $0, 0
bne $3, $4, _false_10_
# was: bne _eq_L_8_, _eq_R_9_, _false_10_
ori $2, $0, 1
# was: ori _cond_7_, $0, 1
_false_10_:
bne $2, $0, _then_4_
# was: bne _cond_7_, $0, _then_4_
j _else_5_
_then_4_:
ori $2, $0, 0
# was: ori _mulres_3_, $0, 0
j _endif_6_
_else_5_:
# ori _lt_L_15_,_param_y_2_,0
ori $2, $0, 0
# was: ori _lt_R_16_, $0, 0
slt $2, $3, $2
# was: slt _cond_14_, _lt_L_15_, _lt_R_16_
bne $2, $0, _then_11_
# was: bne _cond_14_, $0, _then_11_
j _else_12_
_then_11_:
ori $2, $16, 0
# was: ori _arg_19_, _param_x_1_, 0
# ori _plus_L_21_,_param_y_2_,0
ori $4, $0, 1
# was: ori _plus_R_22_, $0, 1
add $3, $3, $4
# was: add _arg_20_, _plus_L_21_, _plus_R_22_
# ori $2,_arg_19_,0
# ori $3,_arg_20_,0
jal mul
# was: jal mul, $2 $3
# ori _minus_L_17_,$2,0
# ori _minus_R_18_,_param_x_1_,0
sub $2, $2, $16
# was: sub _mulres_3_, _minus_L_17_, _minus_R_18_
j _endif_13_
_else_12_:
ori $2, $16, 0
# was: ori _arg_25_, _param_x_1_, 0
# ori _minus_L_27_,_param_y_2_,0
ori $4, $0, 1
# was: ori _minus_R_28_, $0, 1
sub $3, $3, $4
# was: sub _arg_26_, _minus_L_27_, _minus_R_28_
# ori $2,_arg_25_,0
# ori $3,_arg_26_,0
jal mul
# was: jal mul, $2 $3
# ori _plus_L_23_,$2,0
# ori _plus_R_24_,_param_x_1_,0
add $2, $2, $16
# was: add _mulres_3_, _plus_L_23_, _plus_R_24_
_endif_13_:
_endif_6_:
# ori $2,_mulres_3_,0
addi $29, $29, 12
lw $16, -8($29)
lw $31, -4($29)
jr $31
# Function readInt
readInt:
sw $31, -4($29)
addi $29, $29, -8
# ori _param_i_29_,$2,0
jal getint
# was: jal getint, $2
# ori _readIntres_30_,$2,0
# ori $2,_readIntres_30_,0
addi $29, $29, 8
lw $31, -4($29)
jr $31
# Function squareSum
squareSum:
sw $31, -4($29)
sw $16, -8($29)
addi $29, $29, -12
ori $16, $2, 0
# was: ori _param_x_31_, $2, 0
ori $2, $3, 0
# was: ori _param_y_32_, $3, 0
# ori _plus_L_34_,_param_x_31_,0
# ori _arg_36_,_param_y_32_,0
ori $3, $2, 0
# was: ori _arg_37_, _param_y_32_, 0
# ori $2,_arg_36_,0
# ori $3,_arg_37_,0
jal mul
# was: jal mul, $2 $3
# ori _plus_R_35_,$2,0
add $2, $16, $2
# was: add _squareSumres_33_, _plus_L_34_, _plus_R_35_
# ori $2,_squareSumres_33_,0
addi $29, $29, 12
lw $16, -8($29)
lw $31, -4($29)
jr $31
# Function main
main:
sw $31, -4($29)
sw $21, -28($29)
sw $20, -24($29)
sw $19, -20($29)
sw $18, -16($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -32
jal getint
# was: jal getint, $2
ori $17, $2, 0
# was: ori _letBind_39_, $2, 0
# ori _eq_L_44_,_letBind_39_,0
ori $3, $0, 0
# was: ori _eq_R_45_, $0, 0
ori $2, $0, 0
# was: ori _cond_43_, $0, 0
bne $17, $3, _false_46_
# was: bne _eq_L_44_, _eq_R_45_, _false_46_
ori $2, $0, 1
# was: ori _cond_43_, $0, 1
_false_46_:
bne $2, $0, _then_40_
# was: bne _cond_43_, $0, _then_40_
j _else_41_
_then_40_:
la $2, _Incorre_49_
# was: la _tmp_48_, _Incorre_49_
# _Incorre_49_: string "Incorrect Input!"
# ori _letBind_47_,_tmp_48_,0
# ori $2,_tmp_48_,0
jal putstring
# was: jal putstring, $2
ori $16, $0, 0
# was: ori _mainres_38_, $0, 0
j _endif_42_
_else_41_:
# ori _lt_L_54_,_letBind_39_,0
ori $2, $0, 0
# was: ori _lt_R_55_, $0, 0
slt $2, $17, $2
# was: slt _cond_53_, _lt_L_54_, _lt_R_55_
bne $2, $0, _then_50_
# was: bne _cond_53_, $0, _then_50_
j _else_51_
_then_50_:
la $2, _Incorre_58_
# was: la _tmp_57_, _Incorre_58_
# _Incorre_58_: string "Incorrect Input!"
# ori _letBind_56_,_tmp_57_,0
# ori $2,_tmp_57_,0
jal putstring
# was: jal putstring, $2
ori $16, $0, 0
# was: ori _mainres_38_, $0, 0
j _endif_52_
_else_51_:
# ori _size_reg_64_,_letBind_39_,0
bgez $17, _safe_lab_65_
# was: bgez _size_reg_64_, _safe_lab_65_
ori $5, $0, 15
# was: ori $5, $0, 15
la $6, _Msg_IllegalArraySize_
# was: la $6, _Msg_IllegalArraySize_
j _RuntimeError_
_safe_lab_65_:
ori $2, $28, 0
# was: ori _arr_reg_61_, $28, 0
sll $3, $17, 2
# was: sll _tmp_71_, _size_reg_64_, 2
addi $3, $3, 4
# was: addi _tmp_71_, _tmp_71_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_71_
sw $17, 0($2)
# was: sw _size_reg_64_, 0(_arr_reg_61_)
addi $4, $2, 4
# was: addi _addr_reg_66_, _arr_reg_61_, 4
ori $5, $0, 0
# was: ori _i_reg_67_, $0, 0
_loop_beg_68_:
sub $3, $5, $17
# was: sub _tmp_reg_70_, _i_reg_67_, _size_reg_64_
bgez $3, _loop_end_69_
# was: bgez _tmp_reg_70_, _loop_end_69_
sw $5, 0($4)
# was: sw _i_reg_67_, 0(_addr_reg_66_)
addi $4, $4, 4
# was: addi _addr_reg_66_, _addr_reg_66_, 4
addi $5, $5, 1
# was: addi _i_reg_67_, _i_reg_67_, 1
j _loop_beg_68_
_loop_end_69_:
lw $18, 0($2)
# was: lw _size_reg_60_, 0(_arr_reg_61_)
ori $16, $28, 0
# was: ori _letBind_59_, $28, 0
sll $3, $18, 2
# was: sll _tmp_78_, _size_reg_60_, 2
addi $3, $3, 4
# was: addi _tmp_78_, _tmp_78_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_78_
sw $18, 0($16)
# was: sw _size_reg_60_, 0(_letBind_59_)
addi $20, $16, 4
# was: addi _addr_reg_72_, _letBind_59_, 4
ori $19, $0, 0
# was: ori _i_reg_73_, $0, 0
addi $21, $2, 4
# was: addi _elem_reg_62_, _arr_reg_61_, 4
_loop_beg_74_:
sub $2, $19, $18
# was: sub _tmp_reg_76_, _i_reg_73_, _size_reg_60_
bgez $2, _loop_end_75_
# was: bgez _tmp_reg_76_, _loop_end_75_
lw $2, 0($21)
# was: lw _res_reg_63_, 0(_elem_reg_62_)
addi $21, $21, 4
# was: addi _elem_reg_62_, _elem_reg_62_, 4
# ori $2,_res_reg_63_,0
jal readInt
# was: jal readInt, $2
# ori _tmp_reg_77_,$2,0
# ori _res_reg_63_,_tmp_reg_77_,0
sw $2, 0($20)
# was: sw _res_reg_63_, 0(_addr_reg_72_)
addi $20, $20, 4
# was: addi _addr_reg_72_, _addr_reg_72_, 4
addi $19, $19, 1
# was: addi _i_reg_73_, _i_reg_73_, 1
j _loop_beg_74_
_loop_end_75_:
# ori _size_reg_84_,_letBind_39_,0
bgez $17, _safe_lab_85_
# was: bgez _size_reg_84_, _safe_lab_85_
ori $5, $0, 16
# was: ori $5, $0, 16
la $6, _Msg_IllegalArraySize_
# was: la $6, _Msg_IllegalArraySize_
j _RuntimeError_
_safe_lab_85_:
ori $5, $28, 0
# was: ori _arr_reg_81_, $28, 0
sll $2, $17, 2
# was: sll _tmp_91_, _size_reg_84_, 2
addi $2, $2, 4
# was: addi _tmp_91_, _tmp_91_, 4
add $28, $28, $2
# was: add $28, $28, _tmp_91_
sw $17, 0($5)
# was: sw _size_reg_84_, 0(_arr_reg_81_)
addi $2, $5, 4
# was: addi _addr_reg_86_, _arr_reg_81_, 4
ori $3, $0, 0
# was: ori _i_reg_87_, $0, 0
_loop_beg_88_:
sub $4, $3, $17
# was: sub _tmp_reg_90_, _i_reg_87_, _size_reg_84_
bgez $4, _loop_end_89_
# was: bgez _tmp_reg_90_, _loop_end_89_
sw $3, 0($2)
# was: sw _i_reg_87_, 0(_addr_reg_86_)
addi $2, $2, 4
# was: addi _addr_reg_86_, _addr_reg_86_, 4
addi $3, $3, 1
# was: addi _i_reg_87_, _i_reg_87_, 1
j _loop_beg_88_
_loop_end_89_:
lw $2, 0($5)
# was: lw _size_reg_80_, 0(_arr_reg_81_)
ori $17, $28, 0
# was: ori _letBind_79_, $28, 0
sll $3, $2, 2
# was: sll _tmp_127_, _size_reg_80_, 2
addi $3, $3, 4
# was: addi _tmp_127_, _tmp_127_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_127_
sw $2, 0($17)
# was: sw _size_reg_80_, 0(_letBind_79_)
addi $3, $17, 4
# was: addi _addr_reg_92_, _letBind_79_, 4
ori $4, $0, 0
# was: ori _i_reg_93_, $0, 0
addi $5, $5, 4
# was: addi _elem_reg_82_, _arr_reg_81_, 4
_loop_beg_94_:
sub $6, $4, $2
# was: sub _tmp_reg_96_, _i_reg_93_, _size_reg_80_
bgez $6, _loop_end_95_
# was: bgez _tmp_reg_96_, _loop_end_95_
lw $7, 0($5)
# was: lw _res_reg_83_, 0(_elem_reg_82_)
addi $5, $5, 4
# was: addi _elem_reg_82_, _elem_reg_82_, 4
# ori _eq_L_102_,_res_reg_83_,0
ori $8, $0, 0
# was: ori _eq_R_103_, $0, 0
ori $6, $0, 0
# was: ori _cond_101_, $0, 0
bne $7, $8, _false_104_
# was: bne _eq_L_102_, _eq_R_103_, _false_104_
ori $6, $0, 1
# was: ori _cond_101_, $0, 1
_false_104_:
bne $6, $0, _then_98_
# was: bne _cond_101_, $0, _then_98_
j _else_99_
_then_98_:
# ori _arr_ind_105_,_res_reg_83_,0
addi $6, $16, 4
# was: addi _arr_reg_106_, _letBind_59_, 4
lw $8, 0($16)
# was: lw _size_reg_107_, 0(_letBind_59_)
bgez $7, _safe_lab_110_
# was: bgez _arr_ind_105_, _safe_lab_110_
_error_lab_109_:
ori $5, $0, 16
# was: ori $5, $0, 16
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_110_:
sub $8, $7, $8
# was: sub _tmp_reg_108_, _arr_ind_105_, _size_reg_107_
bgez $8, _error_lab_109_
# was: bgez _tmp_reg_108_, _error_lab_109_
sll $7, $7, 2
# was: sll _arr_ind_105_, _arr_ind_105_, 2
add $6, $6, $7
# was: add _arr_reg_106_, _arr_reg_106_, _arr_ind_105_
lw $7, 0($6)
# was: lw _fun_arg_res_97_, 0(_arr_reg_106_)
j _endif_100_
_else_99_:
ori $6, $7, 0
# was: ori _arr_ind_113_, _res_reg_83_, 0
addi $8, $16, 4
# was: addi _arr_reg_114_, _letBind_59_, 4
lw $9, 0($16)
# was: lw _size_reg_115_, 0(_letBind_59_)
bgez $6, _safe_lab_118_
# was: bgez _arr_ind_113_, _safe_lab_118_
_error_lab_117_:
ori $5, $0, 16
# was: ori $5, $0, 16
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_118_:
sub $9, $6, $9
# was: sub _tmp_reg_116_, _arr_ind_113_, _size_reg_115_
bgez $9, _error_lab_117_
# was: bgez _tmp_reg_116_, _error_lab_117_
sll $6, $6, 2
# was: sll _arr_ind_113_, _arr_ind_113_, 2
add $8, $8, $6
# was: add _arr_reg_114_, _arr_reg_114_, _arr_ind_113_
lw $6, 0($8)
# was: lw _minus_L_111_, 0(_arr_reg_114_)
ori $8, $7, 0
# was: ori _minus_L_120_, _res_reg_83_, 0
ori $7, $0, 1
# was: ori _minus_R_121_, $0, 1
sub $7, $8, $7
# was: sub _arr_ind_119_, _minus_L_120_, _minus_R_121_
addi $8, $16, 4
# was: addi _arr_reg_122_, _letBind_59_, 4
lw $9, 0($16)
# was: lw _size_reg_123_, 0(_letBind_59_)
bgez $7, _safe_lab_126_
# was: bgez _arr_ind_119_, _safe_lab_126_
_error_lab_125_:
ori $5, $0, 16
# was: ori $5, $0, 16
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_126_:
sub $9, $7, $9
# was: sub _tmp_reg_124_, _arr_ind_119_, _size_reg_123_
bgez $9, _error_lab_125_
# was: bgez _tmp_reg_124_, _error_lab_125_
sll $7, $7, 2
# was: sll _arr_ind_119_, _arr_ind_119_, 2
add $8, $8, $7
# was: add _arr_reg_122_, _arr_reg_122_, _arr_ind_119_
lw $7, 0($8)
# was: lw _minus_R_112_, 0(_arr_reg_122_)
sub $7, $6, $7
# was: sub _fun_arg_res_97_, _minus_L_111_, _minus_R_112_
_endif_100_:
# ori _res_reg_83_,_fun_arg_res_97_,0
sw $7, 0($3)
# was: sw _res_reg_83_, 0(_addr_reg_92_)
addi $3, $3, 4
# was: addi _addr_reg_92_, _addr_reg_92_, 4
addi $4, $4, 1
# was: addi _i_reg_93_, _i_reg_93_, 1
j _loop_beg_94_
_loop_end_95_:
# ori _arr_reg_129_,_letBind_79_,0
lw $16, 0($17)
# was: lw _size_reg_130_, 0(_arr_reg_129_)
ori $2, $0, 0
# was: ori _tmp_128_, $0, 0
addi $17, $17, 4
# was: addi _arr_reg_129_, _arr_reg_129_, 4
ori $18, $0, 0
# was: ori _ind_var_131_, $0, 0
_loop_beg_133_:
sub $3, $18, $16
# was: sub _tmp_reg_132_, _ind_var_131_, _size_reg_130_
bgez $3, _loop_end_134_
# was: bgez _tmp_reg_132_, _loop_end_134_
lw $3, 0($17)
# was: lw _tmp_reg_132_, 0(_arr_reg_129_)
addi $17, $17, 4
# was: addi _arr_reg_129_, _arr_reg_129_, 4
# ori $2,_tmp_128_,0
# ori $3,_tmp_reg_132_,0
jal squareSum
# was: jal squareSum, $2 $3
# ori _tmp_reg_135_,$2,0
# ori _tmp_128_,_tmp_reg_135_,0
addi $18, $18, 1
# was: addi _ind_var_131_, _ind_var_131_, 1
j _loop_beg_133_
_loop_end_134_:
ori $16, $2, 0
# was: ori _mainres_38_, _tmp_128_, 0
ori $2, $16, 0
# was: ori $2, _mainres_38_, 0
jal putint
# was: jal putint, $2
_endif_52_:
_endif_42_:
ori $2, $16, 0
# was: ori $2, _mainres_38_, 0
addi $29, $29, 32
lw $21, -28($29)
lw $20, -24($29)
lw $19, -20($29)
lw $18, -16($29)
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_Incorre_58_:
.space 4
.asciiz "Incorrect Input!"
.align 2
_Incorre_49_:
.space 4
.asciiz "Incorrect Input!"
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

17
W2/fasto/tests/assign1.fo Normal file
View File

@ -0,0 +1,17 @@
fun int mul(int x, int y) =
if y == 0 then 0
else if y < 0 then mul(x, y+1) - x
else mul(x, y-1) + x
fun int readInt(int i) = read(int)
fun int squareSum(int x, int y) = x + mul(y, y)
fun int main() =
let n = read(int) in
if n == 0 then let a = write("Incorrect Input!") in 0
else if n < 0 then let a = write("Incorrect Input!") in 0
else
let arr = map(readInt, iota(n)) in
let dif = map(fn int (int x) => if x == 0 then arr[x] else arr[x] - arr[x-1], iota(n)) in
write(reduce(squareSum, 0, dif))

5
W2/fasto/tests/assign1.in Normal file
View File

@ -0,0 +1,5 @@
4
3
7
2
4

1
W2/fasto/tests/assign1.out Normal file
View File

@ -0,0 +1 @@
54

605
W2/fasto/tests/comprehension.asm Normal file
View File

@ -0,0 +1,605 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function main
main:
sw $31, -4($29)
sw $21, -28($29)
sw $20, -24($29)
sw $19, -20($29)
sw $18, -16($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -32
jal getint
# was: jal getint, $2
ori $5, $2, 0
# was: ori _letBind_2_, $2, 0
# ori _size_reg_4_,_letBind_2_,0
bgez $5, _safe_lab_5_
# was: bgez _size_reg_4_, _safe_lab_5_
ori $5, $0, 6
# was: ori $5, $0, 6
la $6, _Msg_IllegalArraySize_
# was: la $6, _Msg_IllegalArraySize_
j _RuntimeError_
_safe_lab_5_:
ori $9, $28, 0
# was: ori _letBind_3_, $28, 0
sll $2, $5, 2
# was: sll _tmp_11_, _size_reg_4_, 2
addi $2, $2, 4
# was: addi _tmp_11_, _tmp_11_, 4
add $28, $28, $2
# was: add $28, $28, _tmp_11_
sw $5, 0($9)
# was: sw _size_reg_4_, 0(_letBind_3_)
addi $4, $9, 4
# was: addi _addr_reg_6_, _letBind_3_, 4
ori $2, $0, 0
# was: ori _i_reg_7_, $0, 0
_loop_beg_8_:
sub $3, $2, $5
# was: sub _tmp_reg_10_, _i_reg_7_, _size_reg_4_
bgez $3, _loop_end_9_
# was: bgez _tmp_reg_10_, _loop_end_9_
sw $2, 0($4)
# was: sw _i_reg_7_, 0(_addr_reg_6_)
addi $4, $4, 4
# was: addi _addr_reg_6_, _addr_reg_6_, 4
addi $2, $2, 1
# was: addi _i_reg_7_, _i_reg_7_, 1
j _loop_beg_8_
_loop_end_9_:
ori $2, $5, 0
# was: ori _size_reg_13_, _letBind_2_, 0
bgez $2, _safe_lab_14_
# was: bgez _size_reg_13_, _safe_lab_14_
ori $5, $0, 7
# was: ori $5, $0, 7
la $6, _Msg_IllegalArraySize_
# was: la $6, _Msg_IllegalArraySize_
j _RuntimeError_
_safe_lab_14_:
ori $8, $28, 0
# was: ori _letBind_12_, $28, 0
sll $3, $2, 2
# was: sll _tmp_20_, _size_reg_13_, 2
addi $3, $3, 4
# was: addi _tmp_20_, _tmp_20_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_20_
sw $2, 0($8)
# was: sw _size_reg_13_, 0(_letBind_12_)
addi $5, $8, 4
# was: addi _addr_reg_15_, _letBind_12_, 4
ori $4, $0, 0
# was: ori _i_reg_16_, $0, 0
_loop_beg_17_:
sub $3, $4, $2
# was: sub _tmp_reg_19_, _i_reg_16_, _size_reg_13_
bgez $3, _loop_end_18_
# was: bgez _tmp_reg_19_, _loop_end_18_
sw $4, 0($5)
# was: sw _i_reg_16_, 0(_addr_reg_15_)
addi $5, $5, 4
# was: addi _addr_reg_15_, _addr_reg_15_, 4
addi $4, $4, 1
# was: addi _i_reg_16_, _i_reg_16_, 1
j _loop_beg_17_
_loop_end_18_:
# ori _len_arr_24_,_letBind_3_,0
lw $2, 0($9)
# was: lw _mult1_L_22_, 0(_len_arr_24_)
# ori _len_arr_25_,_letBind_12_,0
lw $3, 0($8)
# was: lw _mult2_R_23_, 0(_len_arr_25_)
mul $2, $2, $3
# was: mul _letBind_21_, _mult1_L_22_, _mult2_R_23_
# ori _size_reg_31_,_letBind_21_,0
bgez $2, _safe_lab_32_
# was: bgez _size_reg_31_, _safe_lab_32_
ori $5, $0, 8
# was: ori $5, $0, 8
la $6, _Msg_IllegalArraySize_
# was: la $6, _Msg_IllegalArraySize_
j _RuntimeError_
_safe_lab_32_:
ori $7, $28, 0
# was: ori _arr_reg_28_, $28, 0
sll $3, $2, 2
# was: sll _tmp_38_, _size_reg_31_, 2
addi $3, $3, 4
# was: addi _tmp_38_, _tmp_38_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_38_
sw $2, 0($7)
# was: sw _size_reg_31_, 0(_arr_reg_28_)
addi $5, $7, 4
# was: addi _addr_reg_33_, _arr_reg_28_, 4
ori $4, $0, 0
# was: ori _i_reg_34_, $0, 0
_loop_beg_35_:
sub $3, $4, $2
# was: sub _tmp_reg_37_, _i_reg_34_, _size_reg_31_
bgez $3, _loop_end_36_
# was: bgez _tmp_reg_37_, _loop_end_36_
sw $4, 0($5)
# was: sw _i_reg_34_, 0(_addr_reg_33_)
addi $5, $5, 4
# was: addi _addr_reg_33_, _addr_reg_33_, 4
addi $4, $4, 1
# was: addi _i_reg_34_, _i_reg_34_, 1
j _loop_beg_35_
_loop_end_36_:
lw $3, 0($7)
# was: lw _size_reg_27_, 0(_arr_reg_28_)
ori $4, $28, 0
# was: ori _letBind_26_, $28, 0
sll $5, $3, 2
# was: sll _tmp_88_, _size_reg_27_, 2
addi $5, $5, 4
# was: addi _tmp_88_, _tmp_88_, 4
add $28, $28, $5
# was: add $28, $28, _tmp_88_
sw $3, 0($4)
# was: sw _size_reg_27_, 0(_letBind_26_)
addi $6, $4, 4
# was: addi _addr_reg_39_, _letBind_26_, 4
ori $5, $0, 0
# was: ori _i_reg_40_, $0, 0
addi $7, $7, 4
# was: addi _elem_reg_29_, _arr_reg_28_, 4
_loop_beg_41_:
sub $10, $5, $3
# was: sub _tmp_reg_43_, _i_reg_40_, _size_reg_27_
bgez $10, _loop_end_42_
# was: bgez _tmp_reg_43_, _loop_end_42_
lw $11, 0($7)
# was: lw _res_reg_30_, 0(_elem_reg_29_)
addi $7, $7, 4
# was: addi _elem_reg_29_, _elem_reg_29_, 4
# ori _div1_L_46_,_letBind_21_,0
# ori _len_arr_49_,_letBind_12_,0
lw $10, 0($8)
# was: lw _div2_R_47_, 0(_len_arr_49_)
bne $10, $0, _safe_div_48_
# was: bne _div2_R_47_, $0, _safe_div_48_
ori $5, $0, 8
# was: ori $5, $0, 8
la $6, _Msg_DivZero_
# was: la $6, _Msg_DivZero_
j _RuntimeError_
_safe_div_48_:
div $10, $2, $10
# was: div _letBind_45_, _div1_L_46_, _div2_R_47_
# ori _div1_L_51_,_res_reg_30_,0
# ori _div2_R_52_,_letBind_45_,0
bne $10, $0, _safe_div_53_
# was: bne _div2_R_52_, $0, _safe_div_53_
ori $5, $0, 8
# was: ori $5, $0, 8
la $6, _Msg_DivZero_
# was: la $6, _Msg_DivZero_
j _RuntimeError_
_safe_div_53_:
div $13, $11, $10
# was: div _letBind_50_, _div1_L_51_, _div2_R_52_
# ori _minus_L_55_,_res_reg_30_,0
# ori _mult1_L_57_,_letBind_50_,0
# ori _mult2_R_58_,_letBind_45_,0
mul $12, $13, $10
# was: mul _minus_R_56_, _mult1_L_57_, _mult2_R_58_
sub $11, $11, $12
# was: sub _letBind_54_, _minus_L_55_, _minus_R_56_
# ori _arr_ind_60_,_letBind_50_,0
addi $12, $8, 4
# was: addi _arr_reg_61_, _letBind_12_, 4
lw $14, 0($8)
# was: lw _size_reg_62_, 0(_letBind_12_)
bgez $13, _safe_lab_65_
# was: bgez _arr_ind_60_, _safe_lab_65_
_error_lab_64_:
ori $5, $0, 8
# was: ori $5, $0, 8
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_65_:
sub $14, $13, $14
# was: sub _tmp_reg_63_, _arr_ind_60_, _size_reg_62_
bgez $14, _error_lab_64_
# was: bgez _tmp_reg_63_, _error_lab_64_
sll $13, $13, 2
# was: sll _arr_ind_60_, _arr_ind_60_, 2
add $12, $12, $13
# was: add _arr_reg_61_, _arr_reg_61_, _arr_ind_60_
lw $12, 0($12)
# was: lw _letBind_59_, 0(_arr_reg_61_)
# ori _div1_L_67_,_letBind_45_,0
# ori _len_arr_70_,_letBind_3_,0
lw $13, 0($9)
# was: lw _div2_R_68_, 0(_len_arr_70_)
bne $13, $0, _safe_div_69_
# was: bne _div2_R_68_, $0, _safe_div_69_
ori $5, $0, 8
# was: ori $5, $0, 8
la $6, _Msg_DivZero_
# was: la $6, _Msg_DivZero_
j _RuntimeError_
_safe_div_69_:
div $10, $10, $13
# was: div _letBind_66_, _div1_L_67_, _div2_R_68_
# ori _div1_L_72_,_letBind_54_,0
# ori _div2_R_73_,_letBind_66_,0
bne $10, $0, _safe_div_74_
# was: bne _div2_R_73_, $0, _safe_div_74_
ori $5, $0, 8
# was: ori $5, $0, 8
la $6, _Msg_DivZero_
# was: la $6, _Msg_DivZero_
j _RuntimeError_
_safe_div_74_:
div $11, $11, $10
# was: div _letBind_71_, _div1_L_72_, _div2_R_73_
# ori _arr_ind_76_,_letBind_71_,0
addi $10, $9, 4
# was: addi _arr_reg_77_, _letBind_3_, 4
lw $13, 0($9)
# was: lw _size_reg_78_, 0(_letBind_3_)
bgez $11, _safe_lab_81_
# was: bgez _arr_ind_76_, _safe_lab_81_
_error_lab_80_:
ori $5, $0, 8
# was: ori $5, $0, 8
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_81_:
sub $13, $11, $13
# was: sub _tmp_reg_79_, _arr_ind_76_, _size_reg_78_
bgez $13, _error_lab_80_
# was: bgez _tmp_reg_79_, _error_lab_80_
sll $11, $11, 2
# was: sll _arr_ind_76_, _arr_ind_76_, 2
add $10, $10, $11
# was: add _arr_reg_77_, _arr_reg_77_, _arr_ind_76_
lw $10, 0($10)
# was: lw _letBind_75_, 0(_arr_reg_77_)
# ori _plus_L_86_,_letBind_75_,0
# ori _plus_R_87_,_letBind_59_,0
add $11, $10, $12
# was: add _div1_L_83_, _plus_L_86_, _plus_R_87_
ori $10, $0, 2
# was: ori _div2_R_84_, $0, 2
bne $10, $0, _safe_div_85_
# was: bne _div2_R_84_, $0, _safe_div_85_
ori $5, $0, 8
# was: ori $5, $0, 8
la $6, _Msg_DivZero_
# was: la $6, _Msg_DivZero_
j _RuntimeError_
_safe_div_85_:
div $10, $11, $10
# was: div _letBind_82_, _div1_L_83_, _div2_R_84_
# ori _fun_arg_res_44_,_letBind_82_,0
ori $11, $10, 0
# was: ori _res_reg_30_, _fun_arg_res_44_, 0
sw $11, 0($6)
# was: sw _res_reg_30_, 0(_addr_reg_39_)
addi $6, $6, 4
# was: addi _addr_reg_39_, _addr_reg_39_, 4
addi $5, $5, 1
# was: addi _i_reg_40_, _i_reg_40_, 1
j _loop_beg_41_
_loop_end_42_:
# ori _arr_reg_91_,_letBind_26_,0
lw $3, 0($4)
# was: lw _size_reg_90_, 0(_arr_reg_91_)
ori $2, $28, 0
# was: ori _letBind_89_, $28, 0
sll $5, $3, 2
# was: sll _tmp_112_, _size_reg_90_, 2
addi $5, $5, 4
# was: addi _tmp_112_, _tmp_112_, 4
add $28, $28, $5
# was: add $28, $28, _tmp_112_
sw $3, 0($2)
# was: sw _size_reg_90_, 0(_letBind_89_)
addi $5, $2, 4
# was: addi _addr_reg_95_, _letBind_89_, 4
addi $4, $4, 4
# was: addi _arr_reg_91_, _arr_reg_91_, 4
ori $6, $0, 0
# was: ori _i_reg_96_, $0, 0
ori $7, $0, 0
# was: ori _count_reg_94_, $0, 0
_loop_beg_97_:
sub $8, $6, $3
# was: sub _tmp_reg_100_, _i_reg_96_, _size_reg_90_
bgez $8, _loop_end_98_
# was: bgez _tmp_reg_100_, _loop_end_98_
lw $10, 0($4)
# was: lw _elem_reg_92_, 0(_arr_reg_91_)
addi $4, $4, 4
# was: addi _arr_reg_91_, _arr_reg_91_, 4
# ori _minus_L_104_,_elem_reg_92_,0
ori $9, $10, 0
# was: ori _div1_L_108_, _elem_reg_92_, 0
ori $8, $0, 5
# was: ori _div2_R_109_, $0, 5
bne $8, $0, _safe_div_110_
# was: bne _div2_R_109_, $0, _safe_div_110_
ori $5, $0, 8
# was: ori $5, $0, 8
la $6, _Msg_DivZero_
# was: la $6, _Msg_DivZero_
j _RuntimeError_
_safe_div_110_:
div $8, $9, $8
# was: div _mult1_L_106_, _div1_L_108_, _div2_R_109_
ori $9, $0, 5
# was: ori _mult2_R_107_, $0, 5
mul $8, $8, $9
# was: mul _minus_R_105_, _mult1_L_106_, _mult2_R_107_
sub $9, $10, $8
# was: sub _eq_L_102_, _minus_L_104_, _minus_R_105_
ori $11, $0, 0
# was: ori _eq_R_103_, $0, 0
ori $8, $0, 0
# was: ori _fun_arg_res_101_, $0, 0
bne $9, $11, _false_111_
# was: bne _eq_L_102_, _eq_R_103_, _false_111_
ori $8, $0, 1
# was: ori _fun_arg_res_101_, $0, 1
_false_111_:
# ori _bool_reg_93_,_fun_arg_res_101_,0
beq $8, $0, _if_end_99_
# was: beq _bool_reg_93_, $0, _if_end_99_
sw $10, 0($5)
# was: sw _elem_reg_92_, 0(_addr_reg_95_)
addi $5, $5, 4
# was: addi _addr_reg_95_, _addr_reg_95_, 4
addi $7, $7, 1
# was: addi _count_reg_94_, _count_reg_94_, 1
_if_end_99_:
addi $6, $6, 1
# was: addi _i_reg_96_, _i_reg_96_, 1
j _loop_beg_97_
_loop_end_98_:
sw $7, 0($2)
# was: sw _count_reg_94_, 0(_letBind_89_)
# ori _arr_reg_115_,_letBind_89_,0
lw $4, 0($2)
# was: lw _size_reg_114_, 0(_arr_reg_115_)
ori $6, $28, 0
# was: ori _letBind_113_, $28, 0
sll $3, $4, 2
# was: sll _tmp_126_, _size_reg_114_, 2
addi $3, $3, 4
# was: addi _tmp_126_, _tmp_126_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_126_
sw $4, 0($6)
# was: sw _size_reg_114_, 0(_letBind_113_)
addi $3, $6, 4
# was: addi _addr_reg_118_, _letBind_113_, 4
ori $5, $0, 0
# was: ori _i_reg_119_, $0, 0
addi $2, $2, 4
# was: addi _elem_reg_116_, _arr_reg_115_, 4
_loop_beg_120_:
sub $7, $5, $4
# was: sub _tmp_reg_122_, _i_reg_119_, _size_reg_114_
bgez $7, _loop_end_121_
# was: bgez _tmp_reg_122_, _loop_end_121_
lw $7, 0($2)
# was: lw _res_reg_117_, 0(_elem_reg_116_)
addi $2, $2, 4
# was: addi _elem_reg_116_, _elem_reg_116_, 4
# ori _mult1_L_124_,_res_reg_117_,0
ori $8, $7, 0
# was: ori _mult2_R_125_, _res_reg_117_, 0
mul $7, $7, $8
# was: mul _fun_arg_res_123_, _mult1_L_124_, _mult2_R_125_
# ori _res_reg_117_,_fun_arg_res_123_,0
sw $7, 0($3)
# was: sw _res_reg_117_, 0(_addr_reg_118_)
addi $3, $3, 4
# was: addi _addr_reg_118_, _addr_reg_118_, 4
addi $5, $5, 1
# was: addi _i_reg_119_, _i_reg_119_, 1
j _loop_beg_120_
_loop_end_121_:
# ori _arr_reg_128_,_letBind_113_,0
lw $17, 0($6)
# was: lw _size_reg_127_, 0(_arr_reg_128_)
ori $16, $28, 0
# was: ori _mainres_1_, $28, 0
sll $2, $17, 2
# was: sll _tmp_138_, _size_reg_127_, 2
addi $2, $2, 4
# was: addi _tmp_138_, _tmp_138_, 4
add $28, $28, $2
# was: add $28, $28, _tmp_138_
sw $17, 0($16)
# was: sw _size_reg_127_, 0(_mainres_1_)
addi $18, $16, 4
# was: addi _addr_reg_131_, _mainres_1_, 4
ori $19, $0, 0
# was: ori _i_reg_132_, $0, 0
addi $20, $6, 4
# was: addi _elem_reg_129_, _arr_reg_128_, 4
_loop_beg_133_:
sub $2, $19, $17
# was: sub _tmp_reg_135_, _i_reg_132_, _size_reg_127_
bgez $2, _loop_end_134_
# was: bgez _tmp_reg_135_, _loop_end_134_
lw $21, 0($20)
# was: lw _res_reg_130_, 0(_elem_reg_129_)
addi $20, $20, 4
# was: addi _elem_reg_129_, _elem_reg_129_, 4
# ori _tmp_137_,_res_reg_130_,0
# ori _fun_arg_res_136_,_tmp_137_,0
ori $2, $21, 0
# was: ori $2, _fun_arg_res_136_, 0
jal putint
# was: jal putint, $2
# ori _res_reg_130_,_fun_arg_res_136_,0
sw $21, 0($18)
# was: sw _res_reg_130_, 0(_addr_reg_131_)
addi $18, $18, 4
# was: addi _addr_reg_131_, _addr_reg_131_, 4
addi $19, $19, 1
# was: addi _i_reg_132_, _i_reg_132_, 1
j _loop_beg_133_
_loop_end_134_:
ori $2, $16, 0
# was: ori $2, _mainres_1_, 0
addi $29, $29, 32
lw $21, -28($29)
lw $20, -24($29)
lw $19, -20($29)
lw $18, -16($29)
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

8
W2/fasto/tests/comprehension.fo Normal file
View File

@ -0,0 +1,8 @@
fun int write_int(int x) = write(x)
fun [int] write_int_arr([int] x) = map(write_int, x)
fun [int] main() =
let n = read (int) in
let x = iota (n) in
let y = iota (n) in
write_int_arr ([int r*r | i <- x, j <-y; int r = (i+j) / 2; r - (r/5)*5 == 0 ])

1
W2/fasto/tests/comprehension.in Normal file
View File

@ -0,0 +1 @@
15

1
W2/fasto/tests/comprehension.out Normal file
View File

@ -0,0 +1 @@
0 0 25 25 0 25 25 25 25 25 25 25 25 25 25 25 25 100 25 25 100 100 25 25 100 100 25 25 100 100 25 25 100 100 25 100 100 100 100 100 100 100 100

171
W2/fasto/tests/copyConstPropFold0.asm Normal file
View File

@ -0,0 +1,171 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function main
main:
sw $31, -4($29)
sw $16, -8($29)
addi $29, $29, -12
jal getint
# was: jal getint, $2
# ori _letBind_2_,$2,0
ori $3, $2, 0
# was: ori _plus_L_6_, _letBind_2_, 0
ori $2, $0, 2
# was: ori _plus_R_7_, $0, 2
add $2, $3, $2
# was: add _mult1_L_4_, _plus_L_6_, _plus_R_7_
ori $3, $0, 0
# was: ori _mult2_R_5_, $0, 0
mul $16, $2, $3
# was: mul _letBind_3_, _mult1_L_4_, _mult2_R_5_
# ori _tmp_8_,_letBind_3_,0
# ori _mainres_1_,_tmp_8_,0
ori $2, $16, 0
# was: ori $2, _mainres_1_, 0
jal putint
# was: jal putint, $2
ori $2, $16, 0
# was: ori $2, _mainres_1_, 0
addi $29, $29, 12
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

9
W2/fasto/tests/copyConstPropFold0.fo Normal file
View File

@ -0,0 +1,9 @@
fun int f(int x, int y) =
(x + 2) * (y - 2)
fun int main() =
let a = read(int) in
let b = let x = a in
let y = 2 in
(x + 2) * (y - 2)
in write(b)

1
W2/fasto/tests/copyConstPropFold0.in Normal file
View File

@ -0,0 +1 @@
4

1
W2/fasto/tests/copyConstPropFold0.out Normal file
View File

@ -0,0 +1 @@
0

220
W2/fasto/tests/copyConstPropFold1.asm Normal file
View File

@ -0,0 +1,220 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function main
main:
sw $31, -4($29)
sw $16, -8($29)
addi $29, $29, -12
ori $3, $0, 40
# was: ori _size_reg_3_, $0, 40
bgez $3, _safe_lab_4_
# was: bgez _size_reg_3_, _safe_lab_4_
ori $5, $0, 3
# was: ori $5, $0, 3
la $6, _Msg_IllegalArraySize_
# was: la $6, _Msg_IllegalArraySize_
j _RuntimeError_
_safe_lab_4_:
ori $2, $28, 0
# was: ori _letBind_2_, $28, 0
sll $4, $3, 2
# was: sll _tmp_10_, _size_reg_3_, 2
addi $4, $4, 4
# was: addi _tmp_10_, _tmp_10_, 4
add $28, $28, $4
# was: add $28, $28, _tmp_10_
sw $3, 0($2)
# was: sw _size_reg_3_, 0(_letBind_2_)
addi $6, $2, 4
# was: addi _addr_reg_5_, _letBind_2_, 4
ori $5, $0, 0
# was: ori _i_reg_6_, $0, 0
_loop_beg_7_:
sub $4, $5, $3
# was: sub _tmp_reg_9_, _i_reg_6_, _size_reg_3_
bgez $4, _loop_end_8_
# was: bgez _tmp_reg_9_, _loop_end_8_
sw $5, 0($6)
# was: sw _i_reg_6_, 0(_addr_reg_5_)
addi $6, $6, 4
# was: addi _addr_reg_5_, _addr_reg_5_, 4
addi $5, $5, 1
# was: addi _i_reg_6_, _i_reg_6_, 1
j _loop_beg_7_
_loop_end_8_:
ori $4, $0, 4
# was: ori _arr_ind_12_, $0, 4
addi $3, $2, 4
# was: addi _arr_reg_13_, _letBind_2_, 4
lw $2, 0($2)
# was: lw _size_reg_14_, 0(_letBind_2_)
bgez $4, _safe_lab_17_
# was: bgez _arr_ind_12_, _safe_lab_17_
_error_lab_16_:
ori $5, $0, 5
# was: ori $5, $0, 5
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_17_:
sub $2, $4, $2
# was: sub _tmp_reg_15_, _arr_ind_12_, _size_reg_14_
bgez $2, _error_lab_16_
# was: bgez _tmp_reg_15_, _error_lab_16_
sll $4, $4, 2
# was: sll _arr_ind_12_, _arr_ind_12_, 2
add $3, $3, $4
# was: add _arr_reg_13_, _arr_reg_13_, _arr_ind_12_
lw $16, 0($3)
# was: lw _letBind_11_, 0(_arr_reg_13_)
# ori _tmp_18_,_letBind_11_,0
# ori _mainres_1_,_tmp_18_,0
ori $2, $16, 0
# was: ori $2, _mainres_1_, 0
jal putint
# was: jal putint, $2
ori $2, $16, 0
# was: ori $2, _mainres_1_, 0
addi $29, $29, 12
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

6
W2/fasto/tests/copyConstPropFold1.fo Normal file
View File

@ -0,0 +1,6 @@
fun int main() =
let length = 40 in
let array = iota(length) in
let index = length / 10 in
let x = array[index] in
write(x * 1 + 0)

0
W2/fasto/tests/copyConstPropFold1.in Normal file
View File

1
W2/fasto/tests/copyConstPropFold1.out Normal file
View File

@ -0,0 +1 @@
4

175
W2/fasto/tests/dead_bnd_rem.asm Normal file
View File

@ -0,0 +1,175 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function main
main:
sw $31, -4($29)
sw $16, -8($29)
addi $29, $29, -12
jal getint
# was: jal getint, $2
# ori _letBind_2_,$2,0
# ori _plus_L_4_,_letBind_2_,0
ori $3, $0, 2
# was: ori _plus_R_5_, $0, 2
add $3, $2, $3
# was: add _letBind_3_, _plus_L_4_, _plus_R_5_
# ori _plus_L_7_,_letBind_2_,0
ori $4, $0, 3
# was: ori _plus_R_8_, $0, 3
add $2, $2, $4
# was: add _letBind_6_, _plus_L_7_, _plus_R_8_
# ori _mult1_L_10_,_letBind_3_,0
# ori _mult2_R_11_,_letBind_6_,0
mul $16, $3, $2
# was: mul _letBind_9_, _mult1_L_10_, _mult2_R_11_
# ori _tmp_12_,_letBind_9_,0
# ori _mainres_1_,_tmp_12_,0
ori $2, $16, 0
# was: ori $2, _mainres_1_, 0
jal putint
# was: jal putint, $2
ori $2, $16, 0
# was: ori $2, _mainres_1_, 0
addi $29, $29, 12
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

16
W2/fasto/tests/dead_bnd_rem.fo Normal file
View File

@ -0,0 +1,16 @@
fun int main() =
let y = read(int) in
let x = y * y in
let z =
let x =
let x = x + 3 in
let x = x + y
in x + 8
in y
in
let x = y + 2 in
let w = x + 2 + z in
let v =
let y = y + 3
in x * y
in write(v)

1
W2/fasto/tests/dead_bnd_rem.in Normal file
View File

@ -0,0 +1 @@
10

1
W2/fasto/tests/dead_bnd_rem.out Normal file
View File

@ -0,0 +1 @@
156

1
W2/fasto/tests/fail_parse.err Normal file
View File

@ -0,0 +1 @@
Parse error: Error at line 2, column 12

3
W2/fasto/tests/fail_parse.fo Normal file
View File

@ -0,0 +1,3 @@
fun int main() =
let n = in
write(2)

239
W2/fasto/tests/fib.asm Normal file
View File

@ -0,0 +1,239 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function fibo
fibo:
sw $31, -4($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -16
ori $16, $2, 0
# was: ori _param_n_1_, $2, 0
# ori _eq_L_7_,_param_n_1_,0
ori $3, $0, 0
# was: ori _eq_R_8_, $0, 0
ori $2, $0, 0
# was: ori _cond_6_, $0, 0
bne $16, $3, _false_9_
# was: bne _eq_L_7_, _eq_R_8_, _false_9_
ori $2, $0, 1
# was: ori _cond_6_, $0, 1
_false_9_:
bne $2, $0, _then_3_
# was: bne _cond_6_, $0, _then_3_
j _else_4_
_then_3_:
ori $2, $0, 0
# was: ori _fibores_2_, $0, 0
j _endif_5_
_else_4_:
# ori _eq_L_14_,_param_n_1_,0
ori $3, $0, 1
# was: ori _eq_R_15_, $0, 1
ori $2, $0, 0
# was: ori _cond_13_, $0, 0
bne $16, $3, _false_16_
# was: bne _eq_L_14_, _eq_R_15_, _false_16_
ori $2, $0, 1
# was: ori _cond_13_, $0, 1
_false_16_:
bne $2, $0, _then_10_
# was: bne _cond_13_, $0, _then_10_
j _else_11_
_then_10_:
ori $2, $0, 1
# was: ori _fibores_2_, $0, 1
j _endif_12_
_else_11_:
# ori _minus_L_20_,_param_n_1_,0
ori $2, $0, 1
# was: ori _minus_R_21_, $0, 1
sub $2, $16, $2
# was: sub _arg_19_, _minus_L_20_, _minus_R_21_
# ori $2,_arg_19_,0
jal fibo
# was: jal fibo, $2
ori $17, $2, 0
# was: ori _plus_L_17_, $2, 0
# ori _minus_L_23_,_param_n_1_,0
ori $2, $0, 2
# was: ori _minus_R_24_, $0, 2
sub $2, $16, $2
# was: sub _arg_22_, _minus_L_23_, _minus_R_24_
# ori $2,_arg_22_,0
jal fibo
# was: jal fibo, $2
# ori _plus_R_18_,$2,0
add $2, $17, $2
# was: add _fibores_2_, _plus_L_17_, _plus_R_18_
_endif_12_:
_endif_5_:
# ori $2,_fibores_2_,0
addi $29, $29, 16
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
# Function main
main:
sw $31, -4($29)
sw $16, -8($29)
addi $29, $29, -12
jal getint
# was: jal getint, $2
# ori _letBind_26_,$2,0
# ori _arg_28_,_letBind_26_,0
# ori $2,_arg_28_,0
jal fibo
# was: jal fibo, $2
# ori _tmp_27_,$2,0
ori $16, $2, 0
# was: ori _mainres_25_, _tmp_27_, 0
ori $2, $16, 0
# was: ori $2, _mainres_25_, 0
jal putint
# was: jal putint, $2
ori $2, $16, 0
# was: ori $2, _mainres_25_, 0
addi $29, $29, 12
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

8
W2/fasto/tests/fib.fo Normal file
View File

@ -0,0 +1,8 @@
fun int fibo(int n) =
if n == 0 then 0
else if n == 1 then 1
else fibo(n - 1) + fibo(n - 2)
fun int main() =
let n = read(int) in
write(fibo(n))

1
W2/fasto/tests/fib.in Normal file
View File

@ -0,0 +1 @@
10

1
W2/fasto/tests/fib.out Normal file
View File

@ -0,0 +1 @@
55

474
W2/fasto/tests/filter-on-2darr.asm Normal file
View File

@ -0,0 +1,474 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function main
main:
sw $31, -4($29)
sw $25, -48($29)
sw $24, -44($29)
sw $23, -40($29)
sw $22, -36($29)
sw $21, -32($29)
sw $20, -28($29)
sw $19, -24($29)
sw $18, -20($29)
sw $17, -16($29)
sw $16, -12($29)
addi $29, $29, -52
sw $2, 0($29)
# was: sw _fun_arg_res_84_, 0($29)
jal getint
# was: jal getint, $2
# ori _letBind_2_,$2,0
ori $3, $2, 0
# was: ori _size_reg_8_, _letBind_2_, 0
bgez $3, _safe_lab_9_
# was: bgez _size_reg_8_, _safe_lab_9_
ori $5, $0, 11
# was: ori $5, $0, 11
la $6, _Msg_IllegalArraySize_
# was: la $6, _Msg_IllegalArraySize_
j _RuntimeError_
_safe_lab_9_:
ori $2, $28, 0
# was: ori _arr_reg_5_, $28, 0
sll $4, $3, 2
# was: sll _tmp_15_, _size_reg_8_, 2
addi $4, $4, 4
# was: addi _tmp_15_, _tmp_15_, 4
add $28, $28, $4
# was: add $28, $28, _tmp_15_
sw $3, 0($2)
# was: sw _size_reg_8_, 0(_arr_reg_5_)
addi $4, $2, 4
# was: addi _addr_reg_10_, _arr_reg_5_, 4
ori $5, $0, 0
# was: ori _i_reg_11_, $0, 0
_loop_beg_12_:
sub $6, $5, $3
# was: sub _tmp_reg_14_, _i_reg_11_, _size_reg_8_
bgez $6, _loop_end_13_
# was: bgez _tmp_reg_14_, _loop_end_13_
sw $5, 0($4)
# was: sw _i_reg_11_, 0(_addr_reg_10_)
addi $4, $4, 4
# was: addi _addr_reg_10_, _addr_reg_10_, 4
addi $5, $5, 1
# was: addi _i_reg_11_, _i_reg_11_, 1
j _loop_beg_12_
_loop_end_13_:
lw $5, 0($2)
# was: lw _size_reg_4_, 0(_arr_reg_5_)
ori $4, $28, 0
# was: ori _letBind_3_, $28, 0
sll $3, $5, 2
# was: sll _tmp_32_, _size_reg_4_, 2
addi $3, $3, 4
# was: addi _tmp_32_, _tmp_32_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_32_
sw $5, 0($4)
# was: sw _size_reg_4_, 0(_letBind_3_)
addi $6, $4, 4
# was: addi _addr_reg_16_, _letBind_3_, 4
ori $7, $0, 0
# was: ori _i_reg_17_, $0, 0
addi $3, $2, 4
# was: addi _elem_reg_6_, _arr_reg_5_, 4
_loop_beg_18_:
sub $2, $7, $5
# was: sub _tmp_reg_20_, _i_reg_17_, _size_reg_4_
bgez $2, _loop_end_19_
# was: bgez _tmp_reg_20_, _loop_end_19_
lw $8, 0($3)
# was: lw _res_reg_7_, 0(_elem_reg_6_)
addi $3, $3, 4
# was: addi _elem_reg_6_, _elem_reg_6_, 4
# ori _plus_L_23_,_res_reg_7_,0
ori $2, $0, 2
# was: ori _plus_R_24_, $0, 2
add $2, $8, $2
# was: add _size_reg_22_, _plus_L_23_, _plus_R_24_
bgez $2, _safe_lab_25_
# was: bgez _size_reg_22_, _safe_lab_25_
ori $5, $0, 10
# was: ori $5, $0, 10
la $6, _Msg_IllegalArraySize_
# was: la $6, _Msg_IllegalArraySize_
j _RuntimeError_
_safe_lab_25_:
ori $8, $28, 0
# was: ori _fun_arg_res_21_, $28, 0
sll $9, $2, 2
# was: sll _tmp_31_, _size_reg_22_, 2
addi $9, $9, 4
# was: addi _tmp_31_, _tmp_31_, 4
add $28, $28, $9
# was: add $28, $28, _tmp_31_
sw $2, 0($8)
# was: sw _size_reg_22_, 0(_fun_arg_res_21_)
addi $10, $8, 4
# was: addi _addr_reg_26_, _fun_arg_res_21_, 4
ori $9, $0, 0
# was: ori _i_reg_27_, $0, 0
_loop_beg_28_:
sub $11, $9, $2
# was: sub _tmp_reg_30_, _i_reg_27_, _size_reg_22_
bgez $11, _loop_end_29_
# was: bgez _tmp_reg_30_, _loop_end_29_
sw $9, 0($10)
# was: sw _i_reg_27_, 0(_addr_reg_26_)
addi $10, $10, 4
# was: addi _addr_reg_26_, _addr_reg_26_, 4
addi $9, $9, 1
# was: addi _i_reg_27_, _i_reg_27_, 1
j _loop_beg_28_
_loop_end_29_:
# ori _res_reg_7_,_fun_arg_res_21_,0
sw $8, 0($6)
# was: sw _res_reg_7_, 0(_addr_reg_16_)
addi $6, $6, 4
# was: addi _addr_reg_16_, _addr_reg_16_, 4
addi $7, $7, 1
# was: addi _i_reg_17_, _i_reg_17_, 1
j _loop_beg_18_
_loop_end_19_:
ori $3, $4, 0
# was: ori _arr_reg_35_, _letBind_3_, 0
lw $2, 0($3)
# was: lw _size_reg_34_, 0(_arr_reg_35_)
ori $4, $28, 0
# was: ori _letBind_33_, $28, 0
sll $5, $2, 2
# was: sll _tmp_64_, _size_reg_34_, 2
addi $5, $5, 4
# was: addi _tmp_64_, _tmp_64_, 4
add $28, $28, $5
# was: add $28, $28, _tmp_64_
sw $2, 0($4)
# was: sw _size_reg_34_, 0(_letBind_33_)
addi $6, $4, 4
# was: addi _addr_reg_39_, _letBind_33_, 4
addi $3, $3, 4
# was: addi _arr_reg_35_, _arr_reg_35_, 4
ori $5, $0, 0
# was: ori _i_reg_40_, $0, 0
ori $7, $0, 0
# was: ori _count_reg_38_, $0, 0
_loop_beg_41_:
sub $8, $5, $2
# was: sub _tmp_reg_44_, _i_reg_40_, _size_reg_34_
bgez $8, _loop_end_42_
# was: bgez _tmp_reg_44_, _loop_end_42_
lw $8, 0($3)
# was: lw _elem_reg_36_, 0(_arr_reg_35_)
addi $3, $3, 4
# was: addi _arr_reg_35_, _arr_reg_35_, 4
ori $10, $8, 0
# was: ori _arr_reg_47_, _elem_reg_36_, 0
lw $11, 0($10)
# was: lw _size_reg_48_, 0(_arr_reg_47_)
ori $13, $0, 0
# was: ori _letBind_46_, $0, 0
addi $10, $10, 4
# was: addi _arr_reg_47_, _arr_reg_47_, 4
ori $9, $0, 0
# was: ori _ind_var_49_, $0, 0
_loop_beg_51_:
sub $12, $9, $11
# was: sub _tmp_reg_50_, _ind_var_49_, _size_reg_48_
bgez $12, _loop_end_52_
# was: bgez _tmp_reg_50_, _loop_end_52_
lw $12, 0($10)
# was: lw _tmp_reg_50_, 0(_arr_reg_47_)
addi $10, $10, 4
# was: addi _arr_reg_47_, _arr_reg_47_, 4
# ori _plus_L_54_,_letBind_46_,0
# ori _plus_R_55_,_tmp_reg_50_,0
add $13, $13, $12
# was: add _fun_arg_res_53_, _plus_L_54_, _plus_R_55_
# ori _letBind_46_,_fun_arg_res_53_,0
addi $9, $9, 1
# was: addi _ind_var_49_, _ind_var_49_, 1
j _loop_beg_51_
_loop_end_52_:
# ori _div1_L_60_,_letBind_46_,0
ori $9, $0, 2
# was: ori _div2_R_61_, $0, 2
bne $9, $0, _safe_div_62_
# was: bne _div2_R_61_, $0, _safe_div_62_
ori $5, $0, 6
# was: ori $5, $0, 6
la $6, _Msg_DivZero_
# was: la $6, _Msg_DivZero_
j _RuntimeError_
_safe_div_62_:
div $10, $13, $9
# was: div _mult1_L_58_, _div1_L_60_, _div2_R_61_
ori $9, $0, 2
# was: ori _mult2_R_59_, $0, 2
mul $9, $10, $9
# was: mul _eq_L_56_, _mult1_L_58_, _mult2_R_59_
# ori _eq_R_57_,_letBind_46_,0
ori $10, $0, 0
# was: ori _fun_arg_res_45_, $0, 0
bne $9, $13, _false_63_
# was: bne _eq_L_56_, _eq_R_57_, _false_63_
ori $10, $0, 1
# was: ori _fun_arg_res_45_, $0, 1
_false_63_:
# ori _bool_reg_37_,_fun_arg_res_45_,0
beq $10, $0, _if_end_43_
# was: beq _bool_reg_37_, $0, _if_end_43_
sw $8, 0($6)
# was: sw _elem_reg_36_, 0(_addr_reg_39_)
addi $6, $6, 4
# was: addi _addr_reg_39_, _addr_reg_39_, 4
addi $7, $7, 1
# was: addi _count_reg_38_, _count_reg_38_, 1
_if_end_43_:
addi $5, $5, 1
# was: addi _i_reg_40_, _i_reg_40_, 1
j _loop_beg_41_
_loop_end_42_:
sw $7, 0($4)
# was: sw _count_reg_38_, 0(_letBind_33_)
# ori _arr_reg_66_,_letBind_33_,0
lw $17, 0($4)
# was: lw _size_reg_65_, 0(_arr_reg_66_)
ori $16, $28, 0
# was: ori _mainres_1_, $28, 0
sll $2, $17, 2
# was: sll _tmp_87_, _size_reg_65_, 2
addi $2, $2, 4
# was: addi _tmp_87_, _tmp_87_, 4
add $28, $28, $2
# was: add $28, $28, _tmp_87_
sw $17, 0($16)
# was: sw _size_reg_65_, 0(_mainres_1_)
addi $19, $16, 4
# was: addi _addr_reg_69_, _mainres_1_, 4
ori $18, $0, 0
# was: ori _i_reg_70_, $0, 0
addi $20, $4, 4
# was: addi _elem_reg_67_, _arr_reg_66_, 4
_loop_beg_71_:
sub $2, $18, $17
# was: sub _tmp_reg_73_, _i_reg_70_, _size_reg_65_
bgez $2, _loop_end_72_
# was: bgez _tmp_reg_73_, _loop_end_72_
lw $2, 0($20)
# was: lw _res_reg_68_, 0(_elem_reg_67_)
addi $20, $20, 4
# was: addi _elem_reg_67_, _elem_reg_67_, 4
# ori _arr_reg_76_,_res_reg_68_,0
lw $22, 0($2)
# was: lw _size_reg_75_, 0(_arr_reg_76_)
ori $21, $28, 0
# was: ori _fun_arg_res_74_, $28, 0
sll $3, $22, 2
# was: sll _tmp_86_, _size_reg_75_, 2
addi $3, $3, 4
# was: addi _tmp_86_, _tmp_86_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_86_
sw $22, 0($21)
# was: sw _size_reg_75_, 0(_fun_arg_res_74_)
addi $23, $21, 4
# was: addi _addr_reg_79_, _fun_arg_res_74_, 4
ori $24, $0, 0
# was: ori _i_reg_80_, $0, 0
addi $25, $2, 4
# was: addi _elem_reg_77_, _arr_reg_76_, 4
_loop_beg_81_:
sub $2, $24, $22
# was: sub _tmp_reg_83_, _i_reg_80_, _size_reg_75_
bgez $2, _loop_end_82_
# was: bgez _tmp_reg_83_, _loop_end_82_
lw $2, 0($25)
# was: lw _res_reg_78_, 0(_elem_reg_77_)
addi $25, $25, 4
# was: addi _elem_reg_77_, _elem_reg_77_, 4
# ori _tmp_85_,_res_reg_78_,0
# ori _fun_arg_res_84_,_tmp_85_,0
sw $2, 0($29)
# was: sw _fun_arg_res_84_, 0($29)
lw $2, 0($29)
# was: lw _fun_arg_res_84_, 0($29)
# ori $2,_fun_arg_res_84_,0
jal putint
# was: jal putint, $2
lw $2, 0($29)
# was: lw _fun_arg_res_84_, 0($29)
# ori _res_reg_78_,_fun_arg_res_84_,0
sw $2, 0($23)
# was: sw _res_reg_78_, 0(_addr_reg_79_)
addi $23, $23, 4
# was: addi _addr_reg_79_, _addr_reg_79_, 4
addi $24, $24, 1
# was: addi _i_reg_80_, _i_reg_80_, 1
j _loop_beg_81_
_loop_end_82_:
ori $2, $21, 0
# was: ori _res_reg_68_, _fun_arg_res_74_, 0
sw $2, 0($19)
# was: sw _res_reg_68_, 0(_addr_reg_69_)
addi $19, $19, 4
# was: addi _addr_reg_69_, _addr_reg_69_, 4
addi $18, $18, 1
# was: addi _i_reg_70_, _i_reg_70_, 1
j _loop_beg_71_
_loop_end_72_:
ori $2, $16, 0
# was: ori $2, _mainres_1_, 0
addi $29, $29, 52
lw $25, -48($29)
lw $24, -44($29)
lw $23, -40($29)
lw $22, -36($29)
lw $21, -32($29)
lw $20, -28($29)
lw $19, -24($29)
lw $18, -20($29)
lw $17, -16($29)
lw $16, -12($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

17
W2/fasto/tests/filter-on-2darr.fo Normal file
View File

@ -0,0 +1,17 @@
fun int write_int(int x) = write(x)
fun [int] write_1darr( [int] x) = map(write_int , x)
fun [[int]] write_2darr([[int]] x) = map(write_1darr, x)
fun bool even(int a) =
(a / 2) * 2 == a
fun [[int]] main() =
let n = read(int) in
let a2d = map( fn [int] (int i) => iota(i+2)
, iota(n)) in
let a2df= filter(fn bool ([int] a) =>
let r = reduce(op +, 0, a)
in even(r)
, a2d)
in write_2darr(a2df)

1
W2/fasto/tests/filter-on-2darr.in Normal file
View File

@ -0,0 +1 @@
5

2
W2/fasto/tests/filter-on-2darr.out Normal file
View File

@ -0,0 +1,2 @@
0 1 2 3 0 1 2 3 4

431
W2/fasto/tests/filter.asm Normal file
View File

@ -0,0 +1,431 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function main
main:
sw $31, -4($29)
sw $21, -28($29)
sw $20, -24($29)
sw $19, -20($29)
sw $18, -16($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -32
jal getint
# was: jal getint, $2
# ori _letBind_2_,$2,0
ori $3, $2, 0
# was: ori _size_reg_9_, _letBind_2_, 0
bgez $3, _safe_lab_10_
# was: bgez _size_reg_9_, _safe_lab_10_
ori $5, $0, 10
# was: ori $5, $0, 10
la $6, _Msg_IllegalArraySize_
# was: la $6, _Msg_IllegalArraySize_
j _RuntimeError_
_safe_lab_10_:
ori $2, $28, 0
# was: ori _arr_reg_5_, $28, 0
sll $4, $3, 2
# was: sll _tmp_16_, _size_reg_9_, 2
addi $4, $4, 4
# was: addi _tmp_16_, _tmp_16_, 4
add $28, $28, $4
# was: add $28, $28, _tmp_16_
sw $3, 0($2)
# was: sw _size_reg_9_, 0(_arr_reg_5_)
addi $5, $2, 4
# was: addi _addr_reg_11_, _arr_reg_5_, 4
ori $6, $0, 0
# was: ori _i_reg_12_, $0, 0
_loop_beg_13_:
sub $4, $6, $3
# was: sub _tmp_reg_15_, _i_reg_12_, _size_reg_9_
bgez $4, _loop_end_14_
# was: bgez _tmp_reg_15_, _loop_end_14_
sw $6, 0($5)
# was: sw _i_reg_12_, 0(_addr_reg_11_)
addi $5, $5, 4
# was: addi _addr_reg_11_, _addr_reg_11_, 4
addi $6, $6, 1
# was: addi _i_reg_12_, _i_reg_12_, 1
j _loop_beg_13_
_loop_end_14_:
lw $5, 0($2)
# was: lw _size_reg_4_, 0(_arr_reg_5_)
ori $6, $28, 0
# was: ori _letBind_3_, $28, 0
sll $3, $5, 2
# was: sll _tmp_32_, _size_reg_4_, 2
addi $3, $3, 4
# was: addi _tmp_32_, _tmp_32_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_32_
sw $5, 0($6)
# was: sw _size_reg_4_, 0(_letBind_3_)
addi $3, $6, 4
# was: addi _addr_reg_17_, _letBind_3_, 4
addi $2, $2, 4
# was: addi _arr_reg_5_, _arr_reg_5_, 4
ori $4, $0, 0
# was: ori _i_reg_18_, $0, 0
ori $7, $0, 0
# was: ori _count_reg_8_, $0, 0
_loop_beg_19_:
sub $8, $4, $5
# was: sub _tmp_reg_22_, _i_reg_18_, _size_reg_4_
bgez $8, _loop_end_20_
# was: bgez _tmp_reg_22_, _loop_end_20_
lw $10, 0($2)
# was: lw _elem_reg_6_, 0(_arr_reg_5_)
addi $2, $2, 4
# was: addi _arr_reg_5_, _arr_reg_5_, 4
# ori _eq_L_24_,_elem_reg_6_,0
ori $9, $10, 0
# was: ori _div1_L_28_, _elem_reg_6_, 0
ori $8, $0, 2
# was: ori _div2_R_29_, $0, 2
bne $8, $0, _safe_div_30_
# was: bne _div2_R_29_, $0, _safe_div_30_
ori $5, $0, 10
# was: ori $5, $0, 10
la $6, _Msg_DivZero_
# was: la $6, _Msg_DivZero_
j _RuntimeError_
_safe_div_30_:
div $8, $9, $8
# was: div _mult1_L_26_, _div1_L_28_, _div2_R_29_
ori $9, $0, 2
# was: ori _mult2_R_27_, $0, 2
mul $8, $8, $9
# was: mul _eq_R_25_, _mult1_L_26_, _mult2_R_27_
ori $9, $0, 0
# was: ori _fun_arg_res_23_, $0, 0
bne $10, $8, _false_31_
# was: bne _eq_L_24_, _eq_R_25_, _false_31_
ori $9, $0, 1
# was: ori _fun_arg_res_23_, $0, 1
_false_31_:
# ori _bool_reg_7_,_fun_arg_res_23_,0
beq $9, $0, _if_end_21_
# was: beq _bool_reg_7_, $0, _if_end_21_
sw $10, 0($3)
# was: sw _elem_reg_6_, 0(_addr_reg_17_)
addi $3, $3, 4
# was: addi _addr_reg_17_, _addr_reg_17_, 4
addi $7, $7, 1
# was: addi _count_reg_8_, _count_reg_8_, 1
_if_end_21_:
addi $4, $4, 1
# was: addi _i_reg_18_, _i_reg_18_, 1
j _loop_beg_19_
_loop_end_20_:
sw $7, 0($6)
# was: sw _count_reg_8_, 0(_letBind_3_)
ori $2, $6, 0
# was: ori _arr_reg_35_, _letBind_3_, 0
lw $3, 0($2)
# was: lw _size_reg_34_, 0(_arr_reg_35_)
ori $4, $28, 0
# was: ori _letBind_33_, $28, 0
sll $5, $3, 2
# was: sll _tmp_46_, _size_reg_34_, 2
addi $5, $5, 4
# was: addi _tmp_46_, _tmp_46_, 4
add $28, $28, $5
# was: add $28, $28, _tmp_46_
sw $3, 0($4)
# was: sw _size_reg_34_, 0(_letBind_33_)
addi $6, $4, 4
# was: addi _addr_reg_38_, _letBind_33_, 4
ori $5, $0, 0
# was: ori _i_reg_39_, $0, 0
addi $2, $2, 4
# was: addi _elem_reg_36_, _arr_reg_35_, 4
_loop_beg_40_:
sub $7, $5, $3
# was: sub _tmp_reg_42_, _i_reg_39_, _size_reg_34_
bgez $7, _loop_end_41_
# was: bgez _tmp_reg_42_, _loop_end_41_
lw $7, 0($2)
# was: lw _res_reg_37_, 0(_elem_reg_36_)
addi $2, $2, 4
# was: addi _elem_reg_36_, _elem_reg_36_, 4
ori $8, $7, 0
# was: ori _mult1_L_44_, _res_reg_37_, 0
# ori _mult2_R_45_,_res_reg_37_,0
mul $7, $8, $7
# was: mul _fun_arg_res_43_, _mult1_L_44_, _mult2_R_45_
# ori _res_reg_37_,_fun_arg_res_43_,0
sw $7, 0($6)
# was: sw _res_reg_37_, 0(_addr_reg_38_)
addi $6, $6, 4
# was: addi _addr_reg_38_, _addr_reg_38_, 4
addi $5, $5, 1
# was: addi _i_reg_39_, _i_reg_39_, 1
j _loop_beg_40_
_loop_end_41_:
ori $2, $4, 0
# was: ori _arr_reg_49_, _letBind_33_, 0
lw $3, 0($2)
# was: lw _size_reg_48_, 0(_arr_reg_49_)
ori $4, $28, 0
# was: ori _letBind_47_, $28, 0
sll $5, $3, 2
# was: sll _tmp_68_, _size_reg_48_, 2
addi $5, $5, 4
# was: addi _tmp_68_, _tmp_68_, 4
add $28, $28, $5
# was: add $28, $28, _tmp_68_
sw $3, 0($4)
# was: sw _size_reg_48_, 0(_letBind_47_)
addi $5, $4, 4
# was: addi _addr_reg_53_, _letBind_47_, 4
addi $2, $2, 4
# was: addi _arr_reg_49_, _arr_reg_49_, 4
ori $6, $0, 0
# was: ori _i_reg_54_, $0, 0
ori $7, $0, 0
# was: ori _count_reg_52_, $0, 0
_loop_beg_55_:
sub $8, $6, $3
# was: sub _tmp_reg_58_, _i_reg_54_, _size_reg_48_
bgez $8, _loop_end_56_
# was: bgez _tmp_reg_58_, _loop_end_56_
lw $8, 0($2)
# was: lw _elem_reg_50_, 0(_arr_reg_49_)
addi $2, $2, 4
# was: addi _arr_reg_49_, _arr_reg_49_, 4
# ori _div1_L_64_,_elem_reg_50_,0
ori $9, $0, 16
# was: ori _div2_R_65_, $0, 16
bne $9, $0, _safe_div_66_
# was: bne _div2_R_65_, $0, _safe_div_66_
ori $5, $0, 6
# was: ori $5, $0, 6
la $6, _Msg_DivZero_
# was: la $6, _Msg_DivZero_
j _RuntimeError_
_safe_div_66_:
div $10, $8, $9
# was: div _mult1_L_62_, _div1_L_64_, _div2_R_65_
ori $9, $0, 16
# was: ori _mult2_R_63_, $0, 16
mul $10, $10, $9
# was: mul _eq_L_60_, _mult1_L_62_, _mult2_R_63_
# ori _eq_R_61_,_elem_reg_50_,0
ori $9, $0, 0
# was: ori _fun_arg_res_59_, $0, 0
bne $10, $8, _false_67_
# was: bne _eq_L_60_, _eq_R_61_, _false_67_
ori $9, $0, 1
# was: ori _fun_arg_res_59_, $0, 1
_false_67_:
# ori _bool_reg_51_,_fun_arg_res_59_,0
beq $9, $0, _if_end_57_
# was: beq _bool_reg_51_, $0, _if_end_57_
sw $8, 0($5)
# was: sw _elem_reg_50_, 0(_addr_reg_53_)
addi $5, $5, 4
# was: addi _addr_reg_53_, _addr_reg_53_, 4
addi $7, $7, 1
# was: addi _count_reg_52_, _count_reg_52_, 1
_if_end_57_:
addi $6, $6, 1
# was: addi _i_reg_54_, _i_reg_54_, 1
j _loop_beg_55_
_loop_end_56_:
sw $7, 0($4)
# was: sw _count_reg_52_, 0(_letBind_47_)
# ori _arr_reg_70_,_letBind_47_,0
lw $16, 0($4)
# was: lw _size_reg_69_, 0(_arr_reg_70_)
ori $17, $28, 0
# was: ori _mainres_1_, $28, 0
sll $2, $16, 2
# was: sll _tmp_80_, _size_reg_69_, 2
addi $2, $2, 4
# was: addi _tmp_80_, _tmp_80_, 4
add $28, $28, $2
# was: add $28, $28, _tmp_80_
sw $16, 0($17)
# was: sw _size_reg_69_, 0(_mainres_1_)
addi $18, $17, 4
# was: addi _addr_reg_73_, _mainres_1_, 4
ori $19, $0, 0
# was: ori _i_reg_74_, $0, 0
addi $20, $4, 4
# was: addi _elem_reg_71_, _arr_reg_70_, 4
_loop_beg_75_:
sub $2, $19, $16
# was: sub _tmp_reg_77_, _i_reg_74_, _size_reg_69_
bgez $2, _loop_end_76_
# was: bgez _tmp_reg_77_, _loop_end_76_
lw $21, 0($20)
# was: lw _res_reg_72_, 0(_elem_reg_71_)
addi $20, $20, 4
# was: addi _elem_reg_71_, _elem_reg_71_, 4
# ori _tmp_79_,_res_reg_72_,0
# ori _fun_arg_res_78_,_tmp_79_,0
ori $2, $21, 0
# was: ori $2, _fun_arg_res_78_, 0
jal putint
# was: jal putint, $2
# ori _res_reg_72_,_fun_arg_res_78_,0
sw $21, 0($18)
# was: sw _res_reg_72_, 0(_addr_reg_73_)
addi $18, $18, 4
# was: addi _addr_reg_73_, _addr_reg_73_, 4
addi $19, $19, 1
# was: addi _i_reg_74_, _i_reg_74_, 1
j _loop_beg_75_
_loop_end_76_:
ori $2, $17, 0
# was: ori $2, _mainres_1_, 0
addi $29, $29, 32
lw $21, -28($29)
lw $20, -24($29)
lw $19, -20($29)
lw $18, -16($29)
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

13
W2/fasto/tests/filter.fo Normal file
View File

@ -0,0 +1,13 @@
fun int write_int(int x) = write(x)
fun [int] write_int_arr([int] x) = map(write_int, x)
fun bool isMul16(int a) =
(a / 16) * 16 == a
fun [int] main() =
let n = read(int) in
let x = filter(fn bool (int a) => a == (a/2)*2, iota(n)) in
let y = map (fn int (int a) => a * a, x) in
let z = filter(isMul16, y)
in write_int_arr(z)

1
W2/fasto/tests/filter.in Normal file
View File

@ -0,0 +1 @@
15

1
W2/fasto/tests/filter.out Normal file
View File

@ -0,0 +1 @@
0 16 64 144

458
W2/fasto/tests/inline_map.asm Normal file
View File

@ -0,0 +1,458 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function plus5
plus5:
sw $31, -4($29)
addi $29, $29, -8
# ori _param_x_1_,$2,0
# ori _plus_L_3_,_param_x_1_,0
ori $3, $0, 5
# was: ori _plus_R_4_, $0, 5
add $2, $2, $3
# was: add _plus5res_2_, _plus_L_3_, _plus_R_4_
# ori $2,_plus5res_2_,0
addi $29, $29, 8
lw $31, -4($29)
jr $31
# Function mul2
mul2:
sw $31, -4($29)
addi $29, $29, -8
# ori _param_x_5_,$2,0
ori $3, $2, 0
# was: ori _plus_L_7_, _param_x_5_, 0
# ori _plus_R_8_,_param_x_5_,0
add $2, $3, $2
# was: add _mul2res_6_, _plus_L_7_, _plus_R_8_
# ori $2,_mul2res_6_,0
addi $29, $29, 8
lw $31, -4($29)
jr $31
# Function testcomp
testcomp:
sw $31, -4($29)
addi $29, $29, -8
# ori _param_x_9_,$2,0
# ori _arg_12_,_param_x_9_,0
# ori $2,_arg_12_,0
jal write_int_arr
# was: jal write_int_arr, $2
# ori _arg_11_,$2,0
# ori $2,_arg_11_,0
jal write_int_arr
# was: jal write_int_arr, $2
# ori _testcompres_10_,$2,0
# ori $2,_testcompres_10_,0
addi $29, $29, 8
lw $31, -4($29)
jr $31
# Function write_int
write_int:
sw $31, -4($29)
sw $16, -8($29)
addi $29, $29, -12
# ori _param_x_13_,$2,0
ori $16, $2, 0
# was: ori _tmp_15_, _param_x_13_, 0
# ori _write_intres_14_,_tmp_15_,0
ori $2, $16, 0
# was: ori $2, _write_intres_14_, 0
jal putint
# was: jal putint, $2
ori $2, $16, 0
# was: ori $2, _write_intres_14_, 0
addi $29, $29, 12
lw $16, -8($29)
lw $31, -4($29)
jr $31
# Function write_int_arr
write_int_arr:
sw $31, -4($29)
sw $20, -24($29)
sw $19, -20($29)
sw $18, -16($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -28
# ori _param_x_16_,$2,0
# ori _arr_reg_19_,_param_x_16_,0
lw $16, 0($2)
# was: lw _size_reg_18_, 0(_arr_reg_19_)
ori $17, $28, 0
# was: ori _write_int_arrres_17_, $28, 0
sll $3, $16, 2
# was: sll _tmp_28_, _size_reg_18_, 2
addi $3, $3, 4
# was: addi _tmp_28_, _tmp_28_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_28_
sw $16, 0($17)
# was: sw _size_reg_18_, 0(_write_int_arrres_17_)
addi $18, $17, 4
# was: addi _addr_reg_22_, _write_int_arrres_17_, 4
ori $19, $0, 0
# was: ori _i_reg_23_, $0, 0
addi $20, $2, 4
# was: addi _elem_reg_20_, _arr_reg_19_, 4
_loop_beg_24_:
sub $2, $19, $16
# was: sub _tmp_reg_26_, _i_reg_23_, _size_reg_18_
bgez $2, _loop_end_25_
# was: bgez _tmp_reg_26_, _loop_end_25_
lw $2, 0($20)
# was: lw _res_reg_21_, 0(_elem_reg_20_)
addi $20, $20, 4
# was: addi _elem_reg_20_, _elem_reg_20_, 4
# ori $2,_res_reg_21_,0
jal write_int
# was: jal write_int, $2
# ori _tmp_reg_27_,$2,0
# ori _res_reg_21_,_tmp_reg_27_,0
sw $2, 0($18)
# was: sw _res_reg_21_, 0(_addr_reg_22_)
addi $18, $18, 4
# was: addi _addr_reg_22_, _addr_reg_22_, 4
addi $19, $19, 1
# was: addi _i_reg_23_, _i_reg_23_, 1
j _loop_beg_24_
_loop_end_25_:
ori $2, $17, 0
# was: ori $2, _write_int_arrres_17_, 0
addi $29, $29, 28
lw $20, -24($29)
lw $19, -20($29)
lw $18, -16($29)
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
# Function boo
boo:
sw $31, -4($29)
sw $20, -24($29)
sw $19, -20($29)
sw $18, -16($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -28
# ori _param_a_29_,$2,0
ori $4, $0, 5
# was: ori _plus_L_33_, $0, 5
ori $3, $0, 3
# was: ori _plus_R_34_, $0, 3
add $0, $4, $3
# was: add _letBind_32_, _plus_L_33_, _plus_R_34_
# ori _arr_reg_36_,_param_a_29_,0
lw $17, 0($2)
# was: lw _size_reg_35_, 0(_arr_reg_36_)
ori $16, $28, 0
# was: ori _letBind_31_, $28, 0
sll $3, $17, 2
# was: sll _tmp_45_, _size_reg_35_, 2
addi $3, $3, 4
# was: addi _tmp_45_, _tmp_45_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_45_
sw $17, 0($16)
# was: sw _size_reg_35_, 0(_letBind_31_)
addi $18, $16, 4
# was: addi _addr_reg_39_, _letBind_31_, 4
ori $19, $0, 0
# was: ori _i_reg_40_, $0, 0
addi $20, $2, 4
# was: addi _elem_reg_37_, _arr_reg_36_, 4
_loop_beg_41_:
sub $2, $19, $17
# was: sub _tmp_reg_43_, _i_reg_40_, _size_reg_35_
bgez $2, _loop_end_42_
# was: bgez _tmp_reg_43_, _loop_end_42_
lw $2, 0($20)
# was: lw _res_reg_38_, 0(_elem_reg_37_)
addi $20, $20, 4
# was: addi _elem_reg_37_, _elem_reg_37_, 4
# ori $2,_res_reg_38_,0
jal plus5
# was: jal plus5, $2
# ori _tmp_reg_44_,$2,0
# ori _res_reg_38_,_tmp_reg_44_,0
sw $2, 0($18)
# was: sw _res_reg_38_, 0(_addr_reg_39_)
addi $18, $18, 4
# was: addi _addr_reg_39_, _addr_reg_39_, 4
addi $19, $19, 1
# was: addi _i_reg_40_, _i_reg_40_, 1
j _loop_beg_41_
_loop_end_42_:
ori $2, $16, 0
# was: ori _boores_30_, _letBind_31_, 0
# ori $2,_boores_30_,0
addi $29, $29, 28
lw $20, -24($29)
lw $19, -20($29)
lw $18, -16($29)
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
# Function main
main:
sw $31, -4($29)
sw $20, -24($29)
sw $19, -20($29)
sw $18, -16($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -28
jal getint
# was: jal getint, $2
ori $3, $2, 0
# was: ori _letBind_47_, $2, 0
# ori _size_reg_49_,_letBind_47_,0
bgez $3, _safe_lab_50_
# was: bgez _size_reg_49_, _safe_lab_50_
ori $5, $0, 15
# was: ori $5, $0, 15
la $6, _Msg_IllegalArraySize_
# was: la $6, _Msg_IllegalArraySize_
j _RuntimeError_
_safe_lab_50_:
ori $2, $28, 0
# was: ori _letBind_48_, $28, 0
sll $4, $3, 2
# was: sll _tmp_56_, _size_reg_49_, 2
addi $4, $4, 4
# was: addi _tmp_56_, _tmp_56_, 4
add $28, $28, $4
# was: add $28, $28, _tmp_56_
sw $3, 0($2)
# was: sw _size_reg_49_, 0(_letBind_48_)
addi $5, $2, 4
# was: addi _addr_reg_51_, _letBind_48_, 4
ori $6, $0, 0
# was: ori _i_reg_52_, $0, 0
_loop_beg_53_:
sub $4, $6, $3
# was: sub _tmp_reg_55_, _i_reg_52_, _size_reg_49_
bgez $4, _loop_end_54_
# was: bgez _tmp_reg_55_, _loop_end_54_
sw $6, 0($5)
# was: sw _i_reg_52_, 0(_addr_reg_51_)
addi $5, $5, 4
# was: addi _addr_reg_51_, _addr_reg_51_, 4
addi $6, $6, 1
# was: addi _i_reg_52_, _i_reg_52_, 1
j _loop_beg_53_
_loop_end_54_:
# ori _plus_L_59_,_letBind_47_,0
ori $4, $3, 0
# was: ori _plus_R_60_, _letBind_47_, 0
add $0, $3, $4
# was: add _letBind_58_, _plus_L_59_, _plus_R_60_
ori $4, $3, 0
# was: ori _plus_L_63_, _letBind_47_, 0
# ori _plus_R_64_,_letBind_47_,0
add $4, $4, $3
# was: add _plus_L_61_, _plus_L_63_, _plus_R_64_
# ori _plus_R_62_,_letBind_47_,0
add $0, $4, $3
# was: add _letBind_57_, _plus_L_61_, _plus_R_62_
# ori _arg_66_,_letBind_48_,0
# ori $2,_arg_66_,0
jal boo
# was: jal boo, $2
# ori _letBind_65_,$2,0
# ori _arr_reg_69_,_letBind_65_,0
lw $16, 0($2)
# was: lw _size_reg_68_, 0(_arr_reg_69_)
ori $17, $28, 0
# was: ori _letBind_67_, $28, 0
sll $3, $16, 2
# was: sll _tmp_78_, _size_reg_68_, 2
addi $3, $3, 4
# was: addi _tmp_78_, _tmp_78_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_78_
sw $16, 0($17)
# was: sw _size_reg_68_, 0(_letBind_67_)
addi $18, $17, 4
# was: addi _addr_reg_72_, _letBind_67_, 4
ori $19, $0, 0
# was: ori _i_reg_73_, $0, 0
addi $20, $2, 4
# was: addi _elem_reg_70_, _arr_reg_69_, 4
_loop_beg_74_:
sub $2, $19, $16
# was: sub _tmp_reg_76_, _i_reg_73_, _size_reg_68_
bgez $2, _loop_end_75_
# was: bgez _tmp_reg_76_, _loop_end_75_
lw $2, 0($20)
# was: lw _res_reg_71_, 0(_elem_reg_70_)
addi $20, $20, 4
# was: addi _elem_reg_70_, _elem_reg_70_, 4
# ori $2,_res_reg_71_,0
jal mul2
# was: jal mul2, $2
# ori _tmp_reg_77_,$2,0
# ori _res_reg_71_,_tmp_reg_77_,0
sw $2, 0($18)
# was: sw _res_reg_71_, 0(_addr_reg_72_)
addi $18, $18, 4
# was: addi _addr_reg_72_, _addr_reg_72_, 4
addi $19, $19, 1
# was: addi _i_reg_73_, _i_reg_73_, 1
j _loop_beg_74_
_loop_end_75_:
ori $2, $17, 0
# was: ori _arg_79_, _letBind_67_, 0
# ori $2,_arg_79_,0
jal write_int_arr
# was: jal write_int_arr, $2
# ori _mainres_46_,$2,0
# ori $2,_mainres_46_,0
addi $29, $29, 28
lw $20, -24($29)
lw $19, -20($29)
lw $18, -16($29)
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

19
W2/fasto/tests/inline_map.fo Normal file
View File

@ -0,0 +1,19 @@
fun int plus5(int x) = x + 5
fun int mul2(int x) = x + x
fun [int] testcomp([int] x) = write_int_arr(write_int_arr(x))
fun int write_int(int x) = write(x)
fun [int] write_int_arr([int] x) = map(write_int, x)
fun [int] boo([int] a) = let x = (let y = 5 + 3 in map(plus5, a)) in x
fun [int] main() =
let N = read(int) in
let z = iota(N) in
let q = (let z = N + N in N + N + N) in
let y = boo(z) in
let w = map(mul2, y) in
write_int_arr(w)

1
W2/fasto/tests/inline_map.in Normal file
View File

@ -0,0 +1 @@
50

1
W2/fasto/tests/inline_map.out Normal file
View File

@ -0,0 +1 @@
10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50 52 54 56 58 60 62 64 66 68 70 72 74 76 78 80 82 84 86 88 90 92 94 96 98 100 102 104 106 108

246
W2/fasto/tests/inline_shadow.asm Normal file
View File

@ -0,0 +1,246 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function zero
zero:
sw $31, -4($29)
addi $29, $29, -8
# ori _param_b_1_,$2,0
# ori _cond_6_,_param_b_1_,0
bne $2, $0, _then_3_
# was: bne _cond_6_, $0, _then_3_
j _else_4_
_then_3_:
ori $2, $0, 0
# was: ori _zerores_2_, $0, 0
j _endif_5_
_else_4_:
# ori _arg_7_,_param_b_1_,0
# ori $2,_arg_7_,0
jal zero
# was: jal zero, $2
# ori _zerores_2_,$2,0
_endif_5_:
# ori $2,_zerores_2_,0
addi $29, $29, 8
lw $31, -4($29)
jr $31
# Function main
main:
sw $31, -4($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -16
ori $16, $0, 4132
# was: ori _tmp_10_, $0, 4132
# ori _letBind_9_,_tmp_10_,0
ori $2, $16, 0
# was: ori $2, _letBind_9_, 0
jal putint
# was: jal putint, $2
ori $2, $0, 1
# was: ori _arg_14_, $0, 1
# ori $2,_arg_14_,0
jal zero
# was: jal zero, $2
ori $6, $2, 0
# was: ori _letBind_13_, $2, 0
ori $2, $0, 1
# was: ori _plus_L_16_, $0, 1
# ori _plus_R_17_,_letBind_13_,0
add $4, $2, $6
# was: add _letBind_15_, _plus_L_16_, _plus_R_17_
ori $2, $0, 2
# was: ori _plus_L_19_, $0, 2
# ori _plus_R_20_,_letBind_13_,0
add $2, $2, $6
# was: add _letBind_18_, _plus_L_19_, _plus_R_20_
ori $3, $0, 3
# was: ori _plus_L_22_, $0, 3
# ori _plus_R_23_,_letBind_13_,0
add $3, $3, $6
# was: add _letBind_21_, _plus_L_22_, _plus_R_23_
ori $5, $0, 4
# was: ori _plus_L_25_, $0, 4
# ori _plus_R_26_,_letBind_13_,0
add $6, $5, $6
# was: add _letBind_24_, _plus_L_25_, _plus_R_26_
ori $5, $0, 1000
# was: ori _mult1_L_33_, $0, 1000
# ori _mult2_R_34_,_letBind_24_,0
mul $5, $5, $6
# was: mul _plus_L_31_, _mult1_L_33_, _mult2_R_34_
ori $6, $0, 100
# was: ori _mult1_L_35_, $0, 100
# ori _mult2_R_36_,_letBind_15_,0
mul $4, $6, $4
# was: mul _plus_R_32_, _mult1_L_35_, _mult2_R_36_
add $5, $5, $4
# was: add _plus_L_29_, _plus_L_31_, _plus_R_32_
ori $4, $0, 10
# was: ori _mult1_L_37_, $0, 10
# ori _mult2_R_38_,_letBind_21_,0
mul $3, $4, $3
# was: mul _plus_R_30_, _mult1_L_37_, _mult2_R_38_
add $3, $5, $3
# was: add _plus_L_27_, _plus_L_29_, _plus_R_30_
# ori _plus_R_28_,_letBind_18_,0
add $17, $3, $2
# was: add _tmp_12_, _plus_L_27_, _plus_R_28_
# ori _letBind_11_,_tmp_12_,0
ori $2, $17, 0
# was: ori $2, _letBind_11_, 0
jal putint
# was: jal putint, $2
ori $2, $0, 10000
# was: ori _mult1_L_41_, $0, 10000
# ori _mult2_R_42_,_letBind_9_,0
mul $2, $2, $16
# was: mul _plus_L_39_, _mult1_L_41_, _mult2_R_42_
# ori _plus_R_40_,_letBind_11_,0
add $2, $2, $17
# was: add _mainres_8_, _plus_L_39_, _plus_R_40_
# ori $2,_mainres_8_,0
addi $29, $29, 16
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

15
W2/fasto/tests/inline_shadow.fo Normal file
View File

@ -0,0 +1,15 @@
fun int f(int a, int b, int c, int d) = 1000*a + 100*b + 10*c + d
fun int zero(bool b) = if b then 0 else zero(b)
fun int test(int z) =
let a = 1+z in
let b = 2+z in
let c = 3+z in
let d = 4+z in
f(d,a,c,b)
fun int main() =
let r1 = write(test(0)) in
let r2 = write(test(zero(true))) in
10000*r1+r2

0
W2/fasto/tests/inline_shadow.in Normal file
View File

2
W2/fasto/tests/inline_shadow.out Normal file
View File

@ -0,0 +1,2 @@
4132
4132

897
W2/fasto/tests/io_mssp.asm Normal file
View File

@ -0,0 +1,897 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _aaMSSPa_193_
# was: la _aaMSSPa_193__addr, _aaMSSPa_193_
ori $3, $0, 18
# was: ori _aaMSSPa_193__init, $0, 18
sw $3, 0($4)
# was: sw _aaMSSPa_193__init, 0(_aaMSSPa_193__addr)
la $4, _a__str__33_
# was: la _a__str__33__addr, _a__str__33_
ori $3, $0, 1
# was: ori _a__str__33__init, $0, 1
sw $3, 0($4)
# was: sw _a__str__33__init, 0(_a__str__33__addr)
la $4, _aa__str_29_
# was: la _aa__str_29__addr, _aa__str_29_
ori $3, $0, 2
# was: ori _aa__str_29__init, $0, 2
sw $3, 0($4)
# was: sw _aa__str_29__init, 0(_aa__str_29__addr)
la $4, _Introdu_24_
# was: la _Introdu_24__addr, _Introdu_24_
ori $3, $0, 17
# was: ori _Introdu_24__init, $0, 17
sw $3, 0($4)
# was: sw _Introdu_24__init, 0(_Introdu_24__addr)
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function main
main:
sw $31, -4($29)
sw $21, -28($29)
sw $20, -24($29)
sw $19, -20($29)
sw $18, -16($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -32
ori $2, $0, 8
# was: ori _size_reg_3_, $0, 8
bgez $2, _safe_lab_4_
# was: bgez _size_reg_3_, _safe_lab_4_
ori $5, $0, 10
# was: ori $5, $0, 10
la $6, _Msg_IllegalArraySize_
# was: la $6, _Msg_IllegalArraySize_
j _RuntimeError_
_safe_lab_4_:
ori $3, $28, 0
# was: ori _letBind_2_, $28, 0
sll $4, $2, 2
# was: sll _tmp_10_, _size_reg_3_, 2
addi $4, $4, 4
# was: addi _tmp_10_, _tmp_10_, 4
add $28, $28, $4
# was: add $28, $28, _tmp_10_
sw $2, 0($3)
# was: sw _size_reg_3_, 0(_letBind_2_)
addi $5, $3, 4
# was: addi _addr_reg_5_, _letBind_2_, 4
ori $6, $0, 0
# was: ori _i_reg_6_, $0, 0
_loop_beg_7_:
sub $4, $6, $2
# was: sub _tmp_reg_9_, _i_reg_6_, _size_reg_3_
bgez $4, _loop_end_8_
# was: bgez _tmp_reg_9_, _loop_end_8_
sw $6, 0($5)
# was: sw _i_reg_6_, 0(_addr_reg_5_)
addi $5, $5, 4
# was: addi _addr_reg_5_, _addr_reg_5_, 4
addi $6, $6, 1
# was: addi _i_reg_6_, _i_reg_6_, 1
j _loop_beg_7_
_loop_end_8_:
ori $2, $3, 0
# was: ori _arr_reg_13_, _letBind_2_, 0
lw $16, 0($2)
# was: lw _size_reg_12_, 0(_arr_reg_13_)
ori $17, $28, 0
# was: ori _letBind_11_, $28, 0
sll $3, $16, 2
# was: sll _tmp_34_, _size_reg_12_, 2
addi $3, $3, 4
# was: addi _tmp_34_, _tmp_34_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_34_
sw $16, 0($17)
# was: sw _size_reg_12_, 0(_letBind_11_)
addi $18, $17, 4
# was: addi _addr_reg_16_, _letBind_11_, 4
ori $19, $0, 0
# was: ori _i_reg_17_, $0, 0
addi $20, $2, 4
# was: addi _elem_reg_14_, _arr_reg_13_, 4
_loop_beg_18_:
sub $2, $19, $16
# was: sub _tmp_reg_20_, _i_reg_17_, _size_reg_12_
bgez $2, _loop_end_19_
# was: bgez _tmp_reg_20_, _loop_end_19_
lw $21, 0($20)
# was: lw _res_reg_15_, 0(_elem_reg_14_)
addi $20, $20, 4
# was: addi _elem_reg_14_, _elem_reg_14_, 4
la $2, _Introdu_24_
# was: la _tmp_23_, _Introdu_24_
# _Introdu_24_: string "Introduce number "
# ori _letBind_22_,_tmp_23_,0
# ori $2,_tmp_23_,0
jal putstring
# was: jal putstring, $2
ori $2, $21, 0
# was: ori _tmp_26_, _res_reg_15_, 0
# ori _letBind_25_,_tmp_26_,0
# ori $2,_letBind_25_,0
jal putint
# was: jal putint, $2
la $2, _aa__str_29_
# was: la _tmp_28_, _aa__str_29_
# _aa__str_29_: string ": "
# ori _letBind_27_,_tmp_28_,0
# ori $2,_tmp_28_,0
jal putstring
# was: jal putstring, $2
jal getint
# was: jal getint, $2
ori $21, $2, 0
# was: ori _letBind_30_, $2, 0
la $2, _a__str__33_
# was: la _tmp_32_, _a__str__33_
# _a__str__33_: string "\n"
# ori _letBind_31_,_tmp_32_,0
# ori $2,_tmp_32_,0
jal putstring
# was: jal putstring, $2
# ori _fun_arg_res_21_,_letBind_30_,0
# ori _res_reg_15_,_fun_arg_res_21_,0
sw $21, 0($18)
# was: sw _res_reg_15_, 0(_addr_reg_16_)
addi $18, $18, 4
# was: addi _addr_reg_16_, _addr_reg_16_, 4
addi $19, $19, 1
# was: addi _i_reg_17_, _i_reg_17_, 1
j _loop_beg_18_
_loop_end_19_:
# ori _arr_reg_37_,_letBind_11_,0
lw $6, 0($17)
# was: lw _size_reg_36_, 0(_arr_reg_37_)
ori $5, $28, 0
# was: ori _letBind_35_, $28, 0
sll $2, $6, 2
# was: sll _tmp_57_, _size_reg_36_, 2
addi $2, $2, 4
# was: addi _tmp_57_, _tmp_57_, 4
add $28, $28, $2
# was: add $28, $28, _tmp_57_
sw $6, 0($5)
# was: sw _size_reg_36_, 0(_letBind_35_)
addi $8, $5, 4
# was: addi _addr_reg_40_, _letBind_35_, 4
ori $7, $0, 0
# was: ori _i_reg_41_, $0, 0
addi $9, $17, 4
# was: addi _elem_reg_38_, _arr_reg_37_, 4
_loop_beg_42_:
sub $2, $7, $6
# was: sub _tmp_reg_44_, _i_reg_41_, _size_reg_36_
bgez $2, _loop_end_43_
# was: bgez _tmp_reg_44_, _loop_end_43_
lw $10, 0($9)
# was: lw _res_reg_39_, 0(_elem_reg_38_)
addi $9, $9, 4
# was: addi _elem_reg_38_, _elem_reg_38_, 4
# ori _lt_L_51_,_res_reg_39_,0
ori $2, $0, 0
# was: ori _lt_R_52_, $0, 0
slt $2, $10, $2
# was: slt _cond_50_, _lt_L_51_, _lt_R_52_
bne $2, $0, _then_47_
# was: bne _cond_50_, $0, _then_47_
j _else_48_
_then_47_:
ori $4, $0, 0
# was: ori _letBind_46_, $0, 0
j _endif_49_
_else_48_:
ori $4, $10, 0
# was: ori _letBind_46_, _res_reg_39_, 0
_endif_49_:
ori $11, $0, 4
# was: ori _size_reg_53_, $0, 4
ori $3, $28, 0
# was: ori _fun_arg_res_45_, $28, 0
sll $2, $11, 2
# was: sll _tmp_56_, _size_reg_53_, 2
addi $2, $2, 4
# was: addi _tmp_56_, _tmp_56_, 4
add $28, $28, $2
# was: add $28, $28, _tmp_56_
sw $11, 0($3)
# was: sw _size_reg_53_, 0(_fun_arg_res_45_)
addi $2, $3, 4
# was: addi _addr_reg_54_, _fun_arg_res_45_, 4
# ori _tmp_reg_55_,_letBind_46_,0
sw $4, 0($2)
# was: sw _tmp_reg_55_, 0(_addr_reg_54_)
addi $2, $2, 4
# was: addi _addr_reg_54_, _addr_reg_54_, 4
# ori _tmp_reg_55_,_letBind_46_,0
sw $4, 0($2)
# was: sw _tmp_reg_55_, 0(_addr_reg_54_)
addi $2, $2, 4
# was: addi _addr_reg_54_, _addr_reg_54_, 4
# ori _tmp_reg_55_,_letBind_46_,0
sw $4, 0($2)
# was: sw _tmp_reg_55_, 0(_addr_reg_54_)
addi $2, $2, 4
# was: addi _addr_reg_54_, _addr_reg_54_, 4
ori $4, $10, 0
# was: ori _tmp_reg_55_, _res_reg_39_, 0
sw $4, 0($2)
# was: sw _tmp_reg_55_, 0(_addr_reg_54_)
addi $2, $2, 4
# was: addi _addr_reg_54_, _addr_reg_54_, 4
ori $10, $3, 0
# was: ori _res_reg_39_, _fun_arg_res_45_, 0
sw $10, 0($8)
# was: sw _res_reg_39_, 0(_addr_reg_40_)
addi $8, $8, 4
# was: addi _addr_reg_40_, _addr_reg_40_, 4
addi $7, $7, 1
# was: addi _i_reg_41_, _i_reg_41_, 1
j _loop_beg_42_
_loop_end_43_:
ori $2, $0, 4
# was: ori _size_reg_59_, $0, 4
ori $16, $28, 0
# was: ori _letBind_58_, $28, 0
sll $3, $2, 2
# was: sll _tmp_62_, _size_reg_59_, 2
addi $3, $3, 4
# was: addi _tmp_62_, _tmp_62_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_62_
sw $2, 0($16)
# was: sw _size_reg_59_, 0(_letBind_58_)
addi $2, $16, 4
# was: addi _addr_reg_60_, _letBind_58_, 4
ori $3, $0, 0
# was: ori _tmp_reg_61_, $0, 0
sw $3, 0($2)
# was: sw _tmp_reg_61_, 0(_addr_reg_60_)
addi $2, $2, 4
# was: addi _addr_reg_60_, _addr_reg_60_, 4
ori $3, $0, 0
# was: ori _tmp_reg_61_, $0, 0
sw $3, 0($2)
# was: sw _tmp_reg_61_, 0(_addr_reg_60_)
addi $2, $2, 4
# was: addi _addr_reg_60_, _addr_reg_60_, 4
ori $3, $0, 0
# was: ori _tmp_reg_61_, $0, 0
sw $3, 0($2)
# was: sw _tmp_reg_61_, 0(_addr_reg_60_)
addi $2, $2, 4
# was: addi _addr_reg_60_, _addr_reg_60_, 4
ori $3, $0, 0
# was: ori _tmp_reg_61_, $0, 0
sw $3, 0($2)
# was: sw _tmp_reg_61_, 0(_addr_reg_60_)
addi $2, $2, 4
# was: addi _addr_reg_60_, _addr_reg_60_, 4
ori $3, $5, 0
# was: ori _arr_reg_64_, _letBind_35_, 0
lw $2, 0($3)
# was: lw _size_reg_65_, 0(_arr_reg_64_)
# ori _letBind_63_,_letBind_58_,0
addi $3, $3, 4
# was: addi _arr_reg_64_, _arr_reg_64_, 4
ori $4, $0, 0
# was: ori _ind_var_66_, $0, 0
_loop_beg_68_:
sub $6, $4, $2
# was: sub _tmp_reg_67_, _ind_var_66_, _size_reg_65_
bgez $6, _loop_end_69_
# was: bgez _tmp_reg_67_, _loop_end_69_
lw $6, 0($3)
# was: lw _tmp_reg_67_, 0(_arr_reg_64_)
addi $3, $3, 4
# was: addi _arr_reg_64_, _arr_reg_64_, 4
ori $5, $0, 0
# was: ori _arr_ind_72_, $0, 0
addi $7, $16, 4
# was: addi _arr_reg_73_, _letBind_63_, 4
lw $8, 0($16)
# was: lw _size_reg_74_, 0(_letBind_63_)
bgez $5, _safe_lab_77_
# was: bgez _arr_ind_72_, _safe_lab_77_
_error_lab_76_:
ori $5, $0, 28
# was: ori $5, $0, 28
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_77_:
sub $8, $5, $8
# was: sub _tmp_reg_75_, _arr_ind_72_, _size_reg_74_
bgez $8, _error_lab_76_
# was: bgez _tmp_reg_75_, _error_lab_76_
sll $5, $5, 2
# was: sll _arr_ind_72_, _arr_ind_72_, 2
add $7, $7, $5
# was: add _arr_reg_73_, _arr_reg_73_, _arr_ind_72_
lw $9, 0($7)
# was: lw _letBind_71_, 0(_arr_reg_73_)
ori $7, $0, 0
# was: ori _arr_ind_79_, $0, 0
addi $5, $6, 4
# was: addi _arr_reg_80_, _tmp_reg_67_, 4
lw $8, 0($6)
# was: lw _size_reg_81_, 0(_tmp_reg_67_)
bgez $7, _safe_lab_84_
# was: bgez _arr_ind_79_, _safe_lab_84_
_error_lab_83_:
ori $5, $0, 28
# was: ori $5, $0, 28
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_84_:
sub $8, $7, $8
# was: sub _tmp_reg_82_, _arr_ind_79_, _size_reg_81_
bgez $8, _error_lab_83_
# was: bgez _tmp_reg_82_, _error_lab_83_
sll $7, $7, 2
# was: sll _arr_ind_79_, _arr_ind_79_, 2
add $5, $5, $7
# was: add _arr_reg_80_, _arr_reg_80_, _arr_ind_79_
lw $5, 0($5)
# was: lw _letBind_78_, 0(_arr_reg_80_)
# ori _lt_L_90_,_letBind_71_,0
# ori _lt_R_91_,_letBind_78_,0
slt $7, $9, $5
# was: slt _cond_89_, _lt_L_90_, _lt_R_91_
bne $7, $0, _then_86_
# was: bne _cond_89_, $0, _then_86_
j _else_87_
_then_86_:
ori $9, $5, 0
# was: ori _letBind_85_, _letBind_78_, 0
j _endif_88_
_else_87_:
# ori _letBind_85_,_letBind_71_,0
_endif_88_:
ori $5, $0, 2
# was: ori _arr_ind_95_, $0, 2
addi $7, $16, 4
# was: addi _arr_reg_96_, _letBind_63_, 4
lw $8, 0($16)
# was: lw _size_reg_97_, 0(_letBind_63_)
bgez $5, _safe_lab_100_
# was: bgez _arr_ind_95_, _safe_lab_100_
_error_lab_99_:
ori $5, $0, 28
# was: ori $5, $0, 28
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_100_:
sub $8, $5, $8
# was: sub _tmp_reg_98_, _arr_ind_95_, _size_reg_97_
bgez $8, _error_lab_99_
# was: bgez _tmp_reg_98_, _error_lab_99_
sll $5, $5, 2
# was: sll _arr_ind_95_, _arr_ind_95_, 2
add $7, $7, $5
# was: add _arr_reg_96_, _arr_reg_96_, _arr_ind_95_
lw $8, 0($7)
# was: lw _plus_L_93_, 0(_arr_reg_96_)
ori $5, $0, 1
# was: ori _arr_ind_101_, $0, 1
addi $7, $6, 4
# was: addi _arr_reg_102_, _tmp_reg_67_, 4
lw $10, 0($6)
# was: lw _size_reg_103_, 0(_tmp_reg_67_)
bgez $5, _safe_lab_106_
# was: bgez _arr_ind_101_, _safe_lab_106_
_error_lab_105_:
ori $5, $0, 28
# was: ori $5, $0, 28
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_106_:
sub $10, $5, $10
# was: sub _tmp_reg_104_, _arr_ind_101_, _size_reg_103_
bgez $10, _error_lab_105_
# was: bgez _tmp_reg_104_, _error_lab_105_
sll $5, $5, 2
# was: sll _arr_ind_101_, _arr_ind_101_, 2
add $7, $7, $5
# was: add _arr_reg_102_, _arr_reg_102_, _arr_ind_101_
lw $5, 0($7)
# was: lw _plus_R_94_, 0(_arr_reg_102_)
add $5, $8, $5
# was: add _letBind_92_, _plus_L_93_, _plus_R_94_
# ori _lt_L_112_,_letBind_85_,0
# ori _lt_R_113_,_letBind_92_,0
slt $7, $9, $5
# was: slt _cond_111_, _lt_L_112_, _lt_R_113_
bne $7, $0, _then_108_
# was: bne _cond_111_, $0, _then_108_
j _else_109_
_then_108_:
# ori _letBind_107_,_letBind_92_,0
j _endif_110_
_else_109_:
ori $5, $9, 0
# was: ori _letBind_107_, _letBind_85_, 0
_endif_110_:
ori $7, $0, 1
# was: ori _arr_ind_115_, $0, 1
addi $8, $16, 4
# was: addi _arr_reg_116_, _letBind_63_, 4
lw $9, 0($16)
# was: lw _size_reg_117_, 0(_letBind_63_)
bgez $7, _safe_lab_120_
# was: bgez _arr_ind_115_, _safe_lab_120_
_error_lab_119_:
ori $5, $0, 29
# was: ori $5, $0, 29
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_120_:
sub $9, $7, $9
# was: sub _tmp_reg_118_, _arr_ind_115_, _size_reg_117_
bgez $9, _error_lab_119_
# was: bgez _tmp_reg_118_, _error_lab_119_
sll $7, $7, 2
# was: sll _arr_ind_115_, _arr_ind_115_, 2
add $8, $8, $7
# was: add _arr_reg_116_, _arr_reg_116_, _arr_ind_115_
lw $7, 0($8)
# was: lw _letBind_114_, 0(_arr_reg_116_)
ori $9, $0, 3
# was: ori _arr_ind_124_, $0, 3
addi $10, $16, 4
# was: addi _arr_reg_125_, _letBind_63_, 4
lw $8, 0($16)
# was: lw _size_reg_126_, 0(_letBind_63_)
bgez $9, _safe_lab_129_
# was: bgez _arr_ind_124_, _safe_lab_129_
_error_lab_128_:
ori $5, $0, 29
# was: ori $5, $0, 29
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_129_:
sub $8, $9, $8
# was: sub _tmp_reg_127_, _arr_ind_124_, _size_reg_126_
bgez $8, _error_lab_128_
# was: bgez _tmp_reg_127_, _error_lab_128_
sll $9, $9, 2
# was: sll _arr_ind_124_, _arr_ind_124_, 2
add $10, $10, $9
# was: add _arr_reg_125_, _arr_reg_125_, _arr_ind_124_
lw $9, 0($10)
# was: lw _plus_L_122_, 0(_arr_reg_125_)
ori $8, $0, 1
# was: ori _arr_ind_130_, $0, 1
addi $10, $6, 4
# was: addi _arr_reg_131_, _tmp_reg_67_, 4
lw $11, 0($6)
# was: lw _size_reg_132_, 0(_tmp_reg_67_)
bgez $8, _safe_lab_135_
# was: bgez _arr_ind_130_, _safe_lab_135_
_error_lab_134_:
ori $5, $0, 29
# was: ori $5, $0, 29
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_135_:
sub $11, $8, $11
# was: sub _tmp_reg_133_, _arr_ind_130_, _size_reg_132_
bgez $11, _error_lab_134_
# was: bgez _tmp_reg_133_, _error_lab_134_
sll $8, $8, 2
# was: sll _arr_ind_130_, _arr_ind_130_, 2
add $10, $10, $8
# was: add _arr_reg_131_, _arr_reg_131_, _arr_ind_130_
lw $8, 0($10)
# was: lw _plus_R_123_, 0(_arr_reg_131_)
add $8, $9, $8
# was: add _letBind_121_, _plus_L_122_, _plus_R_123_
# ori _lt_L_141_,_letBind_114_,0
# ori _lt_R_142_,_letBind_121_,0
slt $9, $7, $8
# was: slt _cond_140_, _lt_L_141_, _lt_R_142_
bne $9, $0, _then_137_
# was: bne _cond_140_, $0, _then_137_
j _else_138_
_then_137_:
ori $7, $8, 0
# was: ori _letBind_136_, _letBind_121_, 0
j _endif_139_
_else_138_:
# ori _letBind_136_,_letBind_114_,0
_endif_139_:
ori $8, $0, 2
# was: ori _arr_ind_146_, $0, 2
addi $9, $16, 4
# was: addi _arr_reg_147_, _letBind_63_, 4
lw $10, 0($16)
# was: lw _size_reg_148_, 0(_letBind_63_)
bgez $8, _safe_lab_151_
# was: bgez _arr_ind_146_, _safe_lab_151_
_error_lab_150_:
ori $5, $0, 30
# was: ori $5, $0, 30
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_151_:
sub $10, $8, $10
# was: sub _tmp_reg_149_, _arr_ind_146_, _size_reg_148_
bgez $10, _error_lab_150_
# was: bgez _tmp_reg_149_, _error_lab_150_
sll $8, $8, 2
# was: sll _arr_ind_146_, _arr_ind_146_, 2
add $9, $9, $8
# was: add _arr_reg_147_, _arr_reg_147_, _arr_ind_146_
lw $8, 0($9)
# was: lw _plus_L_144_, 0(_arr_reg_147_)
ori $9, $0, 3
# was: ori _arr_ind_152_, $0, 3
addi $10, $6, 4
# was: addi _arr_reg_153_, _tmp_reg_67_, 4
lw $11, 0($6)
# was: lw _size_reg_154_, 0(_tmp_reg_67_)
bgez $9, _safe_lab_157_
# was: bgez _arr_ind_152_, _safe_lab_157_
_error_lab_156_:
ori $5, $0, 30
# was: ori $5, $0, 30
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_157_:
sub $11, $9, $11
# was: sub _tmp_reg_155_, _arr_ind_152_, _size_reg_154_
bgez $11, _error_lab_156_
# was: bgez _tmp_reg_155_, _error_lab_156_
sll $9, $9, 2
# was: sll _arr_ind_152_, _arr_ind_152_, 2
add $10, $10, $9
# was: add _arr_reg_153_, _arr_reg_153_, _arr_ind_152_
lw $9, 0($10)
# was: lw _plus_R_145_, 0(_arr_reg_153_)
add $8, $8, $9
# was: add _letBind_143_, _plus_L_144_, _plus_R_145_
ori $9, $0, 2
# was: ori _arr_ind_159_, $0, 2
addi $10, $6, 4
# was: addi _arr_reg_160_, _tmp_reg_67_, 4
lw $11, 0($6)
# was: lw _size_reg_161_, 0(_tmp_reg_67_)
bgez $9, _safe_lab_164_
# was: bgez _arr_ind_159_, _safe_lab_164_
_error_lab_163_:
ori $5, $0, 30
# was: ori $5, $0, 30
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_164_:
sub $11, $9, $11
# was: sub _tmp_reg_162_, _arr_ind_159_, _size_reg_161_
bgez $11, _error_lab_163_
# was: bgez _tmp_reg_162_, _error_lab_163_
sll $9, $9, 2
# was: sll _arr_ind_159_, _arr_ind_159_, 2
add $10, $10, $9
# was: add _arr_reg_160_, _arr_reg_160_, _arr_ind_159_
lw $9, 0($10)
# was: lw _letBind_158_, 0(_arr_reg_160_)
# ori _lt_L_170_,_letBind_143_,0
# ori _lt_R_171_,_letBind_158_,0
slt $10, $8, $9
# was: slt _cond_169_, _lt_L_170_, _lt_R_171_
bne $10, $0, _then_166_
# was: bne _cond_169_, $0, _then_166_
j _else_167_
_then_166_:
ori $8, $9, 0
# was: ori _letBind_165_, _letBind_158_, 0
j _endif_168_
_else_167_:
# ori _letBind_165_,_letBind_143_,0
_endif_168_:
ori $10, $0, 3
# was: ori _arr_ind_175_, $0, 3
addi $9, $16, 4
# was: addi _arr_reg_176_, _letBind_63_, 4
lw $11, 0($16)
# was: lw _size_reg_177_, 0(_letBind_63_)
bgez $10, _safe_lab_180_
# was: bgez _arr_ind_175_, _safe_lab_180_
_error_lab_179_:
ori $5, $0, 31
# was: ori $5, $0, 31
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_180_:
sub $11, $10, $11
# was: sub _tmp_reg_178_, _arr_ind_175_, _size_reg_177_
bgez $11, _error_lab_179_
# was: bgez _tmp_reg_178_, _error_lab_179_
sll $10, $10, 2
# was: sll _arr_ind_175_, _arr_ind_175_, 2
add $9, $9, $10
# was: add _arr_reg_176_, _arr_reg_176_, _arr_ind_175_
lw $11, 0($9)
# was: lw _plus_L_173_, 0(_arr_reg_176_)
ori $9, $0, 3
# was: ori _arr_ind_181_, $0, 3
addi $10, $6, 4
# was: addi _arr_reg_182_, _tmp_reg_67_, 4
lw $6, 0($6)
# was: lw _size_reg_183_, 0(_tmp_reg_67_)
bgez $9, _safe_lab_186_
# was: bgez _arr_ind_181_, _safe_lab_186_
_error_lab_185_:
ori $5, $0, 31
# was: ori $5, $0, 31
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_186_:
sub $6, $9, $6
# was: sub _tmp_reg_184_, _arr_ind_181_, _size_reg_183_
bgez $6, _error_lab_185_
# was: bgez _tmp_reg_184_, _error_lab_185_
sll $9, $9, 2
# was: sll _arr_ind_181_, _arr_ind_181_, 2
add $10, $10, $9
# was: add _arr_reg_182_, _arr_reg_182_, _arr_ind_181_
lw $6, 0($10)
# was: lw _plus_R_174_, 0(_arr_reg_182_)
add $9, $11, $6
# was: add _letBind_172_, _plus_L_173_, _plus_R_174_
ori $10, $0, 4
# was: ori _size_reg_187_, $0, 4
ori $16, $28, 0
# was: ori _fun_arg_res_70_, $28, 0
sll $6, $10, 2
# was: sll _tmp_190_, _size_reg_187_, 2
addi $6, $6, 4
# was: addi _tmp_190_, _tmp_190_, 4
add $28, $28, $6
# was: add $28, $28, _tmp_190_
sw $10, 0($16)
# was: sw _size_reg_187_, 0(_fun_arg_res_70_)
addi $6, $16, 4
# was: addi _addr_reg_188_, _fun_arg_res_70_, 4
# ori _tmp_reg_189_,_letBind_107_,0
sw $5, 0($6)
# was: sw _tmp_reg_189_, 0(_addr_reg_188_)
addi $6, $6, 4
# was: addi _addr_reg_188_, _addr_reg_188_, 4
ori $5, $7, 0
# was: ori _tmp_reg_189_, _letBind_136_, 0
sw $5, 0($6)
# was: sw _tmp_reg_189_, 0(_addr_reg_188_)
addi $6, $6, 4
# was: addi _addr_reg_188_, _addr_reg_188_, 4
ori $5, $8, 0
# was: ori _tmp_reg_189_, _letBind_165_, 0
sw $5, 0($6)
# was: sw _tmp_reg_189_, 0(_addr_reg_188_)
addi $6, $6, 4
# was: addi _addr_reg_188_, _addr_reg_188_, 4
ori $5, $9, 0
# was: ori _tmp_reg_189_, _letBind_172_, 0
sw $5, 0($6)
# was: sw _tmp_reg_189_, 0(_addr_reg_188_)
addi $6, $6, 4
# was: addi _addr_reg_188_, _addr_reg_188_, 4
# ori _letBind_63_,_fun_arg_res_70_,0
addi $4, $4, 1
# was: addi _ind_var_66_, _ind_var_66_, 1
j _loop_beg_68_
_loop_end_69_:
la $2, _aaMSSPa_193_
# was: la _tmp_192_, _aaMSSPa_193_
# _aaMSSPa_193_: string "\n\nMSSP result is: "
# ori _letBind_191_,_tmp_192_,0
# ori $2,_tmp_192_,0
jal putstring
# was: jal putstring, $2
ori $3, $0, 0
# was: ori _arr_ind_195_, $0, 0
addi $2, $16, 4
# was: addi _arr_reg_196_, _letBind_63_, 4
lw $4, 0($16)
# was: lw _size_reg_197_, 0(_letBind_63_)
bgez $3, _safe_lab_200_
# was: bgez _arr_ind_195_, _safe_lab_200_
_error_lab_199_:
ori $5, $0, 44
# was: ori $5, $0, 44
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_200_:
sub $4, $3, $4
# was: sub _tmp_reg_198_, _arr_ind_195_, _size_reg_197_
bgez $4, _error_lab_199_
# was: bgez _tmp_reg_198_, _error_lab_199_
sll $3, $3, 2
# was: sll _arr_ind_195_, _arr_ind_195_, 2
add $2, $2, $3
# was: add _arr_reg_196_, _arr_reg_196_, _arr_ind_195_
lw $16, 0($2)
# was: lw _tmp_194_, 0(_arr_reg_196_)
# ori _mainres_1_,_tmp_194_,0
ori $2, $16, 0
# was: ori $2, _mainres_1_, 0
jal putint
# was: jal putint, $2
ori $2, $16, 0
# was: ori $2, _mainres_1_, 0
addi $29, $29, 32
lw $21, -28($29)
lw $20, -24($29)
lw $19, -20($29)
lw $18, -16($29)
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_aaMSSPa_193_:
.space 4
.asciiz "\n\nMSSP result is: "
.align 2
_a__str__33_:
.space 4
.asciiz "\n"
.align 2
_aa__str_29_:
.space 4
.asciiz ": "
.align 2
_Introdu_24_:
.space 4
.asciiz "Introduce number "
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

44
W2/fasto/tests/io_mssp.fo Normal file
View File

@ -0,0 +1,44 @@
fun int read_int(int i) =
let t = write("Introduce number ") in
let t = write(i) in
let t = write(": ") in
let m = read(int) in
let t = write("\n") in
m
fun [int] read_int_arr(int n) =
let itsp = iota(n) in
map(read_int, itsp)
fun int write_int(int i) = write(i)
fun bool write_int_arr([int] arr) =
let a = write(" { ") in
let v = map(write_int, arr) in
let a = write(" }\n") in
true
fun int max(int x, int y) = if (x < y) then y else x
fun [int] mapper(int x) =
let xm = max(x, 0) in
{xm, xm, xm, x}
fun [int] reducer([int] a, [int] b) =
let mss = max(max(a[0], b[0]), a[2] + b[1]) in
let mis = max(a[1], a[3] + b[1]) in
let mcs = max(a[2] + b[3], b[2]) in
let ts = a[3] + b[3]
in {mss, mis, mcs, ts}
fun [int] mssp(int n) =
let in_arr = read_int_arr(n) in
// let inarr = {1, 0 - 2, 3, 4, 0 - 1, 5, 0 - 6, 1} in
let map_arr = map(mapper, in_arr) in
let ne = {0, 0, 0, 0}
in reduce(reducer, ne, map_arr)
fun int main() =
let arr = mssp(8) in
let t = write("\n\nMSSP result is: ") in
write(arr[0])

8
W2/fasto/tests/io_mssp.in Normal file
View File

@ -0,0 +1,8 @@
1
-2
3
4
-1
5
-6
1

11
W2/fasto/tests/io_mssp.out Normal file
View File

@ -0,0 +1,11 @@
Introduce number 0 :
Introduce number 1 :
Introduce number 2 :
Introduce number 3 :
Introduce number 4 :
Introduce number 5 :
Introduce number 6 :
Introduce number 7 :
MSSP result is: 11

393
W2/fasto/tests/iota.asm Normal file
View File

@ -0,0 +1,393 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function main
main:
sw $31, -4($29)
sw $16, -8($29)
addi $29, $29, -12
ori $2, $0, 7
# was: ori _size_reg_3_, $0, 7
bgez $2, _safe_lab_4_
# was: bgez _size_reg_3_, _safe_lab_4_
ori $5, $0, 2
# was: ori $5, $0, 2
la $6, _Msg_IllegalArraySize_
# was: la $6, _Msg_IllegalArraySize_
j _RuntimeError_
_safe_lab_4_:
ori $16, $28, 0
# was: ori _letBind_2_, $28, 0
sll $3, $2, 2
# was: sll _tmp_10_, _size_reg_3_, 2
addi $3, $3, 4
# was: addi _tmp_10_, _tmp_10_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_10_
sw $2, 0($16)
# was: sw _size_reg_3_, 0(_letBind_2_)
addi $4, $16, 4
# was: addi _addr_reg_5_, _letBind_2_, 4
ori $3, $0, 0
# was: ori _i_reg_6_, $0, 0
_loop_beg_7_:
sub $5, $3, $2
# was: sub _tmp_reg_9_, _i_reg_6_, _size_reg_3_
bgez $5, _loop_end_8_
# was: bgez _tmp_reg_9_, _loop_end_8_
sw $3, 0($4)
# was: sw _i_reg_6_, 0(_addr_reg_5_)
addi $4, $4, 4
# was: addi _addr_reg_5_, _addr_reg_5_, 4
addi $3, $3, 1
# was: addi _i_reg_6_, _i_reg_6_, 1
j _loop_beg_7_
_loop_end_8_:
ori $2, $0, 0
# was: ori _arr_ind_13_, $0, 0
addi $3, $16, 4
# was: addi _arr_reg_14_, _letBind_2_, 4
lw $4, 0($16)
# was: lw _size_reg_15_, 0(_letBind_2_)
bgez $2, _safe_lab_18_
# was: bgez _arr_ind_13_, _safe_lab_18_
_error_lab_17_:
ori $5, $0, 3
# was: ori $5, $0, 3
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_18_:
sub $4, $2, $4
# was: sub _tmp_reg_16_, _arr_ind_13_, _size_reg_15_
bgez $4, _error_lab_17_
# was: bgez _tmp_reg_16_, _error_lab_17_
sll $2, $2, 2
# was: sll _arr_ind_13_, _arr_ind_13_, 2
add $3, $3, $2
# was: add _arr_reg_14_, _arr_reg_14_, _arr_ind_13_
lw $2, 0($3)
# was: lw _tmp_12_, 0(_arr_reg_14_)
# ori _letBind_11_,_tmp_12_,0
# ori $2,_letBind_11_,0
jal putint
# was: jal putint, $2
ori $3, $0, 1
# was: ori _arr_ind_21_, $0, 1
addi $2, $16, 4
# was: addi _arr_reg_22_, _letBind_2_, 4
lw $4, 0($16)
# was: lw _size_reg_23_, 0(_letBind_2_)
bgez $3, _safe_lab_26_
# was: bgez _arr_ind_21_, _safe_lab_26_
_error_lab_25_:
ori $5, $0, 4
# was: ori $5, $0, 4
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_26_:
sub $4, $3, $4
# was: sub _tmp_reg_24_, _arr_ind_21_, _size_reg_23_
bgez $4, _error_lab_25_
# was: bgez _tmp_reg_24_, _error_lab_25_
sll $3, $3, 2
# was: sll _arr_ind_21_, _arr_ind_21_, 2
add $2, $2, $3
# was: add _arr_reg_22_, _arr_reg_22_, _arr_ind_21_
lw $2, 0($2)
# was: lw _tmp_20_, 0(_arr_reg_22_)
# ori _letBind_19_,_tmp_20_,0
# ori $2,_letBind_19_,0
jal putint
# was: jal putint, $2
ori $2, $0, 2
# was: ori _arr_ind_29_, $0, 2
addi $3, $16, 4
# was: addi _arr_reg_30_, _letBind_2_, 4
lw $4, 0($16)
# was: lw _size_reg_31_, 0(_letBind_2_)
bgez $2, _safe_lab_34_
# was: bgez _arr_ind_29_, _safe_lab_34_
_error_lab_33_:
ori $5, $0, 5
# was: ori $5, $0, 5
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_34_:
sub $4, $2, $4
# was: sub _tmp_reg_32_, _arr_ind_29_, _size_reg_31_
bgez $4, _error_lab_33_
# was: bgez _tmp_reg_32_, _error_lab_33_
sll $2, $2, 2
# was: sll _arr_ind_29_, _arr_ind_29_, 2
add $3, $3, $2
# was: add _arr_reg_30_, _arr_reg_30_, _arr_ind_29_
lw $2, 0($3)
# was: lw _tmp_28_, 0(_arr_reg_30_)
# ori _letBind_27_,_tmp_28_,0
# ori $2,_letBind_27_,0
jal putint
# was: jal putint, $2
ori $2, $0, 3
# was: ori _arr_ind_37_, $0, 3
addi $3, $16, 4
# was: addi _arr_reg_38_, _letBind_2_, 4
lw $4, 0($16)
# was: lw _size_reg_39_, 0(_letBind_2_)
bgez $2, _safe_lab_42_
# was: bgez _arr_ind_37_, _safe_lab_42_
_error_lab_41_:
ori $5, $0, 6
# was: ori $5, $0, 6
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_42_:
sub $4, $2, $4
# was: sub _tmp_reg_40_, _arr_ind_37_, _size_reg_39_
bgez $4, _error_lab_41_
# was: bgez _tmp_reg_40_, _error_lab_41_
sll $2, $2, 2
# was: sll _arr_ind_37_, _arr_ind_37_, 2
add $3, $3, $2
# was: add _arr_reg_38_, _arr_reg_38_, _arr_ind_37_
lw $2, 0($3)
# was: lw _tmp_36_, 0(_arr_reg_38_)
# ori _letBind_35_,_tmp_36_,0
# ori $2,_letBind_35_,0
jal putint
# was: jal putint, $2
ori $2, $0, 4
# was: ori _arr_ind_45_, $0, 4
addi $3, $16, 4
# was: addi _arr_reg_46_, _letBind_2_, 4
lw $4, 0($16)
# was: lw _size_reg_47_, 0(_letBind_2_)
bgez $2, _safe_lab_50_
# was: bgez _arr_ind_45_, _safe_lab_50_
_error_lab_49_:
ori $5, $0, 7
# was: ori $5, $0, 7
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_50_:
sub $4, $2, $4
# was: sub _tmp_reg_48_, _arr_ind_45_, _size_reg_47_
bgez $4, _error_lab_49_
# was: bgez _tmp_reg_48_, _error_lab_49_
sll $2, $2, 2
# was: sll _arr_ind_45_, _arr_ind_45_, 2
add $3, $3, $2
# was: add _arr_reg_46_, _arr_reg_46_, _arr_ind_45_
lw $2, 0($3)
# was: lw _tmp_44_, 0(_arr_reg_46_)
# ori _letBind_43_,_tmp_44_,0
# ori $2,_letBind_43_,0
jal putint
# was: jal putint, $2
ori $2, $0, 5
# was: ori _arr_ind_53_, $0, 5
addi $3, $16, 4
# was: addi _arr_reg_54_, _letBind_2_, 4
lw $4, 0($16)
# was: lw _size_reg_55_, 0(_letBind_2_)
bgez $2, _safe_lab_58_
# was: bgez _arr_ind_53_, _safe_lab_58_
_error_lab_57_:
ori $5, $0, 8
# was: ori $5, $0, 8
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_58_:
sub $4, $2, $4
# was: sub _tmp_reg_56_, _arr_ind_53_, _size_reg_55_
bgez $4, _error_lab_57_
# was: bgez _tmp_reg_56_, _error_lab_57_
sll $2, $2, 2
# was: sll _arr_ind_53_, _arr_ind_53_, 2
add $3, $3, $2
# was: add _arr_reg_54_, _arr_reg_54_, _arr_ind_53_
lw $2, 0($3)
# was: lw _tmp_52_, 0(_arr_reg_54_)
# ori _letBind_51_,_tmp_52_,0
# ori $2,_letBind_51_,0
jal putint
# was: jal putint, $2
ori $2, $0, 6
# was: ori _arr_ind_61_, $0, 6
addi $3, $16, 4
# was: addi _arr_reg_62_, _letBind_2_, 4
lw $4, 0($16)
# was: lw _size_reg_63_, 0(_letBind_2_)
bgez $2, _safe_lab_66_
# was: bgez _arr_ind_61_, _safe_lab_66_
_error_lab_65_:
ori $5, $0, 9
# was: ori $5, $0, 9
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_66_:
sub $4, $2, $4
# was: sub _tmp_reg_64_, _arr_ind_61_, _size_reg_63_
bgez $4, _error_lab_65_
# was: bgez _tmp_reg_64_, _error_lab_65_
sll $2, $2, 2
# was: sll _arr_ind_61_, _arr_ind_61_, 2
add $3, $3, $2
# was: add _arr_reg_62_, _arr_reg_62_, _arr_ind_61_
lw $2, 0($3)
# was: lw _tmp_60_, 0(_arr_reg_62_)
# ori _letBind_59_,_tmp_60_,0
# ori $2,_letBind_59_,0
jal putint
# was: jal putint, $2
ori $2, $0, 0
# was: ori _mainres_1_, $0, 0
# ori $2,_mainres_1_,0
addi $29, $29, 12
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

10
W2/fasto/tests/iota.fo Normal file
View File

@ -0,0 +1,10 @@
fun int main() =
let a = iota(7) in
let tmp = write(a[0]) in
let tmp = write(a[1]) in
let tmp = write(a[2]) in
let tmp = write(a[3]) in
let tmp = write(a[4]) in
let tmp = write(a[5]) in
let tmp = write(a[6]) in
0

0
W2/fasto/tests/iota.in Normal file
View File

1
W2/fasto/tests/iota.out Normal file
View File

@ -0,0 +1 @@
0 1 2 3 4 5 6

368
W2/fasto/tests/lambda.asm Normal file
View File

@ -0,0 +1,368 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _a__str__45_
# was: la _a__str__45__addr, _a__str__45_
ori $3, $0, 1
# was: ori _a__str__45__init, $0, 1
sw $3, 0($4)
# was: sw _a__str__45__init, 0(_a__str__45__addr)
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function write_int
write_int:
sw $31, -4($29)
sw $16, -8($29)
addi $29, $29, -12
# ori _param_x_1_,$2,0
ori $16, $2, 0
# was: ori _tmp_3_, _param_x_1_, 0
# ori _write_intres_2_,_tmp_3_,0
ori $2, $16, 0
# was: ori $2, _write_intres_2_, 0
jal putint
# was: jal putint, $2
ori $2, $16, 0
# was: ori $2, _write_intres_2_, 0
addi $29, $29, 12
lw $16, -8($29)
lw $31, -4($29)
jr $31
# Function write_int_arr
write_int_arr:
sw $31, -4($29)
sw $20, -24($29)
sw $19, -20($29)
sw $18, -16($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -28
# ori _param_x_4_,$2,0
# ori _arr_reg_7_,_param_x_4_,0
lw $16, 0($2)
# was: lw _size_reg_6_, 0(_arr_reg_7_)
ori $17, $28, 0
# was: ori _write_int_arrres_5_, $28, 0
sll $3, $16, 2
# was: sll _tmp_16_, _size_reg_6_, 2
addi $3, $3, 4
# was: addi _tmp_16_, _tmp_16_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_16_
sw $16, 0($17)
# was: sw _size_reg_6_, 0(_write_int_arrres_5_)
addi $18, $17, 4
# was: addi _addr_reg_10_, _write_int_arrres_5_, 4
ori $19, $0, 0
# was: ori _i_reg_11_, $0, 0
addi $20, $2, 4
# was: addi _elem_reg_8_, _arr_reg_7_, 4
_loop_beg_12_:
sub $2, $19, $16
# was: sub _tmp_reg_14_, _i_reg_11_, _size_reg_6_
bgez $2, _loop_end_13_
# was: bgez _tmp_reg_14_, _loop_end_13_
lw $2, 0($20)
# was: lw _res_reg_9_, 0(_elem_reg_8_)
addi $20, $20, 4
# was: addi _elem_reg_8_, _elem_reg_8_, 4
# ori $2,_res_reg_9_,0
jal write_int
# was: jal write_int, $2
# ori _tmp_reg_15_,$2,0
# ori _res_reg_9_,_tmp_reg_15_,0
sw $2, 0($18)
# was: sw _res_reg_9_, 0(_addr_reg_10_)
addi $18, $18, 4
# was: addi _addr_reg_10_, _addr_reg_10_, 4
addi $19, $19, 1
# was: addi _i_reg_11_, _i_reg_11_, 1
j _loop_beg_12_
_loop_end_13_:
ori $2, $17, 0
# was: ori $2, _write_int_arrres_5_, 0
addi $29, $29, 28
lw $20, -24($29)
lw $19, -20($29)
lw $18, -16($29)
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
# Function main
main:
sw $31, -4($29)
sw $16, -8($29)
addi $29, $29, -12
jal getint
# was: jal getint, $2
# ori _letBind_18_,$2,0
ori $5, $2, 0
# was: ori _size_reg_20_, _letBind_18_, 0
bgez $5, _safe_lab_21_
# was: bgez _size_reg_20_, _safe_lab_21_
ori $5, $0, 7
# was: ori $5, $0, 7
la $6, _Msg_IllegalArraySize_
# was: la $6, _Msg_IllegalArraySize_
j _RuntimeError_
_safe_lab_21_:
ori $6, $28, 0
# was: ori _letBind_19_, $28, 0
sll $2, $5, 2
# was: sll _tmp_27_, _size_reg_20_, 2
addi $2, $2, 4
# was: addi _tmp_27_, _tmp_27_, 4
add $28, $28, $2
# was: add $28, $28, _tmp_27_
sw $5, 0($6)
# was: sw _size_reg_20_, 0(_letBind_19_)
addi $2, $6, 4
# was: addi _addr_reg_22_, _letBind_19_, 4
ori $4, $0, 0
# was: ori _i_reg_23_, $0, 0
_loop_beg_24_:
sub $3, $4, $5
# was: sub _tmp_reg_26_, _i_reg_23_, _size_reg_20_
bgez $3, _loop_end_25_
# was: bgez _tmp_reg_26_, _loop_end_25_
sw $4, 0($2)
# was: sw _i_reg_23_, 0(_addr_reg_22_)
addi $2, $2, 4
# was: addi _addr_reg_22_, _addr_reg_22_, 4
addi $4, $4, 1
# was: addi _i_reg_23_, _i_reg_23_, 1
j _loop_beg_24_
_loop_end_25_:
# ori _arr_reg_31_,_letBind_19_,0
lw $2, 0($6)
# was: lw _size_reg_30_, 0(_arr_reg_31_)
ori $3, $28, 0
# was: ori _arg_29_, $28, 0
sll $4, $2, 2
# was: sll _tmp_42_, _size_reg_30_, 2
addi $4, $4, 4
# was: addi _tmp_42_, _tmp_42_, 4
add $28, $28, $4
# was: add $28, $28, _tmp_42_
sw $2, 0($3)
# was: sw _size_reg_30_, 0(_arg_29_)
addi $4, $3, 4
# was: addi _addr_reg_34_, _arg_29_, 4
ori $5, $0, 0
# was: ori _i_reg_35_, $0, 0
addi $6, $6, 4
# was: addi _elem_reg_32_, _arr_reg_31_, 4
_loop_beg_36_:
sub $7, $5, $2
# was: sub _tmp_reg_38_, _i_reg_35_, _size_reg_30_
bgez $7, _loop_end_37_
# was: bgez _tmp_reg_38_, _loop_end_37_
lw $7, 0($6)
# was: lw _res_reg_33_, 0(_elem_reg_32_)
addi $6, $6, 4
# was: addi _elem_reg_32_, _elem_reg_32_, 4
# ori _plus_L_40_,_res_reg_33_,0
ori $8, $0, 2
# was: ori _plus_R_41_, $0, 2
add $7, $7, $8
# was: add _fun_arg_res_39_, _plus_L_40_, _plus_R_41_
# ori _res_reg_33_,_fun_arg_res_39_,0
sw $7, 0($4)
# was: sw _res_reg_33_, 0(_addr_reg_34_)
addi $4, $4, 4
# was: addi _addr_reg_34_, _addr_reg_34_, 4
addi $5, $5, 1
# was: addi _i_reg_35_, _i_reg_35_, 1
j _loop_beg_36_
_loop_end_37_:
ori $2, $3, 0
# was: ori $2, _arg_29_, 0
jal write_int_arr
# was: jal write_int_arr, $2
ori $16, $2, 0
# was: ori _letBind_28_, $2, 0
la $2, _a__str__45_
# was: la _tmp_44_, _a__str__45_
# _a__str__45_: string "\n"
# ori _letBind_43_,_tmp_44_,0
# ori $2,_tmp_44_,0
jal putstring
# was: jal putstring, $2
# ori _arr_reg_47_,_letBind_28_,0
lw $2, 0($16)
# was: lw _size_reg_48_, 0(_arr_reg_47_)
ori $4, $0, 0
# was: ori _arg_46_, $0, 0
addi $16, $16, 4
# was: addi _arr_reg_47_, _arr_reg_47_, 4
ori $3, $0, 0
# was: ori _ind_var_49_, $0, 0
_loop_beg_51_:
sub $5, $3, $2
# was: sub _tmp_reg_50_, _ind_var_49_, _size_reg_48_
bgez $5, _loop_end_52_
# was: bgez _tmp_reg_50_, _loop_end_52_
lw $5, 0($16)
# was: lw _tmp_reg_50_, 0(_arr_reg_47_)
addi $16, $16, 4
# was: addi _arr_reg_47_, _arr_reg_47_, 4
# ori _plus_L_54_,_arg_46_,0
# ori _plus_R_55_,_tmp_reg_50_,0
add $4, $4, $5
# was: add _fun_arg_res_53_, _plus_L_54_, _plus_R_55_
# ori _arg_46_,_fun_arg_res_53_,0
addi $3, $3, 1
# was: addi _ind_var_49_, _ind_var_49_, 1
j _loop_beg_51_
_loop_end_52_:
ori $2, $4, 0
# was: ori $2, _arg_46_, 0
jal write_int
# was: jal write_int, $2
# ori _mainres_17_,$2,0
# ori $2,_mainres_17_,0
addi $29, $29, 12
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_a__str__45_:
.space 4
.asciiz "\n"
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

10
W2/fasto/tests/lambda.fo Normal file
View File

@ -0,0 +1,10 @@
fun int write_int(int x) = write(x)
fun [int] write_int_arr([int] x) = map(write_int, x)
fun int main() =
let N = read(int) in
let z = iota(N) in
let w = write_int_arr(map(fn int (int x) => x + 2, z)) in
let nl = write("\n") in
write_int(reduce(op+, 0, w))

1
W2/fasto/tests/lambda.in Normal file
View File

@ -0,0 +1 @@
10

2
W2/fasto/tests/lambda.out Normal file
View File

@ -0,0 +1,2 @@
2 3 4 5 6 7 8 9 10 11
65

477
W2/fasto/tests/map_red_io.asm Normal file
View File

@ -0,0 +1,477 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _Maxacha_82_
# was: la _Maxacha_82__addr, _Maxacha_82_
ori $3, $0, 10
# was: ori _Maxacha_82__init, $0, 10
sw $3, 0($4)
# was: sw _Maxacha_82__init, 0(_Maxacha_82__addr)
la $4, _a__str__79_
# was: la _a__str__79__addr, _a__str__79_
ori $3, $0, 1
# was: ori _a__str__79__init, $0, 1
sw $3, 0($4)
# was: sw _a__str__79__init, 0(_a__str__79__addr)
la $4, _Sumaa___74_
# was: la _Sumaa___74__addr, _Sumaa___74_
ori $3, $0, 5
# was: ori _Sumaa___74__init, $0, 5
sw $3, 0($4)
# was: sw _Sumaa___74__init, 0(_Sumaa___74__addr)
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function plus100
plus100:
sw $31, -4($29)
addi $29, $29, -8
# ori _param_x_1_,$2,0
# ori _plus_L_3_,_param_x_1_,0
ori $3, $0, 100
# was: ori _plus_R_4_, $0, 100
add $2, $2, $3
# was: add _plus100res_2_, _plus_L_3_, _plus_R_4_
# ori $2,_plus100res_2_,0
addi $29, $29, 8
lw $31, -4($29)
jr $31
# Function read_chr
read_chr:
sw $31, -4($29)
addi $29, $29, -8
# ori _param_i_5_,$2,0
jal getchar
# was: jal getchar, $2
# ori _read_chrres_6_,$2,0
# ori $2,_read_chrres_6_,0
addi $29, $29, 8
lw $31, -4($29)
jr $31
# Function plus
plus:
sw $31, -4($29)
addi $29, $29, -8
# ori _param_x_7_,$2,0
# ori _param_y_8_,$3,0
# ori _plus_L_10_,_param_x_7_,0
# ori _plus_R_11_,_param_y_8_,0
add $2, $2, $3
# was: add _plusres_9_, _plus_L_10_, _plus_R_11_
# ori $2,_plusres_9_,0
addi $29, $29, 8
lw $31, -4($29)
jr $31
# Function max_chr
max_chr:
sw $31, -4($29)
addi $29, $29, -8
# ori _param_a_12_,$2,0
# ori _param_b_13_,$3,0
# ori _lt_L_19_,_param_a_12_,0
# ori _lt_R_20_,_param_b_13_,0
slt $4, $2, $3
# was: slt _cond_18_, _lt_L_19_, _lt_R_20_
bne $4, $0, _then_15_
# was: bne _cond_18_, $0, _then_15_
j _else_16_
_then_15_:
ori $2, $3, 0
# was: ori _max_chrres_14_, _param_b_13_, 0
j _endif_17_
_else_16_:
# ori _max_chrres_14_,_param_a_12_,0
_endif_17_:
# ori $2,_max_chrres_14_,0
addi $29, $29, 8
lw $31, -4($29)
jr $31
# Function main
main:
sw $31, -4($29)
sw $21, -28($29)
sw $20, -24($29)
sw $19, -20($29)
sw $18, -16($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -32
jal getint
# was: jal getint, $2
# ori _letBind_22_,$2,0
# ori _size_reg_24_,_letBind_22_,0
bgez $2, _safe_lab_25_
# was: bgez _size_reg_24_, _safe_lab_25_
ori $5, $0, 10
# was: ori $5, $0, 10
la $6, _Msg_IllegalArraySize_
# was: la $6, _Msg_IllegalArraySize_
j _RuntimeError_
_safe_lab_25_:
ori $16, $28, 0
# was: ori _letBind_23_, $28, 0
sll $3, $2, 2
# was: sll _tmp_31_, _size_reg_24_, 2
addi $3, $3, 4
# was: addi _tmp_31_, _tmp_31_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_31_
sw $2, 0($16)
# was: sw _size_reg_24_, 0(_letBind_23_)
addi $3, $16, 4
# was: addi _addr_reg_26_, _letBind_23_, 4
ori $4, $0, 0
# was: ori _i_reg_27_, $0, 0
_loop_beg_28_:
sub $5, $4, $2
# was: sub _tmp_reg_30_, _i_reg_27_, _size_reg_24_
bgez $5, _loop_end_29_
# was: bgez _tmp_reg_30_, _loop_end_29_
sw $4, 0($3)
# was: sw _i_reg_27_, 0(_addr_reg_26_)
addi $3, $3, 4
# was: addi _addr_reg_26_, _addr_reg_26_, 4
addi $4, $4, 1
# was: addi _i_reg_27_, _i_reg_27_, 1
j _loop_beg_28_
_loop_end_29_:
# ori _arr_reg_34_,_letBind_23_,0
lw $17, 0($16)
# was: lw _size_reg_33_, 0(_arr_reg_34_)
ori $20, $28, 0
# was: ori _letBind_32_, $28, 0
sll $2, $17, 2
# was: sll _tmp_43_, _size_reg_33_, 2
addi $2, $2, 4
# was: addi _tmp_43_, _tmp_43_, 4
add $28, $28, $2
# was: add $28, $28, _tmp_43_
sw $17, 0($20)
# was: sw _size_reg_33_, 0(_letBind_32_)
addi $18, $20, 4
# was: addi _addr_reg_37_, _letBind_32_, 4
ori $19, $0, 0
# was: ori _i_reg_38_, $0, 0
addi $21, $16, 4
# was: addi _elem_reg_35_, _arr_reg_34_, 4
_loop_beg_39_:
sub $2, $19, $17
# was: sub _tmp_reg_41_, _i_reg_38_, _size_reg_33_
bgez $2, _loop_end_40_
# was: bgez _tmp_reg_41_, _loop_end_40_
lw $2, 0($21)
# was: lw _res_reg_36_, 0(_elem_reg_35_)
addi $21, $21, 4
# was: addi _elem_reg_35_, _elem_reg_35_, 4
# ori $2,_res_reg_36_,0
jal plus100
# was: jal plus100, $2
# ori _tmp_reg_42_,$2,0
# ori _res_reg_36_,_tmp_reg_42_,0
sw $2, 0($18)
# was: sw _res_reg_36_, 0(_addr_reg_37_)
addi $18, $18, 4
# was: addi _addr_reg_37_, _addr_reg_37_, 4
addi $19, $19, 1
# was: addi _i_reg_38_, _i_reg_38_, 1
j _loop_beg_39_
_loop_end_40_:
# ori _arr_reg_45_,_letBind_32_,0
lw $18, 0($20)
# was: lw _size_reg_46_, 0(_arr_reg_45_)
ori $17, $0, 0
# was: ori _letBind_44_, $0, 0
addi $20, $20, 4
# was: addi _arr_reg_45_, _arr_reg_45_, 4
ori $19, $0, 0
# was: ori _ind_var_47_, $0, 0
_loop_beg_49_:
sub $3, $19, $18
# was: sub _tmp_reg_48_, _ind_var_47_, _size_reg_46_
bgez $3, _loop_end_50_
# was: bgez _tmp_reg_48_, _loop_end_50_
lw $3, 0($20)
# was: lw _tmp_reg_48_, 0(_arr_reg_45_)
addi $20, $20, 4
# was: addi _arr_reg_45_, _arr_reg_45_, 4
ori $2, $17, 0
# was: ori $2, _letBind_44_, 0
# ori $3,_tmp_reg_48_,0
jal plus
# was: jal plus, $2 $3
# ori _tmp_reg_51_,$2,0
ori $17, $2, 0
# was: ori _letBind_44_, _tmp_reg_51_, 0
addi $19, $19, 1
# was: addi _ind_var_47_, _ind_var_47_, 1
j _loop_beg_49_
_loop_end_50_:
ori $2, $16, 0
# was: ori _arr_reg_54_, _letBind_23_, 0
lw $18, 0($2)
# was: lw _size_reg_53_, 0(_arr_reg_54_)
ori $16, $28, 0
# was: ori _letBind_52_, $28, 0
addi $3, $18, 3
# was: addi _tmp_63_, _size_reg_53_, 3
sra $3, $3, 2
# was: sra _tmp_63_, _tmp_63_, 2
sll $3, $3, 2
# was: sll _tmp_63_, _tmp_63_, 2
addi $3, $3, 4
# was: addi _tmp_63_, _tmp_63_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_63_
sw $18, 0($16)
# was: sw _size_reg_53_, 0(_letBind_52_)
addi $20, $16, 4
# was: addi _addr_reg_57_, _letBind_52_, 4
ori $19, $0, 0
# was: ori _i_reg_58_, $0, 0
addi $21, $2, 4
# was: addi _elem_reg_55_, _arr_reg_54_, 4
_loop_beg_59_:
sub $2, $19, $18
# was: sub _tmp_reg_61_, _i_reg_58_, _size_reg_53_
bgez $2, _loop_end_60_
# was: bgez _tmp_reg_61_, _loop_end_60_
lw $2, 0($21)
# was: lw _res_reg_56_, 0(_elem_reg_55_)
addi $21, $21, 4
# was: addi _elem_reg_55_, _elem_reg_55_, 4
# ori $2,_res_reg_56_,0
jal read_chr
# was: jal read_chr, $2
# ori _tmp_reg_62_,$2,0
# ori _res_reg_56_,_tmp_reg_62_,0
sb $2, 0($20)
# was: sb _res_reg_56_, 0(_addr_reg_57_)
addi $20, $20, 1
# was: addi _addr_reg_57_, _addr_reg_57_, 1
addi $19, $19, 1
# was: addi _i_reg_58_, _i_reg_58_, 1
j _loop_beg_59_
_loop_end_60_:
ori $20, $16, 0
# was: ori _arr_reg_65_, _letBind_52_, 0
lw $19, 0($20)
# was: lw _size_reg_66_, 0(_arr_reg_65_)
ori $18, $0, 97
# was: ori _letBind_64_, $0, 97
addi $20, $20, 4
# was: addi _arr_reg_65_, _arr_reg_65_, 4
ori $21, $0, 0
# was: ori _ind_var_67_, $0, 0
_loop_beg_69_:
sub $3, $21, $19
# was: sub _tmp_reg_68_, _ind_var_67_, _size_reg_66_
bgez $3, _loop_end_70_
# was: bgez _tmp_reg_68_, _loop_end_70_
lb $3, 0($20)
# was: lb _tmp_reg_68_, 0(_arr_reg_65_)
addi $20, $20, 1
# was: addi _arr_reg_65_, _arr_reg_65_, 1
ori $2, $18, 0
# was: ori $2, _letBind_64_, 0
# ori $3,_tmp_reg_68_,0
jal max_chr
# was: jal max_chr, $2 $3
# ori _tmp_reg_71_,$2,0
ori $18, $2, 0
# was: ori _letBind_64_, _tmp_reg_71_, 0
addi $21, $21, 1
# was: addi _ind_var_67_, _ind_var_67_, 1
j _loop_beg_69_
_loop_end_70_:
la $2, _Sumaa___74_
# was: la _tmp_73_, _Sumaa___74_
# _Sumaa___74_: string "Sum: "
# ori _letBind_72_,_tmp_73_,0
# ori $2,_tmp_73_,0
jal putstring
# was: jal putstring, $2
ori $2, $17, 0
# was: ori _tmp_76_, _letBind_44_, 0
# ori _letBind_75_,_tmp_76_,0
# ori $2,_letBind_75_,0
jal putint
# was: jal putint, $2
la $2, _a__str__79_
# was: la _tmp_78_, _a__str__79_
# _a__str__79_: string "\n"
# ori _letBind_77_,_tmp_78_,0
# ori $2,_tmp_78_,0
jal putstring
# was: jal putstring, $2
la $2, _Maxacha_82_
# was: la _tmp_81_, _Maxacha_82_
# _Maxacha_82_: string "Max char: "
# ori _letBind_80_,_tmp_81_,0
# ori $2,_tmp_81_,0
jal putstring
# was: jal putstring, $2
ori $2, $18, 0
# was: ori _tmp_84_, _letBind_64_, 0
# ori _letBind_83_,_tmp_84_,0
# ori $2,_letBind_83_,0
jal putchar
# was: jal putchar, $2
ori $2, $16, 0
# was: ori _mainres_21_, _letBind_52_, 0
# ori $2,_mainres_21_,0
addi $29, $29, 32
lw $21, -28($29)
lw $20, -24($29)
lw $19, -20($29)
lw $18, -16($29)
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_Maxacha_82_:
.space 4
.asciiz "Max char: "
.align 2
_a__str__79_:
.space 4
.asciiz "\n"
.align 2
_Sumaa___74_:
.space 4
.asciiz "Sum: "
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

20
W2/fasto/tests/map_red_io.fo Normal file
View File

@ -0,0 +1,20 @@
fun int plus100 (int x) = x + 100
fun char read_chr(int i) = read(char)
fun int plus (int x, int y) = x + y
fun char max_chr(char a, char b) =
if a < b then b else a
fun [char] main() =
let n = read(int) in // read n ints from the keyboard
let a = iota(n) in // produce a = {0, 1, ... n − 1}
let b = map(plus100, a) in // b = {100, 101, ... , n + 99}
let d = reduce(plus, 0, b) in // d = 100 + 101 + ... + (n + 99)
let c = map(read_chr, a) in // reads N chars from keyboard
let m = reduce(max_chr, 'a', c) in // get the max element of c
let tmp = write("Sum: ") in // print string "Sum: "
let tmp = write(d) in // print d (the sum of b)
let tmp = write("\n") in // print newline
let tmp = write("Max char: ") in // print " Max char: "
let tmp = write(m) in // print max elem of char array
c // result is input char array

5
W2/fasto/tests/map_red_io.in Normal file
View File

@ -0,0 +1,5 @@
4
c
a
b
d

2
W2/fasto/tests/map_red_io.out Normal file
View File

@ -0,0 +1,2 @@
Sum: 406
Max char: d

174
W2/fasto/tests/multilet.asm Normal file
View File

@ -0,0 +1,174 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function main
main:
sw $31, -4($29)
sw $16, -8($29)
addi $29, $29, -12
jal getint
# was: jal getint, $2
# ori _letBind_2_,$2,0
ori $3, $2, 0
# was: ori _plus_L_4_, _letBind_2_, 0
# ori _plus_R_5_,_letBind_2_,0
add $3, $3, $2
# was: add _letBind_3_, _plus_L_4_, _plus_R_5_
# ori _minus_L_7_,_letBind_3_,0
ori $4, $0, 1
# was: ori _minus_R_8_, $0, 1
sub $3, $3, $4
# was: sub _letBind_6_, _minus_L_7_, _minus_R_8_
# ori _mult1_L_10_,_letBind_2_,0
# ori _mult2_R_11_,_letBind_6_,0
mul $16, $2, $3
# was: mul _tmp_9_, _mult1_L_10_, _mult2_R_11_
# ori _mainres_1_,_tmp_9_,0
ori $2, $16, 0
# was: ori $2, _mainres_1_, 0
jal putint
# was: jal putint, $2
ori $2, $16, 0
# was: ori $2, _mainres_1_, 0
addi $29, $29, 12
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

3
W2/fasto/tests/multilet.fo Normal file
View File

@ -0,0 +1,3 @@
fun int main () =
let n = read(int); x = n+n; y = x-1
in write(n*y)

1
W2/fasto/tests/multilet.in Normal file
View File

@ -0,0 +1 @@
6

1
W2/fasto/tests/multilet.out Normal file
View File

@ -0,0 +1 @@
66

1
W2/fasto/tests/neg_simple.err Normal file
View File

@ -0,0 +1 @@
Type error: Arity mismatch in declaration of main: expected a function of arity 0, but got int -> int at line 2, column 9

2
W2/fasto/tests/neg_simple.fo Normal file
View File

@ -0,0 +1,2 @@
// A simple negative test, as 'main' cannot take any arguments.
fun int main(int t) = t

319
W2/fasto/tests/negate.asm Normal file
View File

@ -0,0 +1,319 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _a__str__35_
# was: la _a__str__35__addr, _a__str__35_
ori $3, $0, 1
# was: ori _a__str__35__init, $0, 1
sw $3, 0($4)
# was: sw _a__str__35__init, 0(_a__str__35__addr)
la $4, _a__str__25_
# was: la _a__str__25__addr, _a__str__25_
ori $3, $0, 1
# was: ori _a__str__25__init, $0, 1
sw $3, 0($4)
# was: sw _a__str__25__init, 0(_a__str__25__addr)
la $4, _a__str__19_
# was: la _a__str__19__addr, _a__str__19_
ori $3, $0, 1
# was: ori _a__str__19__init, $0, 1
sw $3, 0($4)
# was: sw _a__str__19__init, 0(_a__str__19__addr)
la $4, _a__str__13_
# was: la _a__str__13__addr, _a__str__13_
ori $3, $0, 1
# was: ori _a__str__13__init, $0, 1
sw $3, 0($4)
# was: sw _a__str__13__init, 0(_a__str__13__addr)
la $4, _a__str__7_
# was: la _a__str__7__addr, _a__str__7_
ori $3, $0, 1
# was: ori _a__str__7__init, $0, 1
sw $3, 0($4)
# was: sw _a__str__7__init, 0(_a__str__7__addr)
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function main
main:
sw $31, -4($29)
sw $19, -20($29)
sw $18, -16($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -24
ori $16, $0, 1
# was: ori _tmp_3_, $0, 1
# ori _letBind_2_,_tmp_3_,0
la $2, _true
# was: la $2, _true
bne $16, $0, _wBoolF_4_
# was: bne _letBind_2_, $0, _wBoolF_4_
la $2, _false
# was: la $2, _false
_wBoolF_4_:
jal putstring
# was: jal putstring, $2
la $2, _a__str__7_
# was: la _tmp_6_, _a__str__7_
# _a__str__7_: string "\n"
# ori _letBind_5_,_tmp_6_,0
# ori $2,_tmp_6_,0
jal putstring
# was: jal putstring, $2
ori $17, $0, 0
# was: ori _tmp_9_, $0, 0
# ori _letBind_8_,_tmp_9_,0
la $2, _true
# was: la $2, _true
bne $17, $0, _wBoolF_10_
# was: bne _letBind_8_, $0, _wBoolF_10_
la $2, _false
# was: la $2, _false
_wBoolF_10_:
jal putstring
# was: jal putstring, $2
la $2, _a__str__13_
# was: la _tmp_12_, _a__str__13_
# _a__str__13_: string "\n"
# ori _letBind_11_,_tmp_12_,0
# ori $2,_tmp_12_,0
jal putstring
# was: jal putstring, $2
ori $18, $0, 0
# was: ori _tmp_15_, $0, 0
# ori _letBind_14_,_tmp_15_,0
la $2, _true
# was: la $2, _true
bne $18, $0, _wBoolF_16_
# was: bne _letBind_14_, $0, _wBoolF_16_
la $2, _false
# was: la $2, _false
_wBoolF_16_:
jal putstring
# was: jal putstring, $2
la $2, _a__str__19_
# was: la _tmp_18_, _a__str__19_
# _a__str__19_: string "\n"
# ori _letBind_17_,_tmp_18_,0
# ori $2,_tmp_18_,0
jal putstring
# was: jal putstring, $2
ori $19, $0, 1
# was: ori _tmp_21_, $0, 1
# ori _letBind_20_,_tmp_21_,0
la $2, _true
# was: la $2, _true
bne $19, $0, _wBoolF_22_
# was: bne _letBind_20_, $0, _wBoolF_22_
la $2, _false
# was: la $2, _false
_wBoolF_22_:
jal putstring
# was: jal putstring, $2
la $2, _a__str__25_
# was: la _tmp_24_, _a__str__25_
# _a__str__25_: string "\n"
# ori _letBind_23_,_tmp_24_,0
# ori $2,_tmp_24_,0
jal putstring
# was: jal putstring, $2
# ori _letBind_26_,_letBind_2_,0
beq $16, $0, _endLabel_29_
# was: beq _letBind_26_, $0, _endLabel_29_
ori $16, $17, 0
# was: ori _letBind_26_, _letBind_8_, 0
_endLabel_29_:
beq $16, $0, _endLabel_28_
# was: beq _letBind_26_, $0, _endLabel_28_
ori $16, $18, 0
# was: ori _letBind_26_, _letBind_14_, 0
_endLabel_28_:
beq $16, $0, _endLabel_27_
# was: beq _letBind_26_, $0, _endLabel_27_
ori $16, $19, 0
# was: ori _letBind_26_, _letBind_20_, 0
_endLabel_27_:
# ori _tmp_31_,_letBind_26_,0
# ori _letBind_30_,_tmp_31_,0
la $2, _true
# was: la $2, _true
bne $16, $0, _wBoolF_32_
# was: bne _letBind_30_, $0, _wBoolF_32_
la $2, _false
# was: la $2, _false
_wBoolF_32_:
jal putstring
# was: jal putstring, $2
la $2, _a__str__35_
# was: la _tmp_34_, _a__str__35_
# _a__str__35_: string "\n"
# ori _letBind_33_,_tmp_34_,0
# ori $2,_tmp_34_,0
jal putstring
# was: jal putstring, $2
ori $2, $16, 0
# was: ori _mainres_1_, _letBind_30_, 0
# ori $2,_mainres_1_,0
addi $29, $29, 24
lw $19, -20($29)
lw $18, -16($29)
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_a__str__35_:
.space 4
.asciiz "\n"
.align 2
_a__str__25_:
.space 4
.asciiz "\n"
.align 2
_a__str__19_:
.space 4
.asciiz "\n"
.align 2
_a__str__13_:
.space 4
.asciiz "\n"
.align 2
_a__str__7_:
.space 4
.asciiz "\n"
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

11
W2/fasto/tests/negate.fo Normal file
View File

@ -0,0 +1,11 @@
fun bool write_nl(bool b) =
let res = write(b) in
let tmp = write("\n") in
res
fun bool main() =
let x0 = write_nl(3 / 2 == 1) in
let x1 = write_nl(~3 / 2 == ~2) in
let x2 = write_nl(3 /~2 == ~2) in
let x3 = write_nl(~3 /~2 == 1) in
write_nl(x0 && x1 && x2 && x3)

0
W2/fasto/tests/negate.in Normal file
View File

5
W2/fasto/tests/negate.out Normal file
View File

@ -0,0 +1,5 @@
true
false
false
true
false

427
W2/fasto/tests/ordchr.asm Normal file
View File

@ -0,0 +1,427 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function read_char
read_char:
sw $31, -4($29)
addi $29, $29, -8
# ori _param_i_1_,$2,0
jal getchar
# was: jal getchar, $2
# ori _read_charres_2_,$2,0
# ori $2,_read_charres_2_,0
addi $29, $29, 8
lw $31, -4($29)
jr $31
# Function read_string
read_string:
sw $31, -4($29)
sw $20, -24($29)
sw $19, -20($29)
sw $18, -16($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -28
# ori _param_n_3_,$2,0
ori $3, $2, 0
# was: ori _size_reg_9_, _param_n_3_, 0
bgez $3, _safe_lab_10_
# was: bgez _size_reg_9_, _safe_lab_10_
ori $5, $0, 3
# was: ori $5, $0, 3
la $6, _Msg_IllegalArraySize_
# was: la $6, _Msg_IllegalArraySize_
j _RuntimeError_
_safe_lab_10_:
ori $2, $28, 0
# was: ori _arr_reg_6_, $28, 0
sll $4, $3, 2
# was: sll _tmp_16_, _size_reg_9_, 2
addi $4, $4, 4
# was: addi _tmp_16_, _tmp_16_, 4
add $28, $28, $4
# was: add $28, $28, _tmp_16_
sw $3, 0($2)
# was: sw _size_reg_9_, 0(_arr_reg_6_)
addi $6, $2, 4
# was: addi _addr_reg_11_, _arr_reg_6_, 4
ori $5, $0, 0
# was: ori _i_reg_12_, $0, 0
_loop_beg_13_:
sub $4, $5, $3
# was: sub _tmp_reg_15_, _i_reg_12_, _size_reg_9_
bgez $4, _loop_end_14_
# was: bgez _tmp_reg_15_, _loop_end_14_
sw $5, 0($6)
# was: sw _i_reg_12_, 0(_addr_reg_11_)
addi $6, $6, 4
# was: addi _addr_reg_11_, _addr_reg_11_, 4
addi $5, $5, 1
# was: addi _i_reg_12_, _i_reg_12_, 1
j _loop_beg_13_
_loop_end_14_:
lw $16, 0($2)
# was: lw _size_reg_5_, 0(_arr_reg_6_)
ori $17, $28, 0
# was: ori _read_stringres_4_, $28, 0
addi $3, $16, 3
# was: addi _tmp_23_, _size_reg_5_, 3
sra $3, $3, 2
# was: sra _tmp_23_, _tmp_23_, 2
sll $3, $3, 2
# was: sll _tmp_23_, _tmp_23_, 2
addi $3, $3, 4
# was: addi _tmp_23_, _tmp_23_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_23_
sw $16, 0($17)
# was: sw _size_reg_5_, 0(_read_stringres_4_)
addi $18, $17, 4
# was: addi _addr_reg_17_, _read_stringres_4_, 4
ori $19, $0, 0
# was: ori _i_reg_18_, $0, 0
addi $20, $2, 4
# was: addi _elem_reg_7_, _arr_reg_6_, 4
_loop_beg_19_:
sub $2, $19, $16
# was: sub _tmp_reg_21_, _i_reg_18_, _size_reg_5_
bgez $2, _loop_end_20_
# was: bgez _tmp_reg_21_, _loop_end_20_
lw $2, 0($20)
# was: lw _res_reg_8_, 0(_elem_reg_7_)
addi $20, $20, 4
# was: addi _elem_reg_7_, _elem_reg_7_, 4
# ori $2,_res_reg_8_,0
jal read_char
# was: jal read_char, $2
# ori _tmp_reg_22_,$2,0
# ori _res_reg_8_,_tmp_reg_22_,0
sb $2, 0($18)
# was: sb _res_reg_8_, 0(_addr_reg_17_)
addi $18, $18, 1
# was: addi _addr_reg_17_, _addr_reg_17_, 1
addi $19, $19, 1
# was: addi _i_reg_18_, _i_reg_18_, 1
j _loop_beg_19_
_loop_end_20_:
ori $2, $17, 0
# was: ori $2, _read_stringres_4_, 0
addi $29, $29, 28
lw $20, -24($29)
lw $19, -20($29)
lw $18, -16($29)
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
# Function add_one
add_one:
sw $31, -4($29)
addi $29, $29, -8
# ori _param_x_24_,$2,0
# ori _plus_L_26_,_param_x_24_,0
ori $3, $0, 1
# was: ori _plus_R_27_, $0, 1
add $2, $2, $3
# was: add _add_oneres_25_, _plus_L_26_, _plus_R_27_
# ori $2,_add_oneres_25_,0
addi $29, $29, 8
lw $31, -4($29)
jr $31
# Function main
main:
sw $31, -4($29)
sw $20, -24($29)
sw $19, -20($29)
sw $18, -16($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -28
jal getint
# was: jal getint, $2
# ori _letBind_29_,$2,0
# ori _arg_31_,_letBind_29_,0
# ori $2,_arg_31_,0
jal read_string
# was: jal read_string, $2
# ori _letBind_30_,$2,0
# ori _arr_reg_42_,_letBind_30_,0
lw $18, 0($2)
# was: lw _size_reg_41_, 0(_arr_reg_42_)
ori $20, $28, 0
# was: ori _arr_reg_38_, $28, 0
sll $3, $18, 2
# was: sll _tmp_51_, _size_reg_41_, 2
addi $3, $3, 4
# was: addi _tmp_51_, _tmp_51_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_51_
sw $18, 0($20)
# was: sw _size_reg_41_, 0(_arr_reg_38_)
addi $17, $20, 4
# was: addi _addr_reg_45_, _arr_reg_38_, 4
ori $16, $0, 0
# was: ori _i_reg_46_, $0, 0
addi $19, $2, 4
# was: addi _elem_reg_43_, _arr_reg_42_, 4
_loop_beg_47_:
sub $2, $16, $18
# was: sub _tmp_reg_49_, _i_reg_46_, _size_reg_41_
bgez $2, _loop_end_48_
# was: bgez _tmp_reg_49_, _loop_end_48_
lb $2, 0($19)
# was: lb _res_reg_44_, 0(_elem_reg_43_)
addi $19, $19, 1
# was: addi _elem_reg_43_, _elem_reg_43_, 1
# ori $2,_res_reg_44_,0
jal ord
# was: jal ord, $2
# ori _tmp_reg_50_,$2,0
# ori _res_reg_44_,_tmp_reg_50_,0
sw $2, 0($17)
# was: sw _res_reg_44_, 0(_addr_reg_45_)
addi $17, $17, 4
# was: addi _addr_reg_45_, _addr_reg_45_, 4
addi $16, $16, 1
# was: addi _i_reg_46_, _i_reg_46_, 1
j _loop_beg_47_
_loop_end_48_:
lw $19, 0($20)
# was: lw _size_reg_37_, 0(_arr_reg_38_)
ori $16, $28, 0
# was: ori _arr_reg_34_, $28, 0
sll $2, $19, 2
# was: sll _tmp_58_, _size_reg_37_, 2
addi $2, $2, 4
# was: addi _tmp_58_, _tmp_58_, 4
add $28, $28, $2
# was: add $28, $28, _tmp_58_
sw $19, 0($16)
# was: sw _size_reg_37_, 0(_arr_reg_34_)
addi $18, $16, 4
# was: addi _addr_reg_52_, _arr_reg_34_, 4
ori $17, $0, 0
# was: ori _i_reg_53_, $0, 0
addi $20, $20, 4
# was: addi _elem_reg_39_, _arr_reg_38_, 4
_loop_beg_54_:
sub $2, $17, $19
# was: sub _tmp_reg_56_, _i_reg_53_, _size_reg_37_
bgez $2, _loop_end_55_
# was: bgez _tmp_reg_56_, _loop_end_55_
lw $2, 0($20)
# was: lw _res_reg_40_, 0(_elem_reg_39_)
addi $20, $20, 4
# was: addi _elem_reg_39_, _elem_reg_39_, 4
# ori $2,_res_reg_40_,0
jal add_one
# was: jal add_one, $2
# ori _tmp_reg_57_,$2,0
# ori _res_reg_40_,_tmp_reg_57_,0
sw $2, 0($18)
# was: sw _res_reg_40_, 0(_addr_reg_52_)
addi $18, $18, 4
# was: addi _addr_reg_52_, _addr_reg_52_, 4
addi $17, $17, 1
# was: addi _i_reg_53_, _i_reg_53_, 1
j _loop_beg_54_
_loop_end_55_:
lw $18, 0($16)
# was: lw _size_reg_33_, 0(_arr_reg_34_)
ori $17, $28, 0
# was: ori _letBind_32_, $28, 0
addi $2, $18, 3
# was: addi _tmp_65_, _size_reg_33_, 3
sra $2, $2, 2
# was: sra _tmp_65_, _tmp_65_, 2
sll $2, $2, 2
# was: sll _tmp_65_, _tmp_65_, 2
addi $2, $2, 4
# was: addi _tmp_65_, _tmp_65_, 4
add $28, $28, $2
# was: add $28, $28, _tmp_65_
sw $18, 0($17)
# was: sw _size_reg_33_, 0(_letBind_32_)
addi $19, $17, 4
# was: addi _addr_reg_59_, _letBind_32_, 4
ori $20, $0, 0
# was: ori _i_reg_60_, $0, 0
addi $16, $16, 4
# was: addi _elem_reg_35_, _arr_reg_34_, 4
_loop_beg_61_:
sub $2, $20, $18
# was: sub _tmp_reg_63_, _i_reg_60_, _size_reg_33_
bgez $2, _loop_end_62_
# was: bgez _tmp_reg_63_, _loop_end_62_
lw $2, 0($16)
# was: lw _res_reg_36_, 0(_elem_reg_35_)
addi $16, $16, 4
# was: addi _elem_reg_35_, _elem_reg_35_, 4
# ori $2,_res_reg_36_,0
jal chr
# was: jal chr, $2
# ori _tmp_reg_64_,$2,0
# ori _res_reg_36_,_tmp_reg_64_,0
sb $2, 0($19)
# was: sb _res_reg_36_, 0(_addr_reg_59_)
addi $19, $19, 1
# was: addi _addr_reg_59_, _addr_reg_59_, 1
addi $20, $20, 1
# was: addi _i_reg_60_, _i_reg_60_, 1
j _loop_beg_61_
_loop_end_62_:
ori $2, $17, 0
# was: ori _tmp_66_, _letBind_32_, 0
ori $16, $2, 0
# was: ori _mainres_28_, _tmp_66_, 0
# ori $2,_tmp_66_,0
jal putstring
# was: jal putstring, $2
ori $2, $16, 0
# was: ori $2, _mainres_28_, 0
addi $29, $29, 28
lw $20, -24($29)
lw $19, -20($29)
lw $18, -16($29)
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

11
W2/fasto/tests/ordchr.fo Normal file
View File

@ -0,0 +1,11 @@
fun char read_char(int i) = read(char)
fun [char] read_string(int n) = map(read_char, iota(n))
fun int add_one(int x) = x + 1
fun [char] main() =
let n = read(int) in
let s1 = read_string(n) in
let s2 = map(chr, map(add_one, map(ord, s1))) in
write(s2)

4
W2/fasto/tests/ordchr.in Normal file
View File

@ -0,0 +1,4 @@
3
f
o
o

1
W2/fasto/tests/ordchr.out Normal file
View File

@ -0,0 +1 @@
gpp

382
W2/fasto/tests/proj_figure3.asm Normal file
View File

@ -0,0 +1,382 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function plus100
plus100:
sw $31, -4($29)
addi $29, $29, -8
# ori _param_x_1_,$2,0
# ori _plus_L_3_,_param_x_1_,0
ori $3, $0, 100
# was: ori _plus_R_4_, $0, 100
add $2, $2, $3
# was: add _plus100res_2_, _plus_L_3_, _plus_R_4_
# ori $2,_plus100res_2_,0
addi $29, $29, 8
lw $31, -4($29)
jr $31
# Function plus
plus:
sw $31, -4($29)
addi $29, $29, -8
# ori _param_x_5_,$2,0
# ori _param_y_6_,$3,0
# ori _plus_L_8_,_param_x_5_,0
# ori _plus_R_9_,_param_y_6_,0
add $2, $2, $3
# was: add _plusres_7_, _plus_L_8_, _plus_R_9_
# ori $2,_plusres_7_,0
addi $29, $29, 8
lw $31, -4($29)
jr $31
# Function main
main:
sw $31, -4($29)
sw $21, -28($29)
sw $20, -24($29)
sw $19, -20($29)
sw $18, -16($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -32
jal getint
# was: jal getint, $2
# ori _letBind_11_,$2,0
# ori _size_reg_13_,_letBind_11_,0
bgez $2, _safe_lab_14_
# was: bgez _size_reg_13_, _safe_lab_14_
ori $5, $0, 6
# was: ori $5, $0, 6
la $6, _Msg_IllegalArraySize_
# was: la $6, _Msg_IllegalArraySize_
j _RuntimeError_
_safe_lab_14_:
ori $20, $28, 0
# was: ori _letBind_12_, $28, 0
sll $3, $2, 2
# was: sll _tmp_20_, _size_reg_13_, 2
addi $3, $3, 4
# was: addi _tmp_20_, _tmp_20_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_20_
sw $2, 0($20)
# was: sw _size_reg_13_, 0(_letBind_12_)
addi $5, $20, 4
# was: addi _addr_reg_15_, _letBind_12_, 4
ori $3, $0, 0
# was: ori _i_reg_16_, $0, 0
_loop_beg_17_:
sub $4, $3, $2
# was: sub _tmp_reg_19_, _i_reg_16_, _size_reg_13_
bgez $4, _loop_end_18_
# was: bgez _tmp_reg_19_, _loop_end_18_
sw $3, 0($5)
# was: sw _i_reg_16_, 0(_addr_reg_15_)
addi $5, $5, 4
# was: addi _addr_reg_15_, _addr_reg_15_, 4
addi $3, $3, 1
# was: addi _i_reg_16_, _i_reg_16_, 1
j _loop_beg_17_
_loop_end_18_:
# ori _arr_reg_23_,_letBind_12_,0
lw $17, 0($20)
# was: lw _size_reg_22_, 0(_arr_reg_23_)
ori $16, $28, 0
# was: ori _letBind_21_, $28, 0
sll $2, $17, 2
# was: sll _tmp_32_, _size_reg_22_, 2
addi $2, $2, 4
# was: addi _tmp_32_, _tmp_32_, 4
add $28, $28, $2
# was: add $28, $28, _tmp_32_
sw $17, 0($16)
# was: sw _size_reg_22_, 0(_letBind_21_)
addi $19, $16, 4
# was: addi _addr_reg_26_, _letBind_21_, 4
ori $18, $0, 0
# was: ori _i_reg_27_, $0, 0
addi $21, $20, 4
# was: addi _elem_reg_24_, _arr_reg_23_, 4
_loop_beg_28_:
sub $2, $18, $17
# was: sub _tmp_reg_30_, _i_reg_27_, _size_reg_22_
bgez $2, _loop_end_29_
# was: bgez _tmp_reg_30_, _loop_end_29_
lw $2, 0($21)
# was: lw _res_reg_25_, 0(_elem_reg_24_)
addi $21, $21, 4
# was: addi _elem_reg_24_, _elem_reg_24_, 4
# ori $2,_res_reg_25_,0
jal plus100
# was: jal plus100, $2
# ori _tmp_reg_31_,$2,0
# ori _res_reg_25_,_tmp_reg_31_,0
sw $2, 0($19)
# was: sw _res_reg_25_, 0(_addr_reg_26_)
addi $19, $19, 4
# was: addi _addr_reg_26_, _addr_reg_26_, 4
addi $18, $18, 1
# was: addi _i_reg_27_, _i_reg_27_, 1
j _loop_beg_28_
_loop_end_29_:
# ori _arr_reg_34_,_letBind_12_,0
lw $17, 0($20)
# was: lw _size_reg_35_, 0(_arr_reg_34_)
ori $2, $0, 0
# was: ori _letBind_33_, $0, 0
addi $20, $20, 4
# was: addi _arr_reg_34_, _arr_reg_34_, 4
ori $18, $0, 0
# was: ori _ind_var_36_, $0, 0
_loop_beg_38_:
sub $3, $18, $17
# was: sub _tmp_reg_37_, _ind_var_36_, _size_reg_35_
bgez $3, _loop_end_39_
# was: bgez _tmp_reg_37_, _loop_end_39_
lw $3, 0($20)
# was: lw _tmp_reg_37_, 0(_arr_reg_34_)
addi $20, $20, 4
# was: addi _arr_reg_34_, _arr_reg_34_, 4
# ori $2,_letBind_33_,0
# ori $3,_tmp_reg_37_,0
jal plus
# was: jal plus, $2 $3
# ori _tmp_reg_40_,$2,0
# ori _letBind_33_,_tmp_reg_40_,0
addi $18, $18, 1
# was: addi _ind_var_36_, _ind_var_36_, 1
j _loop_beg_38_
_loop_end_39_:
ori $2, $16, 0
# was: ori _arr_reg_43_, _letBind_21_, 0
lw $16, 0($2)
# was: lw _size_reg_42_, 0(_arr_reg_43_)
ori $17, $28, 0
# was: ori _letBind_41_, $28, 0
addi $3, $16, 3
# was: addi _tmp_52_, _size_reg_42_, 3
sra $3, $3, 2
# was: sra _tmp_52_, _tmp_52_, 2
sll $3, $3, 2
# was: sll _tmp_52_, _tmp_52_, 2
addi $3, $3, 4
# was: addi _tmp_52_, _tmp_52_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_52_
sw $16, 0($17)
# was: sw _size_reg_42_, 0(_letBind_41_)
addi $18, $17, 4
# was: addi _addr_reg_46_, _letBind_41_, 4
ori $19, $0, 0
# was: ori _i_reg_47_, $0, 0
addi $20, $2, 4
# was: addi _elem_reg_44_, _arr_reg_43_, 4
_loop_beg_48_:
sub $2, $19, $16
# was: sub _tmp_reg_50_, _i_reg_47_, _size_reg_42_
bgez $2, _loop_end_49_
# was: bgez _tmp_reg_50_, _loop_end_49_
lw $2, 0($20)
# was: lw _res_reg_45_, 0(_elem_reg_44_)
addi $20, $20, 4
# was: addi _elem_reg_44_, _elem_reg_44_, 4
# ori $2,_res_reg_45_,0
jal chr
# was: jal chr, $2
# ori _tmp_reg_51_,$2,0
# ori _res_reg_45_,_tmp_reg_51_,0
sb $2, 0($18)
# was: sb _res_reg_45_, 0(_addr_reg_46_)
addi $18, $18, 1
# was: addi _addr_reg_46_, _addr_reg_46_, 1
addi $19, $19, 1
# was: addi _i_reg_47_, _i_reg_47_, 1
j _loop_beg_48_
_loop_end_49_:
ori $2, $0, 1
# was: ori _arr_ind_56_, $0, 1
addi $3, $17, 4
# was: addi _arr_reg_57_, _letBind_41_, 4
lw $4, 0($17)
# was: lw _size_reg_58_, 0(_letBind_41_)
bgez $2, _safe_lab_61_
# was: bgez _arr_ind_56_, _safe_lab_61_
_error_lab_60_:
ori $5, $0, 10
# was: ori $5, $0, 10
la $6, _Msg_IllegalIndex_
# was: la $6, _Msg_IllegalIndex_
j _RuntimeError_
_safe_lab_61_:
sub $4, $2, $4
# was: sub _tmp_reg_59_, _arr_ind_56_, _size_reg_58_
bgez $4, _error_lab_60_
# was: bgez _tmp_reg_59_, _error_lab_60_
add $3, $3, $2
# was: add _arr_reg_57_, _arr_reg_57_, _arr_ind_56_
lb $2, 0($3)
# was: lb _arg_55_, 0(_arr_reg_57_)
# ori $2,_arg_55_,0
jal ord
# was: jal ord, $2
# ori _tmp_54_,$2,0
# ori _letBind_53_,_tmp_54_,0
# ori $2,_letBind_53_,0
jal putint
# was: jal putint, $2
ori $2, $17, 0
# was: ori _tmp_62_, _letBind_41_, 0
ori $16, $2, 0
# was: ori _mainres_10_, _tmp_62_, 0
# ori $2,_tmp_62_,0
jal putstring
# was: jal putstring, $2
ori $2, $16, 0
# was: ori $2, _mainres_10_, 0
addi $29, $29, 32
lw $21, -28($29)
lw $20, -24($29)
lw $19, -20($29)
lw $18, -16($29)
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

11
W2/fasto/tests/proj_figure3.fo Normal file
View File

@ -0,0 +1,11 @@
fun int plus100(int x) = x + 100
fun int plus(int x, int y) = x + y
fun [char] main() =
let n = read(int) in // read N from the keyboard
let a = iota(n) in // produce a = {0, 1, ..., n - 1}
let b = map(plus100, a) in // b = {100, 101, ..., n + 99}
let d = reduce(plus, 0, a) in // d = 0 + 0 + 1 + 2 + ... + (n - 1)
let c = map(chr, b) in // c = {'d', 'e', 'f', ...}
let e = write(ord(c[1])) in // c[1] == 'e', ord('e') == 101
write(c) // output "def..." to screen

1
W2/fasto/tests/proj_figure3.in Normal file
View File

@ -0,0 +1 @@
3

1
W2/fasto/tests/proj_figure3.out Normal file
View File

@ -0,0 +1 @@
101 def

236
W2/fasto/tests/reduce.asm Normal file
View File

@ -0,0 +1,236 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function incr
incr:
sw $31, -4($29)
addi $29, $29, -8
# ori _param_a_1_,$2,0
# ori _param_b_2_,$3,0
# ori _plus_L_4_,_param_a_1_,0
# ori _plus_R_5_,_param_b_2_,0
add $2, $2, $3
# was: add _incrres_3_, _plus_L_4_, _plus_R_5_
# ori $2,_incrres_3_,0
addi $29, $29, 8
lw $31, -4($29)
jr $31
# Function main
main:
sw $31, -4($29)
sw $18, -16($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -20
ori $3, $0, 3
# was: ori _size_reg_14_, $0, 3
ori $16, $28, 0
# was: ori _arr_reg_8_, $28, 0
sll $2, $3, 2
# was: sll _tmp_17_, _size_reg_14_, 2
addi $2, $2, 4
# was: addi _tmp_17_, _tmp_17_, 4
add $28, $28, $2
# was: add $28, $28, _tmp_17_
sw $3, 0($16)
# was: sw _size_reg_14_, 0(_arr_reg_8_)
addi $3, $16, 4
# was: addi _addr_reg_15_, _arr_reg_8_, 4
ori $2, $0, 1
# was: ori _tmp_reg_16_, $0, 1
sw $2, 0($3)
# was: sw _tmp_reg_16_, 0(_addr_reg_15_)
addi $3, $3, 4
# was: addi _addr_reg_15_, _addr_reg_15_, 4
ori $2, $0, 2
# was: ori _tmp_reg_16_, $0, 2
sw $2, 0($3)
# was: sw _tmp_reg_16_, 0(_addr_reg_15_)
addi $3, $3, 4
# was: addi _addr_reg_15_, _addr_reg_15_, 4
ori $2, $0, 3
# was: ori _tmp_reg_16_, $0, 3
sw $2, 0($3)
# was: sw _tmp_reg_16_, 0(_addr_reg_15_)
addi $3, $3, 4
# was: addi _addr_reg_15_, _addr_reg_15_, 4
lw $17, 0($16)
# was: lw _size_reg_9_, 0(_arr_reg_8_)
ori $2, $0, 0
# was: ori _letBind_7_, $0, 0
addi $16, $16, 4
# was: addi _arr_reg_8_, _arr_reg_8_, 4
ori $18, $0, 0
# was: ori _ind_var_10_, $0, 0
_loop_beg_12_:
sub $3, $18, $17
# was: sub _tmp_reg_11_, _ind_var_10_, _size_reg_9_
bgez $3, _loop_end_13_
# was: bgez _tmp_reg_11_, _loop_end_13_
lw $3, 0($16)
# was: lw _tmp_reg_11_, 0(_arr_reg_8_)
addi $16, $16, 4
# was: addi _arr_reg_8_, _arr_reg_8_, 4
# ori $2,_letBind_7_,0
# ori $3,_tmp_reg_11_,0
jal incr
# was: jal incr, $2 $3
# ori _tmp_reg_18_,$2,0
# ori _letBind_7_,_tmp_reg_18_,0
addi $18, $18, 1
# was: addi _ind_var_10_, _ind_var_10_, 1
j _loop_beg_12_
_loop_end_13_:
# ori _tmp_19_,_letBind_7_,0
ori $16, $2, 0
# was: ori _mainres_6_, _tmp_19_, 0
ori $2, $16, 0
# was: ori $2, _mainres_6_, 0
jal putint
# was: jal putint, $2
ori $2, $16, 0
# was: ori $2, _mainres_6_, 0
addi $29, $29, 20
lw $18, -16($29)
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

5
W2/fasto/tests/reduce.fo Normal file
View File

@ -0,0 +1,5 @@
fun int incr(int a, int b) = a + b
fun int main() =
let n = reduce(incr, 0, {1, 2, 3}) in
write(n)

0
W2/fasto/tests/reduce.in Normal file
View File

1
W2/fasto/tests/reduce.out Normal file
View File

@ -0,0 +1 @@
6

257
W2/fasto/tests/replicate.asm Normal file
View File

@ -0,0 +1,257 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function main
main:
sw $31, -4($29)
sw $21, -28($29)
sw $20, -24($29)
sw $19, -20($29)
sw $18, -16($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -32
ori $2, $0, 7
# was: ori _size_reg_3_, $0, 7
bgez $2, _safe_lab_4_
# was: bgez _size_reg_3_, _safe_lab_4_
ori $5, $0, 4
# was: ori $5, $0, 4
la $6, _Msg_IllegalArraySize_
# was: la $6, _Msg_IllegalArraySize_
j _RuntimeError_
_safe_lab_4_:
ori $7, $0, 0
# was: ori _elem_reg_5_, $0, 0
ori $3, $28, 0
# was: ori _letBind_2_, $28, 0
addi $4, $2, 3
# was: addi _tmp_11_, _size_reg_3_, 3
sra $4, $4, 2
# was: sra _tmp_11_, _tmp_11_, 2
sll $4, $4, 2
# was: sll _tmp_11_, _tmp_11_, 2
addi $4, $4, 4
# was: addi _tmp_11_, _tmp_11_, 4
add $28, $28, $4
# was: add $28, $28, _tmp_11_
sw $2, 0($3)
# was: sw _size_reg_3_, 0(_letBind_2_)
addi $4, $3, 4
# was: addi _addr_reg_6_, _letBind_2_, 4
ori $5, $0, 0
# was: ori _i_reg_7_, $0, 0
_loop_beg_8_:
sub $6, $5, $2
# was: sub _tmp_reg_10_, _i_reg_7_, _size_reg_3_
bgez $6, _loop_end_9_
# was: bgez _tmp_reg_10_, _loop_end_9_
sb $7, 0($4)
# was: sb _elem_reg_5_, 0(_addr_reg_6_)
addi $4, $4, 1
# was: addi _addr_reg_6_, _addr_reg_6_, 1
addi $5, $5, 1
# was: addi _i_reg_7_, _i_reg_7_, 1
j _loop_beg_8_
_loop_end_9_:
# ori _arr_reg_13_,_letBind_2_,0
lw $16, 0($3)
# was: lw _size_reg_12_, 0(_arr_reg_13_)
ori $17, $28, 0
# was: ori _mainres_1_, $28, 0
addi $2, $16, 3
# was: addi _tmp_24_, _size_reg_12_, 3
sra $2, $2, 2
# was: sra _tmp_24_, _tmp_24_, 2
sll $2, $2, 2
# was: sll _tmp_24_, _tmp_24_, 2
addi $2, $2, 4
# was: addi _tmp_24_, _tmp_24_, 4
add $28, $28, $2
# was: add $28, $28, _tmp_24_
sw $16, 0($17)
# was: sw _size_reg_12_, 0(_mainres_1_)
addi $19, $17, 4
# was: addi _addr_reg_16_, _mainres_1_, 4
ori $18, $0, 0
# was: ori _i_reg_17_, $0, 0
addi $20, $3, 4
# was: addi _elem_reg_14_, _arr_reg_13_, 4
_loop_beg_18_:
sub $2, $18, $16
# was: sub _tmp_reg_20_, _i_reg_17_, _size_reg_12_
bgez $2, _loop_end_19_
# was: bgez _tmp_reg_20_, _loop_end_19_
lb $21, 0($20)
# was: lb _res_reg_15_, 0(_elem_reg_14_)
addi $20, $20, 1
# was: addi _elem_reg_14_, _elem_reg_14_, 1
# ori _tmp_22_,_res_reg_15_,0
# ori _fun_arg_res_21_,_tmp_22_,0
la $2, _true
# was: la $2, _true
bne $21, $0, _wBoolF_23_
# was: bne _fun_arg_res_21_, $0, _wBoolF_23_
la $2, _false
# was: la $2, _false
_wBoolF_23_:
jal putstring
# was: jal putstring, $2
# ori _res_reg_15_,_fun_arg_res_21_,0
sb $21, 0($19)
# was: sb _res_reg_15_, 0(_addr_reg_16_)
addi $19, $19, 1
# was: addi _addr_reg_16_, _addr_reg_16_, 1
addi $18, $18, 1
# was: addi _i_reg_17_, _i_reg_17_, 1
j _loop_beg_18_
_loop_end_19_:
ori $2, $17, 0
# was: ori $2, _mainres_1_, 0
addi $29, $29, 32
lw $21, -28($29)
lw $20, -24($29)
lw $19, -20($29)
lw $18, -16($29)
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

5
W2/fasto/tests/replicate.fo Normal file
View File

@ -0,0 +1,5 @@
fun bool writeBool(bool b) = write(b)
fun [bool] main() =
let fs = replicate(7, false) in
map(writeBool, fs)

0
W2/fasto/tests/replicate.in Normal file
View File

7
W2/fasto/tests/replicate.out Normal file
View File

@ -0,0 +1,7 @@
false
false
false
false
false
false
false

280
W2/fasto/tests/scan.asm Normal file
View File

@ -0,0 +1,280 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function main
main:
sw $31, -4($29)
sw $21, -28($29)
sw $20, -24($29)
sw $19, -20($29)
sw $18, -16($29)
sw $17, -12($29)
sw $16, -8($29)
addi $29, $29, -32
ori $4, $0, 3
# was: ori _size_reg_3_, $0, 3
ori $3, $28, 0
# was: ori _letBind_2_, $28, 0
sll $2, $4, 2
# was: sll _tmp_6_, _size_reg_3_, 2
addi $2, $2, 4
# was: addi _tmp_6_, _tmp_6_, 4
add $28, $28, $2
# was: add $28, $28, _tmp_6_
sw $4, 0($3)
# was: sw _size_reg_3_, 0(_letBind_2_)
addi $4, $3, 4
# was: addi _addr_reg_4_, _letBind_2_, 4
ori $2, $0, 1
# was: ori _tmp_reg_5_, $0, 1
sw $2, 0($4)
# was: sw _tmp_reg_5_, 0(_addr_reg_4_)
addi $4, $4, 4
# was: addi _addr_reg_4_, _addr_reg_4_, 4
ori $2, $0, 2
# was: ori _tmp_reg_5_, $0, 2
sw $2, 0($4)
# was: sw _tmp_reg_5_, 0(_addr_reg_4_)
addi $4, $4, 4
# was: addi _addr_reg_4_, _addr_reg_4_, 4
ori $2, $0, 3
# was: ori _tmp_reg_5_, $0, 3
sw $2, 0($4)
# was: sw _tmp_reg_5_, 0(_addr_reg_4_)
addi $4, $4, 4
# was: addi _addr_reg_4_, _addr_reg_4_, 4
# ori _inp_reg_9_,_letBind_2_,0
ori $8, $0, 0
# was: ori _acc_reg_13_, $0, 0
lw $4, 0($3)
# was: lw _size_reg_10_, 0(_inp_reg_9_)
addi $3, $3, 4
# was: addi _inp_reg_9_, _inp_reg_9_, 4
ori $2, $28, 0
# was: ori _letBind_7_, $28, 0
sll $5, $4, 2
# was: sll _tmp_16_, _size_reg_10_, 2
addi $5, $5, 4
# was: addi _tmp_16_, _tmp_16_, 4
add $28, $28, $5
# was: add $28, $28, _tmp_16_
sw $4, 0($2)
# was: sw _size_reg_10_, 0(_letBind_7_)
addi $6, $2, 4
# was: addi _res_reg_8_, _letBind_7_, 4
ori $5, $0, 0
# was: ori _ind_var_11_, $0, 0
_loop_beg_14_:
sub $7, $5, $4
# was: sub _tmp_reg_12_, _ind_var_11_, _size_reg_10_
bgez $7, _loop_end_15_
# was: bgez _tmp_reg_12_, _loop_end_15_
lw $7, 0($3)
# was: lw _tmp_reg_12_, 0(_inp_reg_9_)
# ori _plus_L_18_,_acc_reg_13_,0
# ori _plus_R_19_,_tmp_reg_12_,0
add $8, $8, $7
# was: add _fun_arg_res_17_, _plus_L_18_, _plus_R_19_
# ori _acc_reg_13_,_fun_arg_res_17_,0
sw $8, 0($6)
# was: sw _acc_reg_13_, 0(_res_reg_8_)
addi $6, $6, 4
# was: addi _res_reg_8_, _res_reg_8_, 4
addi $3, $3, 4
# was: addi _inp_reg_9_, _inp_reg_9_, 4
addi $5, $5, 1
# was: addi _ind_var_11_, _ind_var_11_, 1
j _loop_beg_14_
_loop_end_15_:
# ori _arr_reg_21_,_letBind_7_,0
lw $17, 0($2)
# was: lw _size_reg_20_, 0(_arr_reg_21_)
ori $16, $28, 0
# was: ori _mainres_1_, $28, 0
sll $3, $17, 2
# was: sll _tmp_31_, _size_reg_20_, 2
addi $3, $3, 4
# was: addi _tmp_31_, _tmp_31_, 4
add $28, $28, $3
# was: add $28, $28, _tmp_31_
sw $17, 0($16)
# was: sw _size_reg_20_, 0(_mainres_1_)
addi $18, $16, 4
# was: addi _addr_reg_24_, _mainres_1_, 4
ori $19, $0, 0
# was: ori _i_reg_25_, $0, 0
addi $20, $2, 4
# was: addi _elem_reg_22_, _arr_reg_21_, 4
_loop_beg_26_:
sub $2, $19, $17
# was: sub _tmp_reg_28_, _i_reg_25_, _size_reg_20_
bgez $2, _loop_end_27_
# was: bgez _tmp_reg_28_, _loop_end_27_
lw $21, 0($20)
# was: lw _res_reg_23_, 0(_elem_reg_22_)
addi $20, $20, 4
# was: addi _elem_reg_22_, _elem_reg_22_, 4
# ori _tmp_30_,_res_reg_23_,0
# ori _fun_arg_res_29_,_tmp_30_,0
ori $2, $21, 0
# was: ori $2, _fun_arg_res_29_, 0
jal putint
# was: jal putint, $2
# ori _res_reg_23_,_fun_arg_res_29_,0
sw $21, 0($18)
# was: sw _res_reg_23_, 0(_addr_reg_24_)
addi $18, $18, 4
# was: addi _addr_reg_24_, _addr_reg_24_, 4
addi $19, $19, 1
# was: addi _i_reg_25_, _i_reg_25_, 1
j _loop_beg_26_
_loop_end_27_:
ori $2, $16, 0
# was: ori $2, _mainres_1_, 0
addi $29, $29, 32
lw $21, -28($29)
lw $20, -24($29)
lw $19, -20($29)
lw $18, -16($29)
lw $17, -12($29)
lw $16, -8($29)
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

8
W2/fasto/tests/scan.fo Normal file
View File

@ -0,0 +1,8 @@
fun int incr(int a, int b) = a + b
fun int writeInt(int n) = write(n)
fun [int] main() =
let a = {1, 2, 3} in
let b = scan(incr, 0, a) in
map(writeInt, b)

0
W2/fasto/tests/scan.in Normal file
View File

1
W2/fasto/tests/scan.out Normal file
View File

@ -0,0 +1 @@
1 3 6

193
W2/fasto/tests/short_circuit.asm Normal file
View File

@ -0,0 +1,193 @@
.text 0x00400000
.globl main
la $28, _heap_
la $4, _true
# was: la _true_addr, _true
ori $3, $0, 4
# was: ori _true_init, $0, 4
sw $3, 0($4)
# was: sw _true_init, 0(_true_addr)
la $3, _false
# was: la _false_addr, _false
ori $4, $0, 5
# was: ori _false_init, $0, 5
sw $4, 0($3)
# was: sw _false_init, 0(_false_addr)
jal main
_stop_:
ori $2, $0, 10
syscall
# Function no_way
no_way:
sw $31, -4($29)
addi $29, $29, -8
jal no_way
# was: jal no_way,
# ori _no_wayres_1_,$2,0
# ori $2,_no_wayres_1_,0
addi $29, $29, 8
lw $31, -4($29)
jr $31
# Function main
main:
sw $31, -4($29)
addi $29, $29, -8
ori $3, $0, 0
# was: ori _tmp_4_, $0, 0
# ori _letBind_3_,_tmp_4_,0
la $2, _true
# was: la $2, _true
bne $3, $0, _wBoolF_5_
# was: bne _letBind_3_, $0, _wBoolF_5_
la $2, _false
# was: la $2, _false
_wBoolF_5_:
jal putstring
# was: jal putstring, $2
ori $3, $0, 1
# was: ori _tmp_7_, $0, 1
bne $3, $0, _endLabel_8_
# was: bne _tmp_7_, $0, _endLabel_8_
jal no_way
# was: jal no_way,
ori $3, $2, 0
# was: ori _tmp_7_, $2, 0
_endLabel_8_:
# ori _letBind_6_,_tmp_7_,0
la $2, _true
# was: la $2, _true
bne $3, $0, _wBoolF_9_
# was: bne _letBind_6_, $0, _wBoolF_9_
la $2, _false
# was: la $2, _false
_wBoolF_9_:
jal putstring
# was: jal putstring, $2
ori $2, $0, 1
# was: ori _mainres_2_, $0, 1
# ori $2,_mainres_2_,0
addi $29, $29, 8
lw $31, -4($29)
jr $31
ord:
jr $31
chr:
andi $2, $2, 255
jr $31
putint:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 1
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getint:
ori $2, $0, 5
syscall
jr $31
putchar:
addi $29, $29, -8
sw $2, 0($29)
sw $4, 4($29)
ori $4, $2, 0
ori $2, $0, 11
syscall
ori $2, $0, 4
la $4, _space_
syscall
lw $2, 0($29)
lw $4, 4($29)
addi $29, $29, 8
jr $31
getchar:
addi $29, $29, -8
sw $4, 0($29)
sw $5, 4($29)
ori $2, $0, 12
syscall
ori $5, $2, 0
ori $2, $0, 4
la $4, _cr_
syscall
ori $2, $5, 0
lw $4, 0($29)
lw $5, 4($29)
addi $29, $29, 8
jr $31
putstring:
addi $29, $29, -16
sw $2, 0($29)
sw $4, 4($29)
sw $5, 8($29)
sw $6, 12($29)
lw $4, 0($2)
addi $5, $2, 4
add $6, $5, $4
ori $2, $0, 11
putstring_begin:
sub $4, $5, $6
bgez $4, putstring_done
lb $4, 0($5)
syscall
addi $5, $5, 1
j putstring_begin
putstring_done:
lw $2, 0($29)
lw $4, 4($29)
lw $5, 8($29)
lw $6, 12($29)
addi $29, $29, 16
jr $31
_RuntimeError_:
la $4, _ErrMsg_
ori $2, $0, 4
syscall
ori $4, $5, 0
ori $2, $0, 1
syscall
la $4, _colon_space_
ori $2, $0, 4
syscall
ori $4, $6, 0
ori $2, $0, 4
syscall
la $4, _cr_
ori $2, $0, 4
syscall
j _stop_
.data
# Fixed strings for I/O
_ErrMsg_:
.asciiz "Runtime error at line "
_colon_space_:
.asciiz ": "
_cr_:
.asciiz "\n"
_space_:
.asciiz " "
# Message strings for specific errors
_Msg_IllegalArraySize_:
.asciiz "negative array size"
_Msg_IllegalIndex_:
.asciiz "array index out of bounds"
_Msg_DivZero_:
.asciiz "division by zero"
# String Literals
.align 2
_true:
.space 4
.asciiz "true"
.align 2
_false:
.space 4
.asciiz "false"
.align 2
_heap_:
.space 100000

6
W2/fasto/tests/short_circuit.fo Normal file
View File

@ -0,0 +1,6 @@
fun bool no_way() = no_way()
fun bool main() =
let a = write(false && no_way()) in
let b = write(true || no_way()) in
true

0
W2/fasto/tests/short_circuit.in Normal file
View File

1
W2/fasto/tests/short_circuit.out Normal file
View File

@ -0,0 +1 @@
falsetrue