diff options
| author | johnvg | 2015-11-23 11:14:39 +0000 |
|---|---|---|
| committer | johnvg | 2015-11-23 11:14:39 +0000 |
| commit | 5c08b90c8485efb18eff1cac64eca44870831a32 (patch) | |
| tree | eb02b65ad569f22b9c305be684432d12a18750c5 | |
| parent | fix qualified import of constructors with a constraint or universally quantif... (diff) | |
use new label names for _indirection (instead of old names)
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@2667 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | backendC/CleanCompilerSources/codegen1.c | 4 | ||||
| -rw-r--r-- | backendC/CleanCompilerSources/instructions.c | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/backendC/CleanCompilerSources/codegen1.c b/backendC/CleanCompilerSources/codegen1.c index af13c63..3880ccf 100644 --- a/backendC/CleanCompilerSources/codegen1.c +++ b/backendC/CleanCompilerSources/codegen1.c @@ -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}; diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c index 1cf1c34..c2e8b9f 100644 --- a/backendC/CleanCompilerSources/instructions.c +++ b/backendC/CleanCompilerSources/instructions.c @@ -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"); |