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
509cc6a7
Commit
509cc6a7
authored
Jun 13, 2013
by
John van Groningen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
fix printing and evaluating lists and arrays of records with unboxed Real's
parent
11ad6dd0
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
16 additions
and
20 deletions
+16
-20
StdEnv 64 Changed Files/_system.abc
StdEnv 64 Changed Files/_system.abc
+16
-20
No files found.
StdEnv 64 Changed Files/_system.abc
View file @
509cc6a7
...
...
@@ -198,14 +198,14 @@ ea_Conssts
.export _Consi _Consr _Consc _Consb _Consf
.record _Consi lia 1 1 "[#Int]"
.record _Consr lra 1
2
"[#Real]"
.record _Consr lra 1
1
"[#Real]"
.record _Consc lca 1 1 "[#Char]"
.record _Consb lba 1 1 "[#Bool]"
.record _Consf lfa 1 2 "[#File]"
.export _Consits _Consrts _Conscts _Consbts _Consfts
.record _Consits lia 1 1 "[#Int!]"
.record _Consrts lra 1
2
"[#Real!]"
.record _Consrts lra 1
1
"[#Real!]"
.record _Conscts lca 1 1 "[#Char!]"
.record _Consbts lba 1 1 "[#Bool!]"
.record _Consfts lfa 1 2 "[#File!]"
...
...
@@ -1197,11 +1197,9 @@ _print_ul_char
_print_ul_real
pop_b 1
push_b 2
push_b 2
update_b 2 4
update_b 1 3
updatepop_b 0 2
push_b 1
update_b 1 2
updatepop_b 0 1
print_real
...
...
@@ -1469,12 +1467,10 @@ _print_ar_char
_print_ar_real
pop_b 1
push_b 2
push_b 2
update_b 2 4
update_b 1 3
update_b 0 2
pop_b 2
push_b 1
update_b 1 2
update_b 0 1
pop_b 1
print_real
...
...
@@ -1986,15 +1982,15 @@ _eval_unboxed_list_lp1
_eval_ul_next_field
_eval_unboxed_list_lp2
eqC_b 'i' 0
jmp_true _eval_ul_int_char_
or_boo
l
jmp_true _eval_ul_int_char_
bool_or_rea
l
eqC_b 'c' 0
jmp_true _eval_ul_int_char_
or_boo
l
jmp_true _eval_ul_int_char_
bool_or_rea
l
eqC_b 'r' 0
jmp_true _eval_ul_
real_or_file
jmp_true _eval_ul_
int_char_bool_or_real
eqC_b 'b' 0
jmp_true _eval_ul_int_char_
or_boo
l
jmp_true _eval_ul_int_char_
bool_or_rea
l
eqC_b 'f' 0
jmp_true _eval_ul_
real_or_
file
jmp_true _eval_ul_file
eqC_b 'a' 0
jmp_true _eval_ul_graph
eqC_b '(' 0
...
...
@@ -2005,12 +2001,12 @@ _eval_unboxed_list_lp2
jmp_true _eval_ul_skip_char
halt
_eval_ul_int_char_
or_boo
l
_eval_ul_int_char_
bool_or_rea
l
pop_b 1
updatepop_b 0 1
jmp _eval_rest_unboxed_list
_eval_ul_
real_or_
file
_eval_ul_file
pop_b 1
updatepop_b 0 2
jmp _eval_rest_unboxed_list
...
...
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