Przeglądaj źródła

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

git-svn-id: trunk@6619 -
Jonas Maebe 18 lat temu
rodzic
commit
25576b49ac
1 zmienionych plików z 1 dodań i 1 usunięć
  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;