mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-02 02:53:40 +02:00
62 lines
1.7 KiB
Diff
62 lines
1.7 KiB
Diff
0a1
|
|
> {$IFNDEF FPC_DOTTEDUNITS}
|
|
1a3
|
|
> {$ENDIF FPC_DOTTEDUNITS}
|
|
67c69
|
|
< {$I regexpr_compilers.inc}
|
|
---
|
|
>
|
|
72d73
|
|
< {$IFDEF FPC}
|
|
75c76
|
|
< {$ENDIF}
|
|
---
|
|
> {$DEFINE COMPAT}
|
|
77c78
|
|
< {$DEFINE UnicodeRE} // Use WideChar for characters and UnicodeString/WideString for strings
|
|
---
|
|
> { off $DEFINE UnicodeRE} // Use WideChar for characters and UnicodeString/WideString for strings
|
|
79,89c80,83
|
|
< { off $DEFINE UseWordChars} // Use WordChars property, otherwise fixed list 'a'..'z','A'..'Z','0'..'9','_'
|
|
< { off $DEFINE UseSpaceChars} // Use SpaceChars property, otherwise fixed list
|
|
< { off $DEFINE UseLineSep} // Use LineSeparators property, otherwise fixed line-break chars
|
|
< {$IFDEF UNICODE}
|
|
< {$IFNDEF UnicodeRE}
|
|
< {$MESSAGE ERROR 'You cannot undefine UnicodeRE for Unicode Delphi versions'}
|
|
< {$ENDIF}
|
|
< {$ENDIF}
|
|
< {$IFDEF FPC}
|
|
< {$DEFINE FastUnicodeData} // Use arrays for UpperCase/LowerCase/IsWordChar, they take 320K more memory
|
|
< {$ENDIF}
|
|
---
|
|
> {$DEFINE UseWordChars} // Use WordChars property, otherwise fixed list 'a'..'z','A'..'Z','0'..'9','_'
|
|
> {$DEFINE UseSpaceChars} // Use SpaceChars property, otherwise fixed list
|
|
> {$DEFINE UseLineSep} // Use LineSeparators property, otherwise fixed line-break chars
|
|
> { off $DEFINE FastUnicodeData} // Use arrays for UpperCase/LowerCase/IsWordChar, they take 320K more memory
|
|
116d109
|
|
<
|
|
121a115,127
|
|
>
|
|
> {$IFDEF FPC_DOTTEDUNITS}
|
|
> uses
|
|
> System.SysUtils, // Exception
|
|
> {$IFDEF D2009}
|
|
> {$IFDEF D_XE2}
|
|
> System.System.Character,
|
|
> {$ELSE}
|
|
> System.Character,
|
|
> {$ENDIF}
|
|
> {$ENDIF}
|
|
> System.Classes; // TStrings in Split method
|
|
> {$ELSE FPC_DOTTEDUNITS}
|
|
131a138
|
|
> {$ENDIF FPC_DOTTEDUNITS}
|
|
2922d2928
|
|
<
|
|
3110d3115
|
|
<
|
|
6535d6539
|
|
<
|
|
6543a6548
|
|
>
|