Commit 1f63c659 authored by johnvg@science.ru.nl's avatar johnvg@science.ru.nl
Browse files

inline abc code from definition modules as well (as from system modules)

parent 26de41e7
...@@ -2615,8 +2615,8 @@ static void FillSymbol (Node node,SymbDef sdef,int *asp_p,int *bsp_p,NodeId upda ...@@ -2615,8 +2615,8 @@ static void FillSymbol (Node node,SymbDef sdef,int *asp_p,int *bsp_p,NodeId upda
*asp_p-=a_size; *asp_p-=a_size;
*bsp_p-=b_size; *bsp_p-=b_size;
if (! (sdef->sdef_kind==SYSRULE && if (! ((sdef->sdef_mark & SDEF_DEFRULE_ABC_CODE)!=0 && (sdef->sdef_kind==SYSRULE || sdef->sdef_kind==DEFRULE)
(sdef->sdef_mark & SDEF_DEFRULE_ABC_CODE)!=0 && sdef->sdef_abc_code!=NULL && sdef->sdef_abc_code->instr_this[0]!='.')) && sdef->sdef_abc_code!=NULL && sdef->sdef_abc_code->instr_this[0]!='.'))
{ {
cleanup_stack (asp_p,bsp_p,a_size,b_size,&code_gen_node_ids_p->a_node_ids,&code_gen_node_ids_p->b_node_ids, cleanup_stack (asp_p,bsp_p,a_size,b_size,&code_gen_node_ids_p->a_node_ids,&code_gen_node_ids_p->b_node_ids,
&code_gen_node_ids_p->free_node_ids,code_gen_node_ids_p->moved_node_ids_l, &code_gen_node_ids_p->free_node_ids,code_gen_node_ids_p->moved_node_ids_l,
...@@ -2640,8 +2640,8 @@ static void FillSymbol (Node node,SymbDef sdef,int *asp_p,int *bsp_p,NodeId upda ...@@ -2640,8 +2640,8 @@ static void FillSymbol (Node node,SymbDef sdef,int *asp_p,int *bsp_p,NodeId upda
*asp_p-=a_size+1; *asp_p-=a_size+1;
*bsp_p-=b_size; *bsp_p-=b_size;
if (! (sdef->sdef_kind==SYSRULE && if (! ((sdef->sdef_mark & SDEF_DEFRULE_ABC_CODE)!=0 && (sdef->sdef_kind==SYSRULE || sdef->sdef_kind==DEFRULE)
(sdef->sdef_mark & SDEF_DEFRULE_ABC_CODE)!=0 && sdef->sdef_abc_code!=NULL && sdef->sdef_abc_code->instr_this[0]!='.')) && sdef->sdef_abc_code!=NULL && sdef->sdef_abc_code->instr_this[0]!='.'))
{ {
cleanup_stack (asp_p,bsp_p,a_size+1,b_size,&code_gen_node_ids_p->a_node_ids,&code_gen_node_ids_p->b_node_ids, cleanup_stack (asp_p,bsp_p,a_size+1,b_size,&code_gen_node_ids_p->a_node_ids,&code_gen_node_ids_p->b_node_ids,
&code_gen_node_ids_p->free_node_ids,code_gen_node_ids_p->moved_node_ids_l, &code_gen_node_ids_p->free_node_ids,code_gen_node_ids_p->moved_node_ids_l,
...@@ -2663,8 +2663,8 @@ static void FillSymbol (Node node,SymbDef sdef,int *asp_p,int *bsp_p,NodeId upda ...@@ -2663,8 +2663,8 @@ static void FillSymbol (Node node,SymbDef sdef,int *asp_p,int *bsp_p,NodeId upda
*asp_p-=a_size; *asp_p-=a_size;
*bsp_p-=b_size; *bsp_p-=b_size;
if (! (sdef->sdef_kind==SYSRULE && if (! ((sdef->sdef_mark & SDEF_DEFRULE_ABC_CODE)!=0 && (sdef->sdef_kind==SYSRULE || sdef->sdef_kind==DEFRULE)
(sdef->sdef_mark & SDEF_DEFRULE_ABC_CODE)!=0 && sdef->sdef_abc_code!=NULL && sdef->sdef_abc_code->instr_this[0]!='.')) && sdef->sdef_abc_code!=NULL && sdef->sdef_abc_code->instr_this[0]!='.'))
{ {
cleanup_stack (asp_p,bsp_p,a_size,b_size,&code_gen_node_ids_p->a_node_ids,&code_gen_node_ids_p->b_node_ids, cleanup_stack (asp_p,bsp_p,a_size,b_size,&code_gen_node_ids_p->a_node_ids,&code_gen_node_ids_p->b_node_ids,
&code_gen_node_ids_p->free_node_ids,code_gen_node_ids_p->moved_node_ids_l, &code_gen_node_ids_p->free_node_ids,code_gen_node_ids_p->moved_node_ids_l,
...@@ -4991,8 +4991,8 @@ static void FillUniqueNodeWithNode (NodeP update_node,int *asp_p,int *bsp_p,Code ...@@ -4991,8 +4991,8 @@ static void FillUniqueNodeWithNode (NodeP update_node,int *asp_p,int *bsp_p,Code
*asp_p-=a_size; *asp_p-=a_size;
*bsp_p-=b_size; *bsp_p-=b_size;
if (! (sdef->sdef_kind==SYSRULE && if (! ((sdef->sdef_mark & SDEF_DEFRULE_ABC_CODE)!=0 && (sdef->sdef_kind==SYSRULE || sdef->sdef_kind==DEFRULE)
(sdef->sdef_mark & SDEF_DEFRULE_ABC_CODE)!=0 && sdef->sdef_abc_code!=NULL && sdef->sdef_abc_code->instr_this[0]!='.')) && sdef->sdef_abc_code!=NULL && sdef->sdef_abc_code->instr_this[0]!='.'))
{ {
cleanup_stack (asp_p,bsp_p,a_size,b_size,&code_gen_node_ids_p->a_node_ids,&code_gen_node_ids_p->b_node_ids, cleanup_stack (asp_p,bsp_p,a_size,b_size,&code_gen_node_ids_p->a_node_ids,&code_gen_node_ids_p->b_node_ids,
&code_gen_node_ids_p->free_node_ids,code_gen_node_ids_p->moved_node_ids_l, &code_gen_node_ids_p->free_node_ids,code_gen_node_ids_p->moved_node_ids_l,
......
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