VEX/test/test-i386-shift.h

   1
   2 #define exec_op glue(exec_, OP)
   3 #define exec_opl glue(glue(exec_, OP), l)
   4 #define exec_opw glue(glue(exec_, OP), w)
   5 #define exec_opb glue(glue(exec_, OP), b)
   6
   7 #ifndef OP_SHIFTD
   8
   9 #ifdef OP_NOBYTE
  10 #define EXECSHIFT(size, res, s1, s2, flags) \
  11     asm ("push %4\n\t"\
  12          "popf\n\t"\
  13          stringify(OP) size " %" size "2, %" size "0\n\t" \
  14          "pushf\n\t"\
  15          "popl %1\n\t"\
  16          : "=g" (res), "=g" (flags)\
  17          : "r" (s1), "0" (res), "1" (flags));
  18 #else
  19 #define EXECSHIFT(size, res, s1, s2, flags) \
  20     asm ("push %4\n\t"\
  21          "popf\n\t"\
  22          stringify(OP) size " %%cl, %" size "0\n\t" \
  23          "pushf\n\t"\
  24          "popl %1\n\t"\
  25          : "=q" (res), "=g" (flags)\
  26          : "c" (s1), "0" (res), "1" (flags));
  27 #endif
  28
  29 void exec_opl(int s2, int s0, int s1, int iflags)
  30 {
  31     int res, flags;
  32     res = s0;
  33     flags = iflags;
  34     EXECSHIFT("", res, s1, s2, flags);
  35     /* overflow is undefined if count != 1 */
  36     if (s1 != 1)
  37       flags &= ~CC_O;
  38     printf("%-10s A=%08x B=%08x R=%08x CCIN=%04x CC=%04x\n",
  39            stringify(OP) "l", s0, s1, res, iflags, flags & CC_MASK);
  40 }
  41
  42 void exec_opw(int s2, int s0, int s1, int iflags)
  43 {
  44     int res, flags;
  45     res = s0;
  46     flags = iflags;
  47     EXECSHIFT("w", res, s1, s2, flags);
  48     /* overflow is undefined if count != 1 */
  49     if (s1 != 1)
  50       flags &= ~CC_O;
  51     printf("%-10s A=%08x B=%08x R=%08x CCIN=%04x CC=%04x\n",
  52            stringify(OP) "w", s0, s1, res, iflags, flags & CC_MASK);
  53 }
  54
  55 #else
  56 #define EXECSHIFT(size, res, s1, s2, flags) \
  57     asm ("push %4\n\t"\
  58          "popf\n\t"\
  59          stringify(OP) size " %%cl, %" size "5, %" size "0\n\t" \
  60          "pushf\n\t"\
  61          "popl %1\n\t"\
  62          : "=g" (res), "=g" (flags)\
  63          : "c" (s1), "0" (res), "1" (flags), "r" (s2));
  64
  65 void exec_opl(int s2, int s0, int s1, int iflags)
  66 {
  67     int res, flags;
  68     res = s0;
  69     flags = iflags;
  70     EXECSHIFT("", res, s1, s2, flags);
  71     /* overflow is undefined if count != 1 */
  72     if (s1 != 1)
  73       flags &= ~CC_O;
  74     printf("%-10s A=%08x B=%08x C=%08x R=%08x CCIN=%04x CC=%04x\n",
  75            stringify(OP) "l", s0, s2, s1, res, iflags, flags & CC_MASK);
  76 }
  77
  78 void exec_opw(int s2, int s0, int s1, int iflags)
  79 {
  80     int res, flags;
  81     res = s0;
  82     flags = iflags;
  83     EXECSHIFT("w", res, s1, s2, flags);
  84     /* overflow is undefined if count != 1 */
  85     if (s1 != 1)
  86       flags &= ~CC_O;
  87     printf("%-10s A=%08x B=%08x C=%08x R=%08x CCIN=%04x CC=%04x\n",
  88            stringify(OP) "w", s0, s2, s1, res, iflags, flags & CC_MASK);
  89 }
  90
  91 #endif
  92
  93 #ifndef OP_NOBYTE
  94 void exec_opb(int s0, int s1, int iflags)
  95 {
  96     int res, flags;
  97     res = s0;
  98     flags = iflags;
  99     EXECSHIFT("b", res, s1, 0, flags);
 100     /* overflow is undefined if count != 1 */
 101     if (s1 != 1)
 102       flags &= ~CC_O;
 103     printf("%-10s A=%08x B=%08x R=%08x CCIN=%04x CC=%04x\n",
 104            stringify(OP) "b", s0, s1, res, iflags, flags & CC_MASK);
 105 }
 106 #endif
 107
 108 void exec_op(int s2, int s0, int s1)
 109 {
 110   int o,s,z,a,c,p,flags_in;
 111   for (o = 0; o < 2; o++) {
 112   for (s = 0; s < 2; s++) {
 113   for (z = 0; z < 2; z++) {
 114   for (a = 0; a < 2; a++) {
 115   for (c = 0; c < 2; c++) {
 116   for (p = 0; p < 2; p++) {
 117
 118     flags_in = (o ? CC_O : 0)
 119              | (s ? CC_S : 0)
 120              | (z ? CC_Z : 0)
 121              | (a ? CC_A : 0)
 122              | (c ? CC_C : 0)
 123              | (p ? CC_P : 0);
 124
 125     exec_opl(s2, s0, s1, flags_in);
 126 #ifdef OP_SHIFTD
 127     if (s1 <= 15)
 128         exec_opw(s2, s0, s1, flags_in);
 129 #else
 130     exec_opw(s2, s0, s1, flags_in);
 131 #endif
 132 #ifndef OP_NOBYTE
 133     exec_opb(s0, s1, flags_in);
 134 #endif
 135 #ifdef OP_CC
 136     exec_opl(s2, s0, s1, flags_in);
 137     exec_opw(s2, s0, s1, flags_in);
 138     exec_opb(s0, s1, flags_in);
 139 #endif
 140
 141   }}}}}}
 142
 143 }
 144
 145 void glue(test_, OP)(void)
 146 {
 147     int i;
 148     for(i = 0; i < 32; i++)
 149         exec_op(0x21ad3d34, 0x12345678, i);
 150     for(i = 0; i < 32; i++)
 151         exec_op(0x813f3421, 0x82345678, i);
 152 }
 153
 154 void *glue(_test_, OP) __init_call = glue(test_, OP);
 155
 156 #undef OP
 157 #undef OP_CC
 158 #undef OP_SHIFTD
 159 #undef OP_NOBYTE
 160 #undef EXECSHIFT
 161