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

LCL: fixed streaming rasterimage on bigendian system from C. Western (issue #13330)

Browse Source 
git-svn-id: trunk@19555 -
This commit is contained in:
vincents 2009-04-21 14:28:37 +00:00
parent 9cab9d518c
commit 62e1b6c49a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/rasterimage.inc
View File

@ -908,7 +908,7 @@ begin
if FSharedImage.SaveStream = nil if FSharedImage.SaveStream = nil
then Error; then Error;
Size := NtoLE(FSharedImage.SaveStream.Size); Size := NtoLE(Longint(FSharedImage.SaveStream.Size));
Stream.Write(Size, SizeOf(Size)); Stream.Write(Size, SizeOf(Size));
SaveToStream(Stream); SaveToStream(Stream);
end; end;