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

lazutils: paswstring: sanity check macros

Browse Source 
git-svn-id: trunk@47104 -
This commit is contained in:
mattias 2014-12-04 18:11:43 +00:00
parent b27cc83e34
commit 233243e167
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/lazutils/paswstring.pas
View File

@ -20,8 +20,18 @@ unit PasWString;
//{.$define PASWSTRING_SUPPORT_NONUTF8_ANSISTRING} disabled by default because
// non utf-8 ansistring is rare in UNIXes and lconvencoding makes the executable big
{$IF defined(EnableUTF8RTL) and defined(PASWSTRING_SUPPORT_NONUTF8_ANSISTRING)}
{$error UTF8 or not UTF8}
// sanity checks for defines
{$IFDEF EnableUTF8RTL}
{$IF FPC_FULLVERSION<20701}
{$error UTF8 RTl requires fpc 2.7.1+}
{$ENDIF}
{$IFDEF PASWSTRING_SUPPORT_NONUTF8_ANSISTRING}
{$error UTF8 or not UTF8}
{$ENDIF}
{$ENDIF}
{$IF FPC_FULLVERSION>=20701}
{$DEFINE DisablePasWString}
{$ENDIF}
interface
@ -31,13 +41,13 @@ uses
{$ifdef PASWSTRING_SUPPORT_NONUTF8_ANSISTRING}, lconvencoding{$endif}
;
{$IFNDEF VER2_7}
{$IFNDEF DisablePasWString}
procedure SetPasWidestringManager;
{$ENDIF}
implementation
{$IFNDEF VER2_7}
{$IFNDEF DisablePasWString}
procedure fpc_rangeerror; [external name 'FPC_RANGEERROR'];
function IsASCII(const s: string): boolean; inline;