Parcourir la source

* fix wrong opsize for rangecheck to qword

git-svn-id: trunk@2338 -
peter il y a 19 ans
Parent
commit
068c67190b
1 fichiers modifiés avec 2 ajouts et 2 suppressions
  1. 2 2
      compiler/cg64f32.pas

+ 2 - 2
compiler/cg64f32.pas

@@ -680,9 +680,9 @@ unit cg64f32;
                else
                  begin
                    hreg:=cg.getintregister(list,OS_32);
+                   opsize:=OS_32;
 
-                   opsize := def_cgsize(fromdef);
-                   if opsize in [OS_64,OS_S64] then
+                   if l.size in [OS_64,OS_S64] then
                      a_load64high_ref_reg(list,l.reference,hreg)
                    else
                      cg.a_load_ref_reg(list,opsize,OS_32,l.reference,hreg);