Commit 038ab0cc authored by John van Groningen's avatar John van Groningen

print ( , and ) for unboxed tuples.

fix evaluate of unboxed lists
parent d763b013
......@@ -1273,9 +1273,38 @@ _print_last_unboxed_list
jmp _print_brackets
_print_ul_next_field
eqC_b ',' 0
jmp_true _print_ul_comma_next_field
eqC_b '(' 0
jmp_true _print_ul_open_tuple_next_field
eqC_b ')' 0
jmp_true _print_ul_close_tuple_next_field
print_sc " "
jmp _print_unboxed_list_lp2
_print_ul_open_tuple_next_field
pop_b 1
print_sc " ("
jmp _print_ul_next_field_without_space
_print_ul_comma_next_field
pop_b 1
print_sc ","
_print_ul_next_field_without_space
incI
push_b 0
push_r_arg_t
eqC_b '(' 0
jmp_false _print_unboxed_list_lp2
pop_b 1
print_sc "("
jmp _print_ul_next_field_without_space
_print_ul_close_tuple_next_field
pop_b 1
print_sc ")"
jmp _print_rest_unboxed_list
_print_ul_record
pushD_a 0
.d 0 1 i
......@@ -1296,7 +1325,7 @@ _print_ul_record
print_sc " "
push_t_r_args
incI
jmp _print_unboxed_list_lp1
jmp _print_ul_next_field_without_space
_print__array_
......@@ -1390,7 +1419,12 @@ _print_a_record_lp
push_r_arg_t
eqI_b 0 0
jmp_true _end_print_a_record
eqC_b ',' 0
jmp_true _print_ar_tuple_comma
eqC_b ')' 0
jmp_true _print_ar_close_tuple_char
print_sc " "
_print_a_record_lp__
eqC_b 'r' 0
jmp_true _print_ar_real
eqC_b 'i' 0
......@@ -1403,6 +1437,8 @@ _print_a_record_lp
jmp_true _print_ar_file
eqC_b 'a' 0
jmp_true _print_ar_graph
eqC_b '(' 0
jmp_true _print_ar_open_tuple_char
halt
_print_ar_integer
......@@ -1492,6 +1528,31 @@ _print_a_array
incI
jmp _print_a_record_lp
_print_ar_open_tuple_char
pop_b 1
incI
print_sc "("
_print_ar_record_lp_no_space
push_b 0
push_r_arg_t
eqC_b ')' 0
jmp_true _print_ar_close_tuple_char
eqI_b 0 0
jmp_false _print_a_record_lp__
jmp _end_print_a_record
_print_ar_tuple_comma
pop_b 1
incI
print_sc ","
jmp _print_ar_record_lp_no_space
_print_ar_close_tuple_char
pop_b 1
incI
print_sc ")"
jmp _print_a_record_lp
_end_print_a_record
pop_b 2
......@@ -1669,7 +1730,12 @@ _print_record_lp
_print_record_lp_
eqI_b 0 0
jmp_true _end_print_record
eqC_b ',' 0
jmp_true _print_tuple_comma
eqC_b ')' 0
jmp_true _print_close_tuple_char
print_sc " "
_print_record_lp__
eqC_b 'i' 0
jmp_true _print_r_integer
eqC_b 'c' 0
......@@ -1682,6 +1748,8 @@ _print_record_lp_
jmp_true _print_r_file
eqC_b 'a' 0
jmp_true _print_r_graph
eqC_b '(' 0
jmp_true _print_open_tuple_char
halt
_print_r_integer
......@@ -1773,6 +1841,29 @@ _print_r_graph
.o 0 0
jmp _print_record_lp
_print_open_tuple_char
pop_b 1
print_sc "("
_print_record_lp_no_space
incI
push_b 0
push_r_arg_t
eqC_b ')' 0
jmp_true _print_close_tuple_char
eqI_b 0 0
jmp_false _print_record_lp__
jmp _end_print_record
_print_tuple_comma
pop_b 1
print_sc ","
jmp _print_record_lp_no_space
_print_close_tuple_char
pop_b 1
print_sc ")"
jmp _print_record_lp
_print_last_record_arg
pop_b 1
incI
......@@ -1865,6 +1956,104 @@ _eval_last_list
pop_a 1
jmp _eval_brackets
_eval_unboxed_list
pop_b 1
jmp _eval_unboxed_list_
_eval_unboxed_list_lp0
push_t_r_args
push_b 0
push_r_arg_t
eqC_b 'l' 0
updatepop_b 0 1
jmp_true _eval_unboxed_list_
halt
_eval_unboxed_list_
push_b 0
incI
push_r_arg_t
eqC_b 'R' 0
updatepop_b 0 1
jmp_false _eval_unboxed_list_lp1
_eval_ul_record
incI
_eval_unboxed_list_lp1
incI
push_b 0
push_r_arg_t
_eval_ul_next_field
_eval_unboxed_list_lp2
eqC_b 'i' 0
jmp_true _eval_ul_int_char_or_bool
eqC_b 'c' 0
jmp_true _eval_ul_int_char_or_bool
eqC_b 'r' 0
jmp_true _eval_ul_real_or_file
eqC_b 'b' 0
jmp_true _eval_ul_int_char_or_bool
eqC_b 'f' 0
jmp_true _eval_ul_real_or_file
eqC_b 'a' 0
jmp_true _eval_ul_graph
eqC_b '(' 0
jmp_true _eval_ul_skip_char
eqC_b ',' 0
jmp_true _eval_ul_skip_char
eqC_b ')' 0
jmp_true _eval_ul_skip_char
halt
_eval_ul_int_char_or_bool
pop_b 1
updatepop_b 0 1
jmp _eval_rest_unboxed_list
_eval_ul_real_or_file
pop_b 1
updatepop_b 0 2
jmp _eval_rest_unboxed_list
_eval_ul_graph
pop_b 1
jsr_eval 0
pushI 0
.d 1 1 i
jsr _eval2
.o 0 0
jmp _eval_rest_unboxed_list
_eval_ul_skip_char
pop_b 1
_eval_rest_unboxed_list
incI
push_b 0
push_r_arg_t
eqC_b 'a' 0
jmp_false _eval_ul_next_field
push_b 1
incI
push_r_arg_t
eqI_b 0 0
updatepop_b 0 1
jmp_false _eval_ul_next_field
pop_b 2
jsr_eval 0
eq_desc _Nil 0 0
jmp_false _eval_unboxed_list_lp0
_eval_last_unboxed_list
pop_a 1
jmp _eval_brackets
_eval__array_
.d 1 1 i
jmp _eval__array2
......@@ -1954,6 +2143,12 @@ _eval_a_record_lp
jmp_true _eval_ar_file
eqC_b 'a' 0
jmp_true _eval_ar_graph
eqC_b '(' 0
jmp_true _eval_a_skip_char
eqC_b ',' 0
jmp_true _eval_a_skip_char
eqC_b ')' 0
jmp_true _eval_a_skip_char
halt
_eval_ar_bool
......@@ -1995,6 +2190,11 @@ _eval_a_array
incI
jmp _eval_a_record_lp
_eval_a_skip_char
pop_b 1
incI
jmp _eval_a_record_lp
_end_eval_a_record
pop_b 2
......@@ -2047,6 +2247,8 @@ _eval_record
push_b 0
push_r_arg_t
eqC_b 'l' 0
jmp_true _eval_unboxed_list
eqC_b 'd' 0
jmp_false _eval_record_lp_
......@@ -2071,6 +2273,12 @@ _eval_record_lp_
jmp_true _eval_r_file
eqC_b 'a' 0
jmp_true _eval_r_graph
eqC_b '(' 0
jmp_true _eval_r_skip_char
eqC_b ',' 0
jmp_true _eval_r_skip_char
eqC_b ')' 0
jmp_true _eval_r_skip_char
halt
_eval_r_char
......@@ -2111,6 +2319,11 @@ _eval_r_graph
incI
jmp _eval_record_lp
_eval_r_skip_char
pop_b 1
incI
jmp _eval_record_lp
_eval_last_record_arg
pop_b 1
incI
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment