paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 06:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Changed -1 to $FFFFFFFF on DWord writes to suppress range check errors

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-04-18 18:32:44 +01:00 committed by J. Gareth "Kit" Moreton
parent f62ffa74dc
commit bdd26766ed
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/chm/src/chmwriter.pas
View File

@ -1189,7 +1189,7 @@ begin
if assigned(ftocsm) and (ftocsm.ImageList<>'') then
FIDXHdrStream.writedwordLE(addstring(ftocsm.ImageList))
else
FIDXHdrStream.writedwordLE(-1);
FIDXHdrStream.writedwordLE($FFFFFFFF);
// 18 0 (unknown)
FIDXHdrStream.writedwordLE(0);
@ -1204,25 +1204,25 @@ begin
if assigned(ftocsm) then
FIDXHdrStream.writedwordLE(ftocsm.Backgroundcolor)
else
FIDXHdrStream.writedwordLE(-1);
FIDXHdrStream.writedwordLE($FFFFFFFF);
// 24 The value of the Foreground param of the "text/site properties" object of the sitemap contents
if assigned(ftocsm) then
FIDXHdrStream.writedwordLE(ftocsm.Foregroundcolor)
else
FIDXHdrStream.writedwordLE(-1);
FIDXHdrStream.writedwordLE($FFFFFFFF);
// 28 Offset in the #STRINGS file of the Font param of the "text/site properties" object of the sitemap contents (0/-1 = none)
if assigned(ftocsm) and (ftocsm.Font<>'') then
FIDXHdrStream.writedwordLE(addstring(ftocsm.font))
else
FIDXHdrStream.writedwordLE(-1);
FIDXHdrStream.writedwordLE($FFFFFFFF);
// 2C The value of the Window Styles param of the "text/site properties" object of the sitemap contents
if assigned(ftocsm) then
FIDXHdrStream.writedwordLE(FTocsm.WindowStyles)
else
FIDXHdrStream.writedwordLE(-1);
FIDXHdrStream.writedwordLE($FFFFFFFF);
// 30 The value of the EXWindow Styles param of the "text/site properties" object of the sitemap contents
if assigned(ftocsm) then
@ -1231,7 +1231,7 @@ begin
FIDXHdrStream.writedwordLE(0);
// 34 Unknown. Often -1. Sometimes 0.
FIDXHdrStream.writedwordLE(-1);
FIDXHdrStream.writedwordLE($FFFFFFFF);
// 38 Offset in the #STRINGS file of the FrameName param of the "text/site properties" object of the sitemap contents (0/-1 = none)
if assigned(ftocsm) and (ftocsm.framename<>'') then
@ -1243,7 +1243,7 @@ begin
if assigned(ftocsm) and (ftocsm.windowname<>'') then
FIDXHdrStream.writedwordLE(addstring(FTocsm.windowname))
else
FIDXHdrStream.writedwordLE(-1);
FIDXHdrStream.writedwordLE($FFFFFFFF);
FIDXHdrStream.writedword(ntole(0)); // 40 Number of information types.
FIDXHdrStream.writedword(ntole(1)); // 44 Unknown. Often 1. Also 0, 3.
FIDXHdrStream.writedword(ntole(fmergefiles.count)); // 48 Number of files in the [MERGE FILES] list.