* use sizeint

rtl/objpas/sysutils/sysansi.inc

@@ -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

rtl/objpas/sysutils/sysansih.inc

@@ -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