diff options
| author | johnvg | 2001-11-19 11:19:48 +0000 |
|---|---|---|
| committer | johnvg | 2001-11-19 11:19:48 +0000 |
| commit | 6cad4d3d03d0e00e475cbc4595a9abc28ed62308 (patch) | |
| tree | e57f2bfc10b5f3a34478abd5ec179c1061999a59 | |
| parent | collecting fi_calls (diff) | |
fix bug in exporting record labels for Dynamics
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@891 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | backendC/CleanCompilerSources/codegen1.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/backendC/CleanCompilerSources/codegen1.c b/backendC/CleanCompilerSources/codegen1.c index 647877a..2ff6fe5 100644 --- a/backendC/CleanCompilerSources/codegen1.c +++ b/backendC/CleanCompilerSources/codegen1.c @@ -207,11 +207,11 @@ void ConvertSymbolToConstructorDandNLabel (LabDef *d_lab,LabDef *n_lab,SymbDef s MakeSymbolLabel (d_lab,modname,d_pref,sdef,0); - *n_lab = *d_lab; - n_lab->lab_pref = n_pref; - if (modname==NULL && ExportLocalLabels) - n_lab->lab_mod = CurrentModule; + d_lab->lab_mod = CurrentModule; + + *n_lab = *d_lab; + n_lab->lab_pref = n_pref; } void ConvertSymbolToRecordDandNLabel (LabDef *d_lab,LabDef *n_lab,SymbDef sdef) @@ -225,11 +225,11 @@ void ConvertSymbolToRecordDandNLabel (LabDef *d_lab,LabDef *n_lab,SymbDef sdef) MakeSymbolLabel (d_lab,modname,RECORD_D_PREFIX,sdef,0); + if (modname==NULL && ExportLocalLabels) + d_lab->lab_mod = CurrentModule; + *n_lab = *d_lab; n_lab->lab_pref = RECORD_N_PREFIX; - - if (modname==NULL && ExportLocalLabels) - n_lab->lab_mod = CurrentModule; } void ConvertSymbolToKLabel (LabDef *slab,SymbDef sdef) |