Browse Source

+ call ConcatInstruction for plain instructions in twasmreader.HandleInstruction

Nikolay Nikolov 1 year ago
parent
commit
152bb316c3
1 changed files with 6 additions and 1 deletions
  1. 6 1
      compiler/wasm32/rawasmtext.pas

+ 6 - 1
compiler/wasm32/rawasmtext.pas

@@ -543,6 +543,8 @@ Unit rawasmtext;
 
 
     procedure twasmreader.HandleInstruction;
+      var
+        instr: TWasmInstruction;
       begin
         case actasmtoken of
           AS_LPAREN:
@@ -558,7 +560,10 @@ Unit rawasmtext;
                 a_if:
                   HandleBlockInstruction;
                 else
-                  HandlePlainInstruction;
+                  begin
+                    instr:=HandlePlainInstruction;
+                    instr.ConcatInstruction(curlist);
+                  end;
               end;
             end;
           else