diff options
-rw-r--r-- | backendC/CleanCompilerSources/instructions.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c index b076f5f..9c79159 100644 --- a/backendC/CleanCompilerSources/instructions.c +++ b/backendC/CleanCompilerSources/instructions.c @@ -3139,9 +3139,9 @@ void GenUnboxedConsRecordDescriptor (SymbDef sdef,int tail_strict) FPrintF (OutFile," %d %d ",asize,bsize); GenUnboxedRecordLabelsReversedForRecord (tuple_arguments_state[0]); if (ExportLocalLabels) - FPrintF (OutFile,tail_strict ? "\"_Cons#!%s\"" : "\"_Cons#\"",asize,bsize,name); + FPrintF (OutFile,tail_strict ? "\"_Cons#!%s\"" : "\"_Cons#\"",name); else - FPrintF (OutFile,tail_strict ? "\"[#%s!]\"" : "\"[#%s]\"",asize,bsize,name); + FPrintF (OutFile,tail_strict ? "\"[#%s!]\"" : "\"[#%s]\"",name); } } #endif |