From 3e8bb96916c0af333720e4d0644efb34f4eed133 Mon Sep 17 00:00:00 2001 From: John van Groningen Date: Mon, 19 Nov 2001 11:19:48 +0000 Subject: [PATCH] fix bug in exporting record labels for Dynamics --- backendC/CleanCompilerSources/codegen1.c | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/backendC/CleanCompilerSources/codegen1.c b/backendC/CleanCompilerSources/codegen1.c index 647877ac..2ff6fe51 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) -- GitLab