Преглед на файлове

* fix reg-supreg range check error

peter преди 22 години
родител
ревизия
b9afdc6a36
променени са 1 файла, в които са добавени 5 реда и са изтрити 2 реда
  1. 5 2
      compiler/x86/aasmcpu.pas

+ 5 - 2
compiler/x86/aasmcpu.pas

@@ -2231,7 +2231,7 @@ implementation
                             op:=opcode;
                             op:=opcode;
                             opcode:=A_MOV;
                             opcode:=A_MOV;
                             opsize:=reg2opsize(oper[1].reg);
                             opsize:=reg2opsize(oper[1].reg);
-                            pos:=get_insert_pos(Tai(previous),oper[0].reg.number,0,0,unusedregsint);
+                            pos:=get_insert_pos(Tai(previous),oper[0].reg.number shr 8,0,0,unusedregsint);
                             rgget(list,pos,subreg,helpreg);
                             rgget(list,pos,subreg,helpreg);
                             helpins:=Taicpu.op_reg_reg(op,hopsize,oper[0].reg,helpreg);
                             helpins:=Taicpu.op_reg_reg(op,hopsize,oper[0].reg,helpreg);
                             if pos=nil then
                             if pos=nil then
@@ -2395,7 +2395,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.14  2003-08-20 16:52:01  daniel
+  Revision 1.15  2003-08-21 14:48:36  peter
+    * fix reg-supreg range check error
+
+  Revision 1.14  2003/08/20 16:52:01  daniel
     * Some old register convention code removed
     * Some old register convention code removed
     * A few changes to eliminate a few lines of code
     * A few changes to eliminate a few lines of code