Explorar o código

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

git-svn-id: trunk@6619 -
Jonas Maebe %!s(int64=18) %!d(string=hai) anos
pai
achega
25576b49ac
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/cgobj.pas

+ 1 - 1
compiler/cgobj.pas

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