paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 17:57:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed loading/storing of unaligned bitfields of size 2 to 7 bits

Browse Source 
git-svn-id: trunk@6619 -
This commit is contained in:
Jonas Maebe 2007-02-23 17:02:28 +00:00
parent 0cc43888e9
commit 25576b49ac
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/cgobj.pas
View File

@ -1157,7 +1157,7 @@ implementation
internalerror(2006081312); internalerror(2006081312);
extra_load := extra_load :=
(intloadsize <> 1) and (sref.bitlen <> 1) and
((sref.bitindexreg <> NR_NO) or ((sref.bitindexreg <> NR_NO) or
(byte(sref.startbit+sref.bitlen) > byte(intloadsize*8))); (byte(sref.startbit+sref.bitlen) > byte(intloadsize*8)));
end; end;