Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-compiler-and-rts
compiler
Commits
36a63396
Commit
36a63396
authored
Nov 23, 2015
by
John van Groningen
Browse files
use new label names for _indirection (instead of old names)
parent
40cfe748
Changes
2
Hide whitespace changes
Inline
Side-by-side
backendC/CleanCompilerSources/codegen1.c
View file @
36a63396
...
...
@@ -81,8 +81,8 @@ static char loc_sel[] = "t";
LabDef
cycle_lab
=
{
NULL
,
""
,
False
,
"_cycle_in_spine"
,
0
};
LabDef
reserve_lab
=
{
NULL
,
""
,
False
,
"_reserve"
,
0
};
LabDef
type_error_lab
=
{
NULL
,
""
,
False
,
"_type_error"
,
0
};
LabDef
indirection_lab
=
{
NULL
,
""
,
False
,
"
_indirection
"
,
0
};
LabDef
ind_lab
=
{
NULL
,
""
,
False
,
"
_
ind"
,
0
};
LabDef
indirection_lab
=
{
NULL
,
""
,
False
,
"
e_system_nind
"
,
0
};
LabDef
ind_lab
=
{
NULL
,
""
,
False
,
"
e_system_d
ind"
,
0
};
LabDef
hnf_lab
=
{
NULL
,
""
,
False
,
"_hnf"
,
0
};
LabDef
cons_lab
=
{
NULL
,
""
,
False
,
"_Cons"
,
0
};
LabDef
nil_lab
=
{
NULL
,
""
,
False
,
"_Nil"
,
0
};
...
...
backendC/CleanCompilerSources/instructions.c
View file @
36a63396
...
...
@@ -3965,8 +3965,8 @@ void GenSystemImports (void)
GenImpLab
(
type_error_lab
.
lab_name
);
GenImpLab
(
hnf_lab
.
lab_name
);
GenImpDesc
(
"_
ind
"
);
GenImpLab_node_entry
(
indirection_lab
.
lab_name
,
"_eaind"
);
GenImpDesc
(
ind
_lab
.
lab_name
);
GenImpLab_node_entry
(
indirection_lab
.
lab_name
,
"
e_system
_eaind"
);
GenImpDesc
(
"e_system_dif"
);
GenImpLab_node_entry
(
"e_system_nif"
,
"e_system_eaif"
);
GenImpLab
(
"e_system_sif"
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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