diff options
| author | johnvg | 2015-09-17 13:03:16 +0000 |
|---|---|---|
| committer | johnvg | 2015-09-17 13:03:16 +0000 |
| commit | dd9312ec003392f80ebe20cfb27b145072a0e7ab (patch) | |
| tree | 56c2d6a47e7bc35221afb0cb06e688845a2846ed | |
| parent | remove .o files generated by c compiler in call to clm, (diff) | |
fix name in descriptor for unboxed lists of records if exporting local labels (again)
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@2632 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | backendC/CleanCompilerSources/instructions.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c index e7b4c1f..1cf1c34 100644 --- a/backendC/CleanCompilerSources/instructions.c +++ b/backendC/CleanCompilerSources/instructions.c @@ -3143,7 +3143,7 @@ void GenUnboxedConsRecordDescriptor (SymbDef sdef,int tail_strict) FPrintF (OutFile, "e_%s_" R_PREFIX "%s ",sdef->sdef_module,name); if (ExportLocalLabels) - FPrintF (OutFile,tail_strict ? "\"_Cons#!%s\"" : "\"_Cons#\"",name); + FPrintF (OutFile,tail_strict ? "\"_Cons#!%s\"" : "\"_Cons#%s\"",name); else FPrintF (OutFile,tail_strict ? "\"[#%s!]\"" : "\"[#%s]\"",name); } |