Pārlūkot izejas kodu

+ introduced the FPC_EXCEPTION_TAG_SYM string constant

Nikolay Nikolov 3 gadi atpakaļ
vecāks
revīzija
e0ad427b6c
2 mainītis faili ar 3 papildinājumiem un 1 dzēšanām
  1. 2 0
      compiler/wasm32/cpubase.pas
  2. 1 1
      compiler/wasm32/nwasmutil.pas

+ 2 - 0
compiler/wasm32/cpubase.pas

@@ -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

+ 1 - 1
compiler/wasm32/nwasmutil.pas

@@ -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