From c900922247f7efcf0aba1845235eb7e012e3bcd8 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Sat, 7 Nov 2009 15:58:18 +0200
Subject: some coding format changes.

---
 src/HelpTopic.pas       | 6 +++---
 src/docdump/docdump.lpi | 9 +++++++--
 src/docdump/docdump.lpr | 2 +-
 3 files changed, 11 insertions(+), 6 deletions(-)

(limited to 'src')

diff --git a/src/HelpTopic.pas b/src/HelpTopic.pas
index e04d65b6..ea32080b 100644
--- a/src/HelpTopic.pas
+++ b/src/HelpTopic.pas
@@ -353,9 +353,9 @@ begin
   _NumSlots := pTOCEntry^.numslots;
 
   Flags := _pTOCEntry^.flags;
-  p := pUInt8( _pTOCEntry ) + sizeof( TTOCEntryStart );
+  p := pByte( _pTOCEntry ) + sizeof( TTOCEntryStart );
 
-  if ( Flags and TOCEntryExtended ) > 0 then
+  if ( Flags and TOCEntryExtended ) = TOCEntryExtended then
   begin
     pExtendedInfo := pExtendedTOCEntry( p );
     inc( p, sizeof( TExtendedTOCEntry ) );
@@ -1279,7 +1279,7 @@ begin
       // Read slot data
       pSlotNumber := _pSlotNumbers;
 
-      for i := 0 to _NumSlots - 1 do
+      for i := 1 to _NumSlots do
       begin
         SlotNumber := pSlotNumber^;
 
diff --git a/src/docdump/docdump.lpi b/src/docdump/docdump.lpi
index 610cb6e7..440c482c 100644
--- a/src/docdump/docdump.lpi
+++ b/src/docdump/docdump.lpi
@@ -23,7 +23,7 @@
         <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
-    <Units Count="14">
+    <Units Count="15">
       <Unit0>
         <Filename Value="docdump.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -93,6 +93,11 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="readtoc"/>
       </Unit13>
+      <Unit14>
+        <Filename Value="u_Tools.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="u_Tools"/>
+      </Unit14>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
@@ -100,7 +105,7 @@
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)/"/>
       <OtherUnitFiles Value="../"/>
-      <UnitOutputDirectory Value="units/$(TargetCPU)-$(TargetOS)/"/>
+      <UnitOutputDirectory Value="units/$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
     <Other>
       <CompilerPath Value="$(CompPath)"/>
diff --git a/src/docdump/docdump.lpr b/src/docdump/docdump.lpr
index 135a64ad..84077608 100644
--- a/src/docdump/docdump.lpr
+++ b/src/docdump/docdump.lpr
@@ -11,7 +11,7 @@ uses
   {$ENDIF}{$ENDIF}
   Classes, SysUtils, IPFFileFormatUnit, IPFEscapeCodes, CustApp, readheader,
   filestreamhelper, readextfiles, readstrings, iterator_intf, iterator_impl,
-  readnlsdata, readfonts, readcontrols, readtoc;
+  readnlsdata, readfonts, readcontrols, readtoc, u_Tools;
 
 type
 
-- 
cgit v1.2.3-70-g09d2