Prechádzať zdrojové kódy

* fix tcg.a_load_cgparaloc_ref for ref. sizes of 7 on little endian systems

git-svn-id: trunk@37002 -
florian 8 rokov pred
rodič
commit
99ce914a61
1 zmenil súbory, kde vykonal 1 pridanie a 1 odobranie
  1. 1 1
      compiler/cgobj.pas

+ 1 - 1
compiler/cgobj.pas

@@ -1202,7 +1202,7 @@ implementation
                           a_op_const_reg_reg(list,OP_SHR,cgsize,32,hreg,hreg);
                           a_op_const_reg_reg(list,OP_SHR,cgsize,32,hreg,hreg);
                           a_load_reg_ref(list,paraloc.size,OS_16,hreg,href);
                           a_load_reg_ref(list,paraloc.size,OS_16,hreg,href);
 
 
-                          inc(href.offset,4);
+                          inc(href.offset,2);
                           a_op_const_reg_reg(list,OP_SHR,cgsize,16,hreg,hreg);
                           a_op_const_reg_reg(list,OP_SHR,cgsize,16,hreg,hreg);
                           a_load_reg_ref(list,paraloc.size,OS_8,hreg,href);
                           a_load_reg_ref(list,paraloc.size,OS_8,hreg,href);
                         end
                         end