jitcx86.c

   1 #include "osecpu.h"\r
   2 #include "jitc.h"\r
   3 \r
   4 #if (JITC_ARCNUM == 0x0001)\r
   5 //\r
   6 // for x86-32bit\r
   7 //\r
   8 \r
   9 // F5の場合、decoderが対応するalloc-freeを結びつけるのが簡単で、typやlenを指定必須にしてもフロントエンドコードに影響はない.\r
  10 int jitCompiler(unsigned char *dst, unsigned char *dst1, const unsigned char *src, const unsigned char *src1, const unsigned char *src0, HOSECPU_LabelListTag *label, int maxLabels, int level, int debugInfo1, int flags)\r
  11 {\r
  12         // For IA-32 (x86, 32-bit)\r
  13         // 本来ならこのレイヤでは文法チェックしない\r
  14         //\r
  15         // dst : 現在の書き込みアドレス。\r
  16         // dst1 : 書き込みアドレスの最大値\r
  17         // src : 現在の読み込みアドレス(ヘッダ部は飛ばしてある\r
  18         // src1 : 読み込みアドレスの最大値\r
  19         // src0 : 読み込みバイナリのアドレス\r
  20         struct JitCompWork w;\r
  21         unsigned char *dst00 = dst, *enter0 = NULL, *tmp_ucp;\r
  22         char *errmsg = "";\r
  23         const unsigned char *oldsrc;\r
  24         int timecount = 0, i, j = 0, lastlabel = -1, debugInfo0 = -1;\r
  25         int reg0, reg1, reg2, cmp0reg = -1, cmp0lev = 0;\r
  26         \r
  27         w.dst = w.dst0 = dst;\r
  28         w.err = 0;\r
  29         w.maxLabels = maxLabels;\r
  30         \r
  31         if ((flags & JITC_NOSTARTUP) == 0) {\r
  32                 jitCompPutOp_PUSHAD(w.dst);\r
  33                 // Load cache\r
  34                 jitCompA000_loadRegCacheAll(&w);\r
  35                 jitCompA000_loadPRegCacheAll(&w);\r
  36         }\r
  37         if (level <= JITC_LV_SLOWER) {\r
  38                 // env.debugInfo0 <- 0;\r
  39                 // env.debugInfo1 <- debugInfo1;\r
  40                 jitCompPutOp_MOV_EAX_ZERO(w.dst);\r
  41                 jitCompPutOp_MOV_EBPDisp_GReg(&w, envOffset_DBGINFO0, IA32_REG0_EAX);\r
  42                 jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, debugInfo1);\r
  43                 jitCompPutOp_MOV_EBPDisp_GReg(&w, envOffset_DBGINFO1, IA32_REG0_EAX);\r
  44         }\r
  45         while (src < src1) {\r
  46                 w.prefix = 0;   //0x04 CND 命令で変更される\r
  47                 if (w.dst + 256 > dst1) {\r
  48                         // 書き込み領域が残り256バイト未満ならエラー\r
  49                         w.err = JITC_ERR_DST1;\r
  50                         goto err_w;\r
  51                 }\r
  52                 timecount++;\r
  53                 if (timecount >= 64) {\r
  54                         timecount -= 64;\r
  55                         /* 未完成(timeoutチェックコードを入れる) */\r
  56                 }\r
  57 #if ENABLE_DEBUG_CODE != 0\r
  58                 if(*src != 0x00 && *src != 0x01 && *src != 0x34){\r
  59                         DEBUGCode(&w, *src);\r
  60                 }\r
  61 #endif\r
  62 #if ENABLE_DEBUG_CODE != 0\r
  63                 if(*src != 0x00 && *src != 0x01 && *src != 0x34){\r
  64                         DEBUGCodeAddress(&w, (unsigned int)(src - src0));\r
  65                 }\r
  66 #endif\r
  67                 if((unsigned int)(src - src0) == 0xEB){\r
  68                         // 特定のバックエンドコードアドレスにブレークポイントを仕込みたい場合はこうする\r
  69                         jitCompPutOp_INT3(w.dst);\r
  70                 }\r
  71         prefix_continue:\r
  72                 // CND命令コンパイル後ここに戻る\r
  73                 switch (*src) {\r
  74                         case 0x00:\r
  75                                 // NOP\r
  76                                 if (w.prefix != 0) {\r
  77                                         // 「条件付きでNOPを実行」するなんて、矛盾している!\r
  78                                         w.err = JITC_ERR_PREFIX;\r
  79                                         goto err_w;\r
  80                                 }\r
  81                                 break;\r
  82                                 \r
  83                         case 0x01:\r
  84                                 // LB : ラベル設置命令。(6byte)\r
  85                                 // ・prefex = 1にする\r
  86                                 // ・timecount++し、timecountのチェックをする。\r
  87                                 // ・ラベル位置を登録する。\r
  88                                 // ・割り込みがある場合、このタイミングで割り込みを発生させる。\r
  89                                 //      Encode:\r
  90                                 //  0   1       2345\r
  91                                 //      01      opt     imm32\r
  92                                 //\r
  93                                 if (enter0 == NULL && (src[6] == 0x3c /* 多数のレジスタをスタックに退避 */ || (src[6] == 0xfe/* REMARK */ && src[7] == 0x01 && src[9] == 0x3c))) {\r
  94                                         //beginFunc()中のLB\r
  95                                         // LB命令の後に0x3C命令・・・beginFunc()\r
  96                                         enter0 = w.dst;\r
  97                                         jitCompPutOp_JMPnear(w.dst, 0);\r
  98                                 }\r
  99 \r
 100                                 if (src[6] == 0x34) {\r
 101                                         // 後続命令はDATA\r
 102                                         // なので、DATA部分をJMPですっとばすコードを生成\r
 103                                         // DAT_SA0(label, typ32, length) ・・・メモリ確保命令\r
 104                                         \r
 105                                         i = jitCompGetImm32(&src[6 + 1]);       // type32 を取得\r
 106                                         j = 32;\r
 107                                         \r
 108                                         if (i != 1) {\r
 109                                                 i = jitCompA000_convTyp(i);\r
 110                                                 j = 0;\r
 111                                                 switch (i >> 1) {\r
 112                                                         case 1:\r
 113                                                                 j = 1;\r
 114                                                                 break;\r
 115                                                         case 2:\r
 116                                                                 j = 2;\r
 117                                                                 break;\r
 118                                                         case 3:\r
 119                                                                 j = 4;\r
 120                                                                 break;\r
 121                                                 }\r
 122                                         }\r
 123                                         // jはデータサイズになる\r
 124                                         j *= jitCompGetImm32(&src[6 + 5]);      // len32\r
 125                                         if (j <= 0){\r
 126                                                 w.err = JITC_ERR_BADTYPE;\r
 127                                         }\r
 128                                         // DATA部分を飛び越すジャンプ\r
 129                                         tmp_ucp = w.dst;\r
 130                                         jitCompPutOp_JMPnear(w.dst, j);\r
 131                                         \r
 132 #if (jitCompA0001_OPTIMIZE_JMP != 0)\r
 133                                         if (j < 127 - jitCompA0001_OPTIMIZE_ALIGN) {\r
 134                                                 //飛び先が十分近いので\r
 135                                                 // 今書いたのはなかったことにして、\r
 136                                                 w.dst -= 5;\r
 137                                                 // よりサイズの小さな書き方にする\r
 138                                                 jitCompPutOp_JMPshort(w.dst, j);\r
 139                                         }\r
 140 #endif\r
 141                                 }\r
 142 #if (jitCompA0001_OPTIMIZE_ALIGN != 0)\r
 143                                 // アラインを jitCompA0001_OPTIMIZE_ALIGNにそろえる\r
 144                                 \r
 145                                 i = ((int)w.dst + 1) & (jitCompA0001_OPTIMIZE_ALIGN - 1); /* ALIGNで割ったあまりを計算 */\r
 146                                 i = jitCompA0001_OPTIMIZE_ALIGN - i;\r
 147                                 if (i == 1) { jitCompPutByte1(w.dst, 0x90); j += i; } /* NOP(); */\r
 148                                 if (i == 2) { jitCompPutByte2(w.dst, 0x89, 0xc0); j += i; } /* MOV(EAX, EAX); */\r
 149                                 if (i == 3) { jitCompPutByte3(w.dst, 0x8d, 0x76, 0x00); j += i; } /* LEA(ESI, [ESI+0]); */\r
 150                                 if (i == 4) { jitCompPutByte4(w.dst, 0x8d, 0x74, 0x26, 0x00); j += i; } /* LEA(ESI, [ESI*1+0]); */\r
 151                                 if (i == 5) { jitCompPutByte1(w.dst, 0x0d); jitCompPutImm32(w.dst, 0); j += i; } /* OR(EAX, 0); */\r
 152                                 if (i == 6) { jitCompPutByte2(w.dst, 0x8d, 0xb6); jitCompPutImm32(w.dst, 0); j += i; } /* LEA(ESI, [ESI+0]); */\r
 153                                 if (i == 7) { jitCompPutByte3(w.dst, 0x8d, 0xb4, 0x26); jitCompPutImm32(w.dst, 0); j += 7; } /* LEA(ESI, [ESI*1+0]); */\r
 154 #endif\r
 155                                 if (src[6] == 0x34) {\r
 156                                         // 後続命令はDATA\r
 157                                         // パディングに合わせて一個前の相対ジャンプを修正\r
 158                                         tmp_ucp[1] = j & 0xff;\r
 159                                         if (*tmp_ucp == 0xe9) {\r
 160                                                 // Near jump so imm is DWORD\r
 161                                                 tmp_ucp[2] = (j >> 8) & 0xff;\r
 162                                                 tmp_ucp[3] = (j >> 16) & 0xff;\r
 163                                                 tmp_ucp[4] = (j >> 24) & 0xff;\r
 164                                         }\r
 165                                 }\r
 166                                 if ((flags & JITC_PHASE1) == 0) {               // Phase 0ならば\r
 167                                         i = jitCompGetLabelNum(&w, src + 2);\r
 168                                         if (label[i].opt != 0 && w.err == 0) {\r
 169                                                 w.err = JITC_ERR_LABELREDEF;            // すでに同じ値のラベルがあればエラー\r
 170                                                 goto err_w;\r
 171                                         }\r
 172                                         if (w.prefix != 0) {                                    // CND命令の直後にラベルは設置できない\r
 173                                                 w.err = JITC_ERR_PREFIX;\r
 174                                                 goto err_w;\r
 175                                         }\r
 176                                         label[i].opt = src[1] + 1;\r
 177                                         label[i].typ = 0; /* TYP_CODE */\r
 178                                         label[i].p = w.dst;\r
 179                                         label[i].p1 = w.dst + 1;\r
 180                                         lastlabel = i;\r
 181                                 }\r
 182                                 cmp0reg = -1;\r
 183                                 timecount = 0;\r
 184                                 /* 未完成(timeoutチェックコードを入れる) */\r
 185                                 break;\r
 186                                 \r
 187                         case 0x02:\r
 188                                 // LIMM : 定数即値代入命令(6byte)\r
 189                                 // Encode:\r
 190                                 // 0    1               2345\r
 191                                 // 02   reg0R   imm32\r
 192                                 //\r
 193                                 // reg3F は条件比較慣用句指定用＆演算命令即値慣用句指定用。よってCND命令の直後では使用できない。\r
 194                                 \r
 195                                 if (src[1] == 0x3f && w.prefix != 0){\r
 196                                         // CND命令の直後でR3Fを書き換えるなんて変だよね\r
 197                                         w.err = JITC_ERR_PREFIX;\r
 198                                 }\r
 199                                 \r
 200 #if (jitCompA0001_USE_R3F_IMM32 != 0)\r
 201                                 if (src[1] == 0x3f) {\r
 202                                         // R3Fへの代入は例外で、 w.r3f を使用\r
 203                                         w.r3f = jitCompGetImm32(src + 2);\r
 204                                         break;\r
 205                                 }\r
 206 #endif\r
 207                                 i = jitCompGetImm32(src + 2);   // 与えられた即値(第二引数)を取得\r
 208                                 /* R00-R02 なら EBX, ECX, EDX 、それ以外なら EAX のレジスタIDを reg0 に代入 */\r
 209                                 reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);\r
 210 \r
 211 #if (jitCompA0001_OPTIMIZE_MOV != 0)\r
 212                                 // size optimization\r
 213                                 // MOV reg, 0 -> XOR reg, reg\r
 214                                 if (i == 0) {\r
 215                                         jitCompPutOp_XOR_GReg_GReg(w.dst, reg0, reg0);\r
 216                                         jitCompA0001_movRxxEax(&w, src[1]);\r
 217                                         break;\r
 218                                 }\r
 219 #endif\r
 220                                 /* reg0 のレジスタに対応したMOV命令を発行 */\r
 221                                 jitCompPutOp_MOV_GReg_Imm32(w.dst, reg0, i);\r
 222                                 \r
 223                                 if (reg0 == 0){\r
 224                                         // R03以降の、レジスタの内容をメモリ上に格納してエミュレートする場合\r
 225                                         jitCompA0001_movRxxEax(&w, src[1]);\r
 226                                 }\r
 227                                 \r
 228                                 break;\r
 229                                 \r
 230                         case 0x03: /* 未完成(plsまで対応) */\r
 231                                  // PLIMM : ラベル番号代入命令(6byte)\r
 232                                  // Encode:\r
 233                                  //     0       1       2345\r
 234                                  //     03      PXX     imm32\r
 235                                  //\r
 236                                  // ・P28 はAPI用\r
 237                                  // ・P30 はリターンアドレス\r
 238                                  // ・P3F はプログラムカウンタ\r
 239                                  //\r
 240                                 \r
 241                                 i = jitCompGetLabelNum(&w, src + 2);    // Pxxに代入するラベルの番号(第二引数)\r
 242                                 if ((flags & JITC_PHASE1) != 0 && w.err == 0) {\r
 243                                         // Phase 1であるならば\r
 244                                         if (label[i].opt == 0) {\r
 245                                                 // 指定されたラベル番号は存在しない\r
 246                                                 w.err = JITC_ERR_LABELNODEF;\r
 247                                                 goto err_w;\r
 248                                         }\r
 249                                         if (src[1] != 0x3f && label[i].opt != 2) {\r
 250                                                 // ?\r
 251                                                 w.err = JITC_ERR_LABELTYP;\r
 252                                                 goto err_w;\r
 253                                         }\r
 254                                         if (src[1] == 0x3f && label[i].typ != 0) {\r
 255                                                 // プログラムカウンタに TYP_CODEでない値は代入できない\r
 256                                                 w.err = JITC_ERR_LABELTYP;\r
 257                                                 goto err_w;\r
 258                                         }\r
 259                                 }\r
 260                                 if (src[1] == 0x3f) {\r
 261                                         // プログラムカウンタへの代入\r
 262                                         if (w.prefix == 0) {\r
 263                                                 // CND命令による条件付きでなければ、即座に移動\r
 264                                                 jitCompPutByte1(w.dst, 0xe9); /* JMP(?); */\r
 265                                         } else {\r
 266                                                 // 直前はCND命令。\r
 267                                                 \r
 268                                                 /*\r
 269                                                  * CND命令\r
 270                                                  *      1       2\r
 271                                                  *      04      reg0R\r
 272                                                  *\r
 273                                                  * いま、dstの末端はJZ命令になっている。 0x0F 0x84 cd\r
 274                                                  */\r
 275                                                 \r
 276                                                 // Jccの条件変更\r
 277                                                 // 0F 75\r
 278                                                 w.dst[-1] = w.dst[-2] ^ 0xf1; /* 74->85, 75->84 */\r
 279                                                 w.dst[-2] = 0x0f;\r
 280                                                 \r
 281                                                 w.prefix = 0;\r
 282                                         }\r
 283                                         j = 0;\r
 284                                         if ((flags & JITC_PHASE1) != 0 || (((flags & JITC_PHASE1) == 0) && label[i].opt != 0))  // label番号iが確保されているか、Phase 1なら\r
 285                                                 j = label[i].p - (w.dst + 4);   // j はとび先の相対番地\r
 286                                         jitCompPutImm32(w.dst, j);      // JMP もしくは JZ 命令のアドレス部を記述\r
 287 #if (jitCompA0001_OPTIMIZE_JMP != 0)\r
 288                                         if (-128 - 3 <= j && j < 0) {\r
 289                                                 if (w.dst[-5] == 0xe9) {\r
 290                                                         j += 3;\r
 291                                                         w.dst -= 5;\r
 292                                                         jitCompPutByte1(w.dst, 0xeb); /* JMP(?); */\r
 293                                                 } else {\r
 294                                                         j += 4;\r
 295                                                         w.dst -= 6;\r
 296                                                         jitCompPutByte1(w.dst, w.dst[1] ^ 0xf0);\r
 297                                                 }\r
 298                                                 jitCompPutByte1(w.dst, j & 0xff);\r
 299                                         }\r
 300 #endif\r
 301                                 } else {        // プログラムカウンタ以外への代入\r
 302                                         // 代入先が P01, P02なら ESI, EDI,それ以外ならEAXを指定\r
 303                                         reg0 = jitCompA000_selectPRegCache(src[1], IA32_REG0_EAX);\r
 304                                         // ラベルのパスを各レジスタに代入\r
 305                                         jitCompPutOp_MOV_GReg_Imm32(w.dst, reg0, (int)label[i].p);\r
 306                                         // レジスタへの代入をメモリでエミュレーションする場合は、スタックに書き込む。\r
 307                                         if (reg0 == 0){\r
 308                                                 jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 0, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */\r
 309                                         }\r
 310                                         \r
 311                                         if (level < JITC_LV_FASTEST) {\r
 312                                                 jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 8, reg0);                                /* p0 */\r
 313                                                 jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, label[i].typ);\r
 314                                                 jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 4, IA32_REG0_EAX);       /* typ */\r
 315                                                 jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, (int)label[i].p1);\r
 316                                                 jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 12, IA32_REG0_EAX);  /* p1 */\r
 317                                                 jitCompPutOp_MOV_EAX_ZERO(w.dst);\r
 318                                                 jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 16, IA32_REG0_EAX);      /* liveSign */\r
 319                                                 jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, envOffset_PTRCTRL);\r
 320                                                 jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 20, IA32_REG0_EAX);      /* pls */\r
 321                                         }\r
 322                                 }\r
 323                                 break;\r
 324                                 \r
 325                         case 0x04:\r
 326                                 // CND (prefix)\r
 327                                 // 与えられたRxxの最下位ビットが1であれば後続の命令を実行、そうでなければ飛ばす。\r
 328                                 \r
 329                                 if (src[1] >= 0x40){\r
 330                                         // R00-R3F 以外のレジスタは比較対象にできない\r
 331                                         w.err = JITC_ERR_REGNUM;\r
 332                                         goto err_w;\r
 333                                 }\r
 334                                 \r
 335                                 // 比較対象のレジスタがメモリ上にあれば-1, それ以外なら適切なレジスタ番号を返す\r
 336                                 reg0 = jitCompA000_selectRegCache(src[1], -1 /* mem */);\r
 337                                 \r
 338                                 /* TEST命令を発行 */\r
 339                                 if (reg0 < 0) {\r
 340                                         // 比較対象のレジスタはメモリ上にある\r
 341                                         jitCompPutByte1(w.dst, 0xf7); /* TEST = 1111 011w : mod 000 r/m : immediate data */\r
 342                                         jitCompPutModRM_Disp_BaseEBP(&w, src[1] * 4, 0);\r
 343                                 } else {\r
 344                                         // 比較対象はキャッシュレジスタ上にある\r
 345                                         jitCompPutByte2(w.dst, 0xf7, 0xc0 | reg0); /* TEST = 1111 011w : 11 000 reg : immediate data */\r
 346                                 }\r
 347                                 jitCompPutImm32(w.dst, 1);\r
 348                                 \r
 349                                 /* JZ命令を発行 */\r
 350                                 jitCompPutByte2(w.dst, 0x74, 0x00);     /* JZ($+2) */\r
 351                                 cmp0reg = -1;\r
 352                                 if (w.err != 0){\r
 353                                         goto err_w;\r
 354                                 }\r
 355                                 src += 2;\r
 356                                 w.prefix = 1;   // プリフィックスをセット\r
 357                                 w.dst0 = w.dst;\r
 358                                 goto prefix_continue;\r
 359                                 \r
 360                         case 0x08: /* LMEM */   /* 完成 */\r
 361                                 i = jitCompGetImm32(src + 2);\r
 362                                 if (i == 0x0001){\r
 363                                         w.err = JITC_ERR_BADTYPE;\r
 364                                 }\r
 365                                 if (level < JITC_LV_FASTER) {\r
 366                                         jitCompA0001_checkType(&w, src[6], i, 0); // read\r
 367                                         cmp0reg = -1;\r
 368                                 }\r
 369                                 reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);\r
 370                                 reg1 = jitCompA000_selectPRegCache(src[6], IA32_REG2_EDX);\r
 371                                 if (reg0 != IA32_REG0_EAX && reg1 == IA32_REG2_EDX){\r
 372                                         reg1 = IA32_REG0_EAX;\r
 373                                 }\r
 374                                 if (reg1 == IA32_REG2_EDX){\r
 375                                         jitCompA000_storeRegCacheEdx(&w);\r
 376                                 }\r
 377                                 if (reg1 <= 3 /* EAX, EDX */){\r
 378                                         jitCompPutOp_MOV_GReg_EBPDisp(&w, reg1, PRegOffset(src[6]));\r
 379                                 }\r
 380                                 if (level < JITC_LV_FASTER){\r
 381                                         jitCompA0001_checkLimit(&w, reg1, src[6]);\r
 382                                 }\r
 383                                 i = jitCompA000_convTyp(jitCompGetImm32(src + 2));\r
 384                                 switch (i) {\r
 385                                         case 0x0002:\r
 386                                                 jitCompPutByte3(w.dst, 0x0f, 0xbe, reg0 << 3 | reg1);   /* MOVSX(reg0,BYTE [reg1]); */\r
 387                                                 break;\r
 388                                         case 0x0003:\r
 389                                                 jitCompPutByte3(w.dst, 0x0f, 0xb6, reg0 << 3 | reg1);   /* MOVZX(reg0,BYTE [reg1]); */\r
 390                                                 break;\r
 391                                         case 0x0004:\r
 392                                                 jitCompPutByte3(w.dst, 0x0f, 0xbf, reg0 << 3 | reg1);   /* MOVSX(reg0,WORD [reg1]); */\r
 393                                                 break;\r
 394                                         case 0x0005:\r
 395                                                 jitCompPutByte3(w.dst, 0x0f, 0xb7, reg0 << 3 | reg1);   /* MOVZX(reg0,WORD [reg1]); */\r
 396                                                 break;\r
 397                                         case 0x0006:\r
 398                                         case 0x0007:\r
 399                                                 jitCompPutByte2(w.dst, 0x8b, reg0 << 3 | reg1); /* MOV(reg0, [reg1]); */\r
 400                                                 break;\r
 401                                         default:\r
 402                                                 w.err = JITC_ERR_BADTYPE;\r
 403                                 }\r
 404                                 if (reg0 == IA32_REG0_EAX){\r
 405                                         jitCompA0001_movRxxEax(&w, src[1]);\r
 406                                 }\r
 407                                 if (reg1 == IA32_REG2_EDX){\r
 408                                         jitCompA000_loadRegCacheEdx(&w);\r
 409                                 }\r
 410                                 break;\r
 411                                 \r
 412                         case 0x09: /* SMEM */   /* 完成 */\r
 413                                 i = jitCompGetImm32(src + 2);\r
 414                                 if (i == 0x0001){\r
 415                                         w.err = JITC_ERR_BADTYPE;\r
 416                                 }\r
 417                                 if (level < JITC_LV_FASTER) {\r
 418                                         jitCompA0001_checkType(&w, src[6], i, 1); // write\r
 419                                         cmp0reg = -1;\r
 420                                 }\r
 421                                 reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);\r
 422                                 reg1 = jitCompA000_selectPRegCache(src[6], IA32_REG2_EDX);\r
 423                                 if (reg0 != IA32_REG0_EAX && reg1 == IA32_REG2_EDX){\r
 424                                         reg1 = IA32_REG0_EAX;\r
 425                                 }\r
 426                                 if (reg1 == IA32_REG2_EDX){\r
 427                                         jitCompA000_storeRegCacheEdx(&w);\r
 428                                 }\r
 429                                 if (reg1 <= 3 /* EAX, EDX */){\r
 430                                         jitCompPutOp_MOV_GReg_EBPDisp(&w, reg1, PRegOffset(src[6]) + 0); /* MOV(reg1, [EBP+?]); */\r
 431                                 }\r
 432                                 if (level < JITC_LV_FASTER){\r
 433                                         jitCompA0001_checkLimit(&w, reg1, src[6]);\r
 434                                 }\r
 435                                 if (reg0 == IA32_REG0_EAX){\r
 436                                         jitCompA0001_movEaxRxx(&w, src[1]);\r
 437                                 }\r
 438                                 /* 値の範囲チェック */\r
 439                                 i = jitCompA000_convTyp(jitCompGetImm32(src + 2));\r
 440                                 switch (i) {\r
 441                                         case 0x0002:\r
 442                                         case 0x0003:\r
 443                                                 jitCompPutByte2(w.dst, 0x88, reg0 << 3 | reg1); /* MOV([reg1], BYTE(reg0)); */\r
 444                                                 break;\r
 445                                         case 0x0004:\r
 446                                         case 0x0005:\r
 447                                                 jitCompPutByte3(w.dst, 0x66, 0x89, reg0 << 3 | reg1);   /* MOV([reg1], WORD(reg0)); */\r
 448                                                 break;\r
 449                                         case 0x0006:\r
 450                                         case 0x0007:\r
 451                                                 jitCompPutByte2(w.dst, 0x89, reg0 << 3 | reg1); /* MOV([reg1], reg0); */\r
 452                                                 break;\r
 453                                         default:\r
 454                                                 w.err = JITC_ERR_BADTYPE;\r
 455                                 }\r
 456                                 if (reg1 == IA32_REG2_EDX){\r
 457                                         jitCompA000_loadRegCacheEdx(&w);\r
 458                                 }\r
 459                                 break;\r
 460                                 \r
 461                         case 0x0a: /* PLMEM */  /* 完成 */\r
 462                                 i = jitCompGetImm32(src + 2);\r
 463                                 if (i != 0x0001){\r
 464                                         w.err = JITC_ERR_BADTYPE;\r
 465                                 }\r
 466                                 if (level < JITC_LV_FASTER) {\r
 467                                         jitCompA0001_checkType(&w, src[6], i, 0); // read\r
 468                                         cmp0reg = -1;\r
 469                                 }\r
 470                                 reg0 = jitCompA000_selectPRegCache(src[1], IA32_REG0_EAX);\r
 471                                 reg1 = jitCompA000_selectPRegCache(src[6], IA32_REG2_EDX);\r
 472                                 //      if (reg0 != 0 /* EAX */ && reg1 == 2 /* EDX */) /* これをやってはいけない！(by K, 2013.08.02) */\r
 473                                 //              reg1 = 0; /* EAX */\r
 474                                 if (reg0 == reg1 && reg0 != 0) {\r
 475                                         // bugfix: hinted by yao, 2013.09.14. thanks!\r
 476                                         jitCompA000_storePRegCacheAll(&w);\r
 477                                         reg1 = IA32_REG2_EDX;\r
 478                                 }\r
 479                                 if (reg1 == IA32_REG2_EDX){\r
 480                                         jitCompA000_storeRegCacheEdx(&w);\r
 481                                 }\r
 482                                 if (reg1 <= 3 /* EAX, EDX */){\r
 483                                         jitCompPutOp_MOV_GReg_EBPDisp(&w, reg1, PRegOffset(src[6])); /* MOV(reg1, [EBP+?]); */\r
 484                                 }\r
 485                                 if (level < JITC_LV_FASTER){\r
 486                                         jitCompA0001_checkLimit(&w, reg1, src[6]);\r
 487                                 }\r
 488                                 jitCompPutByte2(w.dst, 0x8b, reg0 << 3 | reg1); /* MOV(reg0, [reg1]); */\r
 489                                 if (reg0 == IA32_REG0_EAX){\r
 490                                         jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]), IA32_REG0_EAX); /* MOV([EBP+?], EAX); */\r
 491                                 }\r
 492                                 for (i = 4; i < 32; i += 4) {\r
 493                                         jitCompPutByte3(w.dst, 0x8b, 0x40 | reg1, i);   /* MOV(EAX, [reg1+?]); */\r
 494                                         jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + i, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */\r
 495                                 }\r
 496                                 if (reg1 == IA32_REG2_EDX){\r
 497                                         jitCompA000_loadRegCacheEdx(&w);\r
 498                                 }\r
 499                                 break;\r
 500                                 \r
 501                         case 0x0b: /* PSMEM */  /* 完成 */\r
 502                                 i = jitCompGetImm32(src + 2);\r
 503                                 if (i != 0x0001) w.err = JITC_ERR_BADTYPE;\r
 504                                 if (level < JITC_LV_FASTER) {\r
 505                                         jitCompA0001_checkType(&w, src[6], i, 1); // write\r
 506                                         cmp0reg = -1;\r
 507                                 }\r
 508                                 reg0 = jitCompA000_selectPRegCache(src[1], IA32_REG0_EAX);\r
 509                                 reg1 = jitCompA000_selectPRegCache(src[6], IA32_REG2_EDX);\r
 510                                 /* これをやってはいけない！(by K, 2013.08.02) */\r
 511                                 //      if (reg0 != 0 /* EAX */ && reg1 == 2 /* EDX */)\r
 512                                 //              reg1 = 0; /* EAX */\r
 513                                 if (reg1 == IA32_REG2_EDX){\r
 514                                         jitCompA000_storeRegCacheEdx(&w);\r
 515                                 }\r
 516                                 if (reg1 <= 3 /* EAX, EDX */){\r
 517                                         jitCompPutOp_MOV_GReg_EBPDisp(&w, reg1, PRegOffset(src[6])); /* MOV(reg1, [EBP+?]); */\r
 518                                 }\r
 519                                 if (level < JITC_LV_FASTER){\r
 520                                         jitCompA0001_checkLimit(&w, reg1, src[6]);\r
 521                                 }\r
 522                                 if (reg0 == IA32_REG0_EAX){\r
 523                                         jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, PRegOffset(src[1])); /* MOV(reg0, [EBP+?]); */\r
 524                                 }\r
 525                                 jitCompPutByte2(w.dst, 0x89, reg0 << 3 | reg1); /* MOV([reg1], reg0); */\r
 526                                 for (i = 4; i < 32; i += 4) {\r
 527                                         jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[1]) + i); /* MOV(EAX, [EBP+?]); */\r
 528                                         jitCompPutByte3(w.dst, 0x89, 0x40 | reg1, i);   /* MOV([reg1+?], EAX); */\r
 529                                 }\r
 530                                 if (reg1 == IA32_REG2_EDX)\r
 531                                         jitCompA000_loadRegCacheEdx(&w);\r
 532                                 break;\r
 533                                 \r
 534                         case 0x0e: /* PADD */           /* 完成 */\r
 535                                 if (level < JITC_LV_FASTER) {\r
 536                                         jitCompA0001_checkType0(&w, src[6], jitCompGetImm32(src + 2), 2); // other, aliveテストはとりあえずしない.\r
 537                                         cmp0reg = -1;\r
 538                                 }\r
 539                                 reg0 = jitCompA000_selectPRegCache(src[1], IA32_REG0_EAX);\r
 540                                 reg1 = jitCompA000_selectPRegCache(src[6], -1 /* mem */);\r
 541                                 if (reg1 < 0 /* mem */){\r
 542                                         jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, PRegOffset(src[6])); /* MOV(reg0, [EBP+?]); */\r
 543                                 }\r
 544                                 if (reg1 >= 0 && reg0 != reg1) {\r
 545                                         jitCompPutByte2(w.dst, 0x89, 0xc0 | reg1 << 3 | reg0); /* MOV(reg0, reg1); */\r
 546                                 }\r
 547                                 i = jitCompGetImm32(src + 2);\r
 548                                 j = -1;\r
 549                                 if (i == 1){\r
 550                                         j = 5; /* 32 */\r
 551                                 } else {\r
 552                                         i = jitCompA000_convTyp(i);\r
 553                                         if (0x0002 <= i && i <= 0x0007){\r
 554                                                 j = (i - 0x0002) >> 1;\r
 555                                         }\r
 556                                 }\r
 557                                 if (j < 0) {\r
 558                                         w.err = JITC_ERR_BADTYPE;\r
 559                                         goto err_w;\r
 560                                 }\r
 561 #if (jitCompA0001_USE_R3F_IMM32 != 0)\r
 562                                 if (src[7] == 0x3f) {\r
 563                                         j = w.r3f << j;\r
 564 #if (jitCompA0001_USE_R3F_IMM8 != 0)\r
 565                                         if (-0x80 <= j && j <= 0x7f) {\r
 566 #if (jitCompA0001_USE_R3F_INCDEC != 0)\r
 567                                                 if (j == 1) {\r
 568                                                          /* INC */\r
 569                                                         jitCompPutByte1(w.dst, 0x40 | reg0);\r
 570                                                         goto padd1;\r
 571                                                 }\r
 572                                                 if (j == -1) {\r
 573                                                          /* DEC */\r
 574                                                         jitCompPutByte1(w.dst, 0x48 | reg0);\r
 575                                                         goto padd1;\r
 576                                                 }\r
 577 #endif\r
 578                                                 /* ADD(reg0, im8); */\r
 579                                                 jitCompPutByte3(w.dst, 0x83, 0xc0 | reg0, j & 0xff);\r
 580                                                 goto padd1;\r
 581                                         }\r
 582 #endif\r
 583                                         if (reg0 == 0) {\r
 584                                                 jitCompPutByte1(w.dst, 0x05);   /* ADD(reg0, ?); */\r
 585                                         } else {\r
 586                                                 jitCompPutByte2(w.dst, 0x81, 0xc0 | reg0);      /* ADD(reg0, ?); */\r
 587                                         }\r
 588                                         jitCompPutImm32(w.dst, j);\r
 589                                         goto padd1;\r
 590                                 }\r
 591 #endif\r
 592                                 if (src[7] >= 0x40){\r
 593                                         w.err = JITC_ERR_REGNUM;\r
 594                                 }\r
 595                                 if (j == 0) {\r
 596                                         reg1 = jitCompA000_selectRegCache(src[7], -1 /* mem */);\r
 597                                         if (reg1 >= 0) {\r
 598                                                 jitCompPutByte2(w.dst, 0x01, 0xc0 | reg1 << 3 | reg0);  /* ADD(reg0, reg1); */\r
 599                                         } else {\r
 600                                                 jitCompPutByte1(w.dst, 0x03);   /* ADD(reg0, [EBP+?]); */\r
 601                                                 jitCompPutModRM_Disp_BaseEBP(&w, src[7] * 4, reg0);\r
 602                                         }\r
 603                                 }\r
 604                                 else {\r
 605                                         reg1 = jitCompA000_selectRegCache(src[7], -1 /* mem */);\r
 606                                         reg2 = IA32_REG2_EDX;\r
 607                                         jitCompA000_storeRegCacheEdx(&w);\r
 608                                         if (reg1 < 0){\r
 609                                                 jitCompPutOp_MOV_GReg_EBPDisp(&w, reg2, src[7] * 4); /* MOV(reg2, [EBP+?]); */\r
 610                                         }\r
 611                                         if (reg1 >= 0 && reg1 != reg2) {\r
 612                                                 jitCompPutByte2(w.dst, 0x89, 0xc0 | reg1 << 3 | reg2); /* MOV(reg2, reg1); */\r
 613                                         }\r
 614                                         jitCompPutByte3(w.dst, 0xc1, 0xe0 | reg2, j);   /* SHL(reg2, ?); */\r
 615                                         jitCompPutByte2(w.dst, 0x01, 0xc0 | reg2 << 3 | reg0);  /* ADD(reg0, reg2); */\r
 616                                         jitCompA000_loadRegCacheEdx(&w);\r
 617                                 }\r
 618 #if (jitCompA0001_USE_R3F_IMM32 != 0)\r
 619                         padd1:\r
 620 #endif\r
 621                                 if (reg0 == IA32_REG0_EAX){\r
 622                                         jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]), reg0); /* MOV([EBP+?], reg0); */\r
 623                                 }\r
 624                                 if (src[1] != src[6]) {\r
 625                                         for (i = 4; i < 32; i += 4) {\r
 626                                                 jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[6]) + i); /* MOV(EAX, [EBP+?]); */\r
 627                                                 jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + i, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */\r
 628                                         }\r
 629                                 }\r
 630                                 cmp0reg = -1;\r
 631                                 break;\r
 632                                 \r
 633                         case 0x0f: /* PDIF */   /* 未完成 */\r
 634                                 reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);\r
 635                                 jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
 636                                 jitCompA0001_checkCompPtr(&w, src[6], src[7]);\r
 637                                 jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, PRegOffset(src[6])); /* MOV(reg0, [EBP+?]); */\r
 638                                 jitCompPutByte1(w.dst, 0x2b);   /* SUB(EAX, [EBP+?]); */\r
 639                                 jitCompPutModRM_Disp_BaseEBP(&w, PRegOffset(src[7]) + 0, reg0);\r
 640                                 i = jitCompA000_convTyp(jitCompGetImm32(src + 2));\r
 641                                 j = -1;\r
 642                                 if (0x0002 <= i && i <= 0x0007){\r
 643                                         j = (i - 0x0002) >> 1;\r
 644                                 }\r
 645                                 if (j < 0) {\r
 646                                         w.err = JITC_ERR_BADTYPE;\r
 647                                         goto err_w;\r
 648                                 }\r
 649                                 if (j > 0) {\r
 650                                         jitCompPutByte3(w.dst, 0xc1, 0xf8 | reg0, j);   /* SAR(reg0,?); */\r
 651                                 }\r
 652                                 if (reg0 == IA32_REG0_EAX){\r
 653                                         jitCompA0001_movRxxEax(&w, src[1]);\r
 654                                 }\r
 655                                 cmp0reg = src[1];\r
 656                                 cmp0lev = 1;\r
 657                                 break;\r
 658                                 \r
 659                         case 0x10:      /* OR */\r
 660                         case 0x11:      /* XOR */\r
 661                         case 0x12:      /* AND */\r
 662                         case 0x14:      /* ADD */\r
 663                         case 0x15:      /* SUB */\r
 664                         case 0x16:      /* MUL */\r
 665                                 if (src[1] >= 0x3f){\r
 666                                         w.err = JITC_ERR_REGNUM;\r
 667                                 }\r
 668                                 reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);\r
 669                                 reg1 = jitCompA000_selectRegCache(src[2], -1 /* mem */);\r
 670 #if (jitCompA0001_USE_R3F_IMM32 != 0)\r
 671                                 if (src[2] == 0x3f) {   // SUBのみ該当.\r
 672                                         if (*src != 0x15){\r
 673                                                 w.err = JITC_ERR_REGNUM;\r
 674                                         }\r
 675                                         reg2 = jitCompA000_selectRegCache(src[3], -1 /* mem */);\r
 676                                         if (reg2 >= 0){\r
 677                                                 jitCompA000_storeRegCacheAll(&w);\r
 678                                         }\r
 679                                         jitCompPutByte1(w.dst, 0xb8 | reg0);    /* MOV(reg0, ?); */\r
 680                                         jitCompPutImm32(w.dst, w.r3f);\r
 681                                         jitCompPutByte1(w.dst, 0x2b);\r
 682                                         jitCompPutModRM_Disp_BaseEBP(&w, src[3] * 4, reg0);\r
 683                                         if (reg0 == 0){\r
 684                                                 jitCompA0001_movRxxEax(&w, src[1]);\r
 685                                         }\r
 686                                         break;\r
 687                                 }\r
 688 #endif\r
 689                                 if (reg1 < 0) {\r
 690                                         jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, src[2] * 4); /* MOV(reg0, [EBP+?]); */\r
 691                                 }\r
 692                                 if (reg1 >= 0 && reg0 != reg1) {\r
 693                                         jitCompPutByte2(w.dst, 0x89, 0xc0 | reg1 << 3 | reg0); /* MOV(reg0, reg1); */\r
 694                                 }\r
 695                                 if (!(src[0] == 0x10 && src[3] == 0xff)) {\r
 696                                         // bugfix: hinted by Iris, 2013.06.26. thanks!\r
 697                                         cmp0reg = src[1];\r
 698                                         cmp0lev = 1;\r
 699                                         if (src[0] < 0x14){\r
 700                                                 cmp0lev = 2;\r
 701                                         }\r
 702                                         if (src[0] == 0x16){\r
 703                                                 cmp0reg = -1;\r
 704                                         }\r
 705                                 }\r
 706                                 if (!(src[0] == 0x10 && src[3] == 0xff)) {\r
 707 #if (jitCompA0001_USE_R3F_IMM32 != 0)\r
 708                                         if (src[3] == 0x3f) {\r
 709                                                 if (*src == 0x16 && w.r3f == -1) {\r
 710                                                         jitCompPutByte2(w.dst, 0xf7, 0xd8 | reg0); /* NEG(reg0); */\r
 711                                                         if (reg0 == 0){\r
 712                                                                 jitCompA0001_movRxxEax(&w, src[1]);\r
 713                                                         }\r
 714                                                         break;\r
 715                                                 }\r
 716 #if (jitCompA0001_USE_R3F_INCDEC != 0)\r
 717                                                 if ((*src == 0x14 && w.r3f == 1) || (*src == 0x15 && w.r3f == -1)) {\r
 718                                                         jitCompPutByte1(w.dst, 0x40 | reg0);    /* INC(reg0); */\r
 719                                                         if (reg0 == 0){\r
 720                                                                 jitCompA0001_movRxxEax(&w, src[1]);\r
 721                                                         }\r
 722                                                         break;\r
 723                                                 }\r
 724                                                 if ((*src == 0x15 && w.r3f == 1) || (*src == 0x14 && w.r3f == -1)) {\r
 725                                                         jitCompPutByte1(w.dst, 0x48 | reg0);    /* DEC(reg0); */\r
 726                                                         if (reg0 == 0){\r
 727                                                                 jitCompA0001_movRxxEax(&w, src[1]);\r
 728                                                         }\r
 729                                                         break;\r
 730                                                 }\r
 731 #endif\r
 732 #if (jitCompA0001_USE_R3F_IMM8 != 0)\r
 733                                                 if (-0x80 <= w.r3f && w.r3f <= 0x7f) {\r
 734                                                         if (*src != 0x16) {\r
 735                                                                 static unsigned char basic_op_table_im8[] = { 0xc8, 0xf0, 0xe0, 0, 0xc0, 0xe8 };\r
 736                                                                 jitCompPutByte3(w.dst, 0x83, basic_op_table_im8[*src - 0x10] | reg0, w.r3f & 0xff);\r
 737                                                         } else{\r
 738                                                                 jitCompPutByte3(w.dst, 0x6b, 0xc0 | reg0 << 3 | reg0, w.r3f & 0xff);\r
 739                                                         }\r
 740                                                         if (reg0 == 0){\r
 741                                                                 jitCompA0001_movRxxEax(&w, src[1]);\r
 742                                                         }\r
 743                                                         break;\r
 744                                                 }\r
 745 #endif\r
 746                                                 if (reg0 == IA32_REG0_EAX) {\r
 747                                                         static unsigned char basic_op_table_im32_eax[] = { 0x0d, 0x35, 0x25, 0, 0x05, 0x2d, 0xc0 };\r
 748                                                         if (*src == 0x16) {\r
 749                                                                 jitCompPutByte1(w.dst, 0x69);\r
 750                                                         }\r
 751                                                         jitCompPutByte1(w.dst, basic_op_table_im32_eax[*src - 0x10]);\r
 752                                                 } else{\r
 753                                                         if (*src != 0x16) {\r
 754                                                                 static unsigned char basic_op_table_im32_reg[] = { 0xc8, 0xf0, 0xe0, 0, 0xc0, 0xe8 };\r
 755                                                                 jitCompPutByte2(w.dst, 0x81, basic_op_table_im32_reg[*src - 0x10] | reg0);\r
 756                                                         }\r
 757                                                         else {\r
 758                                                                 jitCompPutByte2(w.dst, 0x69, 0xc0 | reg0 << 3 | reg0);\r
 759                                                         }\r
 760                                                 }\r
 761                                                 jitCompPutImm32(w.dst, w.r3f);\r
 762                                                 if (reg0 == 0){\r
 763                                                         jitCompA0001_movRxxEax(&w, src[1]);\r
 764                                                 }\r
 765                                                 break;\r
 766                                         }\r
 767 #endif\r
 768                                         reg1 = jitCompA000_selectRegCache(src[3], -1 /* mem */);\r
 769                                         if (src[3] >= 0x40){\r
 770                                                 w.err = JITC_ERR_REGNUM;\r
 771                                         }\r
 772                                         if (*src != 0x16) {\r
 773                                                 if (reg1 >= 0) {\r
 774                                                         static unsigned char basic_op_table_rr[] = { 0x09, 0x31, 0x21, 0, 0x01, 0x29 }; /* op(reg,reg); */\r
 775                                                         jitCompPutByte2(w.dst, basic_op_table_rr[*src - 0x10], 0xc0 | reg1 << 3 | reg0);\r
 776                                                 } else{\r
 777                                                         static unsigned char basic_op_table_rm[] = { 0x0b, 0x33, 0x23, 0, 0x03, 0x2b, 0xaf }; /* op(reg,mem); */\r
 778                                                         jitCompPutByte1(w.dst, basic_op_table_rm[*src - 0x10]);\r
 779                                                         jitCompPutModRM_Disp_BaseEBP(&w, src[3] * 4, reg0);\r
 780                                                 }\r
 781                                         } else{\r
 782                                                 if (reg1 >= 0) {\r
 783                                                         jitCompPutByte3(w.dst, 0x0f, 0xaf, 0xc0 | reg0 << 3 | reg1);\r
 784                                                 } else{\r
 785                                                         jitCompPutByte2(w.dst, 0x0f, 0xaf);\r
 786                                                         jitCompPutModRM_Disp_BaseEBP(&w, src[3] * 4, reg0);\r
 787                                                 }\r
 788                                         }\r
 789                                 }\r
 790                                 if (reg0 == 0){\r
 791                                         jitCompA0001_movRxxEax(&w, src[1]);\r
 792                                 }\r
 793                                 break;\r
 794                                 \r
 795                         case 0x18:      /* SHL */\r
 796                         case 0x19:      /* SAR */\r
 797                                 if (src[1] >= 0x3f){\r
 798                                         w.err = JITC_ERR_REGNUM;\r
 799                                 }\r
 800                                 if (src[3] >= 0x40){\r
 801                                         w.err = JITC_ERR_REGNUM;\r
 802                                 }\r
 803 #if (jitCompA0001_USE_R3F_IMM32 != 0)\r
 804                                 if (src[3] == 0x3f) {\r
 805                                         reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);\r
 806                                         reg1 = jitCompA000_selectRegCache(src[2], -1 /* mem */);\r
 807                                         if (src[1] >= 0x3f){\r
 808                                                 w.err = JITC_ERR_REGNUM;\r
 809                                         }\r
 810                                         if (reg1 == -1){\r
 811                                                 jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, src[2] * 4); /* MOV(reg1, [EBP+?]); */\r
 812                                         } else{\r
 813                                                 if (reg0 != reg1) {\r
 814                                                         jitCompPutByte2(w.dst, 0x89, 0xc0 | reg1 << 3 | reg0); /* MOV(reg0, reg1); */\r
 815                                                 }\r
 816                                         }\r
 817                                         if (*src == 0x18) {\r
 818                                                 /* SHL(reg0, im8); */\r
 819                                                 jitCompPutByte3(w.dst, 0xc1, 0xe0 | reg0, w.r3f);\r
 820                                         }\r
 821                                         if (*src == 0x19) {\r
 822                                                 /* SAR(reg0, im8); */\r
 823                                                 jitCompPutByte3(w.dst, 0xc1, 0xf8 | reg0, w.r3f);\r
 824                                         }\r
 825                                         if (reg0 == IA32_REG0_EAX){\r
 826                                                 jitCompA0001_movRxxEax(&w, src[1]);\r
 827                                         }\r
 828                                         cmp0reg = src[1];\r
 829                                         cmp0lev = 1;\r
 830                                         break;\r
 831                                 }\r
 832 #endif\r
 833                                 jitCompA000_storeRegCacheAll(&w); // 手抜き.\r
 834                                 jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG1_ECX, src[3] * 4); /* MOV(ECX, [EBP+?]); */\r
 835 #if (jitCompA0001_USE_R3F_IMM32 != 0)\r
 836                                 if (src[2] == 0x3f) {\r
 837                                         jitCompPutByte1(w.dst, 0xb8);   /* MOV(EAX, ?); */\r
 838                                         jitCompPutImm32(w.dst, w.r3f);\r
 839                                 } else{\r
 840                                         jitCompA0001_movEaxRxx(&w, src[2]);\r
 841                                 }\r
 842 #else\r
 843                                 jitCompA0001_movEaxRxx(&w, src[2]);\r
 844 #endif\r
 845                                 if (*src == 0x18) {\r
 846                                          /* SHL(EAX, CL); */\r
 847                                         jitCompPutByte2(w.dst, 0xd3, 0xe0);\r
 848                                 }\r
 849                                 if (*src == 0x19) {\r
 850                                         /* SAR(EAX, CL); */\r
 851                                         jitCompPutByte2(w.dst, 0xd3, 0xf8);\r
 852                                 }\r
 853                                 jitCompA0001_movRxxEax(&w, src[1]);\r
 854                                 jitCompA000_loadRegCacheAll(&w); // 手抜き.\r
 855                                 cmp0reg = src[1];\r
 856                                 cmp0lev = 1;\r
 857                                 break;\r
 858                                 \r
 859                         case 0x1a:      /* DIV */\r
 860                         case 0x1b:      /* MOD */\r
 861                                 if (src[1] >= 0x3f || src[2] >= 0x40 || src[3] >= 0x40){\r
 862                                         w.err = JITC_ERR_REGNUM;\r
 863                                 }\r
 864                                 jitCompA000_storeRegCacheAll(&w); // 手抜き.\r
 865 #if (jitCompA0001_USE_R3F_IMM32 != 0)\r
 866                                 if (src[3] == 0x3f) {\r
 867                                         jitCompPutByte1(w.dst, 0xb8 | 1);       /* MOV(ECX, ?); */\r
 868                                         jitCompPutImm32(w.dst, w.r3f);\r
 869                                 } else{\r
 870                                         jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG1_ECX, src[3] * 4); /* MOV(ECX, [EBP+?]); */\r
 871                                 }\r
 872                                 if (src[2] == 0x3f) {\r
 873                                         jitCompPutByte1(w.dst, 0xb8 | 0);       /* MOV(EAX, ?); */\r
 874                                         jitCompPutImm32(w.dst, w.r3f);\r
 875                                 } else{\r
 876                                         jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, src[2] * 4); /* MOV(EAX, [EBP+?]); */\r
 877                                 }\r
 878 #else\r
 879                                 jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG1_ECX, src[3] * 4); /* MOV(ECX, [EBP+?]); */\r
 880                                 jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, src[2] * 4); /* MOV(EAX, [EBP+?]); */\r
 881 #endif\r
 882                                 jitCompPutByte1(w.dst, 0x99);   /* CDQ(); */\r
 883                                 /* ECXがゼロではないことを確認すべき */\r
 884                                 jitCompPutByte2(w.dst, 0xf7, 0xf9);     /* IDIV(ECX); */\r
 885                                 if (*src == 0x1a) {\r
 886                                         jitCompPutOp_MOV_EBPDisp_GReg(&w, src[1] * 4, IA32_REG0_EAX);\r
 887                                 }\r
 888                                 if (*src == 0x1b) {\r
 889                                         jitCompPutOp_MOV_EBPDisp_GReg(&w, src[1] * 4, IA32_REG2_EDX);\r
 890                                 }\r
 891                                 jitCompA000_loadRegCacheAll(&w); // 手抜き.\r
 892                                 cmp0reg = -1;\r
 893                                 break;\r
 894                                 \r
 895                         case 0x1c:      /* PLMT0 */\r
 896                         case 0x1d:      /* PLMT1 */\r
 897                                 if (src[1] >= 0x40 || src[2] >= 0x40){\r
 898                                         w.err = JITC_ERR_PREGNUM;\r
 899                                 }\r
 900                                 if (level < JITC_LV_FASTEST) {\r
 901                                         cmp0reg = -1;\r
 902                                         if (level < JITC_LV_FASTER) {\r
 903                                                 // typ が一致していることを確認.\r
 904                                                 // plsとliveSignが一致していることを確認.\r
 905                                                 \r
 906                                                 // preg1はp0 <= p <= p1 を満たしているか？.\r
 907                                                 // 新しいp0/p1は古いp0?p1に適合しているか？.\r
 908                                                 \r
 909                                         }\r
 910                                 }\r
 911                                 \r
 912                         case 0x1e: /* PCP */            /* 未完成(p1まで完成) */\r
 913                                 if (src[1] >= 0x40 || src[2] >= 0x40){\r
 914                                         w.err = JITC_ERR_PREGNUM;\r
 915                                 }\r
 916                                 if (src[2] == 0x3f){\r
 917                                         w.err = JITC_ERR_PREGNUM;\r
 918                                 }\r
 919                                 if (src[1] != 0x3f) {\r
 920                                         /* src[2] == 0xff の場合に対応できてない */\r
 921                                         jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
 922                                         for (i = 0; i < 32; i += 4) {\r
 923                                                 jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[2]) + i); /* MOV(EAX, [EBP+?]); */\r
 924                                                 jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + i, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */\r
 925                                         }\r
 926                                         jitCompA000_loadPRegCacheAll(&w); // 手抜き.\r
 927                                 } else {\r
 928                                         if (level < JITC_LV_FASTER) {\r
 929                                                 jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[2]) + 4); /* MOV(EAX, [EBP+?]); */      /* typ */\r
 930                                                 jitCompPutByte3(w.dst, 0x83, 0xf8, 0);  /* CMP(EAX, 0); */\r
 931                                                 jitCompPutByte2(w.dst, 0x0f, 0x85); /* JNE */\r
 932                                                 jitCompPutImm32(w.dst, errfnc - (w.dst + 4));\r
 933                                                 /* セキュリティチェックが足りてない!(aliveとか) */\r
 934                                         }\r
 935                                         reg0 = IA32_REG0_EAX;\r
 936                                         jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
 937                                         jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, PRegOffset(src[2]) + 0); /* MOV(EAX, [EBP+?]); */\r
 938                                         if (level < JITC_LV_FASTER) {\r
 939                                                 jitCompPutByte1(w.dst, 0x3b);   /* CMP(reg0, [EBP+?]); */\r
 940                                                 jitCompPutModRM_Disp_BaseEBP(&w, PRegOffset(src[2]) + 8, reg0); /* p0 */\r
 941                                                 jitCompPutByte2(w.dst, 0x0f, 0x85); /* JNE */\r
 942                                                 jitCompPutImm32(w.dst, errfnc - (w.dst + 4));\r
 943                                         }\r
 944                                         jitCompPutByte2(w.dst, 0xff, 0xe0);     /* JMP(EAX); */\r
 945                                 }\r
 946                                 break;\r
 947                                 \r
 948                         case 0x1f: /* PCST */\r
 949                                 if (jitCompGetImm32(src + 2) == 0) {\r
 950                                         if (level < JITC_LV_FASTER){\r
 951                                                 jitCompA0001_checkType0(&w, src[6], jitCompGetImm32(src + 7), 2);\r
 952                                         }\r
 953                                         jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
 954                                         for (i = 0; i < 32 - 4; i += 4) {\r
 955                                                 jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[6]) + i); /* MOV(EAX, [EBP+?]); */\r
 956                                                 if (i == 4) {\r
 957                                                         jitCompPutByte1(w.dst, 0x0d); /* OR(EAX, ?); */\r
 958                                                         jitCompPutImm32(w.dst, 0x80000000);\r
 959                                                 }\r
 960                                                 jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + i, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */\r
 961                                         }\r
 962                                         jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, debugInfo1);\r
 963                                         jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 28, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */\r
 964                                         jitCompA000_loadPRegCacheAll(&w); // 手抜き.\r
 965                                         cmp0reg = -1;\r
 966                                         break;\r
 967                                 }\r
 968                                 if (jitCompGetImm32(src + 7) == 0) {\r
 969                                         jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
 970                                         for (i = 0; i < 32 - 4; i += 4) {\r
 971                                                 jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[6]) + i); /* MOV(EAX, [EBP+?]); */\r
 972                                                 if (i == 4) {\r
 973                                                         jitCompPutByte1(w.dst, 0x25); /* AND(EAX, ?); */\r
 974                                                         jitCompPutImm32(w.dst, 0x7fffffff);\r
 975                                                 }\r
 976                                                 jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + i, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */\r
 977                                         }\r
 978                                         if (level < JITC_LV_FASTER) {\r
 979                                                 jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[6]) + 28); /* MOV(EAX, [EBP+?]); */\r
 980                                                 jitCompPutByte1(w.dst, 0x3d);   /* CMP(EAX, ?); */\r
 981                                                 jitCompPutImm32(w.dst, debugInfo1);\r
 982                                                 jitCompPutByte2(w.dst, 0x74, 8); /* JE */\r
 983                                                 jitCompPutOp_MOV_EAX_ZERO(w.dst);\r
 984                                                 jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 0, IA32_REG0_EAX); /* MOV([EBP+?], EAX); (1+1+4) */\r
 985                                         }\r
 986                                         jitCompA000_loadPRegCacheAll(&w); // 手抜き.\r
 987                                         cmp0reg = -1;\r
 988                                         break;\r
 989                                 }\r
 990                                 w.err = JITC_ERR_OPECODE;\r
 991                                 goto err_w;\r
 992                                 \r
 993                         case 0x20:      /* CMPE */\r
 994                         case 0x21:      /* CMPNE */\r
 995                         case 0x22:      /* CMPL */\r
 996                         case 0x23:      /* CMPGE */\r
 997                         case 0x24:      /* CMPLE */\r
 998                         case 0x25:      /* CMPG */\r
 999                         case 0x26:      /* TSTZ */\r
