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

if ExportLocalLabels and strict constructor not used curried and not

exported, also export label with d prefix for strict constructor and
fix name for label with n prefix
parent ed6f8179
...@@ -3043,16 +3043,22 @@ void GenConstructorFunctionDescriptorAndExportNodeAndDescriptor (SymbDef sdef) ...@@ -3043,16 +3043,22 @@ void GenConstructorFunctionDescriptorAndExportNodeAndDescriptor (SymbDef sdef)
FPrintF (OutFile,L_PREFIX "%u ",sdef->sdef_number); FPrintF (OutFile,L_PREFIX "%u ",sdef->sdef_number);
} else { } else {
if (ExportLocalLabels){ if (ExportLocalLabels){
put_directive_ (Dexport);
FPrintF (OutFile,"e_%s_" D_PREFIX "%s",CurrentModule,name);
put_directive_ (Dexport); put_directive_ (Dexport);
FPrintF (OutFile,"e_%s_" N_PREFIX "%s",CurrentModule,name); FPrintF (OutFile,"e_%s_" N_PREFIX "%s",CurrentModule,name);
} }
put_directive_ (Ddescn); put_directive_ (Ddescn);
if (DoDebug) if (ExportLocalLabels)
FPrintF (OutFile, D_PREFIX "%s ", name); FPrintF (OutFile,"e_%s_" D_PREFIX "%s ",CurrentModule,name);
else else {
FPrintF (OutFile, LOCAL_D_PREFIX "%u ", sdef->sdef_number); if (DoDebug)
FPrintF (OutFile, D_PREFIX "%s ", name);
else
FPrintF (OutFile, LOCAL_D_PREFIX "%u ", sdef->sdef_number);
}
if (ExportLocalLabels) if (ExportLocalLabels)
FPrintF (OutFile,"e_%s_" N_PREFIX "%s ",CurrentModule,name); FPrintF (OutFile,"e_%s_" N_PREFIX "%s ",CurrentModule,name);
......
Supports Markdown
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