paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 10:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ WebAssembly: insert a tai_local directive also for assembler functions

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-09-15 02:12:48 +03:00
parent 80523e192a
commit 1a08d76ccb
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/wasm32/cpupi.pas
View File

@ -973,12 +973,20 @@ implementation
vs.Free; vs.Free;
end; end;
procedure postprocess_code_assembler;
begin
aktproccode.InsertAfter(tai_local.create([]),findfirst_tai_functype(aktproccode));
end;
var var
localslist: TAsmList; localslist: TAsmList;
labels_resolved, has_goto: Boolean; labels_resolved, has_goto: Boolean;
begin begin
if po_assembler in procdef.procoptions then if po_assembler in procdef.procoptions then
exit; begin
postprocess_code_assembler;
exit;
end;
check_goto_br_instructions(aktproccode,has_goto); check_goto_br_instructions(aktproccode,has_goto);
localslist:=prepare_locals; localslist:=prepare_locals;