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

+ dummy override for WebAssembly free_exception

Browse Source 
git-svn-id: branches/wasm@48214 -
This commit is contained in:
nickysn 2021-01-19 19:18:15 +00:00
parent c5fae9f214
commit 2150d935cf
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/wasm32/cpupi.pas
View File

@ -26,8 +26,8 @@ unit cpupi;
interface
uses
cutils,
procinfo,cpuinfo, symtype,
cutils,globtype,
procinfo,cpuinfo, symtype,aasmbase,
psub, cclasses;
type
@ -54,6 +54,7 @@ implementation
type
twasmexceptionstatehandler = class(tcgexceptionstatehandler)
class procedure new_exception(list:TAsmList;const t:texceptiontemps; const exceptframekind: texceptframekind; out exceptstate: texceptionstate); override;
class procedure free_exception(list: TAsmList; const t: texceptiontemps; const s: texceptionstate; a: aint; endexceptlabel: tasmlabel; onlyfree:boolean); override;
end;
class procedure twasmexceptionstatehandler.new_exception(list:TAsmList;const t:texceptiontemps; const exceptframekind: texceptframekind; out exceptstate: texceptionstate);
@ -61,6 +62,11 @@ implementation
list.Concat(tai_comment.Create(strpnew('TODO: new_exception')));
end;
class procedure twasmexceptionstatehandler.free_exception(list: TAsmList; const t: texceptiontemps; const s: texceptionstate; a: aint; endexceptlabel: tasmlabel; onlyfree:boolean);
begin
list.Concat(tai_comment.Create(strpnew('TODO: free_exception')));
end;
{*****************************************************************************
tcpuprocinfo
*****************************************************************************}