From bfa60d6e45f7dec69d3b0ae0e708e48bc5036c96 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 19 Mar 2004 16:10:53 +0000
Subject: if ExportLocalLabels and strict constructor not used curried and not
 exported, also export label with d prefix for strict constructor and fix name
 for label with n prefix

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1469 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 backendC/CleanCompilerSources/instructions.c | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

(limited to 'backendC/CleanCompilerSources')

diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c
index 2daa27f..459f0f7 100644
--- a/backendC/CleanCompilerSources/instructions.c
+++ b/backendC/CleanCompilerSources/instructions.c
@@ -3043,16 +3043,22 @@ void GenConstructorFunctionDescriptorAndExportNodeAndDescriptor (SymbDef sdef)
 				FPrintF (OutFile,L_PREFIX "%u ",sdef->sdef_number);
 		} else {
 			if (ExportLocalLabels){
+				put_directive_ (Dexport);
+				FPrintF (OutFile,"e_%s_" D_PREFIX "%s",CurrentModule,name);
 				put_directive_ (Dexport);
 				FPrintF (OutFile,"e_%s_" N_PREFIX "%s",CurrentModule,name);
 			}
 
 			put_directive_ (Ddescn);
 
-			if (DoDebug)
-				FPrintF (OutFile, D_PREFIX "%s ", name);
-			else
-				FPrintF (OutFile, LOCAL_D_PREFIX "%u ", sdef->sdef_number);
+			if (ExportLocalLabels)
+				FPrintF (OutFile,"e_%s_" D_PREFIX "%s ",CurrentModule,name);
+			else {
+				if (DoDebug)
+					FPrintF (OutFile, D_PREFIX "%s ", name);
+				else
+					FPrintF (OutFile, LOCAL_D_PREFIX "%u ", sdef->sdef_number);
+			}
 
 			if (ExportLocalLabels)
 				FPrintF (OutFile,"e_%s_" N_PREFIX "%s ",CurrentModule,name);
-- 
cgit v1.2.3