diff options
| author | johnvg | 2003-01-09 12:33:34 +0000 |
|---|---|---|
| committer | johnvg | 2003-01-09 12:33:34 +0000 |
| commit | 68f4d29b7320dc7de41e53724dc5caf8df8a17f2 (patch) | |
| tree | f344279a05cb107b086907a41a4be706da92a5c9 /backendC/CleanCompilerSources/instructions.c | |
| parent | bug fix: copy decons_expr in pattern when copying a function with stricter re... (diff) | |
fix label names for unboxed lists of records with dynamics
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1310 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC/CleanCompilerSources/instructions.c')
| -rw-r--r-- | backendC/CleanCompilerSources/instructions.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c index ebed588..9c03346 100644 --- a/backendC/CleanCompilerSources/instructions.c +++ b/backendC/CleanCompilerSources/instructions.c @@ -2812,7 +2812,10 @@ void GenUnboxedConsRecordDescriptor (SymbDef sdef,int tail_strict) DetermineSizeOfState (tuple_state,&asize,&bsize); - FPrintF (OutFile,tail_strict ? " %d %d \"[#%s!]\"" : " %d %d \"[#%s]\"",asize,bsize,name); + if (ExportLocalLabels) + FPrintF (OutFile,tail_strict ? " %d %d \"_Cons#!%s\"" : " %d %d \"_Cons#\"",asize,bsize,name); + else + FPrintF (OutFile,tail_strict ? " %d %d \"[#%s!]\"" : " %d %d \"[#%s]\"",asize,bsize,name); } #endif |