Changeset 832

Timestamp:

01/01/11 07:15:25 (14 years ago)

Author:

walter

Message:

more 64

Files:

• branches/dmd-1.x/src/backend/cod2.c (modified) (1 diff)
• trunk/src/backend/cod2.c (modified) (1 diff)

branches/dmd-1.x/src/backend/cod2.c

@@ -574 +574 @@
-            rretregs &= BYTEREGS;
-
-        cr = scodelem(e2,&rretregs,retregs,TRUE);       /* get rvalue   */
-        rreg = (tysize[ty2] > REGSIZE) ? findreglsw(rretregs) : findreg(rretregs);
-        c = CNIL;
-        if (numwords == 1)                              /* ADD reg,rreg */
-        {
-                /* reverse operands to avoid moving around the segment value */
-                if (tysize[ty2] > REGSIZE)
-                {       c = cat(c,getregs(rretregs));
-                        c = genregs(c,op1,rreg,reg);
-                        retregs = rretregs;     /* reverse operands     */
-                }
-                else
-                {   c = genregs(c,op1,reg,rreg);
-                    if (!I16 && *pretregs & mPSW)
-                        c->Iflags |= word;
-                }
-                if (I64 && sz == 8)
-                    code_orrex(c, REX_W);
-reg >= 4
+(reg >= 4 || rreg >= 4)
-                    code_orrex(c, REX);
-        }
-        else /* numwords == 2 */                /* ADD lsreg,lsrreg     */
-        {
-            reg = findreglsw(retregs);
-            rreg = findreglsw(rretregs);
-            c = genregs(c,op1,reg,rreg);
-            if (e->Eoper == OPadd || e->Eoper == OPmin)
-                code_orflag(c,CFpsw);
-            reg = findregmsw(retregs);
-            rreg = findregmsw(rretregs);
-            if (!(e2oper == OPu16_32 && // if second operand is 0
-                  (op2 == 0x0B || op2 == 0x33)) // and OR or XOR
-               )
-                genregs(c,op2,reg,rreg);        // ADC msreg,msrreg
-        }
-        break;
-
-    case OPrelconst:
-        if (sz != REGSIZE)

trunk/src/backend/cod2.c

@@ -574 +574 @@
-            rretregs &= BYTEREGS;
-
-        cr = scodelem(e2,&rretregs,retregs,TRUE);       /* get rvalue   */
-        rreg = (tysize[ty2] > REGSIZE) ? findreglsw(rretregs) : findreg(rretregs);
-        c = CNIL;
-        if (numwords == 1)                              /* ADD reg,rreg */
-        {
-                /* reverse operands to avoid moving around the segment value */
-                if (tysize[ty2] > REGSIZE)
-                {       c = cat(c,getregs(rretregs));
-                        c = genregs(c,op1,rreg,reg);
-                        retregs = rretregs;     /* reverse operands     */
-                }
-                else
-                {   c = genregs(c,op1,reg,rreg);
-                    if (!I16 && *pretregs & mPSW)
-                        c->Iflags |= word;
-                }
-                if (I64 && sz == 8)
-                    code_orrex(c, REX_W);
-reg >= 4
+(reg >= 4 || rreg >= 4)
-                    code_orrex(c, REX);
-        }
-        else /* numwords == 2 */                /* ADD lsreg,lsrreg     */
-        {
-            reg = findreglsw(retregs);
-            rreg = findreglsw(rretregs);
-            c = genregs(c,op1,reg,rreg);
-            if (e->Eoper == OPadd || e->Eoper == OPmin)
-                code_orflag(c,CFpsw);
-            reg = findregmsw(retregs);
-            rreg = findregmsw(rretregs);
-            if (!(e2oper == OPu16_32 && // if second operand is 0
-                  (op2 == 0x0B || op2 == 0x33)) // and OR or XOR
-               )
-                genregs(c,op2,reg,rreg);        // ADC msreg,msrreg
-        }
-        break;
-
-    case OPrelconst:
-        if (sz != REGSIZE)