diff options
author | johnvg | 2001-10-05 13:02:42 +0000 |
---|---|---|
committer | johnvg | 2001-10-05 13:02:42 +0000 |
commit | 610e4df79f53700b17b82bbd1d6f6e942b601afd (patch) | |
tree | ea9ffc48399b1a2e46cbabfd7ad345c936e8522a /backendC/CleanCompilerSources/instructions.c | |
parent | Added 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.c | 16 |
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); |