paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 05:30:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Giulio Bernardi to use NtoLE instead of swapendian

Browse Source 
git-svn-id: trunk@9438 -
This commit is contained in:
michael 2007-12-13 09:59:19 +00:00
parent 2650ca51e6
commit 429fd4f685
1 changed files with 5 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/objpas/classes/streams.inc
View File

@ -225,13 +225,8 @@
var
ResType, Flags : word;
begin
{$IFDEF ENDIAN_LITTLE}
ResType:=$000A;
Flags:=$1030;
{$ELSE}
ResType:=$0A00;
Flags:=$3010;
{$ENDIF}
ResType:=NtoLE(word($000A));
Flags:=NtoLE(word($1030));
{ Note: This is a Windows 16 bit resource }
{ Numeric resource type }
WriteByte($ff);
@ -257,11 +252,7 @@
begin
ResSize := Position - FixupInfo;
{$IFDEF ENDIAN_BIG}
TmpResSize:=SwapEndian(ResSize);
{$ELSE}
TmpResSize:=ResSize;
{$ENDIF}
TmpResSize := NtoLE(longword(ResSize));
{ Insert the correct resource size into the placeholder written by
WriteResourceHeader }
@ -281,20 +272,14 @@
{ application specific resource ? }
if ReadByte<>$ff then
raise EInvalidImage.Create(SInvalidImage);
ResType:=ReadWord;
{$IFDEF ENDIAN_BIG}
ResType:=SwapEndian(ResType);
{$ENDIF}
ResType:=LEtoN(ReadWord);
if ResType<>$000a then
raise EInvalidImage.Create(SInvalidImage);
{ read name }
while ReadByte<>0 do
;
{ check the access specifier }
Flags:=ReadWord;
{$IFDEF ENDIAN_BIG}
Flags:=SwapEndian(Flags);
{$ENDIF}
Flags:=LEtoN(ReadWord);
if Flags<>$1030 then
raise EInvalidImage.Create(SInvalidImage);
{ ignore the size }