mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 05:08:06 +02:00
+ added except_native.inc include file (empty for now, but will provide RTL
support for the native wasm exceptions in the future)
This commit is contained in:
parent
f76e91fb8b
commit
33e25a3dfe
17
rtl/wasm32/except_native.inc
Normal file
17
rtl/wasm32/except_native.inc
Normal file
@ -0,0 +1,17 @@
|
||||
{
|
||||
This file is part of the Free Pascal run time library.
|
||||
Copyright (c) 1999-2000 by Michael Van Canneyt
|
||||
member of the Free Pascal development team
|
||||
|
||||
See the file COPYING.FPC, included in this distribution,
|
||||
for details about the copyright.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
|
||||
**********************************************************************}
|
||||
|
||||
{****************************************************************************
|
||||
Exception support
|
||||
****************************************************************************}
|
@ -2,5 +2,5 @@
|
||||
# Here we set processor dependent include file names.
|
||||
#
|
||||
|
||||
CPUNAMES=
|
||||
CPUNAMES=except_native
|
||||
CPUINCNAMES=$(addsuffix .inc,$(CPUNAMES))
|
||||
|
@ -111,3 +111,7 @@ function InterLockedExchangeAdd (var Target: smallint;Source : smallint) : small
|
||||
Result:=Target;
|
||||
inc(Target,Source);
|
||||
end;
|
||||
|
||||
{$if defined(FPC_WASM_NATIVE_EXCEPTIONS)}
|
||||
{$I except_native.inc}
|
||||
{$endif}
|
||||
|
Loading…
Reference in New Issue
Block a user