From 6cad4d3d03d0e00e475cbc4595a9abc28ed62308 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Mon, 19 Nov 2001 11:19:48 +0000
Subject: 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
---
 backendC/CleanCompilerSources/codegen1.c | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'backendC')

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)
-- 
cgit v1.2.3