paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 08:50:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed wrong unaligned() changes

Browse Source 
git-svn-id: trunk@9303 -
This commit is contained in:
Jonas Maebe 2007-11-20 12:15:47 +00:00
parent 3b4eba9f86
commit 80b8494b5c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ppu.pas
View File

@ -591,7 +591,7 @@ begin
{$ifdef FPC_UNALIGNED_FIXED}
if bufsize-bufidx>=sizeof(word) then
begin
result:=Unaligned(pword(@buf[bufidx]))^;
result:=Unaligned(pword(@buf[bufidx])^);
inc(bufidx,sizeof(word));
end
else
@ -614,7 +614,7 @@ begin
{$ifdef FPC_UNALIGNED_FIXED}
if bufsize-bufidx>=sizeof(longint) then
begin
result:=Unaligned(plongint(@buf[bufidx]))^;
result:=Unaligned(plongint(@buf[bufidx])^);
inc(bufidx,sizeof(longint));
end
else