* use create_functype to determine accurately the number of parameters to

  discard in twasmcallnode.do_release_unused_return_value. This fixes
  various stack tracking bugs when a constructor is invoking another
  constructor, etc.

compiler/wasm32/nwasmcal.pas

@@ -49,7 +49,7 @@ interface
 implementation
 
     uses
-      globtype, aasmdata, defutil, tgobj, hlcgcpu, symconst, paramgr;
+      globtype, aasmdata, defutil, tgobj, hlcgcpu, symconst, symcpu;
 
       { twasmcallnode }
 
@@ -59,13 +59,20 @@ implementation
       end;
 
     procedure twasmcallnode.do_release_unused_return_value;
+      var
+        ft: TWasmFuncType;
+        i: Integer;
       begin
-        if is_void(resultdef) then
-          exit;
-        if paramanager.ret_in_param(resultdef,procdefinition) then
-          exit;
-        current_asmdata.CurrAsmList.concat(taicpu.op_none(a_drop));
-        thlcgwasm(hlcg).decstack(current_asmdata.CurrAsmList,1);
+        if procdefinition.typ=procvardef then
+          ft:=tcpuprocvardef(procdefinition).create_functype
+        else
+          ft:=tcpuprocdef(procdefinition).create_functype;
+        for i:=1 to Length(ft.results) do
+          begin
+            current_asmdata.CurrAsmList.concat(taicpu.op_none(a_drop));
+            thlcgwasm(hlcg).decstack(current_asmdata.CurrAsmList,1);
+          end;
+        ft.free;
       end;
 
     procedure twasmcallnode.set_result_location(realresdef: tstoreddef);