paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 22:48:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added amfrtDeleteAi, support deleting instructions in map_structured_asmlist_inner

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-10-18 03:31:11 +03:00
parent 0f07c966b6
commit 9584348c40
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/wasm32/aasmcpu.pas
View File

@ -42,12 +42,13 @@ uses
type
twasmstruc_stack = class;
TAsmMapFuncResultType = (amfrtNoChange, amfrtNewAi, amfrtNewList);
TAsmMapFuncResultType = (amfrtNoChange, amfrtNewAi, amfrtNewList, amfrtDeleteAi);
TAsmMapFuncResult = record
case typ: TAsmMapFuncResultType of
amfrtNoChange: ();
amfrtNewAi: (newai: tai);
amfrtNewList: (newlist: TAsmList);
amfrtDeleteAi: ();
end;
TAsmMapFunc = function(ai: tai; blockstack: twasmstruc_stack): TAsmMapFuncResult of object;
TWasmLocalAllocator = function(wbt: TWasmBasicType): Integer of object;
@ -2890,6 +2891,12 @@ uses
l.Remove(p);
p:=q;
end;
amfrtDeleteAi:
begin
q:=p;
p:=tai(p.next);
l.Remove(q);
end;
end;
end
else
@ -2918,6 +2925,12 @@ uses
l.Remove(p);
p:=q;
end;
amfrtDeleteAi:
begin
q:=p;
p:=tai(p.next);
l.Remove(q);
end;
end;
end;
end;