paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 16:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* lowercase() overloaded

Browse Source
This commit is contained in:
peter 2002-01-24 18:27:06 +00:00
parent fd2ad837e2
commit c6fd513271
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/sstrings.inc
View File

@ -210,7 +210,7 @@ begin
end; end;
function lowercase(c : char) : char; function lowercase(c : char) : char;overload;
{$IFDEF IBM_CHAR_SET} {$IFDEF IBM_CHAR_SET}
var var
i : longint; i : longint;
@ -233,7 +233,7 @@ begin
end; end;
function lowercase(const s : shortstring) : shortstring; function lowercase(const s : shortstring) : shortstring; overload;
var var
i : longint; i : longint;
begin begin
@ -580,7 +580,10 @@ end;
{ {
$Log$ $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 * optimized fpc_val_sint_shortstr
Revision 1.16 2001/08/13 12:40:16 jonas Revision 1.16 2001/08/13 12:40:16 jonas

9
rtl/inc/systemh.inc
View File

@ -333,7 +333,7 @@ Procedure SetString (Var S : AnsiString; Buf : PChar; Len : Longint);
Function Length(s:string):byte; Function Length(s:string):byte;
{$endif INTERNLENGTH} {$endif INTERNLENGTH}
Function upCase(const s:shortstring):shortstring; 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 Space(b:byte):shortstring;
Function hexStr(Val:Longint;cnt:byte):shortstring; Function hexStr(Val:Longint;cnt:byte):shortstring;
Function binStr(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 } { Char functions }
Function Chr(b:byte):Char; Function Chr(b:byte):Char;
Function upCase(c:Char):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 copy(c:char;index : StrLenInt;count : StrLenInt): shortstring;
function pos(const substr : shortstring;c:char): StrLenInt; function pos(const substr : shortstring;c:char): StrLenInt;
{$ifndef INTERNLENGTH} {$ifndef INTERNLENGTH}
@ -558,7 +558,10 @@ const
{ {
$Log$ $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 * adapted ranges of native types to int64 (e.g. high cardinal is no
longer longint($ffffffff), but just $fffffff in psystem) longer longint($ffffffff), but just $fffffff in psystem)
* small additional fix in 64bit rangecheck code generation for 32 bit * small additional fix in 64bit rangecheck code generation for 32 bit