docdump: fixes the TOC entry offset values in hex and bytes.

The offset is now the offset in bytes from the start of the INF file.

1 files changed, 3 insertions, 3 deletions

diff --git a/docview/src/docdump/readtoc.pas b/docview/src/docdump/readtoc.pas
index 8c98e31e..d0b74c5b 100644
--- a/docview/src/docdump/readtoc.pas
+++ b/docview/src/docdump/readtoc.pas
@@ -58,9 +58,9 @@ var
   pEntry: pTTOCEntryStart;
   pExtendedInfo: pExtendedTOCEntry;
   p: PByte;
-  i: integer;
   titleLen: integer;
   title: string;
+  lOffset: uint32;
 begin
   AOut.WriteLn('');
   AOut.WriteLn('Table of Contents');
@@ -78,14 +78,14 @@ begin
 //    AIn.Read(toc, SizeOf(TTOCEntryStart));
 //    FillChar(olay, SizeOf(TTOCOverlay), 0);
     p := PByte(pEntry) + sizeof(TTOCEntryStart);
-    i := Longint(p^);
 
     olay.extended  :=  (pEntry^.flags and TOCEntryExtended ) = TOCEntryExtended;
     olay.nestlevel := (pEntry^.flags and TOCEntryLevelMask);
     olay.hidden := (pEntry^.flags and TOCEntryHidden) = TOCEntryHidden;
     olay.haschildren := (pEntry^.flags and TOCEntryHasChildren) = TOCEntryHasChildren;
 
-    AOut.WriteLn(Format('  TOC Entry #%d at offset %8.8x (%d bytes)', [count, p^, i]));
+    lOffset := hdr.tocstart + (pEntry-pData);
+    AOut.WriteLn(Format('  TOC Entry #%d at offset %8.8x (%d bytes)', [count, lOffset, lOffset]));
     AOut.WriteLn(Format('    tocentry.length:      %2.2x (%0:d bytes)', [pEntry^.length]));
     AOut.WriteLn(Format('    tocentry.nestlevel:   %d', [olay.nestlevel]));
     AOut.WriteLn(Format('    tocentry.unknown:     %s', [iif(olay.unknown, 'set', 'clear')]));