Commit 36a63396 authored by John van Groningen's avatar John van Groningen

use new label names for _indirection (instead of old names)

parent 40cfe748
......@@ -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_dind", 0};
LabDef hnf_lab = {NULL, "", False, "_hnf", 0};
LabDef cons_lab = {NULL, "", False, "_Cons", 0};
LabDef nil_lab = {NULL, "", False, "_Nil", 0};
......
......@@ -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");
......
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