Commit 18a26c2a authored by John van Groningen's avatar John van Groningen

in _system.abc, when printing or evaluating an array, first test for lazy or boxed array

parent 1f600cee
......@@ -1354,6 +1354,9 @@ _print__array2
print_sc "{"
eqI_b 0 0
jmp_true _print_array_a
eqD_b BOOL 0
jmp_true _print_bool_array
eqD_b INT 0
......@@ -1365,21 +1368,17 @@ _print__array2
eqD_b REAL32 0
jmp_true _print_real32_array
pop_b 1
pushI 0
push_a 0
push_arraysize _ 0 1
jmp _print_record_array
push_b 2
update_b 2 3
update_b 1 2
update_b 0 1
_print_array_a
pop_b 1
pushI 0
eqI
jmp_false _print_record_array
push_a 0
push_arraysize _ 0 1
jmp _print_array_lp2
.o 1 2 i i
_print_array_lp1
......@@ -2193,6 +2192,9 @@ _eval__array
_eval__array2
push_r_args_b 0 0 2 2 1
eqI_b 0 0
jmp_true _eval_array_a
eqD_b BOOL 0
jmp_true _eval_bool_array
eqD_b INT 0
......@@ -2204,21 +2206,17 @@ _eval__array2
eqD_b REAL32 0
jmp_true _eval_real32_array
pop_b 1
pushI 0
push_a 0
push_arraysize _ 0 1
jmp _eval_record_array
push_b 2
update_b 2 3
update_b 1 2
update_b 0 1
_eval_array_a
pop_b 1
pushI 0
eqI
jmp_false _eval_record_array
push_a 0
push_arraysize _ 0 1
jmp _eval_array_lp2
.o 1 2 i i
_eval_array_lp1
......
......@@ -1330,6 +1330,9 @@ _print__array2
print_sc "{"
eqI_b 0 0
jmp_true _print_array_a
eqD_b BOOL 0
jmp_true _print_bool_array
eqD_b INT 0
......@@ -1341,21 +1344,17 @@ _print__array2
eqD_b REAL32 0
jmp_true _print_real32_array
pop_b 1
pushI 0
push_a 0
push_arraysize _ 0 1
jmp _print_record_array
push_b 2
update_b 2 3
update_b 1 2
update_b 0 1
_print_array_a
pop_b 1
pushI 0
eqI
jmp_false _print_record_array
push_a 0
push_arraysize _ 0 1
jmp _print_array_lp2
.o 1 2 i i
_print_array_lp1
......@@ -2165,6 +2164,9 @@ _eval__array
_eval__array2
push_r_args_b 0 0 2 2 1
eqI_b 0 0
jmp_true _eval_array_a
eqD_b BOOL 0
jmp_true _eval_bool_array
eqD_b INT 0
......@@ -2176,21 +2178,17 @@ _eval__array2
eqD_b REAL32 0
jmp_true _eval_real32_array
pop_b 1
pushI 0
push_a 0
push_arraysize _ 0 1
jmp _eval_record_array
push_b 2
update_b 2 3
update_b 1 2
update_b 0 1
_eval_array_a
pop_b 1
pushI 0
eqI
jmp_false _eval_record_array
push_a 0
push_arraysize _ 0 1
jmp _eval_array_lp2
.o 1 2 i i
_eval_array_lp1
......
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