- removed unused parameters from g_adjust_stack_after_call for WebAssembly

git-svn-id: branches/wasm@48259 -

compiler/wasm32/hlcgcpu.pas

@@ -199,7 +199,7 @@ uses
 
       { adjust the stack height after a call based on the specified number of
         slots used for parameters and the provided resultdef }
-      procedure g_adjust_stack_after_call(list: TAsmList; pd: tabstractprocdef; paraheight: longint; forceresdef: tdef);
+      procedure g_adjust_stack_after_call(list: TAsmList; pd: tabstractprocdef);
 
       property maxevalstackheight: longint read fmaxevalstackheight;
 
@@ -1078,7 +1078,7 @@ implementation
     begin
       result:=inherited;
       pd.init_paraloc_info(callerside);
-      g_adjust_stack_after_call(list,pd,pd.callerargareasize,forceresdef);
+      g_adjust_stack_after_call(list,pd);
     end;
 
 
@@ -1947,7 +1947,7 @@ implementation
       end;
 
 
-  procedure thlcgwasm.g_adjust_stack_after_call(list: TAsmList; pd: tabstractprocdef; paraheight: longint; forceresdef: tdef);
+  procedure thlcgwasm.g_adjust_stack_after_call(list: TAsmList; pd: tabstractprocdef);
     var
       totalremovesize: longint;
       realresdef: tdef;

compiler/wasm32/nwasmcal.pas

@@ -55,7 +55,7 @@ implementation
 
     procedure twasmcallnode.extra_post_call_code;
       begin
-        thlcgwasm(hlcg).g_adjust_stack_after_call(current_asmdata.CurrAsmList,procdefinition,pushedparasize,typedef);
+        thlcgwasm(hlcg).g_adjust_stack_after_call(current_asmdata.CurrAsmList,procdefinition);
       end;
 
     procedure twasmcallnode.do_release_unused_return_value;