paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 11:39:32 +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 //{.$define PASWSTRING_SUPPORT_NONUTF8_ANSISTRING} disabled by default because
// non utf-8 ansistring is rare in UNIXes and lconvencoding makes the executable big // non utf-8 ansistring is rare in UNIXes and lconvencoding makes the executable big
{$IF defined(EnableUTF8RTL) and defined(PASWSTRING_SUPPORT_NONUTF8_ANSISTRING)} // sanity checks for defines
{$error UTF8 or not UTF8} {$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} {$ENDIF}
interface interface
@ -31,13 +41,13 @@ uses
{$ifdef PASWSTRING_SUPPORT_NONUTF8_ANSISTRING}, lconvencoding{$endif} {$ifdef PASWSTRING_SUPPORT_NONUTF8_ANSISTRING}, lconvencoding{$endif}
; ;
{$IFNDEF VER2_7} {$IFNDEF DisablePasWString}
procedure SetPasWidestringManager; procedure SetPasWidestringManager;
{$ENDIF} {$ENDIF}
implementation implementation
{$IFNDEF VER2_7} {$IFNDEF DisablePasWString}
procedure fpc_rangeerror; [external name 'FPC_RANGEERROR']; procedure fpc_rangeerror; [external name 'FPC_RANGEERROR'];
function IsASCII(const s: string): boolean; inline; function IsASCII(const s: string): boolean; inline;