paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 10:29:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added word() typecasts around constants in the smallint range passed to

Browse Source 
NtoLE() so that they don't cause range check errors on big endian
    platforms 
  * fixed an error whereby a byte was passed to NtoLE (-> was converted to a
    smallint and swapped on big endian platforms)

git-svn-id: trunk@25951 -
This commit is contained in:
Jonas Maebe 2013-11-06 11:04:27 +00:00
parent 3c7ad95f7d
commit 1333edbba4
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1282,8 +1282,8 @@ begin
// write guid 4662DAAF-D393-11D0-9A56-00C04FB68BF7
ObjStream.WriteDWord(NtoLE($4662DAAF));
ObjStream.WriteWord(NtoLE($D393));
ObjStream.WriteWord(NtoLE($11D0));
ObjStream.WriteWord(NtoLE($569A));
ObjStream.WriteWord(NtoLE(word($11D0)));
ObjStream.WriteWord(NtoLE(word($569A)));
ObjStream.WriteByte($00);
ObjStream.WriteByte($C0);
ObjStream.WriteByte($4F);
@ -1332,14 +1332,14 @@ begin
ObjStream.WriteDWord(NtoLE($E66561C6));
ObjStream.WriteDWord(NtoLE($73DF6561));
ObjStream.WriteDWord(NtoLE($656F8C73));
ObjStream.WriteWord(NtoLE($6F9C));
ObjStream.WriteByte(NtoLE($65));
ObjStream.WriteWord(NtoLE(word($6F9C)));
ObjStream.WriteByte($65);
// third bit of second entry
// write guid 8FA0D5A8-DEDF-11D0-9A61-00C04FB68BF7
ObjStream.WriteDWord(NtoLE($8FA0D5A8));
ObjStream.WriteWord(NtoLE($DEDF));
ObjStream.WriteWord(NtoLE($11D0));
ObjStream.WriteWord(NtoLE($619A));
ObjStream.WriteWord(NtoLE(word($11D0)));
ObjStream.WriteWord(NtoLE(word($619A)));
ObjStream.WriteByte($00);
ObjStream.WriteByte($C0);
ObjStream.WriteByte($4F);
@ -1357,8 +1357,8 @@ begin
// write guid 4662DAB0-D393-11D0-9A56-00C04FB68B66
ObjStream.WriteDWord(NtoLE($4662DAB0));
ObjStream.WriteWord(NtoLE($D393));
ObjStream.WriteWord(NtoLE($11D0));
ObjStream.WriteWord(NtoLE($569A));
ObjStream.WriteWord(NtoLE(word($11D0)));
ObjStream.WriteWord(NtoLE(word($569A)));
ObjStream.WriteByte($00);
ObjStream.WriteByte($C0);
ObjStream.WriteByte($4F);