From 051a13fa588f6e44948afb85d38cf6d9005b7824 Mon Sep 17 00:00:00 2001 From: John van Groningen Date: Thu, 1 Feb 2018 11:30:30 +0000 Subject: [PATCH] use updatepop_a instead of update_a and pop_a --- backendC/CleanCompilerSources/instructions.c | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c index 62d0a6a3..39c94871 100644 --- a/backendC/CleanCompilerSources/instructions.c +++ b/backendC/CleanCompilerSources/instructions.c @@ -1583,9 +1583,7 @@ void CallArrayFunction (SymbDef array_def,Bool is_jsr,StateP node_state_p) CallFunction2 (ApplyLabel, ApplyDef, True, ApplyState, NULL, 2); GenPushArray (0); - GenUpdateA (0, 1); - GenPopA (1); - + GenUpdatePopA (0, 1); break; case ArraySelectFun: if (elem_state.state_kind==StrictOnA) @@ -1668,8 +1666,7 @@ void CallArrayFunction (SymbDef array_def,Bool is_jsr,StateP node_state_p) ApplyOperatorToArrayElem (asize, bsize, elem_state.state_object); GenPushArray (0); - GenUpdateA (0, 1); - GenPopA (1); + GenUpdatePopA (0, 1); break; case ArrayUpdateFun: DetermineSizeOfState (elem_state,&asize,&bsize); @@ -1678,8 +1675,7 @@ void CallArrayFunction (SymbDef array_def,Bool is_jsr,StateP node_state_p) ApplyOperatorToArrayElem (asize,bsize,elem_state.state_object); GenPushArray (0); - GenUpdateA (0, 1); - GenPopA (1); + GenUpdatePopA (0, 1); break; case ArrayReplaceFun: 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 FPrintF (OutFile, " %d %d %d %d",nr_a_args,nr_b_args,a_offset,b_offset); if (pop_args){ - if (nr_a_args>0){ - GenUpdateA (0,nr_a_args); - GenPopA (nr_a_args); - } + if (nr_a_args>0) + GenUpdatePopA (0,nr_a_args); GenPopB (nr_b_args); } } -- GitLab