paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 21:58:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: don't use integer to compare FilerSignature, but array[1..4] of char, fixes maybe some little-endian, bigendian problem.

Browse Source 
git-svn-id: trunk@11758 -
This commit is contained in:
vincents 2007-08-07 20:59:36 +00:00
parent c6dcda57b3
commit 8aeeda739e
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/lresources.pp
View File

@ -3441,11 +3441,11 @@ end;
procedure TLRSObjectReader.BeginRootComponent;
var
Signature: LongInt;
Signature: Array[1..4] of Char;
begin
{ Read filer signature }
Read(Signature,4);
if Signature <> LongInt(FilerSignature) then
if Signature <> FilerSignature then
raise EReadError.Create('Invalid Filer Signature');
end;