فهرست منبع

+ introduced the FPC_EXCEPTION_TAG_SYM string constant

Nikolay Nikolov 3 سال پیش
والد
کامیت
e0ad427b6c
2فایلهای تغییر یافته به همراه3 افزوده شده و 1 حذف شده
  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
         implementation's runtime call stack (which includes return addresses and
         function parameters) is not visible in linear memory. }
         function parameters) is not visible in linear memory. }
       STACK_POINTER_SYM = '__stack_pointer';
       STACK_POINTER_SYM = '__stack_pointer';
+      { The exception tag symbol, used for FPC exceptions }
+      FPC_EXCEPTION_TAG_SYM = '__FPC_exception';
 
 
 {*****************************************************************************
 {*****************************************************************************
                                   Helpers
                                   Helpers

+ 1 - 1
compiler/wasm32/nwasmutil.pas

@@ -72,7 +72,7 @@ implementation
       list.Concat(tai_globaltype.create(STACK_POINTER_SYM,wbt_i32,false));
       list.Concat(tai_globaltype.create(STACK_POINTER_SYM,wbt_i32,false));
 
 
       if ts_wasm_native_exceptions in current_settings.targetswitches then
       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
       for i:=0 to current_module.deflist.Count-1 do
         begin
         begin