paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 13:10:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* declared CharInSet(ansichar,tsyscharset) as inline

Browse Source 
* moved the inclusion of sysansi.inc to before the inclusion of all other
    sysutils include files so the inline body of CharInSet is available

git-svn-id: branches/cpstrrtl@25000 -
This commit is contained in:
Jonas Maebe 2013-06-27 21:38:13 +00:00
parent b08d8091b2
commit 1da05d1553
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/sysutils/sysansi.inc
View File

@ -100,7 +100,7 @@ begin
Result[0]:=Byte(Val); Result[0]:=Byte(Val);
end; end;
Function CharInSet(Ch:AnsiChar;Const CSet : TSysCharSet) : Boolean; Function CharInSet(Ch:AnsiChar;Const CSet : TSysCharSet) : Boolean; inline;
begin begin
result:=ch in CSet; result:=ch in CSet;
end; end;

2
rtl/objpas/sysutils/sysansih.inc
View File

@ -24,4 +24,4 @@ function HashName(Name: PAnsiChar): LongWord;
function BytesOf(const Val: RawByteString): TBytes; function BytesOf(const Val: RawByteString): TBytes;
function BytesOf(const Val: AnsiChar): TBytes; function BytesOf(const Val: AnsiChar): TBytes;
Function CharInSet(Ch: AnsiChar;Const CSet : TSysCharSet) : Boolean; Function CharInSet(Ch: AnsiChar;Const CSet : TSysCharSet) : Boolean; inline;

8
rtl/objpas/sysutils/sysutils.inc
View File

@ -12,6 +12,10 @@
**********************************************************************} **********************************************************************}
{ MCBS functions }
{$i sysansi.inc}
{$i syscodepages.inc}
{$macro on} {$macro on}
{$define PathStr:=UnicodeString} {$define PathStr:=UnicodeString}
{$define PathPChar:=PWideChar} {$define PathPChar:=PWideChar}
@ -161,10 +165,6 @@ end;
{ generic internationalisation code } { generic internationalisation code }
{$i sysint.inc} {$i sysint.inc}
{ MCBS functions }
{$i sysansi.inc}
{$i syscodepages.inc}
{ wide string functions } { wide string functions }
{$i syswide.inc} {$i syswide.inc}