diff options
author | johnvg | 2001-12-17 16:27:05 +0000 |
---|---|---|
committer | johnvg | 2001-12-17 16:27:05 +0000 |
commit | 18a014149a2fcbfdf95b1c33823eac097af8f3a6 (patch) | |
tree | ccaa9e0bc57e61ef188a7b9e1c11020e9fcdd599 /backendC/CleanCompilerSources/instructions.c | |
parent | solved multiple defined moduleIDs in lets (diff) |
fix bug in label names of cons for unboxed lists of records
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@941 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC/CleanCompilerSources/instructions.c')
-rw-r--r-- | backendC/CleanCompilerSources/instructions.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c index 1b49c01..a9c2a66 100644 --- a/backendC/CleanCompilerSources/instructions.c +++ b/backendC/CleanCompilerSources/instructions.c @@ -2770,17 +2770,14 @@ void GenUnboxedConsRecordDescriptor (SymbDef sdef,int tail_strict) unboxed_record_cons_prefix=tail_strict ? "r_Cons#!" : "r_Cons#"; - if (sdef->sdef_exported || ExportLocalLabels){ + if (ExportLocalLabels){ put_directive_ (Dexport); FPrintF (OutFile, "e_%s_%s%s",CurrentModule,unboxed_record_cons_prefix,name); put_directive_ (Drecord); FPrintF (OutFile, "e_%s_%s%s ",CurrentModule,unboxed_record_cons_prefix,name); - } else if (DoDebug){ - put_directive_ (Drecord); - FPrintF (OutFile, "%s%s ",unboxed_record_cons_prefix,name); } else { put_directive_ (Drecord); - FPrintF (OutFile, "%s%u ",unboxed_record_cons_prefix,sdef->sdef_number); + FPrintF (OutFile, "%s%s ",unboxed_record_cons_prefix,name); } tuple_state.state_type=TupleState; |