aboutsummaryrefslogtreecommitdiff
path: root/backendC/CleanCompilerSources/instructions.c
diff options
context:
space:
mode:
authorjohnvg2001-10-05 13:02:42 +0000
committerjohnvg2001-10-05 13:02:42 +0000
commit610e4df79f53700b17b82bbd1d6f6e942b601afd (patch)
treeea9ffc48399b1a2e46cbabfd7ad345c936e8522a /backendC/CleanCompilerSources/instructions.c
parentAdded existential attribute variables to type definitions (diff)
generate t label for strict records with module and record name when ExportLocalLabels=True
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@830 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC/CleanCompilerSources/instructions.c')
-rw-r--r--backendC/CleanCompilerSources/instructions.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c
index b2d380b..1b49c01 100644
--- a/backendC/CleanCompilerSources/instructions.c
+++ b/backendC/CleanCompilerSources/instructions.c
@@ -3118,17 +3118,17 @@ void GenLazyRecordDescriptorAndExport (SymbDef sdef)
put_directive_ (Ddescn);
if (DoDebug){
- FPrintF (OutFile,RECORD_D_PREFIX "%s ",name);
- if (ExportLocalLabels)
+ if (ExportLocalLabels){
+ FPrintF (OutFile,"e_%s_" RECORD_D_PREFIX "%s ",CurrentModule,name);
FPrintF (OutFile,"e_%s_" RECORD_N_PREFIX "%s ",CurrentModule,name);
- else
- FPrintF (OutFile,RECORD_N_PREFIX "%s ",name);
+ } else
+ FPrintF (OutFile,RECORD_D_PREFIX "%s " RECORD_N_PREFIX "%s ",name,name);
} else {
- FPrintF (OutFile,RECORD_D_PREFIX "%u ",sdef->sdef_number);
- if (ExportLocalLabels)
+ if (ExportLocalLabels){
+ FPrintF (OutFile,"e_%s_" RECORD_D_PREFIX "%s ",CurrentModule,name);
FPrintF (OutFile,"e_%s_" RECORD_N_PREFIX "%s ",CurrentModule,name);
- else
- FPrintF (OutFile,RECORD_N_PREFIX "%u ",sdef->sdef_number);
+ } else
+ FPrintF (OutFile,RECORD_D_PREFIX "%u " RECORD_N_PREFIX "%u ",sdef->sdef_number,sdef->sdef_number);
}
FPrintF (OutFile, "%d 1 \"%s\"",arity,name);