Explorar o código

* decstack after call_indirect

git-svn-id: branches/wasm@48265 -
nickysn %!s(int64=4) %!d(string=hai) anos
pai
achega
17bfdee158
Modificáronse 1 ficheiros con 1 adicións e 0 borrados
  1. 1 0
      compiler/wasm32/hlcgcpu.pas

+ 1 - 0
compiler/wasm32/hlcgcpu.pas

@@ -354,6 +354,7 @@ implementation
     begin
     begin
       a_load_reg_stack(list, ptrsinttype, reg);
       a_load_reg_stack(list, ptrsinttype, reg);
       current_asmdata.CurrAsmList.Concat(taicpu.op_functype(a_call_indirect,tcpuprocdef(pd).create_functype));
       current_asmdata.CurrAsmList.Concat(taicpu.op_functype(a_call_indirect,tcpuprocdef(pd).create_functype));
+      decstack(list,1);
       result:=hlcg.get_call_result_cgpara(pd, nil);
       result:=hlcg.get_call_result_cgpara(pd, nil);
     end;
     end;