paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 00:28:23 +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}
{$EXTENDEDSYNTAX ON}
{$LONGSTRINGS ON}
{$OPTIMIZATION ON}
{ OPTIMIZATION ON} // Handled by (fp)make options
{$MODE DELPHI} // Delphi-compatible mode in FreePascal
{$INLINE ON}
{$DEFINE COMPAT}
@ -6864,7 +6864,7 @@ begin
end;
{$IFDEF reRealExceptionAddr}
{$OPTIMIZATION ON}
{ OPTIMIZATION ON} // specified via (fp)make
// ReturnAddr works correctly only if compiler optimization is ON
// I placed this method at very end of unit because there are no
// way to restore compiler optimization flag ...