diff options
| author | johnvg | 2004-03-19 16:10:53 +0000 |
|---|---|---|
| committer | johnvg | 2004-03-19 16:10:53 +0000 |
| commit | bfa60d6e45f7dec69d3b0ae0e708e48bc5036c96 (patch) | |
| tree | fa07cabce387e4e162e25b93ee7ab03847bd502a /backendC/CleanCompilerSources/instructions.c | |
| parent | bug 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.c | 14 |
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); |