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

- Remove hexstr implementation.

Browse Source 
git-svn-id: trunk@7922 -
This commit is contained in:
daniel 2007-07-02 19:23:30 +00:00
parent 787aac7478
commit afeb9d5786
1 changed files with 1 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/utils/ppudump.pp
View File

@ -293,31 +293,6 @@ begin
end;
const
HexTbl : array[0..15] of char='0123456789ABCDEF';
function HexB(b:byte):shortstring;
begin
HexB[0]:=#2;
HexB[1]:=HexTbl[b shr 4];
HexB[2]:=HexTbl[b and $f];
end;
function hexstr(val : cardinal;cnt : byte) : shortstring;
const
HexTbl : array[0..15] of char='0123456789ABCDEF';
var
i : longint;
begin
hexstr[0]:=char(cnt);
for i:=cnt downto 1 do
begin
hexstr[i]:=hextbl[val and $f];
val:=val shr 4;
end;
end;
Function L0(l:longint):string;
{
return the string of value l, if l<10 then insert a zero, so
@ -1499,7 +1474,7 @@ begin
begin
if j>1 then
write(',');
write(hexb(getbyte));
write(hexstr(getbyte,2));
end;
writeln;
end;