* fixed range errors

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15640 3ad0048d-3df7-0310-abae-a5850022a9f2

2 files changed, 3 insertions, 3 deletions

diff --git a/packages/chm/src/chmcmd.lpr b/packages/chm/src/chmcmd.lpr
index a3ca1b26ad..a86c4ae20a 100644
--- a/packages/chm/src/chmcmd.lpr
+++ b/packages/chm/src/chmcmd.lpr
@@ -43,7 +43,7 @@ end;
 
 
 var
-  theopts : array[1..5] of TOption;
+  theopts : array[1..6] of TOption;
 
 procedure InitOptions;
 
diff --git a/packages/chm/src/itolitlsreader.pas b/packages/chm/src/itolitlsreader.pas
index 479257cbe9..5abab58c51 100644
--- a/packages/chm/src/itolitlsreader.pas
+++ b/packages/chm/src/itolitlsreader.pas
@@ -365,9 +365,9 @@ begin
     Exit(fCachedEntry.DecompressedLength); // we've already looked it up
 
   fCachedEntry.Name:='';
-  fCachedEntry.ContentSection:=-1;
+  fCachedEntry.ContentSection:=LongWord(-1);
   fCachedEntry.DecompressedLength:=0;
-  fCachedEntry.ContentOffset:=-1;
+  fCachedEntry.ContentOffset:=QWord(-1);
 
   StreamPos:=HeaderSectionTable[1].OffSet;
   fStream.Read(IFCM, SizeOf(IFCM));