aboutsummaryrefslogtreecommitdiff
path: root/backendC/CleanCompilerSources/instructions.c
diff options
context:
space:
mode:
authorjohnvg2004-03-19 16:10:53 +0000
committerjohnvg2004-03-19 16:10:53 +0000
commitbfa60d6e45f7dec69d3b0ae0e708e48bc5036c96 (patch)
treefa07cabce387e4e162e25b93ee7ab03847bd502a /backendC/CleanCompilerSources/instructions.c
parentbug fix: use correct index for constructor in constructor definition (diff)
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
Diffstat (limited to 'backendC/CleanCompilerSources/instructions.c')
-rw-r--r--backendC/CleanCompilerSources/instructions.c14
1 files changed, 10 insertions, 4 deletions
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
@@ -3044,15 +3044,21 @@ void GenConstructorFunctionDescriptorAndExportNodeAndDescriptor (SymbDef sdef)
} 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);