Browse Source

* fixed bug in wasm_convert_to_structured_asmlist

Nikolay Nikolov 1 year ago
parent
commit
fff60f9f67
1 changed files with 2 additions and 10 deletions
  1. 2 10
      compiler/wasm32/aasmcpu.pas

+ 2 - 10
compiler/wasm32/aasmcpu.pas

@@ -2520,17 +2520,9 @@ uses
 
 
     procedure wasm_convert_to_structured_asmlist(srclist, destlist: TAsmList);
-      var
-        p: tai;
       begin
-        repeat
-          p:=tai(srclist.First);
-          if p<>nil then
-            begin
-              srclist.Remove(p);
-              destlist.Concat(wasm_convert_first_item_to_structured(srclist));
-            end;
-        until srclist.Empty;
+        while not srclist.Empty do
+          destlist.Concat(wasm_convert_first_item_to_structured(srclist));
       end;
 
 initialization