paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-08 04:02:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

* removed hexstr(), already in RTL (and even supports 64 bit integers)

Browse Source 
git-svn-id: trunk@2232 -
This commit is contained in:
tom_at_work 2006-01-08 18:01:34 +00:00
parent 78447375dc
commit 60345fa78a
1 changed files with 0 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
compiler/cutils.pas
View File

@ -66,7 +66,6 @@ interface
function PadSpace(const s:string;len:longint):string; function PadSpace(const s:string;len:longint):string;
function GetToken(var s:string;endchar:char):string; function GetToken(var s:string;endchar:char):string;
procedure uppervar(var s : string); procedure uppervar(var s : string);
function hexstr(val : cardinal;cnt : cardinal) : string;
function realtostr(e:extended):string;{$ifdef USEINLINE}inline;{$endif} function realtostr(e:extended):string;{$ifdef USEINLINE}inline;{$endif}
function tostr(i : qword) : string;{$ifdef USEINLINE}inline;{$endif}overload; function tostr(i : qword) : string;{$ifdef USEINLINE}inline;{$endif}overload;
function tostr(i : int64) : string;{$ifdef USEINLINE}inline;{$endif}overload; function tostr(i : int64) : string;{$ifdef USEINLINE}inline;{$endif}overload;
@ -395,39 +394,6 @@ uses
end; end;
function hexstr(val : cardinal;cnt : cardinal) : string;
const
HexTbl : array[0..15] of char='0123456789ABCDEF';
var
i,j : cardinal;
begin
{ calculate required length }
i:=0;
j:=val;
while (j>0) do
begin
inc(i);
j:=j shr 4;
end;
{ generate fillers }
j:=0;
while (i+j<cnt) do
begin
inc(j);
hexstr[j]:='0';
end;
{ generate hex }
inc(j,i);
hexstr[0]:=chr(j);
while (val>0) do
begin
hexstr[j]:=hextbl[val and $f];
dec(j);
val:=val shr 4;
end;
end;
function DStr(l:longint):string; function DStr(l:longint):string;
var var
TmpStr : string[32]; TmpStr : string[32];