* fixed range errors

git-svn-id: trunk@15640 -

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;
 

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));