Selaa lähdekoodia

+ added except_native.inc include file (empty for now, but will provide RTL
support for the native wasm exceptions in the future)

Nikolay Nikolov 3 vuotta sitten
vanhempi
commit
33e25a3dfe
3 muutettua tiedostoa jossa 22 lisäystä ja 1 poistoa
  1. 17 0
      rtl/wasm32/except_native.inc
  2. 1 1
      rtl/wasm32/makefile.cpu
  3. 4 0
      rtl/wasm32/wasm32.inc

+ 17 - 0
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
+****************************************************************************}

+ 1 - 1
rtl/wasm32/makefile.cpu

@@ -2,5 +2,5 @@
 # Here we set processor dependent include file names.
 #
 
-CPUNAMES=
+CPUNAMES=except_native
 CPUINCNAMES=$(addsuffix .inc,$(CPUNAMES))

+ 4 - 0
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}