Commit 2dfd401a authored by John van Groningen's avatar John van Groningen

add _Unit descriptor, print _Unit as ()

parent 70abf1f9
......@@ -16,6 +16,7 @@
.export _Tuple
.export _Select _select_code
.export _Nil _Cons
.export e__predef_d_Unit
.export e_system_dAP e_system_nAP e_system_eaAP e_system_dind
.export e_system_dif e_system_lif e_system_sif e_system_nif e_system_eaif
......@@ -55,6 +56,8 @@
.record FILE ii 0 2 "File"
.desc e__predef_d_Unit _hnf _hnf 0 0 "_Unit"
.desc e_system_dAP _hnf e_system_lAP 2 0 "AP"
.desc e_system_dif e_system_nif e_system_lif 3 0 "if"
......@@ -1127,7 +1130,8 @@ _print_last
jmp_true _print__array_
eq_desc _STRING_ 0 0
jmp_true _print_char_array
eq_desc e__predef_d_Unit 0 0
jmp_true _print_unit
print_symbol_sc 0
pop_a 1 | remove node
_print_brackets
......@@ -1700,6 +1704,11 @@ _print_nil
pop_a 1
jmp _print_brackets
_print_unit
print_sc "()"
pop_a 1
jmp _print_brackets
_print_tuple
print_sc "("
get_node_arity 0
......
......@@ -16,6 +16,7 @@
.export _Tuple
.export _Select _select_code
.export _Nil _Cons
.export e__predef_d_Unit
.export e_system_dAP e_system_nAP e_system_eaAP e_system_dind
.export e_system_dif e_system_lif e_system_sif e_system_nif e_system_eaif
......@@ -55,6 +56,8 @@
.record FILE ii 0 2 "File"
.desc e__predef_d_Unit _hnf _hnf 0 0 "_Unit"
.desc e_system_dAP _hnf e_system_lAP 2 0 "AP"
.desc e_system_dif e_system_nif e_system_lif 3 0 "if"
......@@ -1105,7 +1108,8 @@ _print_last
jmp_true _print__array_
eq_desc _STRING_ 0 0
jmp_true _print_char_array
eq_desc e__predef_d_Unit 0 0
jmp_true _print_unit
print_symbol_sc 0
pop_a 1 | remove node
_print_brackets
......@@ -1674,6 +1678,11 @@ _print_nil
pop_a 1
jmp _print_brackets
_print_unit
print_sc "()"
pop_a 1
jmp _print_brackets
_print_tuple
print_sc "("
get_node_arity 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