paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 13:20:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix a bug in bitmap reader related to CPU endianness. Issue #27719, patch from Mark Morgan Lloyd

Browse Source 
git-svn-id: trunk@48529 -
This commit is contained in:
juha 2015-03-29 15:38:25 +00:00
parent 7528dce7c0
commit 09da3ea087
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/intfgraphics.pas
View File

@ -5049,11 +5049,11 @@ var
BFH: TBitMapFileHeader;
begin
Stream.Read(BFH, SizeOf(BFH));
Result := (LEtoN(BFH.bfType) = BMmagic); // Just check magic number
Result := ({$ifdef FPC_LITTLE_ENDIAN}LEtoN{$endif}(BFH.bfType) = BMmagic); // Just check magic number
// store the data offset
if Result and (BFH.bfOffBits <> 0)
then FDataOffset := Stream.Position + LEtoN(BFH.bfOffBits) - SizeOf(BFH);
then FDataOffset := Stream.Position + {$ifdef FPC_LITTLE_ENDIAN}LEtoN{$endif}(BFH.bfOffBits) - SizeOf(BFH);
end;
procedure TLazReaderBMP.InternalReadHead;