Commit 051a13fa authored by John van Groningen's avatar John van Groningen

use updatepop_a instead of update_a and pop_a

parent e6f23928
...@@ -1583,9 +1583,7 @@ void CallArrayFunction (SymbDef array_def,Bool is_jsr,StateP node_state_p) ...@@ -1583,9 +1583,7 @@ void CallArrayFunction (SymbDef array_def,Bool is_jsr,StateP node_state_p)
CallFunction2 (ApplyLabel, ApplyDef, True, ApplyState, NULL, 2); CallFunction2 (ApplyLabel, ApplyDef, True, ApplyState, NULL, 2);
GenPushArray (0); GenPushArray (0);
GenUpdateA (0, 1); GenUpdatePopA (0, 1);
GenPopA (1);
break; break;
case ArraySelectFun: case ArraySelectFun:
if (elem_state.state_kind==StrictOnA) if (elem_state.state_kind==StrictOnA)
...@@ -1668,8 +1666,7 @@ void CallArrayFunction (SymbDef array_def,Bool is_jsr,StateP node_state_p) ...@@ -1668,8 +1666,7 @@ void CallArrayFunction (SymbDef array_def,Bool is_jsr,StateP node_state_p)
ApplyOperatorToArrayElem (asize, bsize, elem_state.state_object); ApplyOperatorToArrayElem (asize, bsize, elem_state.state_object);
GenPushArray (0); GenPushArray (0);
GenUpdateA (0, 1); GenUpdatePopA (0, 1);
GenPopA (1);
break; break;
case ArrayUpdateFun: case ArrayUpdateFun:
DetermineSizeOfState (elem_state,&asize,&bsize); DetermineSizeOfState (elem_state,&asize,&bsize);
...@@ -1678,8 +1675,7 @@ void CallArrayFunction (SymbDef array_def,Bool is_jsr,StateP node_state_p) ...@@ -1678,8 +1675,7 @@ void CallArrayFunction (SymbDef array_def,Bool is_jsr,StateP node_state_p)
ApplyOperatorToArrayElem (asize,bsize,elem_state.state_object); ApplyOperatorToArrayElem (asize,bsize,elem_state.state_object);
GenPushArray (0); GenPushArray (0);
GenUpdateA (0, 1); GenUpdatePopA (0, 1);
GenPopA (1);
break; break;
case ArrayReplaceFun: case ArrayReplaceFun:
DetermineSizeOfState (elem_state,&asize,&bsize); DetermineSizeOfState (elem_state,&asize,&bsize);
...@@ -2336,10 +2332,8 @@ void GenBuildR (Label symblab,int nr_a_args,int nr_b_args,int a_offset,int b_off ...@@ -2336,10 +2332,8 @@ void GenBuildR (Label symblab,int nr_a_args,int nr_b_args,int a_offset,int b_off
FPrintF (OutFile, " %d %d %d %d",nr_a_args,nr_b_args,a_offset,b_offset); FPrintF (OutFile, " %d %d %d %d",nr_a_args,nr_b_args,a_offset,b_offset);
if (pop_args){ if (pop_args){
if (nr_a_args>0){ if (nr_a_args>0)
GenUpdateA (0,nr_a_args); GenUpdatePopA (0,nr_a_args);
GenPopA (nr_a_args);
}
GenPopB (nr_b_args); GenPopB (nr_b_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