소스 검색

+ call ConcatInstruction for plain instructions in twasmreader.HandleInstruction

Nikolay Nikolov 1 년 전
부모
커밋
152bb316c3
1개의 변경된 파일6개의 추가작업 그리고 1개의 파일을 삭제
  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