+ new tf_use_psabieh target flag to indicate a target uses PSABI/Dwarf EH

   o use this flag to set the personality routine of a function if it uses
     exception handlinga
   o also define FPC_USE_PSABIEH if this target flag is set
   o set this target flag for darwin/x86-64 if the compiler is compiled with
     -dllvm

git-svn-id: https://svn.freepascal.org/svn/fpc/branches/debug_eh@40415 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 8 insertions, 0 deletions

diff --git a/compiler/procinfo.pas b/compiler/procinfo.pas
index 7e2fe97f25..d09d269c46 100644
--- a/compiler/procinfo.pas
+++ b/compiler/procinfo.pas
@@ -178,6 +178,9 @@ unit procinfo;
           procedure updatestackalignment(alignment: longint);
           { Specific actions after the code has been generated }
           procedure postprocess_code; virtual;
+
+          { set exception handling info }
+          procedure set_eh_info; virtual;
        end;
        tcprocinfo = class of tprocinfo;
 
@@ -312,4 +315,9 @@ implementation
         { no action by default }
       end;
 
+    procedure tprocinfo.set_eh_info;
+      begin
+        { default code is in tcgprocinfo }
+      end;
+
 end.