aboutsummaryrefslogtreecommitdiff
path: root/backendC/CleanCompilerSources/instructions.c
diff options
context:
space:
mode:
authorjohnvg2003-01-09 12:33:34 +0000
committerjohnvg2003-01-09 12:33:34 +0000
commit68f4d29b7320dc7de41e53724dc5caf8df8a17f2 (patch)
treef344279a05cb107b086907a41a4be706da92a5c9 /backendC/CleanCompilerSources/instructions.c
parentbug 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.c5
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