paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 04:59:26 +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

11
rtl/inc/sstrings.inc
View File

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

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;
{$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