Commit cbd30104 authored by John van Groningen's avatar John van Groningen
Browse files

Merge branch '_system_eval_to_nf_with_repl_r_a_args_n_a'

parents a8f5e88f ac1cf235
......@@ -2137,95 +2137,6 @@ _eval_rest_list
.d 0 0
rtn
_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
pop_b 1
jmp _eval_rest_unboxed_list
_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
.d 1 0
jsr _eval2
.o 0 0
jmp _eval_rest_unboxed_list
_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
.d 0 0
rtn
_eval__array_
.d 1 0
......@@ -2390,90 +2301,26 @@ _eval_real32_array
rtn
_eval_record
push_t_r_args
repl_r_a_args_n_a
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_
pop_b 1
incI
_eval_record_lp
push_b 0
push_r_arg_t
_eval_record_lp_
eqI_b 0 0
jmp_true _end_eval_record
eqC_b 'r' 0
jmp_true _eval_r_real
eqC_b 'i' 0
jmp_true _eval_r_integer
eqC_b 'c' 0
jmp_true _eval_r_char
eqC_b 'b' 0
jmp_true _eval_r_bool
eqC_b 'f' 0
jmp_true _eval_r_file
eqC_b 'a' 0
jmp_true _eval_r_graph
pop_b 1
incI
jmp _eval_record_lp
_eval_r_char
_eval_r_bool
_eval_r_integer
pop_b 1
update_b 0 1
pop_b 1
incI
jmp _eval_record_lp
_eval_r_file
_eval_r_real
pop_b 1
update_b 0 2
pop_b 2
incI
jmp _eval_record_lp
_eval_r_graph
pop_b 1
jsr_eval 0
eq_desc _ARRAY_ 0 0
jmp_true _eval_r_array
push_b 0
incI
push_r_arg_t
pushI 0
eqI
jmp_true _eval_last_record_arg
eqI_b 0 0
jmp_true _eval_record_a0
_eval_r_a_args
eqI_b 1 0
jmp_true _eval_last_r_a_arg
.d 1 0
jsr _eval2
jsr _eval
.o 0 0
incI
jmp _eval_record_lp
decI
jmp _eval_r_a_args
_eval_last_record_arg
_eval_last_r_a_arg
pop_b 1
jmp _eval2
jmp _eval
_eval_r_array
.d 1 0
jsr _eval__array
.o 0 0
incI
jmp _eval_record_lp
_end_eval_record
pop_b 2
_eval_record_a0
pop_b 1
.d 0 0
rtn
......
......@@ -2108,95 +2108,6 @@ _eval_rest_list
.d 0 0
rtn
_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_bool_or_real
eqC_b 'c' 0
jmp_true _eval_ul_int_char_bool_or_real
eqC_b 'r' 0
jmp_true _eval_ul_int_char_bool_or_real
eqC_b 'b' 0
jmp_true _eval_ul_int_char_bool_or_real
eqC_b 'f' 0
jmp_true _eval_ul_file
eqC_b 'a' 0
jmp_true _eval_ul_graph
pop_b 1
jmp _eval_rest_unboxed_list
_eval_ul_int_char_bool_or_real
pop_b 1
updatepop_b 0 1
jmp _eval_rest_unboxed_list
_eval_ul_file
pop_b 1
updatepop_b 0 2
jmp _eval_rest_unboxed_list
_eval_ul_graph
pop_b 1
jsr_eval 0
.d 1 0
jsr _eval2
.o 0 0
jmp _eval_rest_unboxed_list
_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
.d 0 0
rtn
_eval__array_
.d 1 0
......@@ -2361,90 +2272,26 @@ _eval_real32_array
rtn
_eval_record
push_t_r_args
repl_r_a_args_n_a
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_
pop_b 1
incI
_eval_record_lp
push_b 0
push_r_arg_t
_eval_record_lp_
eqI_b 0 0
jmp_true _end_eval_record
eqC_b 'r' 0
jmp_true _eval_r_real
eqC_b 'i' 0
jmp_true _eval_r_integer
eqC_b 'c' 0
jmp_true _eval_r_char
eqC_b 'b' 0
jmp_true _eval_r_bool
eqC_b 'f' 0
jmp_true _eval_r_file
eqC_b 'a' 0
jmp_true _eval_r_graph
pop_b 1
incI
jmp _eval_record_lp
_eval_r_char
_eval_r_bool
_eval_r_integer
_eval_r_real
pop_b 1
update_b 0 1
pop_b 1
incI
jmp _eval_record_lp
_eval_r_file
pop_b 1
update_b 0 2
pop_b 2
incI
jmp _eval_record_lp
_eval_r_graph
pop_b 1
jsr_eval 0
eq_desc _ARRAY_ 0 0
jmp_true _eval_r_array
push_b 0
incI
push_r_arg_t
pushI 0
eqI
jmp_true _eval_last_record_arg
eqI_b 0 0
jmp_true _eval_record_a0
_eval_r_a_args
eqI_b 1 0
jmp_true _eval_last_r_a_arg
.d 1 0
jsr _eval2
jsr _eval
.o 0 0
incI
jmp _eval_record_lp
decI
jmp _eval_r_a_args
_eval_last_record_arg
_eval_last_r_a_arg
pop_b 1
jmp _eval2
jmp _eval
_eval_r_array
.d 1 0
jsr _eval__array
.o 0 0
incI
jmp _eval_record_lp
_end_eval_record
pop_b 2
_eval_record_a0
pop_b 1
.d 0 0
rtn
......
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