paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-25 13:25:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

m68k: enabled safecall exception wrappers with linux

Browse Source 
git-svn-id: trunk@36575 -
This commit is contained in:
Károly Balogh 2017-06-22 15:31:32 +00:00
parent c0f390ff18
commit cf8aebf00f
3 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/fpcdefs.inc
View File

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

1
compiler/m68k/cpuinfo.pas
View File

@ -84,6 +84,7 @@ Const
pocall_internproc, pocall_internproc,
pocall_register, pocall_register,
pocall_stdcall, pocall_stdcall,
pocall_safecall,
{ the difference to stdcall is only the name mangling } { the difference to stdcall is only the name mangling }
pocall_cdecl, pocall_cdecl,
{ the difference to stdcall is only the name mangling } { the difference to stdcall is only the name mangling }

2
compiler/systems/i_linux.pas
View File

@ -170,7 +170,7 @@ unit i_linux;
name : 'Linux for m68k'; name : 'Linux for m68k';
shortname : 'Linux'; shortname : 'Linux';
flags : [tf_needs_symbol_size,tf_needs_symbol_type,tf_files_case_sensitive, 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_requires_proper_alignment, { Coldfire seems to need this at least (KB) }
tf_has_winlike_resources]; tf_has_winlike_resources];
cpu : cpu_m68k; cpu : cpu_m68k;