paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-13 11:02:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: clean-up ifdef

Browse Source 
git-svn-id: trunk@36115 -
This commit is contained in:
martin 2012-03-17 13:56:00 +00:00
parent 075177190d
commit 49bc6ed0ff
1 changed files with 1 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
components/synedit/synregexpr.pas
View File

@ -44,14 +44,6 @@ interface
{$IFDEF FPC} {$IFDEF FPC}
{$MODE Delphi} {$MODE Delphi}
{$DEFINE SYN_COMPILER_1_UP}
{$DEFINE SYN_COMPILER_2_UP}
{$DEFINE SYN_COMPILER_3_UP}
{$DEFINE SYN_COMPILER_4_UP}
{$DEFINE SYN_DELPHI_2_UP}
{$DEFINE SYN_DELPHI_3_UP}
{$DEFINE SYN_DELPHI_4_UP}
{$DEFINE SYN_DELPHI_5_UP}
{$DEFINE SYN_LAZARUS} {$DEFINE SYN_LAZARUS}
{$ENDIF} {$ENDIF}
@ -70,9 +62,6 @@ interface
{$BOOLEVAL OFF} {$BOOLEVAL OFF}
{$EXTENDEDSYNTAX ON} {$EXTENDEDSYNTAX ON}
{$LONGSTRINGS ON} {$LONGSTRINGS ON}
{$IFNDEF SYN_LAZARUS}
{$OPTIMIZATION ON}
{$ENDIF}
{$IFDEF D6} {$IFDEF D6}
{$WARN SYMBOL_PLATFORM OFF} // Suppress .Net warnings {$WARN SYMBOL_PLATFORM OFF} // Suppress .Net warnings
{$ENDIF} {$ENDIF}
@ -81,11 +70,6 @@ interface
{$WARN UNSAFE_TYPE OFF} // Suppress .Net warnings {$WARN UNSAFE_TYPE OFF} // Suppress .Net warnings
{$WARN UNSAFE_CODE OFF} // Suppress .Net warnings {$WARN UNSAFE_CODE OFF} // Suppress .Net warnings
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
{$IFNDEF SYN_LAZARUS}
{$MODE DELPHI} // Delphi-compatible mode in FreePascal
{$ENDIF}
{$ENDIF}
// ======== Define options for TRegExpr engine // ======== Define options for TRegExpr engine
{.$DEFINE UniCode} // Unicode support {.$DEFINE UniCode} // Unicode support
@ -660,16 +644,6 @@ function RegExprSubExpressions (const ARegExpr : string;
implementation implementation
{$IFDEF SYN_LAZARUS}
{$ELSE}
uses
{$IFDEF SYN_WIN32}
Windows; // CharUpper/Lower
{$ELSE}
Libc; //Qt.pas from Borland does not expose char handling functions
{$ENDIF}
{$ENDIF}
const const
TRegExprVersionMajor : integer = 0; TRegExprVersionMajor : integer = 0;
TRegExprVersionMinor : integer = 952; TRegExprVersionMinor : integer = 952;
@ -3951,7 +3925,7 @@ function TRegExpr.Replace (AInputStr : RegExprString;
AReplaceFunc : TRegExprReplaceFunction) AReplaceFunc : TRegExprReplaceFunction)
: RegExprString; : RegExprString;
begin begin
{$IFDEF SYN_LAZARUS}Result:={$ENDIF}ReplaceEx (AInputStr, AReplaceFunc); Result := ReplaceEx (AInputStr, AReplaceFunc);
end; { of function TRegExpr.Replace end; { of function TRegExpr.Replace
--------------------------------------------------------------} --------------------------------------------------------------}
{$ENDIF} {$ENDIF}