paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 01:19:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* 1.0.x fix

Browse Source
This commit is contained in:
peter 2005-02-03 16:21:59 +00:00
parent 1092eb261c
commit 86c8e46d5d
3 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,9 +19,9 @@
*********************************************************************
}
function AnsiCompareFileName(const S1, S2 : Ansistring) : SizeInt;
function AnsiLowerCaseFileName(const s : string) : Ansistring;
function AnsiUpperCaseFileName(const s : string) : Ansistring;
function AnsiCompareFileName(const S1, S2 : string) : SizeInt;
function AnsiLowerCaseFileName(const s : string) : string;
function AnsiUpperCaseFileName(const s : string) : string;
function AnsiPos(const substr,s : string) : SizeInt;
function AnsiStrPos(str,substr : PChar) : PChar;
function AnsiStrRScan(Str : PChar;Chr : Char) : PChar;
@ -29,7 +29,10 @@ function AnsiStrScan(Str : PChar;Chr: Char) : PChar;
{
$Log$
Revision 1.2 2004-06-17 16:23:50 peter
Revision 1.3 2005-02-03 16:21:59 peter
* 1.0.x fix
Revision 1.2 2004/06/17 16:23:50 peter
* use sizeint
Revision 1.1 2003/10/06 21:01:06 peter

7
rtl/objpas/sysutils/sysutilh.inc
View File

@ -206,8 +206,10 @@ Type
{ MCBS functions }
{$i sysansih.inc}
{$ifdef HASWIDESTRING}
{ wide string functions }
{$i syswideh.inc}
{$endif}
{ Read filename handling functions declaration }
{$i finah.inc}
@ -230,7 +232,10 @@ Type
{
$Log$
Revision 1.10 2005-02-01 20:22:50 florian
Revision 1.11 2005-02-03 16:21:59 peter
* 1.0.x fix
Revision 1.10 2005/02/01 20:22:50 florian
* improved widestring infrastructure manager
Revision 1.9 2004/08/31 11:03:35 michael

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

@ -66,9 +66,11 @@
{ MCBS functions }
{$i sysansi.inc}
{$ifdef HASWIDESTRING}
{ wide string functions }
{$i syswide.inc}
{$endif}
{ CPU Specific code }
{$i sysutilp.inc}