Parcourir la source

* flags2reg() was not extending the byte register to the correct result size

carl il y a 23 ans
Parent
commit
7c0f175681
1 fichiers modifiés avec 5 ajouts et 2 suppressions
  1. 5 2
      compiler/x86/cgx86.pas

+ 5 - 2
compiler/x86/cgx86.pas

@@ -1054,7 +1054,7 @@ unit cgx86;
           ai.SetCondition(flags_to_cond(f));
           ai.SetCondition(flags_to_cond(f));
           list.concat(ai);
           list.concat(ai);
           if (reg <> hreg) then
           if (reg <> hreg) then
-            a_load_reg_reg(list,OS_8,OS_8,hreg,reg);
+            a_load_reg_reg(list,OS_8,size,hreg,reg);
        end;
        end;
 
 
 
 
@@ -1682,7 +1682,10 @@ unit cgx86;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.19  2002-10-16 19:01:43  peter
+  Revision 1.20  2002-11-09 21:18:31  carl
+    * flags2reg() was not extending the byte register to the correct result size
+
+  Revision 1.19  2002/10/16 19:01:43  peter
     + $IMPLICITEXCEPTIONS switch to turn on/off generation of the
     + $IMPLICITEXCEPTIONS switch to turn on/off generation of the
       implicit exception frames for procedures with initialized variables
       implicit exception frames for procedures with initialized variables
       and for constructors. The default is on for compatibility
       and for constructors. The default is on for compatibility