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

* m68k: disable the frame pointer optimization on subarchs that don't support long displacements for now, until the shortcomings of the cg can be addressed

Browse Source
This commit is contained in:
Karoly Balogh 2022-03-11 13:01:42 +01:00
parent 68bc5da3a2
commit 60919b4979
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/psub.pas
View File

@ -155,9 +155,9 @@ implementation
optdeadstore,
optloadmodifystore,
optutils
{$if defined(arm)}
{$if defined(arm) or defined(m68k)}
,cpuinfo
{$endif arm}
{$endif defined(arm) or defined(m68k)}
{$ifndef NOOPT}
,aopt
{$endif}
@ -1102,6 +1102,12 @@ implementation
not(cs_generate_stackframes in current_settings.localswitches) and
not(cs_profile in current_settings.moduleswitches) and
not(po_assembler in procdef.procoptions) and
{$if defined(m68k)}
{ do not optimize away the frame pointer, if the CPU has no long
displacement support, this fixes optimizations on the plain 68000
until some shortcomings of the CG itself can be addressed. (KB) }
(CPUM68K_HAS_BASEDISP in cpu_capabilities[current_settings.cputype]) and
{$endif defined(m68k)}
{$if defined(aarch64)}
{ on aarch64, it must be a leaf subroutine }
not(pi_do_call in flags) and