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

* use sizeint

Browse Source
This commit is contained in:
peter 2004-06-17 16:23:50 +00:00
parent 2ed14823c5
commit 7f9b703d64
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -46,7 +46,7 @@ begin
Result:=AnsiUpperCase(S); // No locale support or MBCS yet.
end;
Function AnsiPos(const Substr, S: string): Integer;
Function AnsiPos(const Substr, S: string): SizeInt;
begin
Result:=Pos(Substr,S); // No MBCS yet.
@ -72,7 +72,10 @@ end;
{
$Log$
Revision 1.3 2004-06-13 10:49:50 florian
Revision 1.4 2004-06-17 16:23:50 peter
* use sizeint
Revision 1.3 2004/06/13 10:49:50 florian
* fixed some bootstrapping problems as well as some 64 bit stuff
Revision 1.2 2003/11/26 22:17:42 michael

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

@ -19,17 +19,20 @@
*********************************************************************
}
function AnsiCompareFileName(const S1, S2 : Ansistring) : Longint;
function AnsiCompareFileName(const S1, S2 : Ansistring) : SizeInt;
function AnsiLowerCaseFileName(const s : string) : Ansistring;
function AnsiUpperCaseFileName(const s : string) : Ansistring;
function AnsiPos(const substr,s : string) : Longint;
function AnsiPos(const substr,s : string) : SizeInt;
function AnsiStrPos(str,substr : PChar) : PChar;
function AnsiStrRScan(Str : PChar;Chr : Char) : PChar;
function AnsiStrScan(Str : PChar;Chr: Char) : PChar;
{
$Log$
Revision 1.1 2003-10-06 21:01:06 peter
Revision 1.2 2004-06-17 16:23:50 peter
* use sizeint
Revision 1.1 2003/10/06 21:01:06 peter
* moved classes unit to rtl
Revision 1.1 2002/10/07 19:43:24 florian