* 1.0.x fix

rtl/objpas/sysutils/sysansih.inc

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

rtl/objpas/sysutils/sysutilh.inc

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

rtl/objpas/sysutils/sysutils.inc

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