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

* print some values as hex

Browse Source 
git-svn-id: trunk@46760 -
This commit is contained in:
marco 2020-09-04 11:56:36 +00:00
parent d856233ea1
commit f56539a7c9
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/chm/src/chmls.lpr
View File

@ -482,7 +482,7 @@ begin
s:=r.readstringsentry(cnt);
end;
var dx : dword;
begin
setlength(s,4);
for i:=1 to 4 do
@ -529,7 +529,8 @@ begin
Writeln('Unknown. Often 1. Also 0, 3. :',leton(m.readdword));
cnt2:=m.ReadDWordLE;
Writeln('Number of files in the [MERGE FILES] list :',cnt2);
Writeln('Unknown. Often 0. :',leton(m.readdword),'(Non-zero mostly in files with some files in the merge files list)');
dx:=leton(m.readdword);
Writeln('Unknown. Often 0. :',dx,' =$',inttohex(dx,8),'(Non-zero mostly in files with some files in the merge files list)');
if cnt2>0 then
for i:=0 to cnt2-1 do
begin
@ -805,7 +806,7 @@ begin
writeln(' Non zero if there are ALinks : ',m.readdwordLE );
ts.dwlowdatetime:=m.readdwordLE;
ts.dwhighdatetime:=m.readdwordLE;
writeln(' Timestamp : ',ts.dwhighdatetime,':', ts.dwlowdatetime );
writeln(' Timestamp : ',ts.dwhighdatetime,':', ts.dwlowdatetime, ' = $',inttohex(ts.dwhighdatetime,8),': $', inttohex(ts.dwlowdatetime,8));
writeln(' 0/1 except in dsmsdn.chi has 1 : ',m.readdwordLE );
writeln(' 0 (unknown) : ',m.readdwordLE );
end;
@ -831,6 +832,7 @@ begin
writeln(' x size is larger than 16');
m.position:=m.position+chsz-16;
end;
var dx : dword;
begin
symbolname:='helpid';
@ -878,7 +880,8 @@ begin
8 : printentry8(m,chunksize);
9 : Writeln('(9) CHM compiler version :',printnulterminated(chunksize));
10: begin
writeln('(10) Timestamp (32-bit?) :',m.readdwordle);
dx:=m.readdwordle;
writeln('(10) Timestamp (32-bit?) :',dx,' , = $',inttohex(dx,8));
m.position:=m.position+chunksize-4;
end;
11: Writeln('(11) DWord when Binary TOC is on :',m.readdwordle, '(= entry in #urltbl has same first dword');