diff options
| author | johnvg | 2015-07-09 13:17:46 +0000 |
|---|---|---|
| committer | johnvg | 2015-07-09 13:17:46 +0000 |
| commit | 3b932cd72ab8424bce566ded19a4ac44ff87bb6c (patch) | |
| tree | 1eba4df0b63bbacae9d4fd41683e89806395338c /backendC/CleanCompilerSources | |
| parent | fix printing of symbols starting with a _ (characters after ; were printed tw... (diff) | |
fix name in descriptor for unboxed lists of records if exporting local labels
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@2569 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC/CleanCompilerSources')
| -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 a9c905f..16ed2c6 100644 --- a/backendC/CleanCompilerSources/instructions.c +++ b/backendC/CleanCompilerSources/instructions.c @@ -2979,7 +2979,7 @@ void GenUnboxedConsRecordDescriptor (SymbDef sdef,int tail_strict) DetermineSizeOfState (tuple_state,&asize,&bsize); if (ExportLocalLabels) - FPrintF (OutFile,tail_strict ? " %d %d \"_Cons#!%s\"" : " %d %d \"_Cons#\"",asize,bsize,name); + FPrintF (OutFile,tail_strict ? " %d %d \"_Cons#!%s\"" : " %d %d \"_Cons#%s\"",asize,bsize,name); else FPrintF (OutFile,tail_strict ? " %d %d \"[#%s!]\"" : " %d %d \"[#%s]\"",asize,bsize,name); } |