+ introduced TWasmValidationStacks.PushVals

compiler/wasm32/aasmcpu.pas

@@ -96,6 +96,7 @@ uses
         procedure PushVal(vt: TWasmBasicType);
         function PopVal: TWasmBasicType;
         function PopVal(expect: TWasmBasicType): TWasmBasicType;
+        procedure PushVals(vals: TWasmBasicTypeList);
       end;
 
       twasmstruc_stack = class;
@@ -481,6 +482,14 @@ uses
           internalerror(2024013105);
       end;
 
+    procedure TWasmValidationStacks.PushVals(vals: TWasmBasicTypeList);
+      var
+        v: TWasmBasicType;
+      begin
+        for v in vals do
+          PushVal(v);
+      end;
+
     { twasmstruc_stack }
 
     function twasmstruc_stack.Get(Index: Integer): taicpu_wasm_structured_instruction;