From cf8aebf00f0fcf9e4e149d2fb5195db2353c4be2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Thu, 22 Jun 2017 15:31:32 +0000
Subject: [PATCH] m68k: enabled safecall exception wrappers with linux

git-svn-id: trunk@36575 -
---
 compiler/fpcdefs.inc         | 1 +
 compiler/m68k/cpuinfo.pas    | 1 +
 compiler/systems/i_linux.pas | 2 +-
 3 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/compiler/fpcdefs.inc b/compiler/fpcdefs.inc
index 459bc40cf8..ac236f8310 100644
--- a/compiler/fpcdefs.inc
+++ b/compiler/fpcdefs.inc
@@ -193,6 +193,7 @@
   {$define cpuneedsmulhelper}
   {$define cpuneedsdivhelper}
   {$define cpu_uses_separate_address_registers}
+  {$define SUPPORT_SAFECALL}
 {$endif m68k}
 
 {$ifdef avr}
diff --git a/compiler/m68k/cpuinfo.pas b/compiler/m68k/cpuinfo.pas
index 3907b919ab..6f37cefb05 100644
--- a/compiler/m68k/cpuinfo.pas
+++ b/compiler/m68k/cpuinfo.pas
@@ -84,6 +84,7 @@ Const
      pocall_internproc,
      pocall_register,
      pocall_stdcall,
+     pocall_safecall,
      { the difference to stdcall is only the name mangling }
      pocall_cdecl,
      { the difference to stdcall is only the name mangling }
diff --git a/compiler/systems/i_linux.pas b/compiler/systems/i_linux.pas
index 6570d4ff10..7531792a56 100644
--- a/compiler/systems/i_linux.pas
+++ b/compiler/systems/i_linux.pas
@@ -170,7 +170,7 @@ unit i_linux;
             name         : 'Linux for m68k';
             shortname    : 'Linux';
             flags        : [tf_needs_symbol_size,tf_needs_symbol_type,tf_files_case_sensitive,
-                            tf_smartlink_sections,
+                            tf_smartlink_sections,tf_safecall_exceptions,
                             tf_requires_proper_alignment, { Coldfire seems to need this at least (KB) }
                             tf_has_winlike_resources];
             cpu          : cpu_m68k;