paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 06:18:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: disable peephole opt when using fpc 3.2.2 => otherwise fpc generates wrong code

Browse Source
This commit is contained in:
Martin 2023-05-01 17:43:22 +02:00
parent 06d0731b07
commit 0b441dd73b
8 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpdebug/fpdbgclasses.pp
View File

@ -35,6 +35,7 @@ unit FpDbgClasses;
{$mode objfpc}{$H+}
{$TYPEDADDRESS on}
{$IFDEF INLINE_OFF}{$INLINE OFF}{$ENDIF}
{$IF FPC_Fullversion=30202}{$Optimization NOPEEPHOLE}{$ENDIF}
interface

1
components/fpdebug/fpdbgdwarf.pas
View File

@ -37,6 +37,7 @@ unit FpDbgDwarf;
{$mode objfpc}{$H+}
{$TYPEDADDRESS on}
{$IFDEF INLINE_OFF}{$INLINE OFF}{$ENDIF}
{$IF FPC_Fullversion=30202}{$Optimization NOPEEPHOLE}{$ENDIF}
(* Notes:

1
components/fpdebug/fpdbgdwarfdataclasses.pas
View File

@ -37,6 +37,7 @@ unit FpDbgDwarfDataClasses;
{$mode objfpc}{$H+}
{$ModeSwitch advancedrecords}
{$IFDEF INLINE_OFF}{$INLINE OFF}{$ENDIF}
{$IF FPC_Fullversion=30202}{$Optimization NOPEEPHOLE}{$ENDIF}
{off $DEFINE USE_ABBREV_TMAP}
interface

1
components/fpdebug/fpdbgutil.pp
View File

@ -35,6 +35,7 @@ unit FpDbgUtil;
{$mode objfpc}{$H+}
{$IFDEF INLINE_OFF}{$INLINE OFF}{$ENDIF}
{$IF FPC_Fullversion=30202}{$Optimization NOPEEPHOLE}{$ENDIF}
interface

1
components/fpdebug/fppascalparser.pas
View File

@ -26,6 +26,7 @@ unit FpPascalParser;
{$mode objfpc}{$H+}
{$IFDEF INLINE_OFF}{$INLINE OFF}{$ENDIF}
{$IF FPC_Fullversion=30202}{$Optimization NOPEEPHOLE}{$ENDIF}
{$TYPEDADDRESS on}
interface

1
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -26,6 +26,7 @@
unit FpDebugDebugger;
{$mode objfpc}{$H+}
{$IF FPC_Fullversion=30202}{$Optimization NOPEEPHOLE}{$ENDIF}
{$TYPEDADDRESS on}
{$ModeSwitch advancedrecords}

1
components/lazdebuggers/lazdebuggerfp/fpdebugdebuggerbase.pas
View File

@ -1,6 +1,7 @@
unit FpDebugDebuggerBase;
{$mode objfpc}{$H+}
{$IF FPC_Fullversion=30202}{$Optimization NOPEEPHOLE}{$ENDIF}
interface

1
components/lazdebuggers/lazdebuggerfp/fpdebugdebuggerworkthreads.pas
View File

@ -39,6 +39,7 @@ unit FpDebugDebuggerWorkThreads;
*)
{$mode objfpc}{$H+}
{$IF FPC_Fullversion=30202}{$Optimization NOPEEPHOLE}{$ENDIF}
{$TYPEDADDRESS on}
{$ModeSwitch advancedrecords}