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

* always keep the WebAssembly stack frame aligned on 16 bytes

Browse Source 
git-svn-id: trunk@49179 -
This commit is contained in:
nickysn 2021-04-11 14:02:40 +00:00
parent c7f3469a3f
commit 340a71d2bc
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/wasm32/cpupi.pas
View File

@ -36,6 +36,7 @@ interface
tcpuprocinfo=class(tcgprocinfo) tcpuprocinfo=class(tcgprocinfo)
public public
function calc_stackframe_size : longint;override;
procedure setup_eh; override; procedure setup_eh; override;
procedure postprocess_code; override; procedure postprocess_code; override;
procedure set_first_temp_offset;override; procedure set_first_temp_offset;override;
@ -77,6 +78,12 @@ implementation
tcpuprocinfo tcpuprocinfo
*****************************************************************************} *****************************************************************************}
function tcpuprocinfo.calc_stackframe_size: longint;
begin
{ the stack frame in WebAssembly should always have a 16-byte alignment }
Result:=Align(inherited calc_stackframe_size,16);
end;
procedure tcpuprocinfo.setup_eh; procedure tcpuprocinfo.setup_eh;
begin begin
cexceptionstatehandler:=twasmexceptionstatehandler; cexceptionstatehandler:=twasmexceptionstatehandler;