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