diff --git a/rtl/wasm32/except_native.inc b/rtl/wasm32/except_native.inc new file mode 100644 index 0000000000..8e12f1c68e --- /dev/null +++ b/rtl/wasm32/except_native.inc @@ -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 +****************************************************************************} diff --git a/rtl/wasm32/makefile.cpu b/rtl/wasm32/makefile.cpu index 07afe94a2f..4ab79acbc9 100644 --- a/rtl/wasm32/makefile.cpu +++ b/rtl/wasm32/makefile.cpu @@ -2,5 +2,5 @@ # Here we set processor dependent include file names. # -CPUNAMES= +CPUNAMES=except_native CPUINCNAMES=$(addsuffix .inc,$(CPUNAMES)) diff --git a/rtl/wasm32/wasm32.inc b/rtl/wasm32/wasm32.inc index 0fe7785113..47684546b5 100644 --- a/rtl/wasm32/wasm32.inc +++ b/rtl/wasm32/wasm32.inc @@ -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}