1000                         case 0x27:      /* TSTNZ */\r
1001                                 reg0 = jitCompA000_selectRegCache(src[2], IA32_REG0_EAX);\r
1002                                 reg1 = jitCompA000_selectRegCache(src[3], -1 /* mem */);\r
1003                                 if (src[1] == 0x3f) {\r
1004                                         /* 特殊構文チェック */\r
1005                                         if (w.prefix != 0) {\r
1006                                                 w.err = JITC_ERR_PREFIX;\r
1007                                                 goto err_w;\r
1008                                         }\r
1009                                         if (src[4] != 0x04 || src[5] != 0x3f || src[6] != 0x03 || src[7] != 0x3f) {\r
1010                                                 w.err = JITC_ERR_IDIOM;\r
1011                                                 goto err_w;\r
1012                                         }\r
1013                                 }\r
1014                                 if (reg0 == 0)\r
1015                                         jitCompA0001_movEaxRxx(&w, src[2]);\r
1016 #if (jitCompA0001_USE_R3F_IMM32 != 0)\r
1017                                 if (src[3] == 0x3f) {\r
1018 #if (jitCompA0001_OPTIMIZE_CMP != 0)\r
1019                                         if ((*src <= 0x25 && w.r3f == 0) || (*src >= 0x26 && w.r3f == -1)) {\r
1020                                                 i = 0;\r
1021                                                 if (cmp0reg == src[2]) {\r
1022                                                         if (cmp0lev >= 1 && (src[0] == 0x20 || src[0] == 0x21 || src[0] == 0x26 || src[0] == 0x27)){\r
1023                                                                 i = 1;\r
1024                                                         }\r
1025                                                         if (cmp0lev >= 2 && (src[0] == 0x22 || src[0] == 0x23 || src[0] == 0x24 || src[0] == 0x25)){\r
1026                                                                 i = 1;\r
1027                                                         }\r
1028                                                 }\r
1029                                                 if (i == 0) {\r
1030                                                         jitCompPutByte2(w.dst, 0x85, 0xc0 | reg0 << 3 | reg0);  /* TEST(reg0, reg0); */\r
1031                                                 }\r
1032                                                 cmp0reg = src[2];\r
1033                                                 cmp0lev = 2;\r
1034                                                 goto cmpcc1;\r
1035                                         }\r
1036 #endif\r
1037 #if (jitCompA0001_USE_R3F_IMM8 != 0)\r
1038                                         if (-0x80 <= w.r3f && w.r3f <= 0x7f && *src <= 0x25) {\r
1039                                                 jitCompPutByte3(w.dst, 0x83, 0xf8 | reg0, w.r3f);\r
1040                                                 goto cmpcc1;\r
1041                                         }\r
1042 #endif\r
1043                                         if (reg0 == 0) {\r
1044                                                 if (*src <= 0x25) {\r
1045                                                         jitCompPutByte1(w.dst, 0x3d);\r
1046                                                 }\r
1047                                                 if (*src >= 0x26) {\r
1048                                                         jitCompPutByte1(w.dst, 0xa9);\r
1049                                                 }\r
1050                                         }\r
1051                                         else {\r
1052                                                 if (*src <= 0x25) {\r
1053                                                         jitCompPutByte2(w.dst, 0x81, 0xf8 | reg0);\r
1054                                                 }\r
1055                                                 if (*src >= 0x26) {\r
1056                                                         jitCompPutByte2(w.dst, 0xf7, 0xc0 | reg0);\r
1057                                                 }\r
1058                                         }\r
1059                                         jitCompPutImm32(w.dst, w.r3f);\r
1060                                         goto cmpcc1;\r
1061                                 }\r
1062 #endif\r
1063                                 if (src[3] >= 0x40){\r
1064                                         w.err = JITC_ERR_PREGNUM;\r
1065                                 }\r
1066                                 if (reg1 >= 0) {\r
1067                                         if (*src <= 0x25) {\r
1068                                                 jitCompPutByte2(w.dst, 0x39, 0xc0 | reg1 << 3 | reg0);\r
1069                                         }\r
1070                                         if (*src >= 0x26) {\r
1071                                                 jitCompPutByte2(w.dst, 0x85, 0xc0 | reg1 << 3 | reg0);\r
1072                                         }\r
1073                                 } else{\r
1074                                         if (*src <= 0x25) {\r
1075                                                 jitCompPutByte1(w.dst, 0x3b);\r
1076                                         }\r
1077                                         if (*src >= 0x26) {\r
1078                                                 jitCompPutByte1(w.dst, 0x85);\r
1079                                         }\r
1080                                         jitCompPutModRM_Disp_BaseEBP(&w, src[3] * 4, reg0);\r
1081                                 }\r
1082                         cmpcc1:\r
1083                                 if (w.err != 0){\r
1084                                         goto err_w;\r
1085                                 }\r
1086                                 static unsigned char cmpcc_table0[] = {\r
1087                                         0x04, 0x05, 0x0c, 0x0d, 0x0e, 0x0f, 0x04, 0x05, /* CMPcc, TSTcc */\r
1088                                         0x04, 0x05, 0x02, 0x03, 0x06, 0x07                              /* PCMPcc */\r
1089                                 };\r
1090 #if (jitCompA0001_USE_R3F_CMPJMP != 0)\r
1091                                 if (src[1] == 0x3f) {\r
1092                                         /* 特殊構文を利用した最適化 */\r
1093                                         jitCompPutByte2(w.dst, 0x0f, 0x80 | cmpcc_table0[*src - 0x20]);\r
1094                                         src += 6;\r
1095                                         i = jitCompGetLabelNum(&w, src + 2);\r
1096                                         if ((flags & JITC_PHASE1) != 0 && w.err != 0) {\r
1097                                                 if (label[i].opt == 0) {\r
1098                                                         w.err = JITC_ERR_LABELNODEF;\r
1099                                                         goto err_w;\r
1100                                                 }\r
1101                                                 //      if (label[i].typ != 1) { w.err = JITC_ERR_LABELTYP; goto err_w; }\r
1102                                         }\r
1103                                         j = 0;\r
1104                                         if ((flags & JITC_PHASE1) != 0 || (((flags & JITC_PHASE1) == 0) && label[i].opt != 0)){\r
1105                                                 j = label[i].p - (w.dst + 4);\r
1106                                         }\r
1107                                         jitCompPutImm32(w.dst, j);\r
1108 #if (jitCompA0001_OPTIMIZE_JMP != 0)\r
1109                                         if (-128 - 4 <= j && j < 0) {\r
1110                                                 j += 4;\r
1111                                                 w.dst -= 6;\r
1112                                                 jitCompPutByte2(w.dst, w.dst[1] ^ 0xf0, j & 0xff);\r
1113                                         }\r
1114 #endif\r
1115                                         src += 6;\r
1116                                         if (w.err != 0){\r
1117                                                 goto err_w;\r
1118                                         }\r
1119                                         continue;\r
1120                                 }\r
1121 #endif\r
1122                                 /* 一般的なJITC */\r
1123                                 reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);\r
1124                                 jitCompPutByte3(w.dst, 0x0f, 0x90 | cmpcc_table0[*src - 0x20], 0xc0 | reg0);    /* SETcc(BYTE(reg0)); */\r
1125                                 jitCompPutByte3(w.dst, 0x0f, 0xb6, 0xc0 | reg0 << 3 | reg0);    /* MOVZX(reg0, BYTE(reg0)); */\r
1126                                 jitCompPutByte2(w.dst, 0xf7, 0xd8 | reg0);      /* NEG(reg0); */\r
1127                                 if (reg0 == 0){\r
1128                                         jitCompA0001_movRxxEax(&w, src[1]);\r
1129                                 }\r
1130                                 cmp0reg = src[2];\r
1131                                 cmp0lev = 1;\r
1132                                 break;\r
1133                                 \r
1134                         case 0x28:      /* PCMPE */\r
1135                         case 0x29:      /* PCMPNE */\r
1136                         case 0x2a:      /* PCMPL */\r
1137                         case 0x2b:      /* PCMPGE */\r
1138                         case 0x2c:      /* PCMPLE */\r
1139                         case 0x2d:      /* PCMPG */\r
1140                                 if (src[1] == 0x3f) {\r
1141                                         /* 特殊構文チェック */\r
1142                                         if (w.prefix != 0) {\r
1143                                                 w.err = JITC_ERR_PREFIX;\r
1144                                                 goto err_w;\r
1145                                         }\r
1146                                         if (src[4] != 0x04 || src[5] != 0x3f || src[6] != 0x03 || src[7] != 0x3f) {\r
1147                                                 w.err = JITC_ERR_IDIOM;\r
1148                                                 goto err_w;\r
1149                                         }\r
1150                                 }\r
1151                                 if (src[2] >= 0x40) {\r
1152                                         w.err = JITC_ERR_PREGNUM;\r
1153                                 }\r
1154                                 jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
1155                                 if (src[3] != 0xff){\r
1156                                         jitCompA0001_checkCompPtr(&w, src[2], src[3]);\r
1157                                 }\r
1158                                 jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[2]) + 0); /* MOV(EAX, [EBP+?]); */\r
1159                                 if (src[3] != 0xff) {\r
1160                                         jitCompPutByte1(w.dst, 0x3b);   /* CMP(EAX, [EBP+?]); */\r
1161                                         jitCompPutModRM_Disp_BaseEBP(&w, PRegOffset(src[3]) + 0, 0);\r
1162                                 } else{\r
1163                                         /* ヌルポインタとの比較はこれでいいのか？たぶんよくない */\r
1164                                         jitCompPutByte3(w.dst, 0x83, 0xf8, 0x00);       /* CMP(EAX, 0); */\r
1165                                 }\r
1166                                 cmp0reg = -1;\r
1167                                 goto cmpcc1;\r
1168                                 \r
1169                         case 0x30:      /* talloc(old:F4) */\r
1170                         case 0x31:      /* tfree(old:F5) */\r
1171                         case 0x32:      /* malloc(old:F6) */\r
1172                         case 0x33:      /* mfree(old:F7) */\r
1173                                 jitCompA000_storeRegCacheAll(&w); // 手抜き.\r
1174                                 jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
1175                                 \r
1176                                 jitCompPutOp_PUSH_Imm8(w.dst, src[3]);\r
1177                                 jitCompPutOp_PUSH_Imm8(w.dst, src[2]);\r
1178                                 jitCompPutOp_PUSH_Imm8(w.dst, src[1]);\r
1179                                 jitCompPutOp_PUSH_GReg(w.dst, IA32_REG5_EBP);\r
1180                                 \r
1181                                 switch (*src) {\r
1182                                         case 0x30:\r
1183                                                 j = ((unsigned char *)&funcf4) - (w.dst + 1 + 4);\r
1184                                                 break;\r
1185                                         case 0x31:\r
1186                                                 j = ((unsigned char *)&funcf5) - (w.dst + 1 + 4);\r
1187                                                 break;\r
1188                                         case 0x32:\r
1189                                                 j = ((unsigned char *)&funcf6) - (w.dst + 1 + 4);\r
1190                                                 break;\r
1191                                         case 0x33:\r
1192                                                 j = ((unsigned char *)&funcf7) - (w.dst + 1 + 4);\r
1193                                                 break;\r
1194                                 }\r
1195                                 jitCompPutOp_CALL_Relative(w.dst, j);\r
1196                                 jitCompPutOp_ADD_GReg_Imm8(w.dst, IA32_REG4_ESP, 16);\r
1197                                 \r
1198                                 jitCompA000_loadRegCacheAll(&w); // 手抜き.\r
1199                                 jitCompA000_loadPRegCacheAll(&w); // 手抜き.\r
1200                                 cmp0reg = -1;\r
1201                                 break;\r
1202                                 \r
1203                         case 0x34:      /* data (暫定) */\r
1204                                 // 0    1234    5678            9\r
1205                                 // 34   typ32   len32   data...\r
1206                                 // len32 is NOT byte size!\r
1207                                 \r
1208                                 cmp0reg = -1;\r
1209                                 if (w.prefix != 0) {\r
1210                                         w.err = JITC_ERR_PREFIX;\r
1211                                         goto err_w;\r
1212                                 }\r
1213                                 int k, tmpData, bitCount, dataWidth;\r
1214                                 // kはtyp32\r
1215                                 k = jitCompGetImm32(&src[1]);\r
1216                                 dataWidth = jitCompA000_dataWidth(k);\r
1217                                 if (lastlabel >= 0 && label[lastlabel].typ == 0){\r
1218                                         //直前のラベルタイプを設定\r
1219                                         label[lastlabel].typ = k;\r
1220                                 }\r
1221                                 if (k != 1) {\r
1222                                         i = jitCompA000_convTyp(k);\r
1223                                         if (i < 2 || i > 7) {\r
1224                                                 w.err = JITC_ERR_BADTYPE;\r
1225                                                 goto err_w;\r
1226                                         }\r
1227                                 }\r
1228                                 // jはlen32\r
1229                                 j = jitCompGetImm32(&src[5]);\r
1230                                 oldsrc = src;\r
1231                                 src += 9;\r
1232                                 \r
1233                                 // srcはdata本体を指す\r
1234                                 if (k != 1) {\r
1235                                         // 一般データ\r
1236                                         bitCount = 7;\r
1237                                         while (j > 0) {\r
1238                                                 if (src >= src1) {\r
1239                                                         // バイトコードを末端を超えて読もうとした\r
1240                                                         w.err = JITC_ERR_SRC1;\r
1241                                                         src = oldsrc;\r
1242                                                         goto err_w;\r
1243                                                 }\r
1244                                                 if (w.dst + 256 > dst1) {\r
1245                                                         // 書き込み先の残り容量が256Bytesを切った\r
1246                                                         w.err = JITC_ERR_DST1;\r
1247                                                         src = oldsrc;\r
1248                                                         goto err_w;\r
1249                                                 }\r
1250                                                 tmpData = 0;\r
1251                                                 for (k = 0; k < dataWidth; k++) {\r
1252                                                         // dataWidthビットごとに切り出してtmpDataに入れる\r
1253                                                         tmpData = tmpData << 1 | ((*src >> bitCount) & 1);\r
1254                                                         bitCount--;\r
1255                                                         if (bitCount < 0) {\r
1256                                                                 bitCount = 7;\r
1257                                                                 src++;\r
1258                                                         }\r
1259                                                 }\r
1260                                                 if ((i & 1) == 0 && dataWidth <= 31 && (tmpData >> (dataWidth - 1)) != 0) {\r
1261                                                         // 符号あり型で、かつtmpDataの符号ビットが1なので、マイナスにする\r
1262                                                         tmpData -= 1 << dataWidth;\r
1263                                                 }\r
1264                                                 if (i == 2 || i == 3) {\r
1265                                                         // BYTE\r
1266                                                         jitCompPutByte1(w.dst, tmpData & 0xff);\r
1267                                                 }\r
1268                                                 if (i == 4 || i == 5) {\r
1269                                                         // WORD\r
1270                                                         jitCompPutByte2(w.dst, tmpData & 0xff, (tmpData >> 8) & 0xff);\r
1271                                                 }\r
1272                                                 if (i == 6 || i == 7) {\r
1273                                                         // DWORD\r
1274                                                         jitCompPutByte4(w.dst, tmpData & 0xff, (tmpData >> 8) & 0xff, (tmpData >> 16) & 0xff, (tmpData >> 24) & 0xff);\r
1275                                                 }\r
1276                                                 j--;\r
1277                                         }\r
1278                                 } else{\r
1279                                         // VPtr型\r
1280                                         while (j > 0) {\r
1281                                                 if (src >= src1) {\r
1282                                                         // バイトコードを末端を超えて読もうとした\r
1283                                                         w.err = JITC_ERR_SRC1;\r
1284                                                         src = oldsrc;\r
1285                                                         goto err_w;\r
1286                                                 }\r
1287                                                 if (w.dst + 256 > dst1) {\r
1288                                                         // 書き込み先の残り容量が256Bytesを切った\r
1289                                                         w.err = JITC_ERR_DST1;\r
1290                                                         src = oldsrc;\r
1291                                                         goto err_w;\r
1292                                                 }\r
1293                                                 i = jitCompGetImm32(src);\r
1294                                                 src += 4;\r
1295                                                 if ((flags & JITC_PHASE1) != 0 && w.err == 0) {\r
1296                                                         // Only in phase1\r
1297                                                         if (label[i].opt == 0) {\r
1298                                                                 // ローカルラベルはだめです...\r
1299                                                                 w.err = JITC_ERR_LABELNODEF;\r
1300                                                                 goto err_w;\r
1301                                                         }\r
1302                                                 }\r
1303                                                 jitCompPutImm32(w.dst, (int)label[i].p);\r
1304                                                 jitCompPutImm32(w.dst, label[i].typ);\r
1305                                                 jitCompPutImm32(w.dst, (int)label[i].p);\r
1306                                                 jitCompPutImm32(w.dst, (int)label[i].p1);\r
1307                                                 jitCompPutImm32(w.dst, 0); /* liveSign */\r
1308                                                 jitCompPutImm32(w.dst, envOffset_PTRCTRL); /* pls */\r
1309                                                 jitCompPutImm32(w.dst, 0);\r
1310                                                 jitCompPutImm32(w.dst, 0);\r
1311                                                 j--;\r
1312                                         }\r
1313                                 }\r
1314                                 if (lastlabel >= 0 && label[lastlabel].p1 < w.dst){\r
1315                                         label[lastlabel].p1 = w.dst;\r
1316                                 }\r
1317                                 continue;\r
1318                                 \r
1319                         case 0x3c:      /* ENTER */\r
1320                                 jitCompA000_storeRegCacheAll(&w); // 手抜き.\r
1321                                 jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
1322                                 jitCompPutOp_PUSH_Imm8(w.dst, src[6]);\r
1323                                 jitCompPutOp_PUSH_Imm8(w.dst, src[5]);\r
1324                                 jitCompPutOp_PUSH_Imm8(w.dst, src[4] & 0x0f);\r
1325                                 jitCompPutOp_PUSH_Imm8(w.dst, (src[4] >> 4) & 0x0f);\r
1326                                 jitCompPutOp_PUSH_Imm8(w.dst, src[3]);\r
1327                                 jitCompPutOp_PUSH_Imm8(w.dst, src[2]);\r
1328                                 jitCompPutOp_PUSH_Imm8(w.dst, src[1]);\r
1329                                 jitCompPutOp_PUSH_GReg(w.dst, IA32_REG5_EBP);\r
1330                                 j = ((unsigned char *)&func3c) - (w.dst + 1 + 4);\r
1331                                 jitCompPutOp_CALL_Relative(w.dst, j)\r
1332                                 jitCompPutOp_ADD_GReg_Imm8(w.dst, IA32_REG4_ESP, 32);\r
1333                                 jitCompA000_loadRegCacheAll(&w); // 手抜き.\r
1334                                 jitCompA000_loadPRegCacheAll(&w); // 手抜き.\r
1335                                 cmp0reg = -1;\r
1336                                 break;\r
1337                                 \r
1338                         case 0x3d:      /* LEAVE */\r
1339                                 jitCompA000_storeRegCacheAll(&w); // 手抜き.\r
1340                                 jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
1341                                 jitCompPutOp_PUSH_Imm8(w.dst, src[6]);\r
1342                                 jitCompPutOp_PUSH_Imm8(w.dst, src[5]);\r
1343                                 jitCompPutOp_PUSH_Imm8(w.dst, src[4] & 0x0f);\r
1344                                 jitCompPutOp_PUSH_Imm8(w.dst, (src[4] >> 4) & 0x0f);\r
1345                                 jitCompPutOp_PUSH_Imm8(w.dst, src[3]);\r
1346                                 jitCompPutOp_PUSH_Imm8(w.dst, src[2]);\r
1347                                 jitCompPutOp_PUSH_Imm8(w.dst, src[1]);\r
1348                                 jitCompPutOp_PUSH_GReg(w.dst, IA32_REG5_EBP);\r
1349                                 j = ((unsigned char *)&func3d) - (w.dst + 1 + 4);\r
1350                                 jitCompPutOp_CALL_Relative(w.dst, j)\r
1351                                 jitCompPutOp_ADD_GReg_Imm8(w.dst, IA32_REG4_ESP, 32);\r
1352                                 jitCompA000_loadRegCacheAll(&w); // 手抜き.\r
1353                                 jitCompA000_loadPRegCacheAll(&w); // 手抜き.\r
1354                                 cmp0reg = -1;\r
1355                                 break;\r
1356                                 \r
1357                         case 0xfe:      /* remark */\r
1358                                 if (src[1] == 0x01 && src[2] == 0x00) {\r
1359                                         // DBGINFO1\r
1360                                         if (level <= JITC_LV_SLOWER) {\r
1361                                                 jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, debugInfo1);\r
1362                                                 jitCompPutOp_MOV_EBPDisp_GReg(&w, envOffset_DBGINFO1, IA32_REG0_EAX);\r
1363                                         }\r
1364                                 }\r
1365                                 if (src[1] == 0x01 && src[2] == 0x03) {\r
1366                                         // DBGINFO1CLR\r
1367                                         if (level <= JITC_LV_SLOWER) {\r
1368                                                 jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, -1);\r
1369                                                 jitCompPutOp_MOV_EBPDisp_GReg(&w, envOffset_DBGINFO1, IA32_REG0_EAX);\r
1370                                         }\r
1371                                 }\r
1372                                 if (src[1] == 0x05 && src[2] == 0x00) {\r
1373                                         // DBGINFO0\r
1374                                         if (level <= JITC_LV_SLOWEST) {\r
1375                                                 debugInfo0 = jitCompGetImm32(src + 3);\r
1376                                                 jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, debugInfo0);\r
1377                                                 jitCompPutOp_MOV_EBPDisp_GReg(&w, envOffset_DBGINFO0, IA32_REG0_EAX);\r
1378                                         }\r
1379                                 }\r
1380                                 break;\r
1381                                 \r
1382                         default:\r
1383                                 w.err = JITC_ERR_OPECODE;\r
1384                                 goto err_w;\r
1385                 }\r
1386                 if (w.err != 0){\r
1387                         goto err_w;\r
1388                 }\r
1389                 jitCompA0001_fixPrefix(&w);\r
1390                 if (w.err != 0) {\r
1391                         goto err_w;\r
1392                 }\r
1393 #if ENABLE_DEBUG_CODE != 0\r
1394                 if(*src != 0x00 && *src != 0x01 && *src != 0x34){\r
1395                         DEBUGCode(&w, 315315);\r
1396                 }\r
1397 #endif\r
1398                 src += jitCompCmdLen(src);\r
1399         }\r
1400         if (enter0 != NULL) {\r
1401                 j = w.dst - (enter0 + 4);\r
1402                 enter0[0] = j & 0xff;\r
1403                 enter0[1] = (j >> 8) & 0xff;\r
1404                 enter0[2] = (j >> 16) & 0xff;\r
1405                 enter0[3] = (j >> 24) & 0xff;\r
1406         }\r
1407         if ((flags & JITC_NOSTARTUP) == 0) {\r
1408                 jitCompA000_storeRegCacheAll(&w);\r
1409                 jitCompA000_storePRegCacheAll(&w);\r
1410                 jitCompPutOp_POPAD(w.dst);\r
1411         }\r
1412         if ((flags & JITC_PHASE1) != 0){\r
1413                 return w.dst - dst00;\r
1414         }\r
1415         return 0;\r
1416         \r
1417 err_w:\r
1418         if ((w.err & JITC_ERR_PHASE0ONLY) != 0) {\r
1419                 if ((flags & JITC_PHASE1) == 0){\r
1420                         w.err &= ~JITC_ERR_PHASE0ONLY;\r
1421                 }\r
1422         }\r
1423         if (w.err == (JITC_ERR_MASK & JITC_ERR_REGNUM))                 errmsg = "reg-number error";\r
1424         if (w.err == (JITC_ERR_MASK & JITC_ERR_DST1))                   errmsg = "dst1 error";\r
1425         if (w.err == (JITC_ERR_MASK & JITC_ERR_OPECODE))                errmsg = "opecode error";\r
1426         if (w.err == (JITC_ERR_MASK & JITC_ERR_LABELNUM))               errmsg = "label number too large";\r
1427         if (w.err == (JITC_ERR_MASK & JITC_ERR_LABELREDEF))             errmsg = "label redefine";\r
1428         if (w.err == (JITC_ERR_MASK & JITC_ERR_PREFIX))                 { errmsg = "prefix redefine"; w.dst -= 2; }\r
1429         if (w.err == (JITC_ERR_MASK & JITC_ERR_LABELNODEF))             errmsg = "label not defined";\r
1430         if (w.err == (JITC_ERR_MASK & JITC_ERR_LABELTYP))               errmsg = "label type error";\r
1431         if (w.err == (JITC_ERR_MASK & JITC_ERR_IDIOM))                  errmsg = "idiom error";\r
1432         if (w.err == (JITC_ERR_MASK & JITC_ERR_PREGNUM))                errmsg = "preg-number error";\r
1433         if (w.err == (JITC_ERR_MASK & JITC_ERR_SRC1))                   errmsg = "src1 error";\r
1434         if (w.err == (JITC_ERR_MASK & JITC_ERR_BADTYPE))                errmsg = "bad type code";\r
1435         if (w.err == (JITC_ERR_MASK & JITC_ERR_PREFIXFAR))              errmsg = "prefix internal error";\r
1436         if (w.err == (JITC_ERR_MASK & JITC_ERR_INTERNAL))               errmsg = "general internal error";\r
1437         if (*errmsg != '\0') {\r
1438                 fprintf(stderr, "JITC: %s at %06X (debugInfo0=%d)\n    ", errmsg, src - src0, debugInfo0);\r
1439                 for (i = 0; i < 16; i++)\r
1440                         fprintf(stderr, "%02X ", src[i]);\r
1441                 static char *table[0x30] = {\r
1442                         "NOP", "LB", "LIMM", "PLIMM", "CND", "??", "??", "??",\r
1443                         "LMEM", "SMEM", "PLMEM", "PSMEM", "LEA", "??", "PADD", "PDIF",\r
1444                         "CP/OR", "XOR", "AND", "??", "ADD", "SUB", "MUL", "??",\r
1445                         "SHL", "SAR", "DIV", "MOD", "PLMT0", "PLMT1", "PCP", "PCST",\r
1446                         "CMPE", "CMPNE", "CMPL", "CMPGE", "CMPLE", "CMPG", "TSTZ", "TSTNZ",\r
1447                         "PCMPE", "PCMPNE", "PCMPL", "PCMPGE", "PCMPLE", "PCMPG", "??", "EXT" };\r
1448                 errmsg = "??";\r
1449                 if (*src < 0x30) errmsg = table[*src];\r
1450                 fprintf(stderr, "(%s)\n", errmsg);\r
1451         }\r
1452         return -1;\r
1453 }\r
1454 \r
1455 unsigned char *jitCompCallFunc(unsigned char *dst, void *func)\r
1456 {\r
1457         //この関数の中では結局w->dstしか参照していない\r
1458         struct JitCompWork w;\r
1459         w.dst = dst;\r
1460         jitCompA000_storeRegCacheAll(&w);\r
1461         jitCompA000_storePRegCacheAll(&w);\r
1462         jitCompPutOp_PUSHAD(w.dst);\r
1463         jitCompPutOp_PUSH_GReg(w.dst, IA32_REG0_EAX);   /* for 16Byte-align（Mac OSX） */\r
1464         jitCompPutOp_PUSH_GReg(w.dst, IA32_REG5_EBP);\r
1465         \r
1466         int j = ((unsigned char *)func) - (w.dst + 1 + 4);\r
1467         jitCompPutOp_CALL_Relative(w.dst, j);\r
1468         \r
1469         jitCompPutOp_POP_GReg(w.dst, IA32_REG0_EAX);\r
1470         jitCompPutOp_POP_GReg(w.dst, IA32_REG0_EAX);            /* for 16Byte-align (Mac OSX) */\r
1471         jitCompPutOp_POPAD(w.dst);\r
1472         jitCompA000_loadRegCacheAll(&w);\r
1473         jitCompA000_loadPRegCacheAll(&w);\r
1474         jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(0x30) + 0);\r
1475         \r
1476         jitCompPutByte2(w.dst, 0xff, 0xe0);     /* JMP(EAX); */\r
1477         return w.dst;\r
1478 }\r
1479 \r
1480 unsigned char *jitCompInit(unsigned char *dst)\r
1481 {\r
1482         // エラーハンドル関数呼び出しコードを先頭に追加し、それをerrfncにする。\r
1483         errfnc = dst;\r
1484         return jitCompCallFunc(dst, &errHndl);\r
1485 }\r
1486 \r
1487 void jitcRunBinary(void (*bin)(char *), HOSECPU_RuntimeEnvironment *env)\r
1488 {\r
1489         (*bin)(((char *)env) + jitCompA0001_EBP128); /* サイズを節約するためにEBPをjitCompA0001_EBP128バイトずらす */\r
1490         return;\r
1491 }\r
1492 \r
1493 void func3c(char *ebp, int opt, int r1, int p1, int lenR, int lenP, int r0, int p0)\r
1494 {\r
1495         // ENTER\r
1496         HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);\r
1497         int i, *pi;\r
1498         HOSECPU_PointerRegisterEntry *pp;\r
1499         \r
1500         if (r->junkStack + 2048 > r->junkStack1) {\r
1501                 (*(r->errHndl))(r);\r
1502         }\r
1503         pi = (void *)r->junkStack;\r
1504         r->junkStack += r1 * 4;\r
1505         for (i = 0; i < r1; i++){\r
1506                 pi[i] = r->ireg[i];\r
1507         }\r
1508         pp = (void *)r->junkStack;\r
1509         r->junkStack += p1 * 32;\r
1510         for (i = 0; i < p1; i++){\r
1511                 //pp[i] = r->preg[i];\r
1512                 PRegCopy(&pp[i], &r->preg[i]);\r
1513                 //\r
1514         }\r
1515         pp = (void *)r->junkStack;\r
1516         r->junkStack += 32;\r
1517         //*pp = r->preg[0x30];\r
1518         PRegCopy(pp, &r->preg[0x30]);\r
1519         //\r
1520         pi = (void *)r->junkStack;\r
1521         r->junkStack += 4;\r
1522         *pi = opt << 16 | r1 << 8 | p1;\r
1523         for (i = 0; i < lenR; i++){\r
1524                 r->ireg[r0 + i] = r->ireg[0x30 + i];\r
1525         }\r
1526         for (i = 0; i < lenP; i++){\r
1527                 r->preg[p0 + i] = r->preg[0x31 + i];\r
1528         }\r
1529         return;\r
1530 }\r
1531 \r
1532 void func3d(char *ebp, int opt, int r1, int p1, int lenR, int lenP, int r0, int p0)\r
1533 {\r
1534         HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);\r
1535         int i;\r
1536         r->junkStack -= 4;\r
1537         r->junkStack -= 32;\r
1538         HOSECPU_PointerRegisterEntry *pp = (void *)r->junkStack;\r
1539 \r
1540         //r->preg[0x30] = *pp;\r
1541         PRegCopy(&r->preg[0x30], pp);\r
1542         //\r
1543         r->junkStack -= p1 * 32; pp = (void *)r->junkStack;\r
1544         for (i = 0; i < p1; i++){\r
1545                 //r->preg[i] = pp[i];\r
1546                 PRegCopy(&r->preg[i], &pp[i]);\r
1547                 //\r
1548         }\r
1549         r->junkStack -= r1 * 4; int *pi = (void *)r->junkStack;\r
1550         for (i = 0; i < r1; i++){\r
1551                 r->ireg[i] = pi[i];\r
1552         }\r
1553         return;\r
1554 }\r
1555 \r
1556 void funcf4(char *ebp, int pxx, int typ, int len)\r
1557 {\r
1558         HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);\r
1559         int width = jitCompA000_dataWidth(jitCompA000_convTyp(r->ireg[typ])) >> 3;\r
1560         if (width < 0 || r->ireg[len] < 0){\r
1561                 (*(r->errHndl))(r);\r
1562         }\r
1563         void *p = r->junkStack;\r
1564         if (r->junkStack + width * r->ireg[len] + 256 > r->junkStack1){\r
1565                 (*(r->errHndl))(r);\r
1566         }\r
1567         r->junkStack += width * r->ireg[len];\r
1568         r->preg[pxx].p = p;\r
1569         r->preg[pxx].typ = r->ireg[typ];\r
1570         r->preg[pxx].p0 = p;\r
1571         r->preg[pxx].p1 = (void *)r->junkStack;\r
1572         int *pi = (int *)r->junkStack;\r
1573         *pi = width * r->ireg[len];\r
1574         r->junkStack += sizeof (int);\r
1575         if (r->ireg[typ] == 1) {\r
1576                 int i, i1 = (width * r->ireg[len]) >> 2;\r
1577                 pi = p;\r
1578                 for (i = 0; i < i1; i++){\r
1579                         pi[i] = 0;\r
1580                 }\r
1581         }\r
1582         return;\r
1583 }\r
1584 \r
1585 void funcf5(char *ebp, int pxx, int typ, int len)\r
1586 {\r
1587         // pxxはダミーで参照されない\r
1588         HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);\r
1589         r->junkStack -= sizeof (int);\r
1590         int *pi = (int *)r->junkStack;\r
1591         r->junkStack -= *pi;\r
1592 #if 0\r
1593         int width = jitCompA000_dataWidth(r->ireg[typ]);\r
1594         void *p = r->junkStack;\r
1595         r->junkStack -= width * r->ireg[len];\r
1596 #endif\r
1597         return;\r
1598 }\r
1599 \r
1600 void funcf6(char *ebp, int pxx, int typ, int len)\r
1601 {\r
1602         HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);\r
1603         int width = jitCompA000_dataWidth(jitCompA000_convTyp(r->ireg[typ])) >> 3;\r
1604         if (width < 0 || r->ireg[len] < 0){\r
1605                 (*(r->errHndl))(r);\r
1606         }\r
1607         void *p = malloc(width * r->ireg[len]);\r
1608         r->preg[pxx].p = p;\r
1609         r->preg[pxx].typ = r->ireg[typ];\r
1610         r->preg[pxx].p0 = p;\r
1611         r->preg[pxx].p1 = (unsigned char *)p + width * r->ireg[len];\r
1612         if (r->ireg[typ] == 1) {\r
1613                 int i, i1 = (width * r->ireg[len]) >> 2, *pi;\r
1614                 pi = p;\r
1615                 for (i = 0; i < i1; i++){\r
1616                         pi[i] = 0;\r
1617                 }\r
1618                 for (i = 1; i < i1; i += 8){\r
1619                         pi[i] |= -1;\r
1620                 }\r
1621         }\r
1622         return;\r
1623 }\r
1624 \r
1625 void funcf7(char *ebp, int pxx, int typ, int len)\r
1626 {\r
1627         // typとlenはダミーで参照されない\r
1628         HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);\r
1629         free(r->preg[pxx].p);\r
1630         return;\r
1631 }\r
1632 \r
1633 void errHndl(HOSECPU_RuntimeEnvironment *r)\r
1634 {\r
1635         r = (HOSECPU_RuntimeEnvironment *) (((char *)r) - jitCompA0001_EBP128);\r
1636         (*(r->errHndl))(r);\r
1637         // ここに帰ってきてはいけない.\r
1638 }\r
1639 \r
1640 /*\r
1641  * jitcの出力コードをひとまとめにする関数を作成しその中身をjitCompile()で生成\r
1642  *\r
1643  * qq : 出力バイナリの書き込み位置のアドレスへの参照(書き込み位置を呼び出しに反映させるため参照渡しにする)\r
1644  * q1 : 出力バイナリの書き込み位置のアドレスの最大値\r
1645  * p0 : (*.ose)バイナリの読み込み位置のアドレス(ヘッダ部除去済)\r
1646  * p1 : (*.ose)バイナリの読み込み位置の取りうる最大値\r
1647  *      (ただし、「確保したメモリ」の最大値なのでこれより手前にゴミデータが入っているかもしれない)\r
1648  * ret=1 : ヘッダのエラー\r
1649  * ret=2 : jitコンパイルエラー\r
1650  */\r
1651 int jitc0(unsigned char **qq, unsigned char *q1, const unsigned char *p0, const unsigned char *p1, int level, HOSECPU_LabelListTag *label)\r
1652 {\r
1653         unsigned char *q = *qq;\r
1654         int i;\r
1655         \r
1656         if (p0[0] != 0x05 || p0[1] != SIGN1){\r
1657                 // OSECPUのヘッダ (05E1) を確認\r
1658                 return 1;\r
1659         }\r
1660         \r
1661         jitCompPutOp_PUSH_GReg(q, IA32_REG5_EBP);\r
1662         \r
1663         *q++ = 0x8b; *q++ = 0x6c; *q++ = 0x24; *q++ = 0x08; /* MOV(EBP,[ESP+8]); */\r
1664         \r
1665         for (i = 0; i < JITC_MAXLABELS; i++){\r
1666                 label[i].opt = 0;\r
1667         }\r
1668         \r
1669         // ラベルのチェック\r
1670         i = jitCompiler(q, q1, p0 + 2, p1, p0, label, JITC_MAXLABELS, level, 0, 0);\r
1671         if (i != 0){\r
1672                 return 2;\r
1673         }\r
1674         i = jitCompiler(q, q1, p0 + 2, p1, p0, label, JITC_MAXLABELS, level, 0, JITC_PHASE1 + 0);\r
1675         if (i < 0){\r
1676                 return 2;\r
1677         }\r
1678         q += i;\r
1679         \r
1680         jitCompPutOp_POP_GReg(q, IA32_REG5_EBP);\r
1681         *q++ = 0xc3; /* RET(); */\r
1682         *qq = q;\r
1683         return 0;\r
1684 }\r
1685 \r
1686 #if (USE_DEBUGGER != 0)\r
1687 \r
1688 static char *pTypeName[] = {\r
1689         "T_CODE", "T_VPTR", "T_SINT8", "T_UINT8",\r
1690         "T_SINT16", "T_UINT16", "T_SINT32", "T_UINT32",\r
1691         "T_SINT4", "T_UINT4", "T_SINT2", "T_UINT2",\r
1692         "T_SINT1", "T_UINT1", "T_SINT12", "T_UINT12",\r
1693         "T_SINT20", "T_UINT20", "T_SINT24", "T_UINT24",\r
1694         "T_SINT28", "T_UINT28"\r
1695 };\r
1696 \r
1697 int dbgrGetRegNum(const char *p)\r
1698 {\r
1699         int i, j, r = -1;\r
1700         if (p[2] <= ' ') {\r
1701                 i = p[0] - '0';\r
1702                 j = p[1] - '0';\r
1703                 if (i > 9){\r
1704                         i -= 'A' - '0' - 10;\r
1705                 }\r
1706                 if (j > 9){\r
1707                         j -= 'A' - '0' - 10;\r
1708                 }\r
1709                 if (0 <= i && i <= 15 && 0 <= j && j <= 15){\r
1710                         r = i << 4 | j;\r
1711                 }\r
1712         }\r
1713         return r;\r
1714 }\r
1715 \r
1716 void dbgrPrintPRegInfo(HOSECPU_RuntimeEnvironment *r, int pxx)\r
1717 {\r
1718         char *p;\r
1719         int j, k;\r
1720         if (0 <= pxx && pxx <= 0x3f) {\r
1721                 p = "invalid";\r
1722                 if (0 <= r->preg[pxx].typ && r->preg[pxx].typ <= 0x15) {\r
1723                         p = pTypeName[r->preg[pxx].typ];\r
1724                 }\r
1725                 printf("P%02X:\n  type = %s(0x%02X),  (origin-ptr) = 0x%08X\n", pxx, p, r->preg[pxx].typ, (unsigned int)(r->preg[pxx].p0));\r
1726                 if (r->preg[pxx].p != NULL && r->preg[pxx].p0 != NULL) {\r
1727                         j = jitCompA000_dataWidth(jitCompA000_convTyp(r->preg[pxx].typ)) >> 3;\r
1728                         if (j <= 0){\r
1729                                 j = 1;\r
1730                         }\r
1731                         k = (r->preg[pxx].p1 - r->preg[pxx].p0) / j;\r
1732                         printf("  size = 0x%08X = %d\n", k, k);\r
1733                         k = (r->preg[pxx].p - r->preg[pxx].p0) / j;\r
1734                         printf("  pos  = 0x%08X = %d\n", k, k);\r
1735                 } else{\r
1736                         puts("  null pointer");\r
1737                 }\r
1738         }\r
1739         return;\r
1740 }\r
1741 \r
1742 void dbgrMain(HOSECPU_RuntimeEnvironment *r)\r
1743 {\r
1744         if (r->dbgr == 0){\r
1745                 return;\r
1746         }\r
1747         for (;;) {\r
1748                 char cmd[64], *p;\r
1749                 int i;\r
1750                 \r
1751                 printf("\ndbgr>");\r
1752                 p = fgets(cmd, 64, stdin);\r
1753                 if (p == NULL){\r
1754                         break;\r
1755                 }\r
1756                 if (cmd[0] == '\0'){\r
1757                         continue;\r
1758                 }\r
1759                 if (cmd[0] == 'q' && cmd[1] <= ' '){\r
1760                         break;\r
1761                 }\r
1762                 if (cmd[0] == 'p' && cmd[1] <= ' ' && cmd[1] != '\0') {\r
1763                         p = &cmd[2];\r
1764                         while (*p <= ' ' && *p != '\0'){\r
1765                                 p++;\r
1766                         }\r
1767                         if (*p == 'R') {\r
1768                                 i = dbgrGetRegNum(p + 1);\r
1769                                 if (0 <= i && i <= 0x3f) {\r
1770                                         printf("R%02X = 0x%08X = %d\n", i, r->ireg[i], r->ireg[i]);\r
1771                                 } else{\r
1772                                         puts("register name error");\r
1773                                 }\r
1774                                 continue;\r
1775                         }\r
1776                         if (*p == 'P') {\r
1777                                 dbgrPrintPRegInfo(r, dbgrGetRegNum(p + 1));\r
1778                                 continue;\r
1779                         }\r
1780                 }\r
1781                 if(strncmp(cmd, "p all", 5) == 0){\r
1782                         for(i = 0; i < 0x40; i++){\r
1783                                 dbgrPrintPRegInfo(r, i);\r
1784                         }\r
1785                         continue;\r
1786                 }\r
1787                 puts("command error");\r
1788         }\r
1789         return;\r
1790 }\r
1791 \r
1792 #endif\r
1793 \r
1794 \r
1795 #endif