Commit be7392e9 authored by John van Groningen's avatar John van Groningen
Browse files

fix bug in FPrintF call

parent 1736bdb1
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment