Add support for packed arrays to _print_graph and _eval_to_nf

parent 9c3b934f
...@@ -1366,6 +1366,14 @@ _print__array2 ...@@ -1366,6 +1366,14 @@ _print__array2
eq_desc_b REAL 0 eq_desc_b REAL 0
jmp_true _print_real_array jmp_true _print_real_array
push_b 0
eq_desc_b INT32 0
jmp_true _print_int32_array
push_b 0
eq_desc_b REAL32 0
jmp_true _print_real32_array
pushI 0 pushI 0
push_a 0 push_a 0
...@@ -1720,6 +1728,72 @@ _print_real_array_lp2 ...@@ -1720,6 +1728,72 @@ _print_real_array_lp2
pop_b 2 pop_b 2
print_sc "}" print_sc "}"
jmp _print_brackets jmp _print_brackets
_print_int32_array
pop_b 1
pushI 0
push_a 0
push_arraysize INT32 0 1
jmp _print_int32_array_lp2
.o 1 2 i i
_print_int32_array_lp1
eqI_b 0 1
jmp_true _no_comma_4
print_sc ","
_no_comma_4
push_b 1
push_a 0
select INT32 0 1
print_int
push_b 1
incI
update_b 0 2
pop_b 1
decI
_print_int32_array_lp2
eqI_b 0 0
jmp_false _print_int32_array_lp1
pop_a 1
pop_b 2
print_sc "}"
jmp _print_brackets
_print_real32_array
pop_b 1
push_a 0
pushI 0
push_arraysize REAL32 0 2
jmp _print_real32_array_lp2
.o 1 2 i i
_print_real32_array_lp1
eqI_b 0 1
jmp_true _no_comma_5
print_sc ","
_no_comma_5
push_b 1
push_a 0
select REAL32 0 2
create
fillR_b 0 0
pop_b 2
print_symbol_sc 0
pop_a 1
push_b 1
incI
update_b 0 2
pop_b 1
decI
_print_real32_array_lp2
eqI_b 0 0
jmp_false _print_real32_array_lp1
pop_a 1
pop_b 2
print_sc "}"
jmp _print_brackets
_print_nil _print_nil
print_sc "[]" print_sc "[]"
...@@ -2148,6 +2222,14 @@ _eval__array2 ...@@ -2148,6 +2222,14 @@ _eval__array2
eq_desc_b REAL 0 eq_desc_b REAL 0
jmp_true _eval_real_array jmp_true _eval_real_array
push_b 0
eq_desc_b INT32 0
jmp_true _eval_int32_array
push_b 0
eq_desc_b REAL32 0
jmp_true _eval_real32_array
pushI 0 pushI 0
push_a 0 push_a 0
...@@ -2273,9 +2355,11 @@ _eval_char_array ...@@ -2273,9 +2355,11 @@ _eval_char_array
.d 0 0 .d 0 0
rtn rtn
_eval_real_array
_eval_bool_array _eval_bool_array
_eval_int_array _eval_int_array
_eval_real_array
_eval_int32_array
_eval_real32_array
pop_b 1 pop_b 1
pop_a 1 pop_a 1
.d 0 0 .d 0 0
......
...@@ -1342,6 +1342,14 @@ _print__array2 ...@@ -1342,6 +1342,14 @@ _print__array2
eq_desc_b REAL 0 eq_desc_b REAL 0
jmp_true _print_real_array jmp_true _print_real_array
push_b 0
eq_desc_b INT32 0
jmp_true _print_int32_array
push_b 0
eq_desc_b REAL32 0
jmp_true _print_real32_array
pushI 0 pushI 0
push_a 0 push_a 0
...@@ -1694,6 +1702,72 @@ _print_real_array_lp2 ...@@ -1694,6 +1702,72 @@ _print_real_array_lp2
pop_b 2 pop_b 2
print_sc "}" print_sc "}"
jmp _print_brackets jmp _print_brackets
_print_int32_array
pop_b 1
pushI 0
push_a 0
push_arraysize INT32 0 1
jmp _print_int32_array_lp2
.o 1 2 i i
_print_int32_array_lp1
eqI_b 0 1
jmp_true _no_comma_4
print_sc ","
_no_comma_4
push_b 1
push_a 0
select INT32 0 1
print_int
push_b 1
incI
update_b 0 2
pop_b 1
decI
_print_int32_array_lp2
eqI_b 0 0
jmp_false _print_int32_array_lp1
pop_a 1
pop_b 2
print_sc "}"
jmp _print_brackets
_print_real32_array
pop_b 1
push_a 0
pushI 0
push_arraysize REAL32 0 2
jmp _print_real32_array_lp2
.o 1 2 i i
_print_real32_array_lp1
eqI_b 0 1
jmp_true _no_comma_5
print_sc ","
_no_comma_5
push_b 1
push_a 0
select REAL32 0 2
create
fillR_b 0 0
pop_b 1
print_symbol_sc 0
pop_a 1
push_b 1
incI
update_b 0 2
pop_b 1
decI
_print_real32_array_lp2
eqI_b 0 0
jmp_false _print_real32_array_lp1
pop_a 1
pop_b 2
print_sc "}"
jmp _print_brackets
_print_nil _print_nil
print_sc "[]" print_sc "[]"
...@@ -2120,6 +2194,14 @@ _eval__array2 ...@@ -2120,6 +2194,14 @@ _eval__array2
eq_desc_b REAL 0 eq_desc_b REAL 0
jmp_true _eval_real_array jmp_true _eval_real_array
push_b 0
eq_desc_b INT32 0
jmp_true _eval_int32_array
push_b 0
eq_desc_b REAL32 0
jmp_true _eval_real32_array
pushI 0 pushI 0
push_a 0 push_a 0
...@@ -2245,9 +2327,11 @@ _eval_char_array ...@@ -2245,9 +2327,11 @@ _eval_char_array
.d 0 0 .d 0 0
rtn rtn
_eval_real_array
_eval_bool_array _eval_bool_array
_eval_int_array _eval_int_array
_eval_real_array
_eval_int32_array
_eval_real32_array
pop_b 1 pop_b 1
pop_a 1 pop_a 1
.d 0 0 .d 0 0
......
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