paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 12:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ introduced the FPC_EXCEPTION_TAG_SYM string constant

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-27 17:38:28 +03:00
parent b46c010f82
commit e0ad427b6c
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/wasm32/cpubase.pas
View File

@ -295,6 +295,8 @@ uses
implementation's runtime call stack (which includes return addresses and
function parameters) is not visible in linear memory. }
STACK_POINTER_SYM = '__stack_pointer';
{ The exception tag symbol, used for FPC exceptions }
FPC_EXCEPTION_TAG_SYM = '__FPC_exception';
{*****************************************************************************
Helpers

2
compiler/wasm32/nwasmutil.pas
View File

@ -72,7 +72,7 @@ implementation
list.Concat(tai_globaltype.create(STACK_POINTER_SYM,wbt_i32,false));
if ts_wasm_native_exceptions in current_settings.targetswitches then
list.Concat(tai_tagtype.create('__FPC_exception', []));
list.Concat(tai_tagtype.create(FPC_EXCEPTION_TAG_SYM, []));
for i:=0 to current_module.deflist.Count-1 do
begin