* lowercase() overloaded

rtl/inc/sstrings.inc

@@ -19,7 +19,7 @@
 {$ifndef INTERNSETLENGTH}
 procedure SetLength(var s:shortstring;len:StrLenInt);
 {$else INTERNSETLENGTH}
-procedure fpc_Shortstr_SetLength(var s:shortstring;len:StrLenInt);[Public,Alias : 'FPC_SHORTSTR_SETLENGTH']; {$ifdef hascompilerproc} compilerproc; {$endif} 
+procedure fpc_Shortstr_SetLength(var s:shortstring;len:StrLenInt);[Public,Alias : 'FPC_SHORTSTR_SETLENGTH']; {$ifdef hascompilerproc} compilerproc; {$endif}
 {$endif INTERNSETLENGTH}
 begin
   if Len>255 then
@@ -210,7 +210,7 @@ begin
 end;
 
 
-function lowercase(c : char) : char;
+function lowercase(c : char) : char;overload;
 {$IFDEF IBM_CHAR_SET}
 var
   i : longint;
@@ -233,7 +233,7 @@ begin
 end;
 
 
-function lowercase(const s : shortstring) : shortstring;
+function lowercase(const s : shortstring) : shortstring; overload;
 var
   i : longint;
 begin
@@ -580,7 +580,10 @@ end;
 
 {
   $Log$
-  Revision 1.17  2001-11-16 15:09:47  jonas
+  Revision 1.18  2002-01-24 18:27:06  peter
+    * lowercase() overloaded
+
+  Revision 1.17  2001/11/16 15:09:47  jonas
     * optimized fpc_val_sint_shortstr
 
   Revision 1.16  2001/08/13 12:40:16  jonas

rtl/inc/systemh.inc

@@ -333,7 +333,7 @@ Procedure SetString (Var S : AnsiString; Buf : PChar; Len : Longint);
 Function  Length(s:string):byte;
 {$endif INTERNLENGTH}
 Function  upCase(const s:shortstring):shortstring;
-Function  lowerCase(const s:shortstring):shortstring;
+Function  lowerCase(const s:shortstring):shortstring; overload;
 Function  Space(b:byte):shortstring;
 Function  hexStr(Val:Longint;cnt:byte):shortstring;
 Function  binStr(Val:Longint;cnt:byte):shortstring;
@@ -343,7 +343,7 @@ Function  binStr(Val:int64;cnt:byte):shortstring;
 { Char functions }
 Function  Chr(b:byte):Char;
 Function  upCase(c:Char):Char;
-Function  lowerCase(c:Char):Char;
+Function  lowerCase(c:Char):Char; overload;
 function  copy(c:char;index : StrLenInt;count : StrLenInt): shortstring;
 function  pos(const substr : shortstring;c:char): StrLenInt;
 {$ifndef INTERNLENGTH}
@@ -558,7 +558,10 @@ const
 
 {
   $Log$
-  Revision 1.40  2002-01-24 12:33:53  jonas
+  Revision 1.41  2002-01-24 18:27:06  peter
+    * lowercase() overloaded
+
+  Revision 1.40  2002/01/24 12:33:53  jonas
     * adapted ranges of native types to int64 (e.g. high cardinal is no
       longer longint($ffffffff), but just $fffffff in psystem)
     * small additional fix in 64bit rangecheck code generation for 32 bit