Преглед изворни кода

m68k: enabled safecall exception wrappers with linux

git-svn-id: trunk@36575 -
Károly Balogh пре 8 година
родитељ
комит
cf8aebf00f
3 измењених фајлова са 3 додато и 1 уклоњено
  1. 1 0
      compiler/fpcdefs.inc
  2. 1 0
      compiler/m68k/cpuinfo.pas
  3. 1 1
      compiler/systems/i_linux.pas

+ 1 - 0
compiler/fpcdefs.inc

@@ -193,6 +193,7 @@
   {$define cpuneedsmulhelper}
   {$define cpuneedsdivhelper}
   {$define cpu_uses_separate_address_registers}
+  {$define SUPPORT_SAFECALL}
 {$endif m68k}
 
 {$ifdef avr}

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

+ 1 - 1
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;