Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
S
StdEnv-doc
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Cloogle
StdEnv-doc
Commits
2dfd401a
Commit
2dfd401a
authored
Apr 03, 2014
by
John van Groningen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
add _Unit descriptor, print _Unit as ()
parent
70abf1f9
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
20 additions
and
2 deletions
+20
-2
Clean System Files/_system.abc
Clean System Files/_system.abc
+10
-1
StdEnv 64 Changed Files/_system.abc
StdEnv 64 Changed Files/_system.abc
+10
-1
No files found.
Clean System Files/_system.abc
View file @
2dfd401a
...
...
@@ -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
...
...
StdEnv 64 Changed Files/_system.abc
View file @
2dfd401a
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment