@@ -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