paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 17:51:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Patch from peter to fix 1.0 compile

Browse Source
This commit is contained in:
michael 2005-02-07 08:29:00 +00:00
parent 59c3ea695b
commit 525832f03a
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/sysutils/sysstr.inc
View File

@ -2179,10 +2179,12 @@ end;
Function StrCharLength(const Str: PChar): Integer;
begin
{$ifdef HASWIDESTRING}
result:=widestringmanager.CharLengthPCharProc(Str);
{$endif HASWIDESTRING}
end;
Function FindCmdLineSwitch(const Switch: string; const Chars: TSysCharSet;IgnoreCase: Boolean): Boolean;
Var
@ -2344,7 +2346,10 @@ const
{
$Log$
Revision 1.27 2005-02-06 09:38:45 florian
Revision 1.28 2005-02-07 08:29:00 michael
+ Patch from peter to fix 1.0 compile
Revision 1.27 2005/02/06 09:38:45 florian
+ StrCharLength infrastructure
Revision 1.26 2005/01/17 18:38:48 peter