Updated from svn just now (r43157) and tried to build but I get this error.
Pasted below is the source from itolitlsreader.pas and it appears it’s totally
mangled. Are other users seeing this also or did my SVN break something?
itolitlsreader.pas(385,24) Error: Identifier not found "Sta"
itolitlsreader.pas(385,48) Fatal: Syntax error, ";" expected but "identifier
UNKNOWN1" found
Fatal: Compilation aborted
while ChunkIndex <> -1 do
begin
Chunk.Position:=0;
fStream.Position:= Sta unknown1 : dword; //
always -1
nrblock : dword; // Number of blocks
treedepth : word; // The depth of the tree of
blocks (1 if no index blocks, 2 one level of index blocks, ...)
nrkeywords : dword; // number of keywords in the
file.
codepage : dword; // Windows code page identifier
(usually 1252 - Windows 3.1 US (ANSI))
lcid : dword; // LCID from the HHP file.
ischm : dword; // 0 if this a BTREE and is
part of a CHW file, 1 if it is a BTree and is part of a CHI or CHM file
unknown2 : dword; // Unknown. Almost always
10031. Also 66631 (accessib.chm, ieeula.chm, iesupp.chm, iexplore.chm,
msoe.chm, mstask.chm, ratings.chm, wab.chm).
unknown3 : dword; // unknown 0
unknown4 : dword; // unknown 0
unknown5 : dword; // unknown 0
end;
PBTreeBlockHeader = ^TBtreeBlockHeader;
TBtreeBlockHeader = packed record
Length : word; // Length of free space at
the end of the block.
NumberOfEntries : word; // Number of entries in the
block.
IndexOfPrevBlock : dword; // Index of the previous
block. -1 if this is the first listing block.
IndexOfNextBlock : dword; // Index of the next block.
-1 if this is the last listing block.
end;
Regards,
Ryan Joseph
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
