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

regexpr: disable forced optimisation switch

Browse Source 
This should be specifiable via (fp)make
This commit is contained in:
Jonas Maebe 2022-06-10 22:09:55 +02:00
parent e6b8aa07d7
commit ae36829ecd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/regexpr/src/regexpr.pas
View File

@ -69,7 +69,7 @@ interface
{$BOOLEVAL OFF} {$BOOLEVAL OFF}
{$EXTENDEDSYNTAX ON} {$EXTENDEDSYNTAX ON}
{$LONGSTRINGS ON} {$LONGSTRINGS ON}
{$OPTIMIZATION ON} { OPTIMIZATION ON} // Handled by (fp)make options
{$MODE DELPHI} // Delphi-compatible mode in FreePascal {$MODE DELPHI} // Delphi-compatible mode in FreePascal
{$INLINE ON} {$INLINE ON}
{$DEFINE COMPAT} {$DEFINE COMPAT}
@ -6864,7 +6864,7 @@ begin
end; end;
{$IFDEF reRealExceptionAddr} {$IFDEF reRealExceptionAddr}
{$OPTIMIZATION ON} { OPTIMIZATION ON} // specified via (fp)make
// ReturnAddr works correctly only if compiler optimization is ON // ReturnAddr works correctly only if compiler optimization is ON
// I placed this method at very end of unit because there are no // I placed this method at very end of unit because there are no
// way to restore compiler optimization flag ... // way to restore compiler optimization flag ...