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)
FPrintF (OutFile,L_PREFIX "%u ",sdef->sdef_number);
} else {
if (ExportLocalLabels){
put_directive_ (Dexport);
FPrintF (OutFile,"e_%s_" D_PREFIX "%s",CurrentModule,name);
put_directive_ (Dexport);
FPrintF (OutFile,"e_%s_" N_PREFIX "%s",CurrentModule,name);
}
put_directive_ (Ddescn);
if (DoDebug)
FPrintF (OutFile, D_PREFIX "%s ", name);
else
FPrintF (OutFile, LOCAL_D_PREFIX "%u ", sdef->sdef_number);
if (ExportLocalLabels)
FPrintF (OutFile,"e_%s_" D_PREFIX "%s ",CurrentModule,name);
else {
if (DoDebug)
FPrintF (OutFile, D_PREFIX "%s ", name);
else
FPrintF (OutFile, LOCAL_D_PREFIX "%u ", sdef->sdef_number);
}
if (ExportLocalLabels)
FPrintF (OutFile,"e_%s_" N_PREFIX "%s ",CurrentModule,name);
......
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