paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:49:33 +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);
end;
Function CharInSet(Ch:AnsiChar;Const CSet : TSysCharSet) : Boolean;
Function CharInSet(Ch:AnsiChar;Const CSet : TSysCharSet) : Boolean; inline;
begin
result:=ch in CSet;
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: 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}
{$define PathStr:=UnicodeString}
{$define PathPChar:=PWideChar}
@ -161,10 +165,6 @@ end;
{ generic internationalisation code }
{$i sysint.inc}
{ MCBS functions }
{$i sysansi.inc}
{$i syscodepages.inc}
{ wide string functions }
{$i syswide.inc}