Commit 297f8482 authored by johnvg@science.ru.nl's avatar johnvg@science.ru.nl

amend previous commit: inline abc code from definition modules as well (as from system modules)

parent 1f63c659
......@@ -1331,14 +1331,6 @@ static void CallFunction2 (Label label, SymbDef def, Bool isjsr, StateS root_sta
label->lab_pref = s_pref;
if (def->sdef_kind==SYSRULE){
if (def->sdef_mark & SDEF_DEFRULE_ABC_CODE){
GenABCInstructions (def->sdef_abc_code);
if (!isjsr)
GenRtn (aout, bout, root_state);
return;
}
}
if (def->sdef_kind==IMPRULE){
if ((def->sdef_mark & SDEF_INLINE_IS_CONSTRUCTOR)!=0){
generate_is_constructor (def->sdef_rule);
......@@ -1364,6 +1356,11 @@ static void CallFunction2 (Label label, SymbDef def, Bool isjsr, StateS root_sta
GenRtn (aout, bout, root_state);
return;
}
} else if ((def->sdef_mark & SDEF_DEFRULE_ABC_CODE)!=0 && (def->sdef_kind==SYSRULE || def->sdef_kind==DEFRULE)){
GenABCInstructions (def->sdef_abc_code);
if (!isjsr)
GenRtn (aout, bout, root_state);
return;
}
GenDStackLayout (ain, bin, fun_args);
......
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