Commit f9248303 authored by John van Groningen's avatar John van Groningen

fix bug in label names of cons for unboxed lists of records

parent 696ccff4
...@@ -2770,17 +2770,14 @@ void GenUnboxedConsRecordDescriptor (SymbDef sdef,int tail_strict) ...@@ -2770,17 +2770,14 @@ void GenUnboxedConsRecordDescriptor (SymbDef sdef,int tail_strict)
unboxed_record_cons_prefix=tail_strict ? "r_Cons#!" : "r_Cons#"; unboxed_record_cons_prefix=tail_strict ? "r_Cons#!" : "r_Cons#";
if (sdef->sdef_exported || ExportLocalLabels){ if (ExportLocalLabels){
put_directive_ (Dexport); put_directive_ (Dexport);
FPrintF (OutFile, "e_%s_%s%s",CurrentModule,unboxed_record_cons_prefix,name); FPrintF (OutFile, "e_%s_%s%s",CurrentModule,unboxed_record_cons_prefix,name);
put_directive_ (Drecord); put_directive_ (Drecord);
FPrintF (OutFile, "e_%s_%s%s ",CurrentModule,unboxed_record_cons_prefix,name); FPrintF (OutFile, "e_%s_%s%s ",CurrentModule,unboxed_record_cons_prefix,name);
} else if (DoDebug){
put_directive_ (Drecord);
FPrintF (OutFile, "%s%s ",unboxed_record_cons_prefix,name);
} else { } else {
put_directive_ (Drecord); put_directive_ (Drecord);
FPrintF (OutFile, "%s%u ",unboxed_record_cons_prefix,sdef->sdef_number); FPrintF (OutFile, "%s%s ",unboxed_record_cons_prefix,name);
} }
tuple_state.state_type=TupleState; tuple_state.state_type=TupleState;
......
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