-#include "osecpu.h"\r
-#include "jitc.h"\r
-\r
-extern unsigned char fontdata[]; // @fontdata.c\r
-\r
-const char *searchArg(int argc, const char **argv, const char *tag, int i)\r
-{\r
- // 引数リストargvの中から、文字列tagが前方一致する引数のi番目を探し出し、\r
- // その引数の文字列の、tagに続く部分の文字へのポインタを返す。\r
- int j, l;\r
- const char *r = NULL;\r
- \r
- if (tag != NULL) {\r
- l = (int)strlen(tag);\r
- for (j = 1; j < argc; j++) {\r
- if (strncmp(argv[j], tag, l) == 0) {\r
- r = argv[j] + l;\r
- if (i == 0){\r
- break;\r
- }\r
- i--;\r
- }\r
- }\r
- }\r
- /*\r
- // 未使用\r
- else {\r
- for (j = 1; j < argc; j++) {\r
- if (strchr(argv[j], ':') == NULL) {\r
- r = argv[j];\r
- if (i == 0){\r
- break;\r
- }\r
- i--;\r
- }\r
- }\r
- }\r
- */\r
- if (i != 0){\r
- r = NULL;\r
- }\r
- return r;\r
-}\r
-\r
-void devFunc0001(int len, unsigned char *puc, HOSECPU_RuntimeEnvironment *r)\r
-{\r
- // OSASK文字列の出力\r
- while (len > 0) {\r
- putOsaskChar(*puc++, r);\r
- len--;\r
- }\r
- return;\r
-}\r
-\r
-void devFunc0006(int mod, int sx, int sy, int x, int y, int c, int len, unsigned char *puc, HOSECPU_RuntimeEnvironment *r)\r
-{\r
- // drawString\r
- int xx;\r
- int yy;\r
- int i, ddx, ddy, j, ch, dx, dy;\r
- \r
- if (sy == 0){\r
- sy = sx;\r
- }\r
- xx = x + sx * 8;\r
- yy = y + sy * 16;\r
- if (xx <= 0 || xx > mainWindow.xsize || yy <= 0 || yy > mainWindow.ysize){\r
- (*(r->errHndl))(r);\r
- }\r
- if (x < 0 || x >= mainWindow.xsize || y < 0 || y >= mainWindow.ysize){\r
- (*(r->errHndl))(r);\r
- }\r
- \r
- \r
- if ((mod & 3) == 0 && sx == 1 && sy == 1) {\r
- // メジャーケースを高速化.\r
- for (i = 0; i < len; i++) {\r
- ch = puc[i];\r
- if (0x10 <= ch && ch <= 0x1f)\r
- ch = "0123456789ABCDEF"[ch & 0x0f];\r
- for (dy = 0; dy < 16; dy++) {\r
- j = fontdata[(ch - ' ') * 16 + dy];\r
- for (dx = 0; dx < 8; dx++) {\r
- if ((j & (0x80 >> dx)) != 0){\r
- mainWindow.vram[(x + dx) + (y + dy) * mainWindow.xsize] = c;\r
- }\r
- }\r
- }\r
- x += 8;\r
- }\r
- return;\r
- }\r
- for (i = 0; i < len; i++) {\r
- ch = puc[i];\r
- if (0x10 <= ch && ch <= 0x1f)\r
- ch = "0123456789ABCDEF"[ch & 0x0f];\r
- for (dy = 0; dy < 16; dy++) {\r
- j = fontdata[(ch - ' ') * 16 + dy];\r
- for (ddy = 0; ddy < sy; ddy++) {\r
- for (dx = 0; dx < 8; dx++) {\r
- if ((j & (0x80 >> dx)) != 0) {\r
- for (ddx = 0; ddx < sx; ddx++) {\r
- switch (mod & 3) {\r
- case 0:\r
- mainWindow.vram[x + y * mainWindow.xsize] = c;\r
- break;\r
- case 1:\r
- mainWindow.vram[x + y * mainWindow.xsize] |= c;\r
- break;\r
- case 2:\r
- mainWindow.vram[x + y * mainWindow.xsize] ^= c;\r
- break;\r
- case 3:\r
- mainWindow.vram[x + y * mainWindow.xsize] &= c;\r
- break;\r
- }\r
- x++;\r
- }\r
- } else{\r
- x += sx;\r
- }\r
- }\r
- x -= sx * 8;\r
- y++;\r
- }\r
- }\r
- x += sx * 8;\r
- y -= sy * 16;\r
- }\r
- return;\r
-}\r
-\r
-void devFunc0004(int mod, int x0, int y0, int x1, int y1, int c)\r
-{\r
- // FillRect\r
- int x, y;\r
- if (mod == 0) {\r
- for (y = y0; y <= y1; y++) {\r
- for (x = x0; x <= x1; x++) {\r
- mainWindow.vram[x + y * mainWindow.xsize] = c;\r
- }\r
- }\r
- }\r
- else {\r
- for (y = y0; y <= y1; y++) {\r
- for (x = x0; x <= x1; x++) {\r
- switch (mod) {\r
- case 1:\r
- mainWindow.vram[x + y * mainWindow.xsize] |= c;\r
- break;\r
- case 2:\r
- mainWindow.vram[x + y * mainWindow.xsize] ^= c;\r
- break;\r
- case 3:\r
- mainWindow.vram[x + y * mainWindow.xsize] &= c;\r
- break;\r
- }\r
- }\r
- }\r
- }\r
- return;\r
-}\r
-\r
-int devFunc0016(int buflen, unsigned char *buf, int plen, unsigned char *p, int qlen, int *q, HOSECPU_RuntimeEnvironment *r)\r
-{\r
- // OSASK文字列への変換?\r
- int i = 0, base, j, k;\r
- char sign;\r
- \r
- while (plen > 0) {\r
- if (i >= buflen){\r
- (*(r->errHndl))(r);\r
- }\r
- if (*p != 0x01) {\r
- buf[i++] = *p++;\r
- plen--;\r
- continue;\r
- }\r
- p++;\r
- plen--;\r
- if (qlen < 4){\r
- (*(r->errHndl))(r);\r
- }\r
- base = q[0];\r
- sign = 0;\r
- if (base == 0){\r
- base = 16;\r
- }\r
-#if (REVISION == 1)\r
- if (base == -3){\r
- base = 10;\r
- }\r
-#endif\r
- if (base == -1){\r
- base = 10;\r
- }\r
- if (base < 0 || base > 16){\r
- (*(r->errHndl))(r);\r
- }\r
- if (q[1] + i > buflen){\r
- (*(r->errHndl))(r);\r
- }\r
- j = q[3];\r
- if ((q[2] & 4) == 0) {\r
- // jは符号付き整数.\r
- if ((q[2] & 8) != 0 && j > 0){\r
- sign = '+';\r
- }\r
- if (j < 0) {\r
- sign = '-'; j *= -1;\r
- }\r
- } else{\r
- // jは符号無し整数.\r
- if ((q[2] & 8) != 0 && j != 0){\r
- sign = '+';\r
- }\r
- }\r
- for (k = q[1] - 1; k >= 0; k--) {\r
- buf[i + k] = (j % base) + 0x10;\r
- j = ((unsigned)j) / base;\r
- }\r
- k = 0;\r
- if ((q[2] & 2) == 0 && j == 0) {\r
- for (k = 0; k < q[1] - 1; k++) {\r
- if (buf[i + k] != 0x10){\r
- break;\r
- }\r
- buf[i + k] = ' ';\r
- }\r
- }\r
- if (sign != 0) {\r
- if (k > 0){\r
- k--;\r
- }\r
- buf[i + k] = sign;\r
- }\r
- if ((q[2] & 1) != 0 && buf[i] == ' ') {\r
- for (j = 0; k < q[1]; k++, j++){\r
- buf[i + j] = buf[i + k];\r
- }\r
- i += j;\r
- } else{\r
- i += q[1];\r
- }\r
- qlen -= 4;\r
- q += 4;\r
- }\r
- return i;\r
-}\r
-\r
-void devFunc(HOSECPU_RuntimeEnvironment *r)\r
-{\r
- FILE *fp;\r
- int i, c;\r
- int x, y, len, dx, dy;\r
- unsigned char *puc;\r
- unsigned char pucbuf[256];\r
- \r
- //サイズを節約するためにEBPを128バイトずらしているのを元に戻す\r
- r = (HOSECPU_RuntimeEnvironment *) (((char *)r) - jitCompA0001_EBP128);\r
- \r
- if (r->winClosed != 0){\r
- longjmp(r->setjmpEnv, 1);\r
- }\r
- if (0xff44 <= r->ireg[0x30] && r->ireg[0x30] <= 0xff48) {\r
- if (mainWindow.vram == NULL) {\r
- mainWindow.xsize = 640;\r
- mainWindow.ysize = 480;\r
- mainWindow.vram = malloc(640 * 480 * 4);\r
- drv_openWin(640, 480, (void *)mainWindow.vram, &r->winClosed);\r
- r->autoSleep = 1;\r
- for (i = 640 * 480 - 1; i >= 0; i--){\r
- mainWindow.vram[i] = 0;\r
- }\r
- }\r
- }\r
- \r
- switch (r->ireg[0x30]){\r
- case 0xff00:\r
- printf("R31=%d(dec)\n", r->ireg[0x31]);\r
- break;\r
- \r
- case 0xff01:\r
- // junkApi_fopenRead(_filesize, _p, arg)\r
- // args: R31=arg, R30=_filesize, P31=_p\r
- // retv: R30, P31\r
- if (r->buf0 == NULL){\r
- r->buf0 = malloc(1024 * 1024);\r
- }\r
- if (r->mainArgc <= r->ireg[0x31]) {\r
- fprintf(stderr, "devFunc: error: R30=ff01: argc error: R31=%08X\n", r->ireg[0x31]);\r
- exit(1);\r
- }\r
- fp = fopen(r->mainArgv[r->ireg[0x31]], "rb");\r
- if (fp == NULL) {\r
- fprintf(stderr, "devFunc: error: R30=ff01: fopen error: '%s'\n", r->mainArgv[r->ireg[0x31]]);\r
- exit(1);\r
- }\r
- i = (int)fread(r->buf0, 1, 1024 * 1024 - 4, fp);\r
- if (i >= 1024 * 1024 - 4 || i < 0) {\r
- fprintf(stderr, "devFunc: error: R30=ff01: fread error: '%s'\n", r->mainArgv[r->ireg[0x31]]);\r
- exit(1);\r
- }\r
- fclose(fp);\r
- r->preg[0x31].p = r->buf0;\r
- r->preg[0x31].p0 = r->buf0;\r
- r->preg[0x31].p1 = r->buf0 + i;\r
- r->preg[0x31].typ = 3; // T_UINT8\r
- r->ireg[0x30] = i;\r
- break;\r
- \r
- case 0xff02:\r
- // junkApi_fopenWrite(arg, filesize, p)\r
- // args: R31=arg, R32=filesize, P31=p\r
- // retv: (none)\r
- if (r->mainArgc <= r->ireg[0x31]) {\r
- fprintf(stderr, "devFunc: error: R30=ff02: argc error: R31=%08X\n", r->ireg[0x31]);\r
- exit(1);\r
- }\r
- fp = fopen(r->mainArgv[r->ireg[0x31]], "wb");\r
- if (fp == NULL) {\r
- fprintf(stderr, "devFunc: error: R30=ff02: fopen error: '%s'\n", r->mainArgv[r->ireg[0x31]]);\r
- exit(1);\r
- }\r
- if (r->ireg[0x32] >= 1024 * 1024 || r->ireg[0x32] < 0){\r
- fprintf(stderr, "devFunc: error: R30=ff02: fwrite error: R02=%08X\n", r->ireg[0x32]);\r
- exit(1);\r
- }\r
- fwrite(r->preg[0x31].p, 1, r->ireg[0x32], fp);\r
- fclose(fp);\r
- break;\r
- \r
- case 0xff03:\r
- // junkApi_allocBuf(_p)\r
- // args: P31=_p\r
- // retv: P31\r
- if (r->buf1 == NULL){\r
- r->buf1 = malloc(1024 * 1024);\r
- }\r
- r->preg[0x31].p = r->buf1;\r
- r->preg[0x31].p0 = r->buf1;\r
- r->preg[0x31].p1 = r->buf1 + 1024 * 1024;\r
- break;\r
- \r
- case 0xff04:\r
- printf("P31.(p-p0)=%d(dec)\n", (int)(r->preg[0x31].p - r->preg[0x31].p0));\r
- break;\r
- \r
- case 0xff05:\r
- // junkApi_writeStdout(len, p)\r
- // args: R31=len, P31=p\r
- // retv: (none)\r
- fwrite(r->preg[0x31].p, 1, r->ireg[0x31], stdout);\r
- break;\r
- \r
- case 0xff06:\r
- // junkApi_exit(i)\r
- // args: R31=i\r
- // retv: (none)\r
- r->appReturnCode = r->ireg[31];\r
- longjmp(r->setjmpEnv, 1);\r
- break;\r
- \r
- case 0xff07:\r
- // junkApi_putConstString0(s)\r
- // DB(0xff,0x00,0x00); DB%(s,0x00);\r
- // マシになった文字列表示.\r
- // OSASK文字列に対応.offにすれば通常の文字列処理もできる.\r
- // 現状はonのみサポート.\r
- checkString(r, 0x31, 0x31);\r
- devFunc0001(r->ireg[0x31], r->preg[0x31].p, r);\r
- break;\r
- \r
- case 0xff08:\r
- // junkApi_jitc2(_rc, _p, mod, lev, di1, len, s)\r
- // R31=mod; R32=lev; R33=di1; R34=len; P31=s; _rc=R30; _p=P31\r
- // JITC on JITC\r
- // R31: 言語(back-end, front-end, ...\r
- // R32: level\r
- // R33: debugInfo1\r
- checkString(r, 0x34, 0x31);\r
- if (r->ireg[0x33] < 0 || r->ireg[0x33] > 15 || r->debugInfo1 > 15){\r
- (*(r->errHndl))(r);\r
- }\r
- for (i = 0; i < r->maxLabels; i++){\r
- r->label[i].opt = 0;\r
- }\r
- puc = r->preg[0x31].p;\r
- i = jitCompiler(r->jitbuf, r->jitbuf1, puc, puc + r->ireg[0x34], puc, r->label, r->maxLabels, r->ireg[0x32], di1_serial, JITC_NOSTARTUP + 0);\r
- if (i == 0) {\r
- i = jitCompiler(r->jitbuf, r->jitbuf1, puc, puc + r->ireg[0x34], puc, r->label, r->maxLabels, r->ireg[0x32], di1_serial, JITC_NOSTARTUP + JITC_PHASE1 + 0);\r
- if (i >= 0) {\r
- r->mapDi1s[r->debugInfo1][r->ireg[0x33]] = di1_serial;\r
- di1_serial++;\r
- r->ireg[0x30] = 0;\r
- r->preg[0x31].p = r->jitbuf;\r
- r->preg[0x31].typ = 0; // TYP_CODE\r
- r->preg[0x31].p0 = r->jitbuf;\r
- r->preg[0x31].p1 = r->jitbuf + 1;\r
- //int j; for (j = 0; j < i; j++) printf("%02X ", r->jitbuf[j]); putchar('\n');\r
- r->jitbuf += i;\r
- static unsigned char ff08_ret[3] = { 0x1e, 0x3f, 0x30 };\r
- i = jitCompiler(r->jitbuf, r->jitbuf1, ff08_ret, ff08_ret + 3, puc, r->label, r->maxLabels, r->ireg[0x32], -1, JITC_NOSTARTUP + JITC_PHASE1 + 0);\r
- r->jitbuf += i;\r
- break;\r
- }\r
- }\r
- r->ireg[0x30] = -1;\r
- break;\r
- \r
- case 0xff09:\r
- //putStringDec\r
- // たぶんbit7を使ったテキストはうまく処理できない（これはもはや仕様にしても問題ないかも）.\r
- checkString(r, 0x31, 0x31);\r
- len = devFunc0016(sizeof pucbuf, pucbuf, r->ireg[0x31], r->preg[0x31].p, r->ireg[0x32], (int *)r->preg[0x32].p, r);\r
- devFunc0001(len, pucbuf, r);\r
- break;\r
- \r
- case 0xff40:\r
- // junkApi_openWin(xsiz, ysiz) R31=xsiz; R32=ysiz;\r
- /* R31とR32でサイズを指定 */\r
- mainWindow.xsize = r->ireg[0x31];\r
- mainWindow.ysize = r->ireg[0x32];\r
- if (mainWindow.xsize <= 0 || mainWindow.ysize <= 0){\r
- (*(r->errHndl))(r);\r
- }\r
- r->preg[0x31].p = (void *)(mainWindow.vram = malloc(mainWindow.xsize * mainWindow.ysize * 4));\r
- r->preg[0x31].p0 = r->preg[0x31].p;\r
- r->preg[0x31].p1 = r->preg[0x31].p + mainWindow.xsize * mainWindow.ysize * 4;\r
- drv_openWin(r->ireg[0x31], r->ireg[0x32], r->preg[0x31].p, &r->winClosed);\r
- // drv_flshWin(r->ireg[1], r->ireg[2], 0, 0);\r
- r->autoSleep = 1;\r
- for (i = mainWindow.xsize * mainWindow.ysize - 1; i >= 0; i--){\r
- mainWindow.vram[i] = 0;\r
- }\r
- break;\r
- \r
- case 0xff41:\r
- // junkApi_flushWin(xsiz, ysiz, x0, y0)\r
- // R31=xsiz; R32=ysiz; R33=x0; R34=y0\r
- /* R31とR32でサイズを指定、R33とR34でx0,y0指定 */\r
- if (r->ireg[0x31] == -1) {\r
- r->ireg[0x31] = mainWindow.xsize; r->ireg[0x33] &= 0;\r
- }\r
- if (r->ireg[0x32] == -1) {\r
- r->ireg[0x32] = mainWindow.ysize; r->ireg[0x34] &= 0;\r
- }\r
- checkRect(r, 0x31);\r
- drv_flshWin(r->ireg[0x31], r->ireg[0x32], r->ireg[0x33], r->ireg[0x34]);\r
- break;\r
- \r
- case 0xff42:\r
- // junkApi_sleep(opt, msec) R31=opt; R32=msec\r
- if (r->ireg[0x32] == -1) {\r
- r->autoSleep = 1;\r
- longjmp(r->setjmpEnv, 1);\r
- }\r
- if (r->ireg[0x32] < 0){\r
- (*(r->errHndl))(r);\r
- }\r
- r->autoSleep = 0;\r
- if ((r->ireg[0x31] & 1) == 0 && mainWindow.vram != NULL){\r
- drv_flshWin(mainWindow.xsize, mainWindow.ysize, 0, 0);\r
- }\r
- for (;;) {\r
- if (r->winClosed != 0){\r
- longjmp(r->setjmpEnv, 1);\r
- }\r
- drv_sleep(r->ireg[0x32]);\r
- if ((r->ireg[0x31] & 2) != 0 && keybuf_c <= 0){\r
- continue;\r
- }\r
- break;\r
- }\r
- break;\r
- \r
- case 0xff43:\r
- // junkApi_inkey(_i, mod) R31=mod; _i=R30\r
- // 1:peek\r
- // 2:stdin\r
- // 4,8: ソース指定.\r
- // 16: shift, lock系を有効化.\r
- // 32: 左右のshift系を区別する.\r
- if (r->ireg[0x31] == 2) { // なぜ3にしなかったのか...\r
- r->ireg[0x30] = fgetc(stdin);\r
- if (r->ireg[0x30] == EOF){\r
- r->ireg[0x30] = -1;\r
- }\r
- break;\r
- }\r
- r->ireg[0x30] |= -1;\r
- if (keybuf_c > 0) {\r
- r->ireg[0x30] = keybuf[keybuf_r];\r
- if ((r->ireg[0x31] & 16) == 0){\r
- r->ireg[0x30] &= 0x3e3effff;\r
- }\r
- if ((r->ireg[0x31] & 32) == 0){\r
- r->ireg[0x30] |= (r->ireg[0x30] >> 8) & 0xff0000;\r
- }\r
- if ((r->ireg[0x31] & 1) != 0) {\r
- keybuf_c--;\r
- keybuf_r = (keybuf_r + 1) & (KEYBUFSIZ - 1);\r
- }\r
- }\r
- r->ireg[0x32] = r->ireg[0x33] = 0;\r
- if (r->ireg[0x30] == 4132) r->ireg[0x32]--;\r
- if (r->ireg[0x30] == 4133) r->ireg[0x33]--;\r
- if (r->ireg[0x30] == 4134) r->ireg[0x32]++;\r
- if (r->ireg[0x30] == 4135) r->ireg[0x33]++;\r
- break;\r
- \r
- case 0xff44:\r
- // junkApi_drawPoint(mod, x, y, c) R31=mod; R32=x; R33=y; R34=c\r
- c = loadColor(r, 0x34);\r
- if (r->ireg[0x32] < 0 || r->ireg[0x32] >= mainWindow.xsize ||\r
- r->ireg[0x33] < 0 || r->ireg[0x33] >= mainWindow.ysize){\r
- (*(r->errHndl))(r);\r
- }\r
- \r
- switch ((r->ireg[0x31] & 3)) {\r
- case 0:\r
- mainWindow.vram[r->ireg[0x32] + r->ireg[0x33] * mainWindow.xsize] = c;\r
- break;\r
- case 1:\r
- mainWindow.vram[r->ireg[0x32] + r->ireg[0x33] * mainWindow.xsize] |= c;\r
- break;\r
- case 2:\r
- mainWindow.vram[r->ireg[0x32] + r->ireg[0x33] * mainWindow.xsize] ^= c;\r
- break;\r
- case 3:\r
- mainWindow.vram[r->ireg[0x32] + r->ireg[0x33] * mainWindow.xsize] &= c;\r
- break;\r
- }\r
- break;\r
- \r
- case 0xff45:\r
- // junkApi_drawLine(mod, x0, y0, x1, y1, c) DB(0xfe,0x05,0x01); DDBE(0x0003); R30=0xff45; R31=mod; R32=x0; R33=y0; R34=x1; R35=y1; R36=c\r
- //drawLine\r
- c = loadColor(r, 0x36);\r
- if (r->ireg[0x32] < 0 || r->ireg[0x32] >= mainWindow.xsize ||\r
- r->ireg[0x33] < 0 || r->ireg[0x33] >= mainWindow.ysize){\r
- (*(r->errHndl))(r);\r
- }\r
- if (r->ireg[0x34] < 0 || r->ireg[0x34] >= mainWindow.xsize ||\r
- r->ireg[0x35] < 0 || r->ireg[0x35] >= mainWindow.ysize){\r
- (*(r->errHndl))(r);\r
- }\r
- dx = r->ireg[0x34] - r->ireg[0x32];\r
- dy = r->ireg[0x35] - r->ireg[0x33];\r
- x = r->ireg[0x32] << 10;\r
- y = r->ireg[0x33] << 10;\r
- if (dx < 0){\r
- dx = -dx;\r
- }\r
- if (dy < 0){\r
- dy = -dy;\r
- }\r
- if (dx >= dy) {\r
- len = dx + 1; dx = 1024;\r
- if (r->ireg[0x32] > r->ireg[0x34]){\r
- dx *= -1;\r
- }\r
- if (r->ireg[0x33] > r->ireg[0x35]){\r
- dy *= -1;\r
- }\r
- dy = (dy << 10) / len;\r
- } else {\r
- len = dy + 1; dy = 1024;\r
- if (r->ireg[0x33] > r->ireg[0x35]){\r
- dy *= -1;\r
- }\r
- if (r->ireg[0x32] > r->ireg[0x34]){\r
- dx *= -1;\r
- }\r
- dx = (dx << 10) / len;\r
- }\r
- if ((r->ireg[0x31] & 3) == 0) {\r
- for (i = 0; i < len; i++) {\r
- mainWindow.vram[(x >> 10) + (y >> 10) * mainWindow.xsize] = c;\r
- x += dx;\r
- y += dy;\r
- }\r
- break;\r
- }\r
- for (i = 0; i < len; i++) {\r
- // if ((r->ireg[0x31] & 3) == 0) vram[(x >> 10) + (y >> 10) * v_xsiz] = c;\r
- switch ((r->ireg[0x31] & 3)) {\r
- case 1:\r
- mainWindow.vram[(x >> 10) + (y >> 10) * mainWindow.xsize] |= c;\r
- break;\r
- case 2:\r
- mainWindow.vram[(x >> 10) + (y >> 10) * mainWindow.xsize] ^= c;\r
- break;\r
- case 3:\r
- mainWindow.vram[(x >> 10) + (y >> 10) * mainWindow.xsize] &= c;\r
- break;\r
- default:\r
- break;\r
- }\r
- x += dx;\r
- y += dy;\r
- }\r
- break;\r
- \r
- case 0xff46:\r
- // fillRect(opt:R31, xsiz:R32, ysiz:R33, x0:R34, y0:R35, c:R36)\r
- c = loadColor(r, 0x36);\r
- if (r->ireg[0x32] == -1) { r->ireg[0x32] = mainWindow.xsize; r->ireg[0x34] &= 0; }\r
- if (r->ireg[0x33] == -1) { r->ireg[0x33] = mainWindow.ysize; r->ireg[0x35] &= 0; }\r
- checkRect(r, 0x32);\r
- int mod3 = r->ireg[0x31] & 3, x0 = r->ireg[0x34], y0 = r->ireg[0x35], x1 = r->ireg[0x34] + r->ireg[0x32] - 1, y1 = r->ireg[0x35] + r->ireg[0x33] - 1;\r
- if ((r->ireg[0x31] & 0x20) == 0) {\r
- devFunc0004(mod3, x0, y0, x1, y1, c);\r
- } else { // drawRect\r
- devFunc0004(mod3, x0, y0, x1, y0, c);\r
- devFunc0004(mod3, x0, y1, x1, y1, c);\r
- devFunc0004(mod3, x0, y0, x0, y1, c);\r
- devFunc0004(mod3, x1, y0, x1, y1, c);\r
- }\r
- break;\r
- \r
- case 0xff47:\r
- // fillOval(opt:R31, xsiz:R32, ysiz:R33, x0:R34, y0:R35, c:R36)\r
- // これの計算精度はアーキテクチャに依存する.\r
- c = loadColor(r, 0x36);\r
- if (r->ireg[0x32] == -1) {\r
- r->ireg[0x32] = mainWindow.xsize; r->ireg[0x34] &= 0;\r
- }\r
- if (r->ireg[0x33] == -1) {\r
- r->ireg[0x33] = mainWindow.ysize; r->ireg[0x35] &= 0;\r
- }\r
- checkRect(r, 0x32);\r
- double dcx = 0.5 * (r->ireg[0x32] - 1);\r
- double dcy = 0.5 * (r->ireg[0x33] - 1);\r
- double dcxy = (dcx + 0.5) * (dcy + 0.5) - 0.1;\r
- dcxy *= dcxy;\r
- mod3 = r->ireg[0x31] & 3;\r
- x1 = r->ireg[0x32];\r
- y1 = r->ireg[0x33];\r
- if (mod3 == 0 && (r->ireg[0x31] & 0x20) == 0) {\r
- for (y = 0; y < y1; y++) {\r
- double dty = (y - dcy) * dcx;\r
- for (x = 0; x < x1; x++) {\r
- double dtx = (x - dcx) * dcy;\r
- if (dtx * dtx + dty * dty > dcxy){\r
- continue;\r
- }\r
- mainWindow.vram[(x + r->ireg[0x34]) + (y + r->ireg[0x35]) * mainWindow.xsize] = c;\r
- }\r
- }\r
- } else {\r
-#define DRAWOVALPARAM 1\r
- double dcx1 = 0.5 * (r->ireg[0x32] - (1 + DRAWOVALPARAM * 2));\r
- double dcy1 = 0.5 * (r->ireg[0x33] - (1 + DRAWOVALPARAM * 2));\r
- double dcxy1 = (dcx1 + 0.5) * (dcy1 + 0.5) - 0.1;\r
- dcxy1 *= dcxy1;\r
- for (y = 0; y < y1; y++) {\r
- double dty = (y - dcy) * dcx;\r
- double dty1 = (y - dcy) * dcx1;\r
- for (x = 0; x < x1; x++) {\r
- double dtx = (x - dcx) * dcy;\r
- double dtx1 = (x - dcx) * dcy1;\r
- if (dtx * dtx + dty * dty > dcxy){\r
- continue;\r
- }\r
- if (DRAWOVALPARAM <= x && x < x1 - DRAWOVALPARAM && DRAWOVALPARAM <= y && y < y1 - DRAWOVALPARAM) {\r
- if (dtx1 * dtx1 + dty1 * dty1 < dcxy1){\r
- continue;\r
- }\r
- }\r
- switch (mod3) {\r
- case 0:\r
- mainWindow.vram[(x + r->ireg[0x34]) + (y + r->ireg[0x35]) * mainWindow.xsize] = c;\r
- break;\r
- case 1:\r
- mainWindow.vram[(x + r->ireg[0x34]) + (y + r->ireg[0x35]) * mainWindow.xsize] |= c;\r
- break;\r
- case 2:\r
- mainWindow.vram[(x + r->ireg[0x34]) + (y + r->ireg[0x35]) * mainWindow.xsize] ^= c;\r
- break;\r
- case 3:\r
- mainWindow.vram[(x + r->ireg[0x34]) + (y + r->ireg[0x35]) * mainWindow.xsize] &= c;\r
- break;\r
- }\r
- }\r
- }\r
- }\r
- break;\r
- \r
- case 0xff48:\r
- // drawString(opt:R31, xsiz:R32, ysiz:R33, x0:R34, y0:R35, c:R36, s.len:R37, s.p:P31)\r
- checkString(r, 0x37, 0x31);\r
- devFunc0006(r->ireg[0x31], r->ireg[0x32], r->ireg[0x33], r->ireg[0x34], r->ireg[0x35], loadColor(r, 0x36), r->ireg[0x37], r->preg[0x31].p, r);\r
- break;\r
- \r
- case 0xff49:\r
- // junkApi_rand(_r, range) R31=range; _r=R30\r
- // **** junkApi_rand(i, max) ****\r
- // 0 <= i <= maxとなるiを返す。\r
- // max==0のとき、iはSINT32全体を範囲とする乱数となる。\r
- r->ireg[0x30] = randGetNextUInt32();\r
- if (r->ireg[0x31] > 0){\r
- r->ireg[0x30] = (r->ireg[0x30] & 0x7fffffff) % (r->ireg[0x31] + 1);\r
- }\r
- break;\r
- \r
- case 0xff4a:\r
- // srand\r
- randStatInit(r->ireg[0x31]);\r
- break;\r
- \r
- case 0xff4b:\r
- // srand(random)\r
- r->ireg[0x30] = (int)(time(NULL) ^ (long)0x55555555);\r
- break;\r
- \r
- case 0xff4c:\r
- // drawStringDec\r
- checkString(r, 0x37, 0x31);\r
- len = devFunc0016(sizeof pucbuf, pucbuf, r->ireg[0x37], r->preg[0x31].p, r->ireg[0x38], (int *)r->preg[0x32].p, r);\r
- devFunc0006(r->ireg[0x31], r->ireg[0x32], r->ireg[0x33], r->ireg[0x34], r->ireg[0x35], loadColor(r, 0x36), len, pucbuf, r);\r
- break;\r
- \r
- case 0xff4d:\r
- // bitblt(mod, xsiz, ysiz, xscale, yscale, x0, y0, lineskip, inv, p_buf, typ0, p_table, typ1); \r
- // mod: 0x20:use_table, 0x40:inv_is_visible & typ1_is_color\r
- puc = r->preg[0x31].p;\r
- mod3 = r->ireg[0x31] & 3;\r
- dx = r->ireg[0x34];\r
- dy = r->ireg[0x35];\r
- if (dy == 0){\r
- dy = dx;\r
- }\r
- if (r->ireg[0x32] == -1) {\r
- r->ireg[0x32] = mainWindow.xsize / dx; r->ireg[0x36] &= 0;\r
- }\r
- if (r->ireg[0x33] == -1) {\r
- r->ireg[0x33] = mainWindow.ysize / dy; r->ireg[0x37] &= 0;\r
- }\r
- for (y = 0; y < r->ireg[0x33]; y++) {\r
- y0 = y * dy + r->ireg[0x37];\r
- for (x = 0; x < r->ireg[0x32]; x++) {\r
- x0 = x * dx + r->ireg[0x36];\r
- c = iColor1[*puc++];\r
- devFunc0004(mod3, x0, y0, x0 + dx, y0 + dy, c);\r
- }\r
- puc += r->ireg[0x38];\r
- }\r
- break;\r
- \r
- default:\r
- printf("devFunc: error: R30=%08X\n", r->ireg[0x30]);\r
- exit(EXIT_FAILURE);\r
- \r
- }\r
- return;\r
-}\r
-\r
-\r
-\r
+#include "osecpu.h"
+#include "jitc.h"
+
+extern unsigned char fontdata[]; // @fontdata.c
+
+const char *searchArg(int argc, const char **argv, const char *tag, int i)
+{
+ // 引数リストargvの中から、文字列tagが前方一致する引数のi番目を探し出し、
+ // その引数の文字列の、tagに続く部分の文字へのポインタを返す。
+ int j, l;
+ const char *r = NULL;
+
+ if (tag != NULL) {
+ l = (int)strlen(tag);
+ for (j = 1; j < argc; j++) {
+ if (strncmp(argv[j], tag, l) == 0) {
+ r = argv[j] + l;
+ if (i == 0){
+ break;
+ }
+ i--;
+ }
+ }
+ }
+ /*
+ // 未使用
+ else {
+ for (j = 1; j < argc; j++) {
+ if (strchr(argv[j], ':') == NULL) {
+ r = argv[j];
+ if (i == 0){
+ break;
+ }
+ i--;
+ }
+ }
+ }
+ */
+ if (i != 0){
+ r = NULL;
+ }
+ return r;
+}
+
+void devFunc0001(int len, unsigned char *puc, HOSECPU_RuntimeEnvironment *r)
+{
+ // OSASK文字列の出力
+ while (len > 0) {
+ putOsaskChar(*puc++, r);
+ len--;
+ }
+ return;
+}
+
+void devFunc0006(int mod, int sx, int sy, int x, int y, int c, int len, unsigned char *puc, HOSECPU_RuntimeEnvironment *r)
+{
+ // drawString
+ int xx;
+ int yy;
+ int i, ddx, ddy, j, ch, dx, dy;
+
+ if (sy == 0){
+ sy = sx;
+ }
+ xx = x + sx * 8;
+ yy = y + sy * 16;
+ if (xx <= 0 || xx > mainWindow.xsize || yy <= 0 || yy > mainWindow.ysize){
+ (*(r->errHndl))(r);
+ }
+ if (x < 0 || x >= mainWindow.xsize || y < 0 || y >= mainWindow.ysize){
+ (*(r->errHndl))(r);
+ }
+
+
+ if ((mod & 3) == 0 && sx == 1 && sy == 1) {
+ // メジャーケースを高速化.
+ for (i = 0; i < len; i++) {
+ ch = puc[i];
+ if (0x10 <= ch && ch <= 0x1f)
+ ch = "0123456789ABCDEF"[ch & 0x0f];
+ for (dy = 0; dy < 16; dy++) {
+ j = fontdata[(ch - ' ') * 16 + dy];
+ for (dx = 0; dx < 8; dx++) {
+ if ((j & (0x80 >> dx)) != 0){
+ mainWindow.vram[(x + dx) + (y + dy) * mainWindow.xsize] = c;
+ }
+ }
+ }
+ x += 8;
+ }
+ return;
+ }
+ for (i = 0; i < len; i++) {
+ ch = puc[i];
+ if (0x10 <= ch && ch <= 0x1f)
+ ch = "0123456789ABCDEF"[ch & 0x0f];
+ for (dy = 0; dy < 16; dy++) {
+ j = fontdata[(ch - ' ') * 16 + dy];
+ for (ddy = 0; ddy < sy; ddy++) {
+ for (dx = 0; dx < 8; dx++) {
+ if ((j & (0x80 >> dx)) != 0) {
+ for (ddx = 0; ddx < sx; ddx++) {
+ switch (mod & 3) {
+ case 0:
+ mainWindow.vram[x + y * mainWindow.xsize] = c;
+ break;
+ case 1:
+ mainWindow.vram[x + y * mainWindow.xsize] |= c;
+ break;
+ case 2:
+ mainWindow.vram[x + y * mainWindow.xsize] ^= c;
+ break;
+ case 3:
+ mainWindow.vram[x + y * mainWindow.xsize] &= c;
+ break;
+ }
+ x++;
+ }
+ } else{
+ x += sx;
+ }
+ }
+ x -= sx * 8;
+ y++;
+ }
+ }
+ x += sx * 8;
+ y -= sy * 16;
+ }
+ return;
+}
+
+void devFunc0004(int mod, int x0, int y0, int x1, int y1, int c)
+{
+ // FillRect
+ int x, y;
+ if (mod == 0) {
+ for (y = y0; y <= y1; y++) {
+ for (x = x0; x <= x1; x++) {
+ mainWindow.vram[x + y * mainWindow.xsize] = c;
+ }
+ }
+ }
+ else {
+ for (y = y0; y <= y1; y++) {
+ for (x = x0; x <= x1; x++) {
+ switch (mod) {
+ case 1:
+ mainWindow.vram[x + y * mainWindow.xsize] |= c;
+ break;
+ case 2:
+ mainWindow.vram[x + y * mainWindow.xsize] ^= c;
+ break;
+ case 3:
+ mainWindow.vram[x + y * mainWindow.xsize] &= c;
+ break;
+ }
+ }
+ }
+ }
+ return;
+}
+
+int devFunc0016(int buflen, unsigned char *buf, int plen, unsigned char *p, int qlen, int *q, HOSECPU_RuntimeEnvironment *r)
+{
+ // OSASK文字列への変換?
+ int i = 0, base, j, k;
+ char sign;
+
+ while (plen > 0) {
+ if (i >= buflen){
+ (*(r->errHndl))(r);
+ }
+ if (*p != 0x01) {
+ buf[i++] = *p++;
+ plen--;
+ continue;
+ }
+ p++;
+ plen--;
+ if (qlen < 4){
+ (*(r->errHndl))(r);
+ }
+ base = q[0];
+ sign = 0;
+ if (base == 0){
+ base = 16;
+ }
+#if (REVISION == 1)
+ if (base == -3){
+ base = 10;
+ }
+#endif
+ if (base == -1){
+ base = 10;
+ }
+ if (base < 0 || base > 16){
+ (*(r->errHndl))(r);
+ }
+ if (q[1] + i > buflen){
+ (*(r->errHndl))(r);
+ }
+ j = q[3];
+ if ((q[2] & 4) == 0) {
+ // jは符号付き整数.
+ if ((q[2] & 8) != 0 && j > 0){
+ sign = '+';
+ }
+ if (j < 0) {
+ sign = '-'; j *= -1;
+ }
+ } else{
+ // jは符号無し整数.
+ if ((q[2] & 8) != 0 && j != 0){
+ sign = '+';
+ }
+ }
+ for (k = q[1] - 1; k >= 0; k--) {
+ buf[i + k] = (j % base) + 0x10;
+ j = ((unsigned)j) / base;
+ }
+ k = 0;
+ if ((q[2] & 2) == 0 && j == 0) {
+ for (k = 0; k < q[1] - 1; k++) {
+ if (buf[i + k] != 0x10){
+ break;
+ }
+ buf[i + k] = ' ';
+ }
+ }
+ if (sign != 0) {
+ if (k > 0){
+ k--;
+ }
+ buf[i + k] = sign;
+ }
+ if ((q[2] & 1) != 0 && buf[i] == ' ') {
+ for (j = 0; k < q[1]; k++, j++){
+ buf[i + j] = buf[i + k];
+ }
+ i += j;
+ } else{
+ i += q[1];
+ }
+ qlen -= 4;
+ q += 4;
+ }
+ return i;
+}
+
+void devFunc(HOSECPU_RuntimeEnvironment *r)
+{
+ FILE *fp;
+ int i, c;
+ int x, y, len, dx, dy;
+ unsigned char *puc;
+ unsigned char pucbuf[256];
+
+ //サイズを節約するためにEBPを128バイトずらしているのを元に戻す
+ r = (HOSECPU_RuntimeEnvironment *) (((char *)r) - jitCompA0001_EBP128);
+
+ if (r->winClosed != 0){
+ longjmp(r->setjmpEnv, 1);
+ }
+ if (0xff44 <= r->ireg[0x30] && r->ireg[0x30] <= 0xff48) {
+ if (mainWindow.vram == NULL) {
+ mainWindow.xsize = 640;
+ mainWindow.ysize = 480;
+ mainWindow.vram = malloc(640 * 480 * 4);
+ drv_openWin(640, 480, (void *)mainWindow.vram, &r->winClosed);
+ r->autoSleep = 1;
+ for (i = 640 * 480 - 1; i >= 0; i--){
+ mainWindow.vram[i] = 0;
+ }
+ }
+ }
+
+ switch (r->ireg[0x30]){
+ case 0xff00:
+ printf("R31=%d(dec)\n", r->ireg[0x31]);
+ break;
+
+ case 0xff01:
+ // junkApi_fopenRead(_filesize, _p, arg)
+ // args: R31=arg, R30=_filesize, P31=_p
+ // retv: R30, P31
+ if (r->buf0 == NULL){
+ r->buf0 = malloc(1024 * 1024);
+ }
+ if (r->mainArgc <= r->ireg[0x31]) {
+ fprintf(stderr, "devFunc: error: R30=ff01: argc error: R31=%08X\n", r->ireg[0x31]);
+ exit(1);
+ }
+ fp = fopen(r->mainArgv[r->ireg[0x31]], "rb");
+ if (fp == NULL) {
+ fprintf(stderr, "devFunc: error: R30=ff01: fopen error: '%s'\n", r->mainArgv[r->ireg[0x31]]);
+ exit(1);
+ }
+ i = (int)fread(r->buf0, 1, 1024 * 1024 - 4, fp);
+ if (i >= 1024 * 1024 - 4 || i < 0) {
+ fprintf(stderr, "devFunc: error: R30=ff01: fread error: '%s'\n", r->mainArgv[r->ireg[0x31]]);
+ exit(1);
+ }
+ fclose(fp);
+ r->preg[0x31].p = r->buf0;
+ r->preg[0x31].p0 = r->buf0;
+ r->preg[0x31].p1 = r->buf0 + i;
+ r->preg[0x31].typ = 3; // T_UINT8
+ r->ireg[0x30] = i;
+ break;
+
+ case 0xff02:
+ // junkApi_fopenWrite(arg, filesize, p)
+ // args: R31=arg, R32=filesize, P31=p
+ // retv: (none)
+ if (r->mainArgc <= r->ireg[0x31]) {
+ fprintf(stderr, "devFunc: error: R30=ff02: argc error: R31=%08X\n", r->ireg[0x31]);
+ exit(1);
+ }
+ fp = fopen(r->mainArgv[r->ireg[0x31]], "wb");
+ if (fp == NULL) {
+ fprintf(stderr, "devFunc: error: R30=ff02: fopen error: '%s'\n", r->mainArgv[r->ireg[0x31]]);
+ exit(1);
+ }
+ if (r->ireg[0x32] >= 1024 * 1024 || r->ireg[0x32] < 0){
+ fprintf(stderr, "devFunc: error: R30=ff02: fwrite error: R02=%08X\n", r->ireg[0x32]);
+ exit(1);
+ }
+ fwrite(r->preg[0x31].p, 1, r->ireg[0x32], fp);
+ fclose(fp);
+ break;
+
+ case 0xff03:
+ // junkApi_allocBuf(_p)
+ // args: P31=_p
+ // retv: P31
+ if (r->buf1 == NULL){
+ r->buf1 = malloc(1024 * 1024);
+ }
+ r->preg[0x31].p = r->buf1;
+ r->preg[0x31].p0 = r->buf1;
+ r->preg[0x31].p1 = r->buf1 + 1024 * 1024;
+ break;
+
+ case 0xff04:
+ printf("P31.(p-p0)=%d(dec)\n", (int)(r->preg[0x31].p - r->preg[0x31].p0));
+ break;
+
+ case 0xff05:
+ // junkApi_writeStdout(len, p)
+ // args: R31=len, P31=p
+ // retv: (none)
+ fwrite(r->preg[0x31].p, 1, r->ireg[0x31], stdout);
+ break;
+
+ case 0xff06:
+ // junkApi_exit(i)
+ // args: R31=i
+ // retv: (none)
+ r->appReturnCode = r->ireg[31];
+ longjmp(r->setjmpEnv, 1);
+ break;
+
+ case 0xff07:
+ // junkApi_putConstString0(s)
+ // DB(0xff,0x00,0x00); DB%(s,0x00);
+ // マシになった文字列表示.
+ // OSASK文字列に対応.offにすれば通常の文字列処理もできる.
+ // 現状はonのみサポート.
+ checkString(r, 0x31, 0x31);
+ devFunc0001(r->ireg[0x31], r->preg[0x31].p, r);
+ break;
+
+ case 0xff08:
+ // junkApi_jitc2(_rc, _p, mod, lev, di1, len, s)
+ // R31=mod; R32=lev; R33=di1; R34=len; P31=s; _rc=R30; _p=P31
+ // JITC on JITC
+ // R31: 言語(back-end, front-end, ...
+ // R32: level
+ // R33: debugInfo1
+ checkString(r, 0x34, 0x31);
+ if (r->ireg[0x33] < 0 || r->ireg[0x33] > 15 || r->debugInfo1 > 15){
+ (*(r->errHndl))(r);
+ }
+ for (i = 0; i < r->maxLabels; i++){
+ r->label[i].opt = 0;
+ }
+ puc = r->preg[0x31].p;
+ i = jitCompiler(r->jitbuf, r->jitbuf1, puc, puc + r->ireg[0x34], puc, r->label, r->maxLabels, r->ireg[0x32], di1_serial, JITC_NOSTARTUP + 0);
+ if (i == 0) {
+ i = jitCompiler(r->jitbuf, r->jitbuf1, puc, puc + r->ireg[0x34], puc, r->label, r->maxLabels, r->ireg[0x32], di1_serial, JITC_NOSTARTUP + JITC_PHASE1 + 0);
+ if (i >= 0) {
+ r->mapDi1s[r->debugInfo1][r->ireg[0x33]] = di1_serial;
+ di1_serial++;
+ r->ireg[0x30] = 0;
+ r->preg[0x31].p = r->jitbuf;
+ r->preg[0x31].typ = 0; // TYP_CODE
+ r->preg[0x31].p0 = r->jitbuf;
+ r->preg[0x31].p1 = r->jitbuf + 1;
+ //int j; for (j = 0; j < i; j++) printf("%02X ", r->jitbuf[j]); putchar('\n');
+ r->jitbuf += i;
+ static unsigned char ff08_ret[3] = { 0x1e, 0x3f, 0x30 };
+ i = jitCompiler(r->jitbuf, r->jitbuf1, ff08_ret, ff08_ret + 3, puc, r->label, r->maxLabels, r->ireg[0x32], -1, JITC_NOSTARTUP + JITC_PHASE1 + 0);
+ r->jitbuf += i;
+ break;
+ }
+ }
+ r->ireg[0x30] = -1;
+ break;
+
+ case 0xff09:
+ //putStringDec
+ // たぶんbit7を使ったテキストはうまく処理できない（これはもはや仕様にしても問題ないかも）.
+ checkString(r, 0x31, 0x31);
+ len = devFunc0016(sizeof pucbuf, pucbuf, r->ireg[0x31], r->preg[0x31].p, r->ireg[0x32], (int *)r->preg[0x32].p, r);
+ devFunc0001(len, pucbuf, r);
+ break;
+
+ case 0xff40:
+ // junkApi_openWin(xsiz, ysiz) R31=xsiz; R32=ysiz;
+ /* R31とR32でサイズを指定 */
+ mainWindow.xsize = r->ireg[0x31];
+ mainWindow.ysize = r->ireg[0x32];
+ if (mainWindow.xsize <= 0 || mainWindow.ysize <= 0){
+ (*(r->errHndl))(r);
+ }
+ r->preg[0x31].p = (void *)(mainWindow.vram = malloc(mainWindow.xsize * mainWindow.ysize * 4));
+ r->preg[0x31].p0 = r->preg[0x31].p;
+ r->preg[0x31].p1 = r->preg[0x31].p + mainWindow.xsize * mainWindow.ysize * 4;
+ drv_openWin(r->ireg[0x31], r->ireg[0x32], r->preg[0x31].p, &r->winClosed);
+ // drv_flshWin(r->ireg[1], r->ireg[2], 0, 0);
+ r->autoSleep = 1;
+ for (i = mainWindow.xsize * mainWindow.ysize - 1; i >= 0; i--){
+ mainWindow.vram[i] = 0;
+ }
+ break;
+
+ case 0xff41:
+ // junkApi_flushWin(xsiz, ysiz, x0, y0)
+ // R31=xsiz; R32=ysiz; R33=x0; R34=y0
+ /* R31とR32でサイズを指定、R33とR34でx0,y0指定 */
+ if (r->ireg[0x31] == -1) {
+ r->ireg[0x31] = mainWindow.xsize; r->ireg[0x33] &= 0;
+ }
+ if (r->ireg[0x32] == -1) {
+ r->ireg[0x32] = mainWindow.ysize; r->ireg[0x34] &= 0;
+ }
+ checkRect(r, 0x31);
+ drv_flshWin(r->ireg[0x31], r->ireg[0x32], r->ireg[0x33], r->ireg[0x34]);
+ break;
+
+ case 0xff42:
+ // junkApi_sleep(opt, msec) R31=opt; R32=msec
+ if (r->ireg[0x32] == -1) {
+ r->autoSleep = 1;
+ longjmp(r->setjmpEnv, 1);
+ }
+ if (r->ireg[0x32] < 0){
+ (*(r->errHndl))(r);
+ }
+ r->autoSleep = 0;
+ if ((r->ireg[0x31] & 1) == 0 && mainWindow.vram != NULL){
+ drv_flshWin(mainWindow.xsize, mainWindow.ysize, 0, 0);
+ }
+ for (;;) {
+ if (r->winClosed != 0){
+ longjmp(r->setjmpEnv, 1);
+ }
+ drv_sleep(r->ireg[0x32]);
+ if ((r->ireg[0x31] & 2) != 0 && keybuf_c <= 0){
+ continue;
+ }
+ break;
+ }
+ break;
+
+ case 0xff43:
+ // junkApi_inkey(_i, mod) R31=mod; _i=R30
+ // 1:peek
+ // 2:stdin
+ // 4,8: ソース指定.
+ // 16: shift, lock系を有効化.
+ // 32: 左右のshift系を区別する.
+ if (r->ireg[0x31] == 2) { // なぜ3にしなかったのか...
+ r->ireg[0x30] = fgetc(stdin);
+ if (r->ireg[0x30] == EOF){
+ r->ireg[0x30] = -1;
+ }
+ break;
+ }
+ r->ireg[0x30] |= -1;
+ if (keybuf_c > 0) {
+ r->ireg[0x30] = keybuf[keybuf_r];
+ if ((r->ireg[0x31] & 16) == 0){
+ r->ireg[0x30] &= 0x3e3effff;
+ }
+ if ((r->ireg[0x31] & 32) == 0){
+ r->ireg[0x30] |= (r->ireg[0x30] >> 8) & 0xff0000;
+ }
+ if ((r->ireg[0x31] & 1) != 0) {
+ keybuf_c--;
+ keybuf_r = (keybuf_r + 1) & (KEYBUFSIZ - 1);
+ }
+ }
+ r->ireg[0x32] = r->ireg[0x33] = 0;
+ if (r->ireg[0x30] == 4132) r->ireg[0x32]--;
+ if (r->ireg[0x30] == 4133) r->ireg[0x33]--;
+ if (r->ireg[0x30] == 4134) r->ireg[0x32]++;
+ if (r->ireg[0x30] == 4135) r->ireg[0x33]++;
+ break;
+
+ case 0xff44:
+ // junkApi_drawPoint(mod, x, y, c) R31=mod; R32=x; R33=y; R34=c
+ c = loadColor(r, 0x34);
+ if (r->ireg[0x32] < 0 || r->ireg[0x32] >= mainWindow.xsize ||
+ r->ireg[0x33] < 0 || r->ireg[0x33] >= mainWindow.ysize){
+ (*(r->errHndl))(r);
+ }
+
+ switch ((r->ireg[0x31] & 3)) {
+ case 0:
+ mainWindow.vram[r->ireg[0x32] + r->ireg[0x33] * mainWindow.xsize] = c;
+ break;
+ case 1:
+ mainWindow.vram[r->ireg[0x32] + r->ireg[0x33] * mainWindow.xsize] |= c;
+ break;
+ case 2:
+ mainWindow.vram[r->ireg[0x32] + r->ireg[0x33] * mainWindow.xsize] ^= c;
+ break;
+ case 3:
+ mainWindow.vram[r->ireg[0x32] + r->ireg[0x33] * mainWindow.xsize] &= c;
+ break;
+ }
+ break;
+
+ case 0xff45:
+ // junkApi_drawLine(mod, x0, y0, x1, y1, c) DB(0xfe,0x05,0x01); DDBE(0x0003); R30=0xff45; R31=mod; R32=x0; R33=y0; R34=x1; R35=y1; R36=c
+ //drawLine
+ c = loadColor(r, 0x36);
+ if (r->ireg[0x32] < 0 || r->ireg[0x32] >= mainWindow.xsize ||
+ r->ireg[0x33] < 0 || r->ireg[0x33] >= mainWindow.ysize){
+ (*(r->errHndl))(r);
+ }
+ if (r->ireg[0x34] < 0 || r->ireg[0x34] >= mainWindow.xsize ||
+ r->ireg[0x35] < 0 || r->ireg[0x35] >= mainWindow.ysize){
+ (*(r->errHndl))(r);
+ }
+ dx = r->ireg[0x34] - r->ireg[0x32];
+ dy = r->ireg[0x35] - r->ireg[0x33];
+ x = r->ireg[0x32] << 10;
+ y = r->ireg[0x33] << 10;
+ if (dx < 0){
+ dx = -dx;
+ }
+ if (dy < 0){
+ dy = -dy;
+ }
+ if (dx >= dy) {
+ len = dx + 1; dx = 1024;
+ if (r->ireg[0x32] > r->ireg[0x34]){
+ dx *= -1;
+ }
+ if (r->ireg[0x33] > r->ireg[0x35]){
+ dy *= -1;
+ }
+ dy = (dy << 10) / len;
+ } else {
+ len = dy + 1; dy = 1024;
+ if (r->ireg[0x33] > r->ireg[0x35]){
+ dy *= -1;
+ }
+ if (r->ireg[0x32] > r->ireg[0x34]){
+ dx *= -1;
+ }
+ dx = (dx << 10) / len;
+ }
+ if ((r->ireg[0x31] & 3) == 0) {
+ for (i = 0; i < len; i++) {
+ mainWindow.vram[(x >> 10) + (y >> 10) * mainWindow.xsize] = c;
+ x += dx;
+ y += dy;
+ }
+ break;
+ }
+ for (i = 0; i < len; i++) {
+ // if ((r->ireg[0x31] & 3) == 0) vram[(x >> 10) + (y >> 10) * v_xsiz] = c;
+ switch ((r->ireg[0x31] & 3)) {
+ case 1:
+ mainWindow.vram[(x >> 10) + (y >> 10) * mainWindow.xsize] |= c;
+ break;
+ case 2:
+ mainWindow.vram[(x >> 10) + (y >> 10) * mainWindow.xsize] ^= c;
+ break;
+ case 3:
+ mainWindow.vram[(x >> 10) + (y >> 10) * mainWindow.xsize] &= c;
+ break;
+ default:
+ break;
+ }
+ x += dx;
+ y += dy;
+ }
+ break;
+
+ case 0xff46:
+ // fillRect(opt:R31, xsiz:R32, ysiz:R33, x0:R34, y0:R35, c:R36)
+ c = loadColor(r, 0x36);
+ if (r->ireg[0x32] == -1) { r->ireg[0x32] = mainWindow.xsize; r->ireg[0x34] &= 0; }
+ if (r->ireg[0x33] == -1) { r->ireg[0x33] = mainWindow.ysize; r->ireg[0x35] &= 0; }
+ checkRect(r, 0x32);
+ int mod3 = r->ireg[0x31] & 3, x0 = r->ireg[0x34], y0 = r->ireg[0x35], x1 = r->ireg[0x34] + r->ireg[0x32] - 1, y1 = r->ireg[0x35] + r->ireg[0x33] - 1;
+ if ((r->ireg[0x31] & 0x20) == 0) {
+ devFunc0004(mod3, x0, y0, x1, y1, c);
+ } else { // drawRect
+ devFunc0004(mod3, x0, y0, x1, y0, c);
+ devFunc0004(mod3, x0, y1, x1, y1, c);
+ devFunc0004(mod3, x0, y0, x0, y1, c);
+ devFunc0004(mod3, x1, y0, x1, y1, c);
+ }
+ break;
+
+ case 0xff47:
+ // fillOval(opt:R31, xsiz:R32, ysiz:R33, x0:R34, y0:R35, c:R36)
+ // これの計算精度はアーキテクチャに依存する.
+ c = loadColor(r, 0x36);
+ if (r->ireg[0x32] == -1) {
+ r->ireg[0x32] = mainWindow.xsize; r->ireg[0x34] &= 0;
+ }
+ if (r->ireg[0x33] == -1) {
+ r->ireg[0x33] = mainWindow.ysize; r->ireg[0x35] &= 0;
+ }
+ checkRect(r, 0x32);
+ double dcx = 0.5 * (r->ireg[0x32] - 1);
+ double dcy = 0.5 * (r->ireg[0x33] - 1);
+ double dcxy = (dcx + 0.5) * (dcy + 0.5) - 0.1;
+ dcxy *= dcxy;
+ mod3 = r->ireg[0x31] & 3;
+ x1 = r->ireg[0x32];
+ y1 = r->ireg[0x33];
+ if (mod3 == 0 && (r->ireg[0x31] & 0x20) == 0) {
+ for (y = 0; y < y1; y++) {
+ double dty = (y - dcy) * dcx;
+ for (x = 0; x < x1; x++) {
+ double dtx = (x - dcx) * dcy;
+ if (dtx * dtx + dty * dty > dcxy){
+ continue;
+ }
+ mainWindow.vram[(x + r->ireg[0x34]) + (y + r->ireg[0x35]) * mainWindow.xsize] = c;
+ }
+ }
+ } else {
+#define DRAWOVALPARAM 1
+ double dcx1 = 0.5 * (r->ireg[0x32] - (1 + DRAWOVALPARAM * 2));
+ double dcy1 = 0.5 * (r->ireg[0x33] - (1 + DRAWOVALPARAM * 2));
+ double dcxy1 = (dcx1 + 0.5) * (dcy1 + 0.5) - 0.1;
+ dcxy1 *= dcxy1;
+ for (y = 0; y < y1; y++) {
+ double dty = (y - dcy) * dcx;
+ double dty1 = (y - dcy) * dcx1;
+ for (x = 0; x < x1; x++) {
+ double dtx = (x - dcx) * dcy;
+ double dtx1 = (x - dcx) * dcy1;
+ if (dtx * dtx + dty * dty > dcxy){
+ continue;
+ }
+ if (DRAWOVALPARAM <= x && x < x1 - DRAWOVALPARAM && DRAWOVALPARAM <= y && y < y1 - DRAWOVALPARAM) {
+ if (dtx1 * dtx1 + dty1 * dty1 < dcxy1){
+ continue;
+ }
+ }
+ switch (mod3) {
+ case 0:
+ mainWindow.vram[(x + r->ireg[0x34]) + (y + r->ireg[0x35]) * mainWindow.xsize] = c;
+ break;
+ case 1:
+ mainWindow.vram[(x + r->ireg[0x34]) + (y + r->ireg[0x35]) * mainWindow.xsize] |= c;
+ break;
+ case 2:
+ mainWindow.vram[(x + r->ireg[0x34]) + (y + r->ireg[0x35]) * mainWindow.xsize] ^= c;
+ break;
+ case 3:
+ mainWindow.vram[(x + r->ireg[0x34]) + (y + r->ireg[0x35]) * mainWindow.xsize] &= c;
+ break;
+ }
+ }
+ }
+ }
+ break;
+
+ case 0xff48:
+ // drawString(opt:R31, xsiz:R32, ysiz:R33, x0:R34, y0:R35, c:R36, s.len:R37, s.p:P31)
+ checkString(r, 0x37, 0x31);
+ devFunc0006(r->ireg[0x31], r->ireg[0x32], r->ireg[0x33], r->ireg[0x34], r->ireg[0x35], loadColor(r, 0x36), r->ireg[0x37], r->preg[0x31].p, r);
+ break;
+
+ case 0xff49:
+ // junkApi_rand(_r, range) R31=range; _r=R30
+ // **** junkApi_rand(i, max) ****
+ // 0 <= i <= maxとなるiを返す。
+ // max==0のとき、iはSINT32全体を範囲とする乱数となる。
+ r->ireg[0x30] = randGetNextUInt32();
+ if (r->ireg[0x31] > 0){
+ r->ireg[0x30] = (r->ireg[0x30] & 0x7fffffff) % (r->ireg[0x31] + 1);
+ }
+ break;
+
+ case 0xff4a:
+ // srand
+ randStatInit(r->ireg[0x31]);
+ break;
+
+ case 0xff4b:
+ // srand(random)
+ r->ireg[0x30] = (int)(time(NULL) ^ (long)0x55555555);
+ break;
+
+ case 0xff4c:
+ // drawStringDec
+ checkString(r, 0x37, 0x31);
+ len = devFunc0016(sizeof pucbuf, pucbuf, r->ireg[0x37], r->preg[0x31].p, r->ireg[0x38], (int *)r->preg[0x32].p, r);
+ devFunc0006(r->ireg[0x31], r->ireg[0x32], r->ireg[0x33], r->ireg[0x34], r->ireg[0x35], loadColor(r, 0x36), len, pucbuf, r);
+ break;
+
+ case 0xff4d:
+ // bitblt(mod, xsiz, ysiz, xscale, yscale, x0, y0, lineskip, inv, p_buf, typ0, p_table, typ1);
+ // mod: 0x20:use_table, 0x40:inv_is_visible & typ1_is_color
+ puc = r->preg[0x31].p;
+ mod3 = r->ireg[0x31] & 3;
+ dx = r->ireg[0x34];
+ dy = r->ireg[0x35];
+ if (dy == 0){
+ dy = dx;
+ }
+ if (r->ireg[0x32] == -1) {
+ r->ireg[0x32] = mainWindow.xsize / dx; r->ireg[0x36] &= 0;
+ }
+ if (r->ireg[0x33] == -1) {
+ r->ireg[0x33] = mainWindow.ysize / dy; r->ireg[0x37] &= 0;
+ }
+ for (y = 0; y < r->ireg[0x33]; y++) {
+ y0 = y * dy + r->ireg[0x37];
+ for (x = 0; x < r->ireg[0x32]; x++) {
+ x0 = x * dx + r->ireg[0x36];
+ c = iColor1[*puc++];
+ devFunc0004(mod3, x0, y0, x0 + dx, y0 + dy, c);
+ }
+ puc += r->ireg[0x38];
+ }
+ break;
+
+ default:
+ printf("devFunc: error: R30=%08X\n", r->ireg[0x30]);
+ exit(EXIT_FAILURE);
+
+ }
+ return;
+}
+
+
+
-#include "osecpu.h"\r
-#include "jitc.h"\r
-\r
-#if (JITC_ARCNUM == 0x0001)\r
-//\r
-// for x86-32bit\r
-//\r
-\r
-// F5の場合、decoderが対応するalloc-freeを結びつけるのが簡単で、typやlenを指定必須にしてもフロントエンドコードに影響はない.\r
-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
-{\r
- // For IA-32 (x86, 32-bit)\r
- // 本来ならこのレイヤでは文法チェックしない\r
- //\r
- // dst : 現在の書き込みアドレス。\r
- // dst1 : 書き込みアドレスの最大値\r
- // src : 現在の読み込みアドレス(ヘッダ部は飛ばしてある\r
- // src1 : 読み込みアドレスの最大値\r
- // src0 : 読み込みバイナリのアドレス\r
- struct JitCompWork w;\r
- unsigned char *dst00 = dst, *enter0 = NULL, *tmp_ucp;\r
- char *errmsg = "";\r
- const unsigned char *oldsrc;\r
- int timecount = 0, i, j = 0, lastlabel = -1, debugInfo0 = -1;\r
- int reg0, reg1, reg2, cmp0reg = -1, cmp0lev = 0;\r
- \r
- w.dst = w.dst0 = dst;\r
- w.err = 0;\r
- w.maxLabels = maxLabels;\r
- \r
- if ((flags & JITC_NOSTARTUP) == 0) {\r
- jitCompPutOp_PUSHAD(w.dst);\r
- // Load cache\r
- jitCompA000_loadRegCacheAll(&w);\r
- jitCompA000_loadPRegCacheAll(&w);\r
- }\r
- if (level <= JITC_LV_SLOWER) {\r
- // env.debugInfo0 <- 0;\r
- // env.debugInfo1 <- debugInfo1;\r
- jitCompPutOp_MOV_EAX_ZERO(w.dst);\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, envOffset_DBGINFO0, IA32_REG0_EAX);\r
- jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, debugInfo1);\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, envOffset_DBGINFO1, IA32_REG0_EAX);\r
- }\r
- while (src < src1) {\r
- w.prefix = 0; //0x04 CND 命令で変更される\r
- if (w.dst + 256 > dst1) {\r
- // 書き込み領域が残り256バイト未満ならエラー\r
- w.err = JITC_ERR_DST1;\r
- goto err_w;\r
- }\r
- timecount++;\r
- if (timecount >= 64) {\r
- timecount -= 64;\r
- /* 未完成(timeoutチェックコードを入れる) */\r
- }\r
- if(*src != 0x00 && *src != 0x01 && *src != 0x34){\r
- DEBUGCode(&w, *src);\r
- }\r
- prefix_continue:\r
- // CND命令コンパイル後ここに戻る\r
- switch (*src) {\r
- case 0x00:\r
- // NOP\r
- if (w.prefix != 0) {\r
- // 「条件付きでNOPを実行」するなんて、矛盾している!\r
- w.err = JITC_ERR_PREFIX;\r
- goto err_w;\r
- }\r
- break;\r
- \r
- case 0x01:\r
- // LB : ラベル設置命令。(6byte)\r
- // ・prefex = 1にする\r
- // ・timecount++し、timecountのチェックをする。\r
- // ・ラベル位置を登録する。\r
- // ・割り込みがある場合、このタイミングで割り込みを発生させる。\r
- // Encode:\r
- // 0 1 2345\r
- // 01 opt imm32\r
- //\r
- if (enter0 == NULL && (src[6] == 0x3c /* 多数のレジスタをスタックに退避 */ || (src[6] == 0xfe/* REMARK */ && src[7] == 0x01 && src[9] == 0x3c))) {\r
- //beginFunc()中のLB\r
- // LB命令の後に0x3C命令・・・beginFunc()\r
- enter0 = w.dst;\r
- jitCompPutOp_JMPnear(w.dst, 0);\r
- }\r
-\r
- if (src[6] == 0x34) {\r
- // 後続命令はDATA\r
- // なので、DATA部分をJMPですっとばすコードを生成\r
- // DAT_SA0(label, typ32, length) ・・・メモリ確保命令\r
- \r
- i = jitCompGetImm32(&src[6 + 1]); // type32 を取得\r
- j = 32;\r
- \r
- if (i != 1) {\r
- i = jitCompA000_convTyp(i);\r
- j = 0;\r
- switch (i >> 1) {\r
- case 1:\r
- j = 1;\r
- break;\r
- case 2:\r
- j = 2;\r
- break;\r
- case 3:\r
- j = 4;\r
- break;\r
- }\r
- }\r
- // jはデータサイズになる\r
- j *= jitCompGetImm32(&src[6 + 5]); // len32\r
- if (j <= 0){\r
- w.err = JITC_ERR_BADTYPE;\r
- }\r
- // DATA部分を飛び越すジャンプ\r
- tmp_ucp = w.dst;\r
- jitCompPutOp_JMPnear(w.dst, j);\r
- \r
-#if (jitCompA0001_OPTIMIZE_JMP != 0)\r
- if (j < 127 - jitCompA0001_OPTIMIZE_ALIGN) {\r
- //飛び先が十分近いので\r
- // 今書いたのはなかったことにして、\r
- w.dst -= 5;\r
- // よりサイズの小さな書き方にする\r
- jitCompPutOp_JMPshort(w.dst, j);\r
- }\r
-#endif\r
- }\r
-#if (jitCompA0001_OPTIMIZE_ALIGN != 0)\r
- // アラインを jitCompA0001_OPTIMIZE_ALIGNにそろえる\r
- \r
- i = ((int)w.dst + 1) & (jitCompA0001_OPTIMIZE_ALIGN - 1); /* ALIGNで割ったあまりを計算 */\r
- i = jitCompA0001_OPTIMIZE_ALIGN - i;\r
- if (i == 1) { jitCompPutByte1(w.dst, 0x90); j += i; } /* NOP(); */\r
- if (i == 2) { jitCompPutByte2(w.dst, 0x89, 0xc0); j += i; } /* MOV(EAX, EAX); */\r
- if (i == 3) { jitCompPutByte3(w.dst, 0x8d, 0x76, 0x00); j += i; } /* LEA(ESI, [ESI+0]); */\r
- if (i == 4) { jitCompPutByte4(w.dst, 0x8d, 0x74, 0x26, 0x00); j += i; } /* LEA(ESI, [ESI*1+0]); */\r
- if (i == 5) { jitCompPutByte1(w.dst, 0x0d); jitCompPutImm32(w.dst, 0); j += i; } /* OR(EAX, 0); */\r
- if (i == 6) { jitCompPutByte2(w.dst, 0x8d, 0xb6); jitCompPutImm32(w.dst, 0); j += i; } /* LEA(ESI, [ESI+0]); */\r
- if (i == 7) { jitCompPutByte3(w.dst, 0x8d, 0xb4, 0x26); jitCompPutImm32(w.dst, 0); j += 7; } /* LEA(ESI, [ESI*1+0]); */\r
-#endif\r
- if (src[6] == 0x34) {\r
- // 後続命令はDATA\r
- // パディングに合わせて一個前の相対ジャンプを修正\r
- tmp_ucp[1] = j & 0xff;\r
- if (*tmp_ucp == 0xe9) {\r
- // Near jump so imm is DWORD\r
- tmp_ucp[2] = (j >> 8) & 0xff;\r
- tmp_ucp[3] = (j >> 16) & 0xff;\r
- tmp_ucp[4] = (j >> 24) & 0xff;\r
- }\r
- }\r
- if ((flags & JITC_PHASE1) == 0) {\r
- i = jitCompGetLabelNum(&w, src + 2);\r
- if (label[i].opt != 0 && w.err == 0) {\r
- w.err = JITC_ERR_LABELREDEF;\r
- goto err_w;\r
- }\r
- if (w.prefix != 0) {\r
- w.err = JITC_ERR_PREFIX;\r
- goto err_w;\r
- }\r
- label[i].opt = src[1] + 1;\r
- label[i].typ = 0; /* TYP_CODE */\r
- label[i].p = w.dst;\r
- label[i].p1 = w.dst + 1;\r
- lastlabel = i;\r
- }\r
- cmp0reg = -1;\r
- timecount = 0;\r
- /* 未完成(timeoutチェックコードを入れる) */\r
- break;\r
- \r
- case 0x02:\r
- // LIMM : 定数即値代入命令(6byte)\r
- // Encode:\r
- // 0 1 2345\r
- // 02 reg0R imm32\r
- //\r
- // reg3F は条件比較慣用句指定用＆演算命令即値慣用句指定用。よってCND命令の直後では使用できない。\r
- \r
- if (src[1] == 0x3f && w.prefix != 0){\r
- // CND命令の直後でR3Fを書き換えるなんて変だよね\r
- w.err = JITC_ERR_PREFIX;\r
- }\r
- \r
-#if (jitCompA0001_USE_R3F_IMM32 != 0)\r
- if (src[1] == 0x3f) {\r
- // R3Fへの代入は例外で、 w.r3f を使用\r
- w.r3f = jitCompGetImm32(src + 2);\r
- break;\r
- }\r
-#endif\r
- i = jitCompGetImm32(src + 2); // 与えられた即値(第二引数)を取得\r
- /* R00-R02 なら EBX, ECX, EDX 、それ以外なら EAX のレジスタIDを reg0 に代入 */\r
- reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);\r
-\r
-#if (jitCompA0001_OPTIMIZE_MOV != 0)\r
- // size optimization\r
- // MOV reg, 0 -> XOR reg, reg\r
- if (i == 0) {\r
- jitCompPutOp_XOR_GReg_GReg(w.dst, reg0, reg0);\r
- jitCompA0001_movRxxEax(&w, src[1]);\r
- break;\r
- }\r
-#endif\r
- /* reg0 のレジスタに対応したMOV命令を発行 */\r
- jitCompPutOp_MOV_GReg_Imm32(w.dst, reg0, i);\r
- \r
- if (reg0 == 0){\r
- // R03以降の、レジスタの内容をメモリ上に格納してエミュレートする場合\r
- jitCompA0001_movRxxEax(&w, src[1]);\r
- }\r
- \r
- break;\r
- \r
- case 0x03: /* 未完成(plsまで対応) */\r
- // PLIMM : ラベル番号代入命令(6byte)\r
- // Encode:\r
- // 0 1 2345\r
- // 03 PXX imm32\r
- //\r
- // ・P28 はAPI用\r
- // ・P30 はリターンアドレス\r
- // ・P3F はプログラムカウンタ\r
- //\r
- \r
- i = jitCompGetLabelNum(&w, src + 2); // Pxxに代入するラベルの番号(第二引数)\r
- if ((flags & JITC_PHASE1) != 0 && w.err == 0) {\r
- // Phase 1であるならば\r
- if (label[i].opt == 0) {\r
- // 指定されたラベル番号は存在しない\r
- w.err = JITC_ERR_LABELNODEF;\r
- goto err_w;\r
- }\r
- if (src[1] != 0x3f && label[i].opt != 2) {\r
- // ?\r
- w.err = JITC_ERR_LABELTYP;\r
- goto err_w;\r
- }\r
- if (src[1] == 0x3f && label[i].typ != 0) {\r
- // プログラムカウンタに TYP_CODEでない値は代入できない\r
- w.err = JITC_ERR_LABELTYP;\r
- goto err_w;\r
- }\r
- }\r
- if (src[1] == 0x3f) {\r
- // プログラムカウンタへの代入\r
- if (w.prefix == 0) {\r
- // CND命令による条件付きでなければ、即座に移動\r
- jitCompPutByte1(w.dst, 0xe9); /* JMP(?); */\r
- } else {\r
- // 直前はCND命令。\r
- \r
- /*\r
- * CND命令\r
- * 1 2\r
- * 04 reg0R\r
- *\r
- * いま、dstの末端はJZ命令になっている。 0x0F 0x84 cd\r
- */\r
- \r
- // Jccの条件変更\r
- // 0F 75\r
- w.dst[-1] = w.dst[-2] ^ 0xf1; /* 74->85, 75->84 */\r
- w.dst[-2] = 0x0f;\r
- \r
- w.prefix = 0;\r
- }\r
- j = 0;\r
- if ((flags & JITC_PHASE1) != 0 || (((flags & JITC_PHASE1) == 0) && label[i].opt != 0)) // label番号iが確保されていれば (このif文は意味をなさない)\r
- j = label[i].p - (w.dst + 4); // j はとび先の相対番地\r
- jitCompPutImm32(w.dst, j); // JMP もしくは JZ 命令のアドレス部を記述\r
-#if (jitCompA0001_OPTIMIZE_JMP != 0)\r
- if (-128 - 3 <= j && j < 0) {\r
- if (w.dst[-5] == 0xe9) {\r
- j += 3;\r
- w.dst -= 5;\r
- jitCompPutByte1(w.dst, 0xeb); /* JMP(?); */\r
- } else {\r
- j += 4;\r
- w.dst -= 6;\r
- jitCompPutByte1(w.dst, w.dst[1] ^ 0xf0);\r
- }\r
- jitCompPutByte1(w.dst, j & 0xff);\r
- }\r
-#endif\r
- } else { // プログラムカウンタ以外への代入\r
- // 代入先が P01, P02なら ESI, EDI,それ以外ならEAXを指定\r
- reg0 = jitCompA000_selectPRegCache(src[1], IA32_REG0_EAX);\r
- // ラベルのパスを各レジスタに代入\r
- jitCompPutOp_MOV_GReg_Imm32(w.dst, reg0, (int)label[i].p);\r
- // レジスタへの代入をメモリでエミュレーションする場合は、スタックに書き込む。\r
- if (reg0 == 0){\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 0, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */\r
- }\r
- \r
- if (level < JITC_LV_FASTEST) {\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 8, reg0); /* p0 */\r
- jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, label[i].typ);\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 4, IA32_REG0_EAX); /* typ */\r
- jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, (int)label[i].p1);\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 12, IA32_REG0_EAX); /* p1 */\r
- jitCompPutOp_MOV_EAX_ZERO(w.dst);\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 16, IA32_REG0_EAX); /* liveSign */\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, envOffset_PTRCTRL);\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 20, IA32_REG0_EAX); /* pls */\r
- }\r
- }\r
- break;\r
- \r
- case 0x04:\r
- // CND (prefix)\r
- // 与えられたRxxの最下位ビットが1であれば後続の命令を実行、そうでなければ飛ばす。\r
- \r
- if (src[1] >= 0x40){\r
- // R00-R3F 以外のレジスタは比較対象にできない\r
- w.err = JITC_ERR_REGNUM;\r
- goto err_w;\r
- }\r
- \r
- // 比較対象のレジスタがメモリ上にあれば-1, それ以外なら適切なレジスタ番号を返す\r
- reg0 = jitCompA000_selectRegCache(src[1], -1 /* mem */);\r
- \r
- /* TEST命令を発行 */\r
- if (reg0 < 0) {\r
- // 比較対象のレジスタはメモリ上にある\r
- jitCompPutByte1(w.dst, 0xf7); /* TEST = 1111 011w : mod 000 r/m : immediate data */\r
- jitCompPutModRM_Disp_BaseEBP(&w, src[1] * 4, 0);\r
- } else {\r
- // 比較対象はキャッシュレジスタ上にある\r
- jitCompPutByte2(w.dst, 0xf7, 0xc0 | reg0); /* TEST = 1111 011w : 11 000 reg : immediate data */\r
- }\r
- jitCompPutImm32(w.dst, 1);\r
- \r
- /* JZ命令を発行 */\r
- jitCompPutByte2(w.dst, 0x74, 0x00); /* JZ($+2) */\r
- cmp0reg = -1;\r
- if (w.err != 0){\r
- goto err_w;\r
- }\r
- src += 2;\r
- w.prefix = 1; // プリフィックスをセット\r
- w.dst0 = w.dst;\r
- goto prefix_continue;\r
- \r
- case 0x08: /* LMEM */ /* 完成 */\r
- i = jitCompGetImm32(src + 2);\r
- if (i == 0x0001){\r
- w.err = JITC_ERR_BADTYPE;\r
- }\r
- if (level < JITC_LV_FASTER) {\r
- jitCompA0001_checkType(&w, src[6], i, 0); // read\r
- cmp0reg = -1;\r
- }\r
- reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);\r
- reg1 = jitCompA000_selectPRegCache(src[6], IA32_REG2_EDX);\r
- if (reg0 != IA32_REG0_EAX && reg1 == IA32_REG2_EDX){\r
- reg1 = IA32_REG0_EAX;\r
- }\r
- if (reg1 == IA32_REG2_EDX){\r
- jitCompA000_storeRegCacheEdx(&w);\r
- }\r
- if (reg1 <= 3 /* EAX, EDX */){\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, reg1, PRegOffset(src[6]));\r
- }\r
- if (level < JITC_LV_FASTER){\r
- jitCompA0001_checkLimit(&w, reg1, src[6]);\r
- }\r
- i = jitCompA000_convTyp(jitCompGetImm32(src + 2));\r
- switch (i) {\r
- case 0x0002:\r
- jitCompPutByte3(w.dst, 0x0f, 0xbe, reg0 << 3 | reg1); /* MOVSX(reg0,BYTE [reg1]); */\r
- break;\r
- case 0x0003:\r
- jitCompPutByte3(w.dst, 0x0f, 0xb6, reg0 << 3 | reg1); /* MOVZX(reg0,BYTE [reg1]); */\r
- break;\r
- case 0x0004:\r
- jitCompPutByte3(w.dst, 0x0f, 0xbf, reg0 << 3 | reg1); /* MOVSX(reg0,WORD [reg1]); */\r
- break;\r
- case 0x0005:\r
- jitCompPutByte3(w.dst, 0x0f, 0xb7, reg0 << 3 | reg1); /* MOVZX(reg0,WORD [reg1]); */\r
- break;\r
- case 0x0006:\r
- case 0x0007:\r
- jitCompPutByte2(w.dst, 0x8b, reg0 << 3 | reg1); /* MOV(reg0, [reg1]); */\r
- break;\r
- default:\r
- w.err = JITC_ERR_BADTYPE;\r
- }\r
- if (reg0 == IA32_REG0_EAX){\r
- jitCompA0001_movRxxEax(&w, src[1]);\r
- }\r
- if (reg1 == IA32_REG2_EDX){\r
- jitCompA000_loadRegCacheEdx(&w);\r
- }\r
- break;\r
- \r
- case 0x09: /* SMEM */ /* 完成 */\r
- i = jitCompGetImm32(src + 2);\r
- if (i == 0x0001){\r
- w.err = JITC_ERR_BADTYPE;\r
- }\r
- if (level < JITC_LV_FASTER) {\r
- jitCompA0001_checkType(&w, src[6], i, 1); // write\r
- cmp0reg = -1;\r
- }\r
- reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);\r
- reg1 = jitCompA000_selectPRegCache(src[6], IA32_REG2_EDX);\r
- if (reg0 != IA32_REG0_EAX && reg1 == IA32_REG2_EDX){\r
- reg1 = IA32_REG0_EAX;\r
- }\r
- if (reg1 == IA32_REG2_EDX){\r
- jitCompA000_storeRegCacheEdx(&w);\r
- }\r
- if (reg1 <= 3 /* EAX, EDX */){\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, reg1, PRegOffset(src[6]) + 0); /* MOV(reg1, [EBP+?]); */\r
- }\r
- if (level < JITC_LV_FASTER){\r
- jitCompA0001_checkLimit(&w, reg1, src[6]);\r
- }\r
- if (reg0 == IA32_REG0_EAX){\r
- jitCompA0001_movEaxRxx(&w, src[1]);\r
- }\r
- /* 値の範囲チェック */\r
- i = jitCompA000_convTyp(jitCompGetImm32(src + 2));\r
- switch (i) {\r
- case 0x0002:\r
- case 0x0003:\r
- jitCompPutByte2(w.dst, 0x88, reg0 << 3 | reg1); /* MOV([reg1], BYTE(reg0)); */\r
- break;\r
- case 0x0004:\r
- case 0x0005:\r
- jitCompPutByte3(w.dst, 0x66, 0x89, reg0 << 3 | reg1); /* MOV([reg1], WORD(reg0)); */\r
- break;\r
- case 0x0006:\r
- case 0x0007:\r
- jitCompPutByte2(w.dst, 0x89, reg0 << 3 | reg1); /* MOV([reg1], reg0); */\r
- break;\r
- default:\r
- w.err = JITC_ERR_BADTYPE;\r
- }\r
- if (reg1 == IA32_REG2_EDX){\r
- jitCompA000_loadRegCacheEdx(&w);\r
- }\r
- break;\r
- \r
- case 0x0a: /* PLMEM */ /* 完成 */\r
- i = jitCompGetImm32(src + 2);\r
- if (i != 0x0001){\r
- w.err = JITC_ERR_BADTYPE;\r
- }\r
- if (level < JITC_LV_FASTER) {\r
- jitCompA0001_checkType(&w, src[6], i, 0); // read\r
- cmp0reg = -1;\r
- }\r
- reg0 = jitCompA000_selectPRegCache(src[1], IA32_REG0_EAX);\r
- reg1 = jitCompA000_selectPRegCache(src[6], IA32_REG2_EDX);\r
- // if (reg0 != 0 /* EAX */ && reg1 == 2 /* EDX */) /* これをやってはいけない！(by K, 2013.08.02) */\r
- // reg1 = 0; /* EAX */\r
- if (reg0 == reg1 && reg0 != 0) {\r
- // bugfix: hinted by yao, 2013.09.14. thanks!\r
- jitCompA000_storePRegCacheAll(&w);\r
- reg1 = IA32_REG2_EDX;\r
- }\r
- if (reg1 == IA32_REG2_EDX){\r
- jitCompA000_storeRegCacheEdx(&w);\r
- }\r
- if (reg1 <= 3 /* EAX, EDX */){\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, reg1, PRegOffset(src[6])); /* MOV(reg1, [EBP+?]); */\r
- }\r
- if (level < JITC_LV_FASTER){\r
- jitCompA0001_checkLimit(&w, reg1, src[6]);\r
- }\r
- jitCompPutByte2(w.dst, 0x8b, reg0 << 3 | reg1); /* MOV(reg0, [reg1]); */\r
- if (reg0 == IA32_REG0_EAX){\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]), IA32_REG0_EAX); /* MOV([EBP+?], EAX); */\r
- }\r
- for (i = 4; i < 32; i += 4) {\r
- jitCompPutByte3(w.dst, 0x8b, 0x40 | reg1, i); /* MOV(EAX, [reg1+?]); */\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + i, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */\r
- }\r
- if (reg1 == IA32_REG2_EDX){\r
- jitCompA000_loadRegCacheEdx(&w);\r
- }\r
- break;\r
- \r
- case 0x0b: /* PSMEM */ /* 完成 */\r
- i = jitCompGetImm32(src + 2);\r
- if (i != 0x0001) w.err = JITC_ERR_BADTYPE;\r
- if (level < JITC_LV_FASTER) {\r
- jitCompA0001_checkType(&w, src[6], i, 1); // write\r
- cmp0reg = -1;\r
- }\r
- reg0 = jitCompA000_selectPRegCache(src[1], IA32_REG0_EAX);\r
- reg1 = jitCompA000_selectPRegCache(src[6], IA32_REG2_EDX);\r
- /* これをやってはいけない！(by K, 2013.08.02) */\r
- // if (reg0 != 0 /* EAX */ && reg1 == 2 /* EDX */)\r
- // reg1 = 0; /* EAX */\r
- if (reg1 == IA32_REG2_EDX){\r
- jitCompA000_storeRegCacheEdx(&w);\r
- }\r
- if (reg1 <= 3 /* EAX, EDX */){\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, reg1, PRegOffset(src[6])); /* MOV(reg1, [EBP+?]); */\r
- }\r
- if (level < JITC_LV_FASTER){\r
- jitCompA0001_checkLimit(&w, reg1, src[6]);\r
- }\r
- if (reg0 == IA32_REG0_EAX){\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, PRegOffset(src[1])); /* MOV(reg0, [EBP+?]); */\r
- }\r
- jitCompPutByte2(w.dst, 0x89, reg0 << 3 | reg1); /* MOV([reg1], reg0); */\r
- for (i = 4; i < 32; i += 4) {\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[1]) + i); /* MOV(EAX, [EBP+?]); */\r
- jitCompPutByte3(w.dst, 0x89, 0x40 | reg1, i); /* MOV([reg1+?], EAX); */\r
- }\r
- if (reg1 == IA32_REG2_EDX)\r
- jitCompA000_loadRegCacheEdx(&w);\r
- break;\r
- \r
- case 0x0e: /* PADD */ /* 完成 */\r
- if (level < JITC_LV_FASTER) {\r
- jitCompA0001_checkType0(&w, src[6], jitCompGetImm32(src + 2), 2); // other, aliveテストはとりあえずしない.\r
- cmp0reg = -1;\r
- }\r
- reg0 = jitCompA000_selectPRegCache(src[1], IA32_REG0_EAX);\r
- reg1 = jitCompA000_selectPRegCache(src[6], -1 /* mem */);\r
- if (reg1 < 0 /* mem */){\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, PRegOffset(src[6])); /* MOV(reg0, [EBP+?]); */\r
- }\r
- if (reg1 >= 0 && reg0 != reg1) {\r
- jitCompPutByte2(w.dst, 0x89, 0xc0 | reg1 << 3 | reg0); /* MOV(reg0, reg1); */\r
- }\r
- i = jitCompGetImm32(src + 2);\r
- j = -1;\r
- if (i == 1){\r
- j = 5; /* 32 */\r
- } else {\r
- i = jitCompA000_convTyp(i);\r
- if (0x0002 <= i && i <= 0x0007){\r
- j = (i - 0x0002) >> 1;\r
- }\r
- }\r
- if (j < 0) {\r
- w.err = JITC_ERR_BADTYPE;\r
- goto err_w;\r
- }\r
-#if (jitCompA0001_USE_R3F_IMM32 != 0)\r
- if (src[7] == 0x3f) {\r
- j = w.r3f << j;\r
-#if (jitCompA0001_USE_R3F_IMM8 != 0)\r
- if (-0x80 <= j && j <= 0x7f) {\r
-#if (jitCompA0001_USE_R3F_INCDEC != 0)\r
- if (j == 1) {\r
- /* INC */\r
- jitCompPutByte1(w.dst, 0x40 | reg0);\r
- goto padd1;\r
- }\r
- if (j == -1) {\r
- /* DEC */\r
- jitCompPutByte1(w.dst, 0x48 | reg0);\r
- goto padd1;\r
- }\r
-#endif\r
- /* ADD(reg0, im8); */\r
- jitCompPutByte3(w.dst, 0x83, 0xc0 | reg0, j & 0xff);\r
- goto padd1;\r
- }\r
-#endif\r
- if (reg0 == 0) {\r
- jitCompPutByte1(w.dst, 0x05); /* ADD(reg0, ?); */\r
- } else {\r
- jitCompPutByte2(w.dst, 0x81, 0xc0 | reg0); /* ADD(reg0, ?); */\r
- }\r
- jitCompPutImm32(w.dst, j);\r
- goto padd1;\r
- }\r
-#endif\r
- if (src[7] >= 0x40){\r
- w.err = JITC_ERR_REGNUM;\r
- }\r
- if (j == 0) {\r
- reg1 = jitCompA000_selectRegCache(src[7], -1 /* mem */);\r
- if (reg1 >= 0) {\r
- jitCompPutByte2(w.dst, 0x01, 0xc0 | reg1 << 3 | reg0); /* ADD(reg0, reg1); */\r
- } else {\r
- jitCompPutByte1(w.dst, 0x03); /* ADD(reg0, [EBP+?]); */\r
- jitCompPutModRM_Disp_BaseEBP(&w, src[7] * 4, reg0);\r
- }\r
- }\r
- else {\r
- reg1 = jitCompA000_selectRegCache(src[7], -1 /* mem */);\r
- reg2 = IA32_REG2_EDX;\r
- jitCompA000_storeRegCacheEdx(&w);\r
- if (reg1 < 0){\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, reg2, src[7] * 4); /* MOV(reg2, [EBP+?]); */\r
- }\r
- if (reg1 >= 0 && reg1 != reg2) {\r
- jitCompPutByte2(w.dst, 0x89, 0xc0 | reg1 << 3 | reg2); /* MOV(reg2, reg1); */\r
- }\r
- jitCompPutByte3(w.dst, 0xc1, 0xe0 | reg2, j); /* SHL(reg2, ?); */\r
- jitCompPutByte2(w.dst, 0x01, 0xc0 | reg2 << 3 | reg0); /* ADD(reg0, reg2); */\r
- jitCompA000_loadRegCacheEdx(&w);\r
- }\r
-#if (jitCompA0001_USE_R3F_IMM32 != 0)\r
- padd1:\r
-#endif\r
- if (reg0 == IA32_REG0_EAX){\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]), reg0); /* MOV([EBP+?], reg0); */\r
- }\r
- if (src[1] != src[6]) {\r
- for (i = 4; i < 32; i += 4) {\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[6]) + i); /* MOV(EAX, [EBP+?]); */\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + i, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */\r
- }\r
- }\r
- cmp0reg = -1;\r
- break;\r
- \r
- case 0x0f: /* PDIF */ /* 未完成 */\r
- reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);\r
- jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
- jitCompA0001_checkCompPtr(&w, src[6], src[7]);\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, PRegOffset(src[6])); /* MOV(reg0, [EBP+?]); */\r
- jitCompPutByte1(w.dst, 0x2b); /* SUB(EAX, [EBP+?]); */\r
- jitCompPutModRM_Disp_BaseEBP(&w, PRegOffset(src[7]) + 0, reg0);\r
- i = jitCompA000_convTyp(jitCompGetImm32(src + 2));\r
- j = -1;\r
- if (0x0002 <= i && i <= 0x0007){\r
- j = (i - 0x0002) >> 1;\r
- }\r
- if (j < 0) {\r
- w.err = JITC_ERR_BADTYPE;\r
- goto err_w;\r
- }\r
- if (j > 0) {\r
- jitCompPutByte3(w.dst, 0xc1, 0xf8 | reg0, j); /* SAR(reg0,?); */\r
- }\r
- if (reg0 == IA32_REG0_EAX){\r
- jitCompA0001_movRxxEax(&w, src[1]);\r
- }\r
- cmp0reg = src[1];\r
- cmp0lev = 1;\r
- break;\r
- \r
- case 0x10: /* OR */\r
- case 0x11: /* XOR */\r
- case 0x12: /* AND */\r
- case 0x14: /* ADD */\r
- case 0x15: /* SUB */\r
- case 0x16: /* MUL */\r
- if (src[1] >= 0x3f){\r
- w.err = JITC_ERR_REGNUM;\r
- }\r
- reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);\r
- reg1 = jitCompA000_selectRegCache(src[2], -1 /* mem */);\r
-#if (jitCompA0001_USE_R3F_IMM32 != 0)\r
- if (src[2] == 0x3f) { // SUBのみ該当.\r
- if (*src != 0x15){\r
- w.err = JITC_ERR_REGNUM;\r
- }\r
- reg2 = jitCompA000_selectRegCache(src[3], -1 /* mem */);\r
- if (reg2 >= 0){\r
- jitCompA000_storeRegCacheAll(&w);\r
- }\r
- jitCompPutByte1(w.dst, 0xb8 | reg0); /* MOV(reg0, ?); */\r
- jitCompPutImm32(w.dst, w.r3f);\r
- jitCompPutByte1(w.dst, 0x2b);\r
- jitCompPutModRM_Disp_BaseEBP(&w, src[3] * 4, reg0);\r
- if (reg0 == 0){\r
- jitCompA0001_movRxxEax(&w, src[1]);\r
- }\r
- break;\r
- }\r
-#endif\r
- if (reg1 < 0) {\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, src[2] * 4); /* MOV(reg0, [EBP+?]); */\r
- }\r
- if (reg1 >= 0 && reg0 != reg1) {\r
- jitCompPutByte2(w.dst, 0x89, 0xc0 | reg1 << 3 | reg0); /* MOV(reg0, reg1); */\r
- }\r
- if (!(src[0] == 0x10 && src[3] == 0xff)) {\r
- // bugfix: hinted by Iris, 2013.06.26. thanks!\r
- cmp0reg = src[1];\r
- cmp0lev = 1;\r
- if (src[0] < 0x14){\r
- cmp0lev = 2;\r
- }\r
- if (src[0] == 0x16){\r
- cmp0reg = -1;\r
- }\r
- }\r
- if (!(src[0] == 0x10 && src[3] == 0xff)) {\r
-#if (jitCompA0001_USE_R3F_IMM32 != 0)\r
- if (src[3] == 0x3f) {\r
- if (*src == 0x16 && w.r3f == -1) {\r
- jitCompPutByte2(w.dst, 0xf7, 0xd8 | reg0); /* NEG(reg0); */\r
- if (reg0 == 0){\r
- jitCompA0001_movRxxEax(&w, src[1]);\r
- }\r
- break;\r
- }\r
-#if (jitCompA0001_USE_R3F_INCDEC != 0)\r
- if ((*src == 0x14 && w.r3f == 1) || (*src == 0x15 && w.r3f == -1)) {\r
- jitCompPutByte1(w.dst, 0x40 | reg0); /* INC(reg0); */\r
- if (reg0 == 0){\r
- jitCompA0001_movRxxEax(&w, src[1]);\r
- }\r
- break;\r
- }\r
- if ((*src == 0x15 && w.r3f == 1) || (*src == 0x14 && w.r3f == -1)) {\r
- jitCompPutByte1(w.dst, 0x48 | reg0); /* DEC(reg0); */\r
- if (reg0 == 0){\r
- jitCompA0001_movRxxEax(&w, src[1]);\r
- }\r
- break;\r
- }\r
-#endif\r
-#if (jitCompA0001_USE_R3F_IMM8 != 0)\r
- if (-0x80 <= w.r3f && w.r3f <= 0x7f) {\r
- if (*src != 0x16) {\r
- static unsigned char basic_op_table_im8[] = { 0xc8, 0xf0, 0xe0, 0, 0xc0, 0xe8 };\r
- jitCompPutByte3(w.dst, 0x83, basic_op_table_im8[*src - 0x10] | reg0, w.r3f & 0xff);\r
- } else{\r
- jitCompPutByte3(w.dst, 0x6b, 0xc0 | reg0 << 3 | reg0, w.r3f & 0xff);\r
- }\r
- if (reg0 == 0){\r
- jitCompA0001_movRxxEax(&w, src[1]);\r
- }\r
- break;\r
- }\r
-#endif\r
- if (reg0 == IA32_REG0_EAX) {\r
- static unsigned char basic_op_table_im32_eax[] = { 0x0d, 0x35, 0x25, 0, 0x05, 0x2d, 0xc0 };\r
- if (*src == 0x16) {\r
- jitCompPutByte1(w.dst, 0x69);\r
- }\r
- jitCompPutByte1(w.dst, basic_op_table_im32_eax[*src - 0x10]);\r
- } else{\r
- if (*src != 0x16) {\r
- static unsigned char basic_op_table_im32_reg[] = { 0xc8, 0xf0, 0xe0, 0, 0xc0, 0xe8 };\r
- jitCompPutByte2(w.dst, 0x81, basic_op_table_im32_reg[*src - 0x10] | reg0);\r
- }\r
- else {\r
- jitCompPutByte2(w.dst, 0x69, 0xc0 | reg0 << 3 | reg0);\r
- }\r
- }\r
- jitCompPutImm32(w.dst, w.r3f);\r
- if (reg0 == 0){\r
- jitCompA0001_movRxxEax(&w, src[1]);\r
- }\r
- break;\r
- }\r
-#endif\r
- reg1 = jitCompA000_selectRegCache(src[3], -1 /* mem */);\r
- if (src[3] >= 0x40){\r
- w.err = JITC_ERR_REGNUM;\r
- }\r
- if (*src != 0x16) {\r
- if (reg1 >= 0) {\r
- static unsigned char basic_op_table_rr[] = { 0x09, 0x31, 0x21, 0, 0x01, 0x29 }; /* op(reg,reg); */\r
- jitCompPutByte2(w.dst, basic_op_table_rr[*src - 0x10], 0xc0 | reg1 << 3 | reg0);\r
- } else{\r
- static unsigned char basic_op_table_rm[] = { 0x0b, 0x33, 0x23, 0, 0x03, 0x2b, 0xaf }; /* op(reg,mem); */\r
- jitCompPutByte1(w.dst, basic_op_table_rm[*src - 0x10]);\r
- jitCompPutModRM_Disp_BaseEBP(&w, src[3] * 4, reg0);\r
- }\r
- } else{\r
- if (reg1 >= 0) {\r
- jitCompPutByte3(w.dst, 0x0f, 0xaf, 0xc0 | reg0 << 3 | reg1);\r
- } else{\r
- jitCompPutByte2(w.dst, 0x0f, 0xaf);\r
- jitCompPutModRM_Disp_BaseEBP(&w, src[3] * 4, reg0);\r
- }\r
- }\r
- }\r
- if (reg0 == 0){\r
- jitCompA0001_movRxxEax(&w, src[1]);\r
- }\r
- break;\r
- \r
- case 0x18: /* SHL */\r
- case 0x19: /* SAR */\r
- if (src[1] >= 0x3f){\r
- w.err = JITC_ERR_REGNUM;\r
- }\r
- if (src[3] >= 0x40){\r
- w.err = JITC_ERR_REGNUM;\r
- }\r
-#if (jitCompA0001_USE_R3F_IMM32 != 0)\r
- if (src[3] == 0x3f) {\r
- reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);\r
- reg1 = jitCompA000_selectRegCache(src[2], -1 /* mem */);\r
- if (src[1] >= 0x3f){\r
- w.err = JITC_ERR_REGNUM;\r
- }\r
- if (reg1 == -1){\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, src[2] * 4); /* MOV(reg1, [EBP+?]); */\r
- } else{\r
- if (reg0 != reg1) {\r
- jitCompPutByte2(w.dst, 0x89, 0xc0 | reg1 << 3 | reg0); /* MOV(reg0, reg1); */\r
- }\r
- }\r
- if (*src == 0x18) {\r
- /* SHL(reg0, im8); */\r
- jitCompPutByte3(w.dst, 0xc1, 0xe0 | reg0, w.r3f);\r
- }\r
- if (*src == 0x19) {\r
- /* SAR(reg0, im8); */\r
- jitCompPutByte3(w.dst, 0xc1, 0xf8 | reg0, w.r3f);\r
- }\r
- if (reg0 == IA32_REG0_EAX){\r
- jitCompA0001_movRxxEax(&w, src[1]);\r
- }\r
- cmp0reg = src[1];\r
- cmp0lev = 1;\r
- break;\r
- }\r
-#endif\r
- jitCompA000_storeRegCacheAll(&w); // 手抜き.\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG1_ECX, src[3] * 4); /* MOV(ECX, [EBP+?]); */\r
-#if (jitCompA0001_USE_R3F_IMM32 != 0)\r
- if (src[2] == 0x3f) {\r
- jitCompPutByte1(w.dst, 0xb8); /* MOV(EAX, ?); */\r
- jitCompPutImm32(w.dst, w.r3f);\r
- } else{\r
- jitCompA0001_movEaxRxx(&w, src[2]);\r
- }\r
-#else\r
- jitCompA0001_movEaxRxx(&w, src[2]);\r
-#endif\r
- if (*src == 0x18) {\r
- /* SHL(EAX, CL); */\r
- jitCompPutByte2(w.dst, 0xd3, 0xe0);\r
- }\r
- if (*src == 0x19) {\r
- /* SAR(EAX, CL); */\r
- jitCompPutByte2(w.dst, 0xd3, 0xf8);\r
- }\r
- jitCompA0001_movRxxEax(&w, src[1]);\r
- jitCompA000_loadRegCacheAll(&w); // 手抜き.\r
- cmp0reg = src[1];\r
- cmp0lev = 1;\r
- break;\r
- \r
- case 0x1a: /* DIV */\r
- case 0x1b: /* MOD */\r
- if (src[1] >= 0x3f || src[2] >= 0x40 || src[3] >= 0x40){\r
- w.err = JITC_ERR_REGNUM;\r
- }\r
- jitCompA000_storeRegCacheAll(&w); // 手抜き.\r
-#if (jitCompA0001_USE_R3F_IMM32 != 0)\r
- if (src[3] == 0x3f) {\r
- jitCompPutByte1(w.dst, 0xb8 | 1); /* MOV(ECX, ?); */\r
- jitCompPutImm32(w.dst, w.r3f);\r
- } else{\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG1_ECX, src[3] * 4); /* MOV(ECX, [EBP+?]); */\r
- }\r
- if (src[2] == 0x3f) {\r
- jitCompPutByte1(w.dst, 0xb8 | 0); /* MOV(EAX, ?); */\r
- jitCompPutImm32(w.dst, w.r3f);\r
- } else{\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, src[2] * 4); /* MOV(EAX, [EBP+?]); */\r
- }\r
-#else\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG1_ECX, src[3] * 4); /* MOV(ECX, [EBP+?]); */\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, src[2] * 4); /* MOV(EAX, [EBP+?]); */\r
-#endif\r
- jitCompPutByte1(w.dst, 0x99); /* CDQ(); */\r
- /* ECXがゼロではないことを確認すべき */\r
- jitCompPutByte2(w.dst, 0xf7, 0xf9); /* IDIV(ECX); */\r
- if (*src == 0x1a) {\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, src[1] * 4, IA32_REG0_EAX);\r
- }\r
- if (*src == 0x1b) {\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, src[1] * 4, IA32_REG2_EDX);\r
- }\r
- jitCompA000_loadRegCacheAll(&w); // 手抜き.\r
- cmp0reg = -1;\r
- break;\r
- \r
- case 0x1c: /* PLMT0 */\r
- case 0x1d: /* PLMT1 */\r
- if (src[1] >= 0x40 || src[2] >= 0x40){\r
- w.err = JITC_ERR_PREGNUM;\r
- }\r
- if (level < JITC_LV_FASTEST) {\r
- cmp0reg = -1;\r
- if (level < JITC_LV_FASTER) {\r
- // typ が一致していることを確認.\r
- // plsとliveSignが一致していることを確認.\r
- \r
- // preg1はp0 <= p <= p1 を満たしているか？.\r
- // 新しいp0/p1は古いp0〜p1に適合しているか？.\r
- \r
- }\r
- }\r
- \r
- case 0x1e: /* PCP */ /* 未完成(p1まで完成) */\r
- if (src[1] >= 0x40 || src[2] >= 0x40){\r
- w.err = JITC_ERR_PREGNUM;\r
- }\r
- if (src[2] == 0x3f){\r
- w.err = JITC_ERR_PREGNUM;\r
- }\r
- if (src[1] != 0x3f) {\r
- /* src[2] == 0xff の場合に対応できてない */\r
- jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
- for (i = 0; i < 32; i += 4) {\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[2]) + i); /* MOV(EAX, [EBP+?]); */\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + i, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */\r
- }\r
- jitCompA000_loadPRegCacheAll(&w); // 手抜き.\r
- } else {\r
- if (level < JITC_LV_FASTER) {\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[2]) + 4); /* MOV(EAX, [EBP+?]); */ /* typ */\r
- jitCompPutByte3(w.dst, 0x83, 0xf8, 0); /* CMP(EAX, 0); */\r
- jitCompPutByte2(w.dst, 0x0f, 0x85); /* JNE */\r
- jitCompPutImm32(w.dst, errfnc - (w.dst + 4));\r
- /* セキュリティチェックが足りてない!(aliveとか) */\r
- }\r
- reg0 = IA32_REG0_EAX;\r
- jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, PRegOffset(src[2]) + 0); /* MOV(EAX, [EBP+?]); */\r
- if (level < JITC_LV_FASTER) {\r
- jitCompPutByte1(w.dst, 0x3b); /* CMP(reg0, [EBP+?]); */\r
- jitCompPutModRM_Disp_BaseEBP(&w, PRegOffset(src[2]) + 8, reg0); /* p0 */\r
- jitCompPutByte2(w.dst, 0x0f, 0x85); /* JNE */\r
- jitCompPutImm32(w.dst, errfnc - (w.dst + 4));\r
- }\r
- jitCompPutByte2(w.dst, 0xff, 0xe0); /* JMP(EAX); */\r
- }\r
- break;\r
- \r
- case 0x1f: /* PCST */\r
- if (jitCompGetImm32(src + 2) == 0) {\r
- if (level < JITC_LV_FASTER){\r
- jitCompA0001_checkType0(&w, src[6], jitCompGetImm32(src + 7), 2);\r
- }\r
- jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
- for (i = 0; i < 32 - 4; i += 4) {\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[6]) + i); /* MOV(EAX, [EBP+?]); */\r
- if (i == 4) {\r
- jitCompPutByte1(w.dst, 0x0d); /* OR(EAX, ?); */\r
- jitCompPutImm32(w.dst, 0x80000000);\r
- }\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + i, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */\r
- }\r
- jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, debugInfo1);\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 28, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */\r
- jitCompA000_loadPRegCacheAll(&w); // 手抜き.\r
- cmp0reg = -1;\r
- break;\r
- }\r
- if (jitCompGetImm32(src + 7) == 0) {\r
- jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
- for (i = 0; i < 32 - 4; i += 4) {\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[6]) + i); /* MOV(EAX, [EBP+?]); */\r
- if (i == 4) {\r
- jitCompPutByte1(w.dst, 0x25); /* AND(EAX, ?); */\r
- jitCompPutImm32(w.dst, 0x7fffffff);\r
- }\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + i, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */\r
- }\r
- if (level < JITC_LV_FASTER) {\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[6]) + 28); /* MOV(EAX, [EBP+?]); */\r
- jitCompPutByte1(w.dst, 0x3d); /* CMP(EAX, ?); */\r
- jitCompPutImm32(w.dst, debugInfo1);\r
- jitCompPutByte2(w.dst, 0x74, 8); /* JE */\r
- jitCompPutOp_MOV_EAX_ZERO(w.dst);\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 0, IA32_REG0_EAX); /* MOV([EBP+?], EAX); (1+1+4) */\r
- }\r
- jitCompA000_loadPRegCacheAll(&w); // 手抜き.\r
- cmp0reg = -1;\r
- break;\r
- }\r
- w.err = JITC_ERR_OPECODE;\r
- goto err_w;\r
- \r
- case 0x20: /* CMPE */\r
- case 0x21: /* CMPNE */\r
- case 0x22: /* CMPL */\r
- case 0x23: /* CMPGE */\r
- case 0x24: /* CMPLE */\r
- case 0x25: /* CMPG */\r
- case 0x26: /* TSTZ */\r
- case 0x27: /* TSTNZ */\r
- reg0 = jitCompA000_selectRegCache(src[2], IA32_REG0_EAX);\r
- reg1 = jitCompA000_selectRegCache(src[3], -1 /* mem */);\r
- if (src[1] == 0x3f) {\r
- /* 特殊構文チェック */\r
- if (w.prefix != 0) {\r
- w.err = JITC_ERR_PREFIX;\r
- goto err_w;\r
- }\r
- if (src[4] != 0x04 || src[5] != 0x3f || src[6] != 0x03 || src[7] != 0x3f) {\r
- w.err = JITC_ERR_IDIOM;\r
- goto err_w;\r
- }\r
- }\r
- if (reg0 == 0)\r
- jitCompA0001_movEaxRxx(&w, src[2]);\r
-#if (jitCompA0001_USE_R3F_IMM32 != 0)\r
- if (src[3] == 0x3f) {\r
-#if (jitCompA0001_OPTIMIZE_CMP != 0)\r
- if ((*src <= 0x25 && w.r3f == 0) || (*src >= 0x26 && w.r3f == -1)) {\r
- i = 0;\r
- if (cmp0reg == src[2]) {\r
- if (cmp0lev >= 1 && (src[0] == 0x20 || src[0] == 0x21 || src[0] == 0x26 || src[0] == 0x27)){\r
- i = 1;\r
- }\r
- if (cmp0lev >= 2 && (src[0] == 0x22 || src[0] == 0x23 || src[0] == 0x24 || src[0] == 0x25)){\r
- i = 1;\r
- }\r
- }\r
- if (i == 0) {\r
- jitCompPutByte2(w.dst, 0x85, 0xc0 | reg0 << 3 | reg0); /* TEST(reg0, reg0); */\r
- }\r
- cmp0reg = src[2];\r
- cmp0lev = 2;\r
- goto cmpcc1;\r
- }\r
-#endif\r
-#if (jitCompA0001_USE_R3F_IMM8 != 0)\r
- if (-0x80 <= w.r3f && w.r3f <= 0x7f && *src <= 0x25) {\r
- jitCompPutByte3(w.dst, 0x83, 0xf8 | reg0, w.r3f);\r
- goto cmpcc1;\r
- }\r
-#endif\r
- if (reg0 == 0) {\r
- if (*src <= 0x25) {\r
- jitCompPutByte1(w.dst, 0x3d);\r
- }\r
- if (*src >= 0x26) {\r
- jitCompPutByte1(w.dst, 0xa9);\r
- }\r
- }\r
- else {\r
- if (*src <= 0x25) {\r
- jitCompPutByte2(w.dst, 0x81, 0xf8 | reg0);\r
- }\r
- if (*src >= 0x26) {\r
- jitCompPutByte2(w.dst, 0xf7, 0xc0 | reg0);\r
- }\r
- }\r
- jitCompPutImm32(w.dst, w.r3f);\r
- goto cmpcc1;\r
- }\r
-#endif\r
- if (src[3] >= 0x40){\r
- w.err = JITC_ERR_PREGNUM;\r
- }\r
- if (reg1 >= 0) {\r
- if (*src <= 0x25) {\r
- jitCompPutByte2(w.dst, 0x39, 0xc0 | reg1 << 3 | reg0);\r
- }\r
- if (*src >= 0x26) {\r
- jitCompPutByte2(w.dst, 0x85, 0xc0 | reg1 << 3 | reg0);\r
- }\r
- } else{\r
- if (*src <= 0x25) {\r
- jitCompPutByte1(w.dst, 0x3b);\r
- }\r
- if (*src >= 0x26) {\r
- jitCompPutByte1(w.dst, 0x85);\r
- }\r
- jitCompPutModRM_Disp_BaseEBP(&w, src[3] * 4, reg0);\r
- }\r
- cmpcc1:\r
- if (w.err != 0){\r
- goto err_w;\r
- }\r
- static unsigned char cmpcc_table0[] = {\r
- 0x04, 0x05, 0x0c, 0x0d, 0x0e, 0x0f, 0x04, 0x05, /* CMPcc, TSTcc */\r
- 0x04, 0x05, 0x02, 0x03, 0x06, 0x07 /* PCMPcc */\r
- };\r
-#if (jitCompA0001_USE_R3F_CMPJMP != 0)\r
- if (src[1] == 0x3f) {\r
- /* 特殊構文を利用した最適化 */\r
- jitCompPutByte2(w.dst, 0x0f, 0x80 | cmpcc_table0[*src - 0x20]);\r
- src += 6;\r
- i = jitCompGetLabelNum(&w, src + 2);\r
- if ((flags & JITC_PHASE1) != 0 && w.err != 0) {\r
- if (label[i].opt == 0) {\r
- w.err = JITC_ERR_LABELNODEF;\r
- goto err_w;\r
- }\r
- // if (label[i].typ != 1) { w.err = JITC_ERR_LABELTYP; goto err_w; }\r
- }\r
- j = 0;\r
- if ((flags & JITC_PHASE1) != 0 || (((flags & JITC_PHASE1) == 0) && label[i].opt != 0)){\r
- j = label[i].p - (w.dst + 4);\r
- }\r
- jitCompPutImm32(w.dst, j);\r
-#if (jitCompA0001_OPTIMIZE_JMP != 0)\r
- if (-128 - 4 <= j && j < 0) {\r
- j += 4;\r
- w.dst -= 6;\r
- jitCompPutByte2(w.dst, w.dst[1] ^ 0xf0, j & 0xff);\r
- }\r
-#endif\r
- src += 6;\r
- if (w.err != 0){\r
- goto err_w;\r
- }\r
- continue;\r
- }\r
-#endif\r
- /* 一般的なJITC */\r
- reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);\r
- jitCompPutByte3(w.dst, 0x0f, 0x90 | cmpcc_table0[*src - 0x20], 0xc0 | reg0); /* SETcc(BYTE(reg0)); */\r
- jitCompPutByte3(w.dst, 0x0f, 0xb6, 0xc0 | reg0 << 3 | reg0); /* MOVZX(reg0, BYTE(reg0)); */\r
- jitCompPutByte2(w.dst, 0xf7, 0xd8 | reg0); /* NEG(reg0); */\r
- if (reg0 == 0){\r
- jitCompA0001_movRxxEax(&w, src[1]);\r
- }\r
- cmp0reg = src[2];\r
- cmp0lev = 1;\r
- break;\r
- \r
- case 0x28: /* PCMPE */\r
- case 0x29: /* PCMPNE */\r
- case 0x2a: /* PCMPL */\r
- case 0x2b: /* PCMPGE */\r
- case 0x2c: /* PCMPLE */\r
- case 0x2d: /* PCMPG */\r
- if (src[1] == 0x3f) {\r
- /* 特殊構文チェック */\r
- if (w.prefix != 0) {\r
- w.err = JITC_ERR_PREFIX;\r
- goto err_w;\r
- }\r
- if (src[4] != 0x04 || src[5] != 0x3f || src[6] != 0x03 || src[7] != 0x3f) {\r
- w.err = JITC_ERR_IDIOM;\r
- goto err_w;\r
- }\r
- }\r
- if (src[2] >= 0x40) {\r
- w.err = JITC_ERR_PREGNUM;\r
- }\r
- jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
- if (src[3] != 0xff){\r
- jitCompA0001_checkCompPtr(&w, src[2], src[3]);\r
- }\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[2]) + 0); /* MOV(EAX, [EBP+?]); */\r
- if (src[3] != 0xff) {\r
- jitCompPutByte1(w.dst, 0x3b); /* CMP(EAX, [EBP+?]); */\r
- jitCompPutModRM_Disp_BaseEBP(&w, PRegOffset(src[3]) + 0, 0);\r
- } else{\r
- /* ヌルポインタとの比較はこれでいいのか？たぶんよくない */\r
- jitCompPutByte3(w.dst, 0x83, 0xf8, 0x00); /* CMP(EAX, 0); */\r
- }\r
- cmp0reg = -1;\r
- goto cmpcc1;\r
- \r
- case 0x30: /* talloc(old:F4) */\r
- case 0x31: /* tfree(old:F5) */\r
- case 0x32: /* malloc(old:F6) */\r
- case 0x33: /* mfree(old:F7) */\r
- jitCompA000_storeRegCacheAll(&w); // 手抜き.\r
- jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
- \r
- jitCompPutOp_PUSH_Imm8(w.dst, src[3]);\r
- jitCompPutOp_PUSH_Imm8(w.dst, src[2]);\r
- jitCompPutOp_PUSH_Imm8(w.dst, src[1]);\r
- jitCompPutOp_PUSH_GReg(w.dst, IA32_REG5_EBP);\r
- \r
- switch (*src) {\r
- case 0x30:\r
- j = ((unsigned char *)&funcf4) - (w.dst + 1 + 4);\r
- break;\r
- case 0x31:\r
- j = ((unsigned char *)&funcf5) - (w.dst + 1 + 4);\r
- break;\r
- case 0x32:\r
- j = ((unsigned char *)&funcf6) - (w.dst + 1 + 4);\r
- break;\r
- case 0x33:\r
- j = ((unsigned char *)&funcf7) - (w.dst + 1 + 4);\r
- break;\r
- }\r
- jitCompPutOp_CALL_Relative(w.dst, j);\r
- jitCompPutOp_ADD_GReg_Imm8(w.dst, IA32_REG4_ESP, 16);\r
- \r
- jitCompA000_loadRegCacheAll(&w); // 手抜き.\r
- jitCompA000_loadPRegCacheAll(&w); // 手抜き.\r
- cmp0reg = -1;\r
- break;\r
- \r
- case 0x34: /* data (暫定) */\r
- // 0 1234 5678 9\r
- // 34 typ32 len32 data...\r
- // len32 is NOT byte size!\r
- \r
- cmp0reg = -1;\r
- if (w.prefix != 0) {\r
- w.err = JITC_ERR_PREFIX;\r
- goto err_w;\r
- }\r
- int k, tmpData, bitCount, dataWidth;\r
- // kはtyp32\r
- k = jitCompGetImm32(&src[1]);\r
- dataWidth = jitCompA000_dataWidth(k);\r
- if (lastlabel >= 0 && label[lastlabel].typ == 0){\r
- //直前のラベルタイプを設定\r
- label[lastlabel].typ = k;\r
- }\r
- if (k != 1) {\r
- i = jitCompA000_convTyp(k);\r
- if (i < 2 || i > 7) {\r
- w.err = JITC_ERR_BADTYPE;\r
- goto err_w;\r
- }\r
- }\r
- // jはlen32\r
- j = jitCompGetImm32(&src[5]);\r
- oldsrc = src;\r
- src += 9;\r
- \r
- // srcはdata本体を指す\r
- if (k != 1) {\r
- // 一般データ\r
- bitCount = 7;\r
- while (j > 0) {\r
- if (src >= src1) {\r
- // バイトコードを末端を超えて読もうとした\r
- w.err = JITC_ERR_SRC1;\r
- src = oldsrc;\r
- goto err_w;\r
- }\r
- if (w.dst + 256 > dst1) {\r
- // 書き込み先の残り容量が256Bytesを切った\r
- w.err = JITC_ERR_DST1;\r
- src = oldsrc;\r
- goto err_w;\r
- }\r
- tmpData = 0;\r
- for (k = 0; k < dataWidth; k++) {\r
- // dataWidthビットごとに切り出してtmpDataに入れる\r
- tmpData = tmpData << 1 | ((*src >> bitCount) & 1);\r
- bitCount--;\r
- if (bitCount < 0) {\r
- bitCount = 7;\r
- src++;\r
- }\r
- }\r
- if ((i & 1) == 0 && dataWidth <= 31 && (tmpData >> (dataWidth - 1)) != 0) {\r
- // 符号あり型で、かつtmpDataの符号ビットが1なので、マイナスにする\r
- tmpData -= 1 << dataWidth;\r
- }\r
- if (i == 2 || i == 3) {\r
- // BYTE\r
- jitCompPutByte1(w.dst, tmpData & 0xff);\r
- }\r
- if (i == 4 || i == 5) {\r
- // WORD\r
- jitCompPutByte2(w.dst, tmpData & 0xff, (tmpData >> 8) & 0xff);\r
- }\r
- if (i == 6 || i == 7) {\r
- // DWORD\r
- jitCompPutByte4(w.dst, tmpData & 0xff, (tmpData >> 8) & 0xff, (tmpData >> 16) & 0xff, (tmpData >> 24) & 0xff);\r
- }\r
- j--;\r
- }\r
- } else{\r
- // VPtr型\r
- while (j > 0) {\r
- if (src >= src1) {\r
- // バイトコードを末端を超えて読もうとした\r
- w.err = JITC_ERR_SRC1;\r
- src = oldsrc;\r
- goto err_w;\r
- }\r
- if (w.dst + 256 > dst1) {\r
- // 書き込み先の残り容量が256Bytesを切った\r
- w.err = JITC_ERR_DST1;\r
- src = oldsrc;\r
- goto err_w;\r
- }\r
- i = jitCompGetImm32(src);\r
- src += 4;\r
- if ((flags & JITC_PHASE1) != 0 && w.err == 0) {\r
- // Only in phase1\r
- if (label[i].opt == 0) {\r
- // ローカルラベルはだめです...\r
- w.err = JITC_ERR_LABELNODEF;\r
- goto err_w;\r
- }\r
- }\r
- jitCompPutImm32(w.dst, (int)label[i].p);\r
- jitCompPutImm32(w.dst, label[i].typ);\r
- jitCompPutImm32(w.dst, (int)label[i].p);\r
- jitCompPutImm32(w.dst, (int)label[i].p1);\r
- jitCompPutImm32(w.dst, 0); /* liveSign */\r
- jitCompPutImm32(w.dst, envOffset_PTRCTRL); /* pls */\r
- jitCompPutImm32(w.dst, 0);\r
- jitCompPutImm32(w.dst, 0);\r
- j--;\r
- }\r
- }\r
- if (lastlabel >= 0 && label[lastlabel].p1 < w.dst){\r
- label[lastlabel].p1 = w.dst;\r
- }\r
- continue;\r
- \r
- case 0x3c: /* ENTER */\r
- jitCompA000_storeRegCacheAll(&w); // 手抜き.\r
- jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
- jitCompPutOp_PUSH_Imm8(w.dst, src[6]);\r
- jitCompPutOp_PUSH_Imm8(w.dst, src[5]);\r
- jitCompPutOp_PUSH_Imm8(w.dst, src[4] & 0x0f);\r
- jitCompPutOp_PUSH_Imm8(w.dst, (src[4] >> 4) & 0x0f);\r
- jitCompPutOp_PUSH_Imm8(w.dst, src[3]);\r
- jitCompPutOp_PUSH_Imm8(w.dst, src[2]);\r
- jitCompPutOp_PUSH_Imm8(w.dst, src[1]);\r
- jitCompPutOp_PUSH_GReg(w.dst, IA32_REG5_EBP);\r
- j = ((unsigned char *)&func3c) - (w.dst + 1 + 4);\r
- jitCompPutOp_CALL_Relative(w.dst, j)\r
- jitCompPutOp_ADD_GReg_Imm8(w.dst, IA32_REG4_ESP, 32);\r
- jitCompA000_loadRegCacheAll(&w); // 手抜き.\r
- jitCompA000_loadPRegCacheAll(&w); // 手抜き.\r
- cmp0reg = -1;\r
- break;\r
- \r
- case 0x3d: /* LEAVE */\r
- jitCompA000_storeRegCacheAll(&w); // 手抜き.\r
- jitCompA000_storePRegCacheAll(&w); // 手抜き.\r
- jitCompPutOp_PUSH_Imm8(w.dst, src[6]);\r
- jitCompPutOp_PUSH_Imm8(w.dst, src[5]);\r
- jitCompPutOp_PUSH_Imm8(w.dst, src[4] & 0x0f);\r
- jitCompPutOp_PUSH_Imm8(w.dst, (src[4] >> 4) & 0x0f);\r
- jitCompPutOp_PUSH_Imm8(w.dst, src[3]);\r
- jitCompPutOp_PUSH_Imm8(w.dst, src[2]);\r
- jitCompPutOp_PUSH_Imm8(w.dst, src[1]);\r
- jitCompPutOp_PUSH_GReg(w.dst, IA32_REG5_EBP);\r
- j = ((unsigned char *)&func3d) - (w.dst + 1 + 4);\r
- jitCompPutOp_CALL_Relative(w.dst, j)\r
- jitCompPutOp_ADD_GReg_Imm8(w.dst, IA32_REG4_ESP, 32);\r
- jitCompA000_loadRegCacheAll(&w); // 手抜き.\r
- jitCompA000_loadPRegCacheAll(&w); // 手抜き.\r
- cmp0reg = -1;\r
- break;\r
- \r
- case 0xfe: /* remark */\r
- if (src[1] == 0x01 && src[2] == 0x00) {\r
- // DBGINFO1\r
- if (level <= JITC_LV_SLOWER) {\r
- jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, debugInfo1);\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, envOffset_DBGINFO1, IA32_REG0_EAX);\r
- }\r
- }\r
- if (src[1] == 0x01 && src[2] == 0x03) {\r
- // DBGINFO1CLR\r
- if (level <= JITC_LV_SLOWER) {\r
- jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, -1);\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, envOffset_DBGINFO1, IA32_REG0_EAX);\r
- }\r
- }\r
- if (src[1] == 0x05 && src[2] == 0x00) {\r
- // DBGINFO0\r
- if (level <= JITC_LV_SLOWEST) {\r
- debugInfo0 = jitCompGetImm32(src + 3);\r
- jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, debugInfo0);\r
- jitCompPutOp_MOV_EBPDisp_GReg(&w, envOffset_DBGINFO0, IA32_REG0_EAX);\r
- }\r
- }\r
- break;\r
- \r
- default:\r
- w.err = JITC_ERR_OPECODE;\r
- goto err_w;\r
- }\r
- if (w.err != 0){\r
- goto err_w;\r
- }\r
- jitCompA0001_fixPrefix(&w);\r
- if (w.err != 0) {\r
- goto err_w;\r
- }\r
- \r
- if(*src != 0x00 && *src != 0x01 && *src != 0x34){\r
- DEBUGCode(&w, 315315);\r
- }\r
- \r
- src += jitCompCmdLen(src);\r
- }\r
- if (enter0 != NULL) {\r
- j = w.dst - (enter0 + 4);\r
- enter0[0] = j & 0xff;\r
- enter0[1] = (j >> 8) & 0xff;\r
- enter0[2] = (j >> 16) & 0xff;\r
- enter0[3] = (j >> 24) & 0xff;\r
- }\r
- if ((flags & JITC_NOSTARTUP) == 0) {\r
- jitCompA000_storeRegCacheAll(&w);\r
- jitCompA000_storePRegCacheAll(&w);\r
- jitCompPutOp_POPAD(w.dst);\r
- }\r
- if ((flags & JITC_PHASE1) != 0){\r
- return w.dst - dst00;\r
- }\r
- return 0;\r
- \r
-err_w:\r
- if ((w.err & JITC_ERR_PHASE0ONLY) != 0) {\r
- if ((flags & JITC_PHASE1) == 0){\r
- w.err &= ~JITC_ERR_PHASE0ONLY;\r
- }\r
- }\r
- if (w.err == (JITC_ERR_MASK & JITC_ERR_REGNUM)) errmsg = "reg-number error";\r
- if (w.err == (JITC_ERR_MASK & JITC_ERR_DST1)) errmsg = "dst1 error";\r
- if (w.err == (JITC_ERR_MASK & JITC_ERR_OPECODE)) errmsg = "opecode error";\r
- if (w.err == (JITC_ERR_MASK & JITC_ERR_LABELNUM)) errmsg = "label number too large";\r
- if (w.err == (JITC_ERR_MASK & JITC_ERR_LABELREDEF)) errmsg = "label redefine";\r
- if (w.err == (JITC_ERR_MASK & JITC_ERR_PREFIX)) { errmsg = "prefix redefine"; w.dst -= 2; }\r
- if (w.err == (JITC_ERR_MASK & JITC_ERR_LABELNODEF)) errmsg = "label not defined";\r
- if (w.err == (JITC_ERR_MASK & JITC_ERR_LABELTYP)) errmsg = "label type error";\r
- if (w.err == (JITC_ERR_MASK & JITC_ERR_IDIOM)) errmsg = "idiom error";\r
- if (w.err == (JITC_ERR_MASK & JITC_ERR_PREGNUM)) errmsg = "preg-number error";\r
- if (w.err == (JITC_ERR_MASK & JITC_ERR_SRC1)) errmsg = "src1 error";\r
- if (w.err == (JITC_ERR_MASK & JITC_ERR_BADTYPE)) errmsg = "bad type code";\r
- if (w.err == (JITC_ERR_MASK & JITC_ERR_PREFIXFAR)) errmsg = "prefix internal error";\r
- if (w.err == (JITC_ERR_MASK & JITC_ERR_INTERNAL)) errmsg = "general internal error";\r
- if (*errmsg != '\0') {\r
- fprintf(stderr, "JITC: %s at %06X (debugInfo0=%d)\n ", errmsg, src - src0, debugInfo0);\r
- for (i = 0; i < 16; i++)\r
- fprintf(stderr, "%02X ", src[i]);\r
- static char *table[0x30] = {\r
- "NOP", "LB", "LIMM", "PLIMM", "CND", "??", "??", "??",\r
- "LMEM", "SMEM", "PLMEM", "PSMEM", "LEA", "??", "PADD", "PDIF",\r
- "CP/OR", "XOR", "AND", "??", "ADD", "SUB", "MUL", "??",\r
- "SHL", "SAR", "DIV", "MOD", "PLMT0", "PLMT1", "PCP", "PCST",\r
- "CMPE", "CMPNE", "CMPL", "CMPGE", "CMPLE", "CMPG", "TSTZ", "TSTNZ",\r
- "PCMPE", "PCMPNE", "PCMPL", "PCMPGE", "PCMPLE", "PCMPG", "??", "EXT" };\r
- errmsg = "??";\r
- if (*src < 0x30) errmsg = table[*src];\r
- fprintf(stderr, "(%s)\n", errmsg);\r
- }\r
- return -1;\r
-}\r
-\r
-unsigned char *jitCompCallFunc(unsigned char *dst, void *func)\r
-{\r
- //この関数の中では結局w->dstしか参照していない\r
- struct JitCompWork w;\r
- w.dst = dst;\r
- jitCompA000_storeRegCacheAll(&w);\r
- jitCompA000_storePRegCacheAll(&w);\r
- jitCompPutOp_PUSHAD(w.dst);\r
- jitCompPutOp_PUSH_GReg(w.dst, IA32_REG0_EAX); /* for 16Byte-align（Mac OSX） */\r
- jitCompPutOp_PUSH_GReg(w.dst, IA32_REG5_EBP);\r
- \r
- int j = ((unsigned char *)func) - (w.dst + 1 + 4);\r
- jitCompPutOp_CALL_Relative(w.dst, j);\r
- \r
- jitCompPutOp_POP_GReg(w.dst, IA32_REG0_EAX);\r
- jitCompPutOp_POP_GReg(w.dst, IA32_REG0_EAX); /* for 16Byte-align (Mac OSX) */\r
- jitCompPutOp_POPAD(w.dst);\r
- jitCompA000_loadRegCacheAll(&w);\r
- jitCompA000_loadPRegCacheAll(&w);\r
- jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(0x30) + 0);\r
- \r
- jitCompPutByte2(w.dst, 0xff, 0xe0); /* JMP(EAX); */\r
- return w.dst;\r
-}\r
-\r
-unsigned char *jitCompInit(unsigned char *dst)\r
-{\r
- errfnc = dst;\r
- return jitCompCallFunc(dst, &errHndl);\r
-}\r
-\r
-void jitcRunBinary(void (*bin)(char *), HOSECPU_RuntimeEnvironment *env)\r
-{\r
- (*bin)(((char *)env) + jitCompA0001_EBP128); /* サイズを節約するためにEBPをjitCompA0001_EBP128バイトずらす */\r
- return;\r
-}\r
-\r
-void func3c(char *ebp, int opt, int r1, int p1, int lenR, int lenP, int r0, int p0)\r
-{\r
- HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);\r
- int i, *pi;\r
- HOSECPU_PointerRegisterEntry *pp;\r
- \r
- if (r->junkStack + 2048 > r->junkStack1) {\r
- (*(r->errHndl))(r);\r
- }\r
- pi = (void *)r->junkStack;\r
- r->junkStack += r1 * 4;\r
- for (i = 0; i < r1; i++){\r
- pi[i] = r->ireg[i];\r
- }\r
- pp = (void *)r->junkStack;\r
- r->junkStack += p1 * 32;\r
- for (i = 0; i < p1; i++){\r
- //pp[i] = r->preg[i];\r
- PRegCopy(&pp[i], &r->preg[i]);\r
- //\r
- }\r
- pp = (void *)r->junkStack;\r
- r->junkStack += 32;\r
- //*pp = r->preg[0x30];\r
- PRegCopy(pp, &r->preg[0x30]);\r
- //\r
- pi = (void *)r->junkStack;\r
- r->junkStack += 4;\r
- *pi = opt << 16 | r1 << 8 | p1;\r
- for (i = 0; i < lenR; i++){\r
- r->ireg[r0 + i] = r->ireg[0x30 + i];\r
- }\r
- for (i = 0; i < lenP; i++){\r
- r->preg[p0 + i] = r->preg[0x31 + i];\r
- }\r
- return;\r
-}\r
-\r
-void func3d(char *ebp, int opt, int r1, int p1, int lenR, int lenP, int r0, int p0)\r
-{\r
- HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);\r
- int i;\r
- r->junkStack -= 4;\r
- r->junkStack -= 32;\r
- HOSECPU_PointerRegisterEntry *pp = (void *)r->junkStack;\r
-\r
- //r->preg[0x30] = *pp;\r
- PRegCopy(&r->preg[0x30], pp);\r
- //\r
- r->junkStack -= p1 * 32; pp = (void *)r->junkStack;\r
- for (i = 0; i < p1; i++){\r
- //r->preg[i] = pp[i];\r
- PRegCopy(&r->preg[i], &pp[i]);\r
- //\r
- }\r
- r->junkStack -= r1 * 4; int *pi = (void *)r->junkStack;\r
- for (i = 0; i < r1; i++){\r
- r->ireg[i] = pi[i];\r
- }\r
- return;\r
-}\r
-\r
-void funcf4(char *ebp, int pxx, int typ, int len)\r
-{\r
- HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);\r
- int width = jitCompA000_dataWidth(jitCompA000_convTyp(r->ireg[typ])) >> 3;\r
- if (width < 0 || r->ireg[len] < 0){\r
- (*(r->errHndl))(r);\r
- }\r
- void *p = r->junkStack;\r
- if (r->junkStack + width * r->ireg[len] + 256 > r->junkStack1){\r
- (*(r->errHndl))(r);\r
- }\r
- r->junkStack += width * r->ireg[len];\r
- r->preg[pxx].p = p;\r
- r->preg[pxx].typ = r->ireg[typ];\r
- r->preg[pxx].p0 = p;\r
- r->preg[pxx].p1 = (void *)r->junkStack;\r
- int *pi = (int *)r->junkStack;\r
- *pi = width * r->ireg[len];\r
- r->junkStack += sizeof (int);\r
- if (r->ireg[typ] == 1) {\r
- int i, i1 = (width * r->ireg[len]) >> 2;\r
- pi = p;\r
- for (i = 0; i < i1; i++){\r
- pi[i] = 0;\r
- }\r
- }\r
- return;\r
-}\r
-\r
-void funcf5(char *ebp, int pxx, int typ, int len)\r
-{\r
- // pxxはダミーで参照されない\r
- HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);\r
- r->junkStack -= sizeof (int);\r
- int *pi = (int *)r->junkStack;\r
- r->junkStack -= *pi;\r
-#if 0\r
- int width = jitCompA000_dataWidth(r->ireg[typ]);\r
- void *p = r->junkStack;\r
- r->junkStack -= width * r->ireg[len];\r
-#endif\r
- return;\r
-}\r
-\r
-void funcf6(char *ebp, int pxx, int typ, int len)\r
-{\r
- HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);\r
- int width = jitCompA000_dataWidth(jitCompA000_convTyp(r->ireg[typ])) >> 3;\r
- if (width < 0 || r->ireg[len] < 0){\r
- (*(r->errHndl))(r);\r
- }\r
- void *p = malloc(width * r->ireg[len]);\r
- r->preg[pxx].p = p;\r
- r->preg[pxx].typ = r->ireg[typ];\r
- r->preg[pxx].p0 = p;\r
- r->preg[pxx].p1 = (unsigned char *)p + width * r->ireg[len];\r
- if (r->ireg[typ] == 1) {\r
- int i, i1 = (width * r->ireg[len]) >> 2, *pi;\r
- pi = p;\r
- for (i = 0; i < i1; i++){\r
- pi[i] = 0;\r
- }\r
- for (i = 1; i < i1; i += 8){\r
- pi[i] |= -1;\r
- }\r
- }\r
- return;\r
-}\r
-\r
-void funcf7(char *ebp, int pxx, int typ, int len)\r
-{\r
- // typとlenはダミーで参照されない\r
- HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);\r
- free(r->preg[pxx].p);\r
- return;\r
-}\r
-\r
-void errHndl(HOSECPU_RuntimeEnvironment *r)\r
-{\r
- r = (HOSECPU_RuntimeEnvironment *) (((char *)r) - jitCompA0001_EBP128);\r
- (*(r->errHndl))(r);\r
- // ここに帰ってきてはいけない.\r
-}\r
-\r
-/*\r
- * jitcの出力コードをひとまとめにする関数を作成しその中身をjitCompile()で生成\r
- *\r
- * qq : 出力バイナリの書き込み位置のアドレスへの参照(書き込み位置を呼び出しに反映させるため参照渡しにする)\r
- * q1 : 出力バイナリの書き込み位置のアドレスの最大値\r
- * p0 : (*.ose)バイナリの読み込み位置のアドレス(ヘッダ部除去済)\r
- * p1 : (*.ose)バイナリの読み込み位置の取りうる最大値\r
- * (ただし、「確保したメモリ」の最大値なのでこれより手前にゴミデータが入っているかもしれない)\r
- * ret=1 : ヘッダのエラー\r
- * ret=2 : jitコンパイルエラー\r
- */\r
-int jitc0(unsigned char **qq, unsigned char *q1, const unsigned char *p0, const unsigned char *p1, int level, HOSECPU_LabelListTag *label)\r
-{\r
- unsigned char *q = *qq;\r
- int i;\r
- \r
- if (p0[0] != 0x05 || p0[1] != SIGN1){\r
- // OSECPUのヘッダ (05E1) を確認\r
- return 1;\r
- }\r
- \r
- jitCompPutOp_PUSH_GReg(q, IA32_REG5_EBP);\r
- \r
- *q++ = 0x8b; *q++ = 0x6c; *q++ = 0x24; *q++ = 0x08; /* MOV(EBP,[ESP+8]); */\r
- \r
- for (i = 0; i < JITC_MAXLABELS; i++){\r
- label[i].opt = 0;\r
- }\r
- \r
- // 以下のjitCompile()呼び出しでは第二引数をq1-2にした方がよいのではないか?\r
- i = jitCompiler(q, q1, p0 + 2, p1, p0, label, JITC_MAXLABELS, level, di1_serial, 0);\r
- if (i != 0){\r
- return 2;\r
- }\r
- i = jitCompiler(q, q1, p0 + 2, p1, p0, label, JITC_MAXLABELS, level, di1_serial, JITC_PHASE1 + 0);\r
- if (i < 0){\r
- return 2;\r
- }\r
- q += i;\r
- \r
- jitCompPutOp_POP_GReg(q, IA32_REG5_EBP);\r
- *q++ = 0xc3; /* RET(); */\r
- *qq = q;\r
- return 0;\r
-}\r
-\r
-#if (USE_DEBUGGER != 0)\r
-\r
-int dbgrGetRegNum(const char *p)\r
-{\r
- int i, j, r = -1;\r
- if (p[2] <= ' ') {\r
- i = p[0] - '0';\r
- j = p[1] - '0';\r
- if (i > 9){\r
- i -= 'A' - '0' - 10;\r
- }\r
- if (j > 9){\r
- j -= 'A' - '0' - 10;\r
- }\r
- if (0 <= i && i <= 15 && 0 <= j && j <= 15){\r
- r = i << 4 | j;\r
- }\r
- }\r
- return r;\r
-}\r
-\r
-void dbgrMain(HOSECPU_RuntimeEnvironment *r)\r
-{\r
- if (r->dbgr == 0){\r
- return;\r
- }\r
- for (;;) {\r
- char cmd[64], *p;\r
- int i, j, k;\r
- \r
- printf("\ndbgr>");\r
- p = fgets(cmd, 64, stdin);\r
- if (p == NULL){\r
- break;\r
- }\r
- if (cmd[0] == '\0'){\r
- continue;\r
- }\r
- if (cmd[0] == 'q' && cmd[1] <= ' '){\r
- break;\r
- }\r
- if (cmd[0] == 'p' && cmd[1] <= ' ' && cmd[1] != '\0') {\r
- p = &cmd[2];\r
- while (*p <= ' ' && *p != '\0'){\r
- p++;\r
- }\r
- if (*p == 'R') {\r
- i = dbgrGetRegNum(p + 1);\r
- if (0 <= i && i <= 0x3f) {\r
- printf("R%02X = 0x%08X = %d\n", i, r->ireg[i], r->ireg[i]);\r
- } else{\r
- puts("register name error");\r
- }\r
- continue;\r
- }\r
- if (*p == 'P') {\r
- i = dbgrGetRegNum(p + 1);\r
- if (0 <= i && i <= 0x3f) {\r
- p = "invalid";\r
- if (0 <= r->preg[i].typ && r->preg[i].typ <= 0x15) {\r
- static char *typName[] = {\r
- "T_CODE", "T_VPTR", "T_SINT8", "T_UINT8",\r
- "T_SINT16", "T_UINT16", "T_SINT32", "T_UINT32",\r
- "T_SINT4", "T_UINT4", "T_SINT2", "T_UINT2",\r
- "T_SINT1", "T_UINT1", "T_SINT12", "T_UINT12",\r
- "T_SINT20", "T_UINT20", "T_SINT24", "T_UINT24",\r
- "T_SINT28", "T_UINT28"\r
- };\r
- p = typName[r->preg[i].typ];\r
- }\r
- printf("P%02X:\n type = %s(%04X), (origin-ptr) = 0x%08X\n", i, p, r->preg[i].typ, (unsigned int)(r->preg[i].p0));\r
- if (r->preg[i].p != NULL && r->preg[i].p0 != NULL) {\r
- j = jitCompA000_dataWidth(jitCompA000_convTyp(r->preg[i].typ)) >> 3;\r
- if (j <= 0){\r
- j = 1;\r
- }\r
- k = (r->preg[i].p1 - r->preg[i].p0) / j;\r
- printf(" size = 0x%08X = %d\n", k, k);\r
- k = (r->preg[i].p - r->preg[i].p0) / j;\r
- printf(" pos = 0x%08X = %d\n", k, k);\r
- }\r
- else {\r
- puts(" null pointer");\r
- }\r
- }\r
- else\r
- puts("register name error");\r
- continue;\r
- }\r
- }\r
- puts("command error");\r
- }\r
- return;\r
-}\r
-\r
-#endif\r
-\r
-\r
+#include "osecpu.h"
+#include "jitc.h"
+
+#if (JITC_ARCNUM == 0x0001)
+//
+// for x86-32bit
+//
+
+// F5の場合、decoderが対応するalloc-freeを結びつけるのが簡単で、typやlenを指定必須にしてもフロントエンドコードに影響はない.
+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)
+{
+ // For IA-32 (x86, 32-bit)
+ // 本来ならこのレイヤでは文法チェックしない
+ //
+ // dst : 現在の書き込みアドレス。
+ // dst1 : 書き込みアドレスの最大値
+ // src : 現在の読み込みアドレス(ヘッダ部は飛ばしてある
+ // src1 : 読み込みアドレスの最大値
+ // src0 : 読み込みバイナリのアドレス
+ struct JitCompWork w;
+ unsigned char *dst00 = dst, *enter0 = NULL, *tmp_ucp;
+ char *errmsg = "";
+ const unsigned char *oldsrc;
+ int timecount = 0, i, j = 0, lastlabel = -1, debugInfo0 = -1;
+ int reg0, reg1, reg2, cmp0reg = -1, cmp0lev = 0;
+
+ w.dst = w.dst0 = dst;
+ w.err = 0;
+ w.maxLabels = maxLabels;
+
+ if ((flags & JITC_NOSTARTUP) == 0) {
+ jitCompPutOp_PUSHAD(w.dst);
+ // Load cache
+ jitCompA000_loadRegCacheAll(&w);
+ jitCompA000_loadPRegCacheAll(&w);
+ }
+ if (level <= JITC_LV_SLOWER) {
+ // env.debugInfo0 <- 0;
+ // env.debugInfo1 <- debugInfo1;
+ jitCompPutOp_MOV_EAX_ZERO(w.dst);
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, envOffset_DBGINFO0, IA32_REG0_EAX);
+ jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, debugInfo1);
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, envOffset_DBGINFO1, IA32_REG0_EAX);
+ }
+ while (src < src1) {
+ w.prefix = 0; //0x04 CND 命令で変更される
+ if (w.dst + 256 > dst1) {
+ // 書き込み領域が残り256バイト未満ならエラー
+ w.err = JITC_ERR_DST1;
+ goto err_w;
+ }
+ timecount++;
+ if (timecount >= 64) {
+ timecount -= 64;
+ /* 未完成(timeoutチェックコードを入れる) */
+ }
+ if(*src != 0x00 && *src != 0x01 && *src != 0x34){
+ DEBUGCode(&w, *src);
+ }
+ prefix_continue:
+ // CND命令コンパイル後ここに戻る
+ switch (*src) {
+ case 0x00:
+ // NOP
+ if (w.prefix != 0) {
+ // 「条件付きでNOPを実行」するなんて、矛盾している!
+ w.err = JITC_ERR_PREFIX;
+ goto err_w;
+ }
+ break;
+
+ case 0x01:
+ // LB : ラベル設置命令。(6byte)
+ // ・prefex = 1にする
+ // ・timecount++し、timecountのチェックをする。
+ // ・ラベル位置を登録する。
+ // ・割り込みがある場合、このタイミングで割り込みを発生させる。
+ // Encode:
+ // 0 1 2345
+ // 01 opt imm32
+ //
+ if (enter0 == NULL && (src[6] == 0x3c /* 多数のレジスタをスタックに退避 */ || (src[6] == 0xfe/* REMARK */ && src[7] == 0x01 && src[9] == 0x3c))) {
+ //beginFunc()中のLB
+ // LB命令の後に0x3C命令・・・beginFunc()
+ enter0 = w.dst;
+ jitCompPutOp_JMPnear(w.dst, 0);
+ }
+
+ if (src[6] == 0x34) {
+ // 後続命令はDATA
+ // なので、DATA部分をJMPですっとばすコードを生成
+ // DAT_SA0(label, typ32, length) ・・・メモリ確保命令
+
+ i = jitCompGetImm32(&src[6 + 1]); // type32 を取得
+ j = 32;
+
+ if (i != 1) {
+ i = jitCompA000_convTyp(i);
+ j = 0;
+ switch (i >> 1) {
+ case 1:
+ j = 1;
+ break;
+ case 2:
+ j = 2;
+ break;
+ case 3:
+ j = 4;
+ break;
+ }
+ }
+ // jはデータサイズになる
+ j *= jitCompGetImm32(&src[6 + 5]); // len32
+ if (j <= 0){
+ w.err = JITC_ERR_BADTYPE;
+ }
+ // DATA部分を飛び越すジャンプ
+ tmp_ucp = w.dst;
+ jitCompPutOp_JMPnear(w.dst, j);
+
+#if (jitCompA0001_OPTIMIZE_JMP != 0)
+ if (j < 127 - jitCompA0001_OPTIMIZE_ALIGN) {
+ //飛び先が十分近いので
+ // 今書いたのはなかったことにして、
+ w.dst -= 5;
+ // よりサイズの小さな書き方にする
+ jitCompPutOp_JMPshort(w.dst, j);
+ }
+#endif
+ }
+#if (jitCompA0001_OPTIMIZE_ALIGN != 0)
+ // アラインを jitCompA0001_OPTIMIZE_ALIGNにそろえる
+
+ i = ((int)w.dst + 1) & (jitCompA0001_OPTIMIZE_ALIGN - 1); /* ALIGNで割ったあまりを計算 */
+ i = jitCompA0001_OPTIMIZE_ALIGN - i;
+ if (i == 1) { jitCompPutByte1(w.dst, 0x90); j += i; } /* NOP(); */
+ if (i == 2) { jitCompPutByte2(w.dst, 0x89, 0xc0); j += i; } /* MOV(EAX, EAX); */
+ if (i == 3) { jitCompPutByte3(w.dst, 0x8d, 0x76, 0x00); j += i; } /* LEA(ESI, [ESI+0]); */
+ if (i == 4) { jitCompPutByte4(w.dst, 0x8d, 0x74, 0x26, 0x00); j += i; } /* LEA(ESI, [ESI*1+0]); */
+ if (i == 5) { jitCompPutByte1(w.dst, 0x0d); jitCompPutImm32(w.dst, 0); j += i; } /* OR(EAX, 0); */
+ if (i == 6) { jitCompPutByte2(w.dst, 0x8d, 0xb6); jitCompPutImm32(w.dst, 0); j += i; } /* LEA(ESI, [ESI+0]); */
+ if (i == 7) { jitCompPutByte3(w.dst, 0x8d, 0xb4, 0x26); jitCompPutImm32(w.dst, 0); j += 7; } /* LEA(ESI, [ESI*1+0]); */
+#endif
+ if (src[6] == 0x34) {
+ // 後続命令はDATA
+ // パディングに合わせて一個前の相対ジャンプを修正
+ tmp_ucp[1] = j & 0xff;
+ if (*tmp_ucp == 0xe9) {
+ // Near jump so imm is DWORD
+ tmp_ucp[2] = (j >> 8) & 0xff;
+ tmp_ucp[3] = (j >> 16) & 0xff;
+ tmp_ucp[4] = (j >> 24) & 0xff;
+ }
+ }
+ if ((flags & JITC_PHASE1) == 0) {
+ i = jitCompGetLabelNum(&w, src + 2);
+ if (label[i].opt != 0 && w.err == 0) {
+ w.err = JITC_ERR_LABELREDEF;
+ goto err_w;
+ }
+ if (w.prefix != 0) {
+ w.err = JITC_ERR_PREFIX;
+ goto err_w;
+ }
+ label[i].opt = src[1] + 1;
+ label[i].typ = 0; /* TYP_CODE */
+ label[i].p = w.dst;
+ label[i].p1 = w.dst + 1;
+ lastlabel = i;
+ }
+ cmp0reg = -1;
+ timecount = 0;
+ /* 未完成(timeoutチェックコードを入れる) */
+ break;
+
+ case 0x02:
+ // LIMM : 定数即値代入命令(6byte)
+ // Encode:
+ // 0 1 2345
+ // 02 reg0R imm32
+ //
+ // reg3F は条件比較慣用句指定用＆演算命令即値慣用句指定用。よってCND命令の直後では使用できない。
+
+ if (src[1] == 0x3f && w.prefix != 0){
+ // CND命令の直後でR3Fを書き換えるなんて変だよね
+ w.err = JITC_ERR_PREFIX;
+ }
+
+#if (jitCompA0001_USE_R3F_IMM32 != 0)
+ if (src[1] == 0x3f) {
+ // R3Fへの代入は例外で、 w.r3f を使用
+ w.r3f = jitCompGetImm32(src + 2);
+ break;
+ }
+#endif
+ i = jitCompGetImm32(src + 2); // 与えられた即値(第二引数)を取得
+ /* R00-R02 なら EBX, ECX, EDX 、それ以外なら EAX のレジスタIDを reg0 に代入 */
+ reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);
+
+#if (jitCompA0001_OPTIMIZE_MOV != 0)
+ // size optimization
+ // MOV reg, 0 -> XOR reg, reg
+ if (i == 0) {
+ jitCompPutOp_XOR_GReg_GReg(w.dst, reg0, reg0);
+ jitCompA0001_movRxxEax(&w, src[1]);
+ break;
+ }
+#endif
+ /* reg0 のレジスタに対応したMOV命令を発行 */
+ jitCompPutOp_MOV_GReg_Imm32(w.dst, reg0, i);
+
+ if (reg0 == 0){
+ // R03以降の、レジスタの内容をメモリ上に格納してエミュレートする場合
+ jitCompA0001_movRxxEax(&w, src[1]);
+ }
+
+ break;
+
+ case 0x03: /* 未完成(plsまで対応) */
+ // PLIMM : ラベル番号代入命令(6byte)
+ // Encode:
+ // 0 1 2345
+ // 03 PXX imm32
+ //
+ // ・P28 はAPI用
+ // ・P30 はリターンアドレス
+ // ・P3F はプログラムカウンタ
+ //
+
+ i = jitCompGetLabelNum(&w, src + 2); // Pxxに代入するラベルの番号(第二引数)
+ if ((flags & JITC_PHASE1) != 0 && w.err == 0) {
+ // Phase 1であるならば
+ if (label[i].opt == 0) {
+ // 指定されたラベル番号は存在しない
+ w.err = JITC_ERR_LABELNODEF;
+ goto err_w;
+ }
+ if (src[1] != 0x3f && label[i].opt != 2) {
+ // ?
+ w.err = JITC_ERR_LABELTYP;
+ goto err_w;
+ }
+ if (src[1] == 0x3f && label[i].typ != 0) {
+ // プログラムカウンタに TYP_CODEでない値は代入できない
+ w.err = JITC_ERR_LABELTYP;
+ goto err_w;
+ }
+ }
+ if (src[1] == 0x3f) {
+ // プログラムカウンタへの代入
+ if (w.prefix == 0) {
+ // CND命令による条件付きでなければ、即座に移動
+ jitCompPutByte1(w.dst, 0xe9); /* JMP(?); */
+ } else {
+ // 直前はCND命令。
+
+ /*
+ * CND命令
+ * 1 2
+ * 04 reg0R
+ *
+ * いま、dstの末端はJZ命令になっている。 0x0F 0x84 cd
+ */
+
+ // Jccの条件変更
+ // 0F 75
+ w.dst[-1] = w.dst[-2] ^ 0xf1; /* 74->85, 75->84 */
+ w.dst[-2] = 0x0f;
+
+ w.prefix = 0;
+ }
+ j = 0;
+ if ((flags & JITC_PHASE1) != 0 || (((flags & JITC_PHASE1) == 0) && label[i].opt != 0)) // label番号iが確保されていれば (このif文は意味をなさない)
+ j = label[i].p - (w.dst + 4); // j はとび先の相対番地
+ jitCompPutImm32(w.dst, j); // JMP もしくは JZ 命令のアドレス部を記述
+#if (jitCompA0001_OPTIMIZE_JMP != 0)
+ if (-128 - 3 <= j && j < 0) {
+ if (w.dst[-5] == 0xe9) {
+ j += 3;
+ w.dst -= 5;
+ jitCompPutByte1(w.dst, 0xeb); /* JMP(?); */
+ } else {
+ j += 4;
+ w.dst -= 6;
+ jitCompPutByte1(w.dst, w.dst[1] ^ 0xf0);
+ }
+ jitCompPutByte1(w.dst, j & 0xff);
+ }
+#endif
+ } else { // プログラムカウンタ以外への代入
+ // 代入先が P01, P02なら ESI, EDI,それ以外ならEAXを指定
+ reg0 = jitCompA000_selectPRegCache(src[1], IA32_REG0_EAX);
+ // ラベルのパスを各レジスタに代入
+ jitCompPutOp_MOV_GReg_Imm32(w.dst, reg0, (int)label[i].p);
+ // レジスタへの代入をメモリでエミュレーションする場合は、スタックに書き込む。
+ if (reg0 == 0){
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 0, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */
+ }
+
+ if (level < JITC_LV_FASTEST) {
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 8, reg0); /* p0 */
+ jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, label[i].typ);
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 4, IA32_REG0_EAX); /* typ */
+ jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, (int)label[i].p1);
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 12, IA32_REG0_EAX); /* p1 */
+ jitCompPutOp_MOV_EAX_ZERO(w.dst);
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 16, IA32_REG0_EAX); /* liveSign */
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, envOffset_PTRCTRL);
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 20, IA32_REG0_EAX); /* pls */
+ }
+ }
+ break;
+
+ case 0x04:
+ // CND (prefix)
+ // 与えられたRxxの最下位ビットが1であれば後続の命令を実行、そうでなければ飛ばす。
+
+ if (src[1] >= 0x40){
+ // R00-R3F 以外のレジスタは比較対象にできない
+ w.err = JITC_ERR_REGNUM;
+ goto err_w;
+ }
+
+ // 比較対象のレジスタがメモリ上にあれば-1, それ以外なら適切なレジスタ番号を返す
+ reg0 = jitCompA000_selectRegCache(src[1], -1 /* mem */);
+
+ /* TEST命令を発行 */
+ if (reg0 < 0) {
+ // 比較対象のレジスタはメモリ上にある
+ jitCompPutByte1(w.dst, 0xf7); /* TEST = 1111 011w : mod 000 r/m : immediate data */
+ jitCompPutModRM_Disp_BaseEBP(&w, src[1] * 4, 0);
+ } else {
+ // 比較対象はキャッシュレジスタ上にある
+ jitCompPutByte2(w.dst, 0xf7, 0xc0 | reg0); /* TEST = 1111 011w : 11 000 reg : immediate data */
+ }
+ jitCompPutImm32(w.dst, 1);
+
+ /* JZ命令を発行 */
+ jitCompPutByte2(w.dst, 0x74, 0x00); /* JZ($+2) */
+ cmp0reg = -1;
+ if (w.err != 0){
+ goto err_w;
+ }
+ src += 2;
+ w.prefix = 1; // プリフィックスをセット
+ w.dst0 = w.dst;
+ goto prefix_continue;
+
+ case 0x08: /* LMEM */ /* 完成 */
+ i = jitCompGetImm32(src + 2);
+ if (i == 0x0001){
+ w.err = JITC_ERR_BADTYPE;
+ }
+ if (level < JITC_LV_FASTER) {
+ jitCompA0001_checkType(&w, src[6], i, 0); // read
+ cmp0reg = -1;
+ }
+ reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);
+ reg1 = jitCompA000_selectPRegCache(src[6], IA32_REG2_EDX);
+ if (reg0 != IA32_REG0_EAX && reg1 == IA32_REG2_EDX){
+ reg1 = IA32_REG0_EAX;
+ }
+ if (reg1 == IA32_REG2_EDX){
+ jitCompA000_storeRegCacheEdx(&w);
+ }
+ if (reg1 <= 3 /* EAX, EDX */){
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, reg1, PRegOffset(src[6]));
+ }
+ if (level < JITC_LV_FASTER){
+ jitCompA0001_checkLimit(&w, reg1, src[6]);
+ }
+ i = jitCompA000_convTyp(jitCompGetImm32(src + 2));
+ switch (i) {
+ case 0x0002:
+ jitCompPutByte3(w.dst, 0x0f, 0xbe, reg0 << 3 | reg1); /* MOVSX(reg0,BYTE [reg1]); */
+ break;
+ case 0x0003:
+ jitCompPutByte3(w.dst, 0x0f, 0xb6, reg0 << 3 | reg1); /* MOVZX(reg0,BYTE [reg1]); */
+ break;
+ case 0x0004:
+ jitCompPutByte3(w.dst, 0x0f, 0xbf, reg0 << 3 | reg1); /* MOVSX(reg0,WORD [reg1]); */
+ break;
+ case 0x0005:
+ jitCompPutByte3(w.dst, 0x0f, 0xb7, reg0 << 3 | reg1); /* MOVZX(reg0,WORD [reg1]); */
+ break;
+ case 0x0006:
+ case 0x0007:
+ jitCompPutByte2(w.dst, 0x8b, reg0 << 3 | reg1); /* MOV(reg0, [reg1]); */
+ break;
+ default:
+ w.err = JITC_ERR_BADTYPE;
+ }
+ if (reg0 == IA32_REG0_EAX){
+ jitCompA0001_movRxxEax(&w, src[1]);
+ }
+ if (reg1 == IA32_REG2_EDX){
+ jitCompA000_loadRegCacheEdx(&w);
+ }
+ break;
+
+ case 0x09: /* SMEM */ /* 完成 */
+ i = jitCompGetImm32(src + 2);
+ if (i == 0x0001){
+ w.err = JITC_ERR_BADTYPE;
+ }
+ if (level < JITC_LV_FASTER) {
+ jitCompA0001_checkType(&w, src[6], i, 1); // write
+ cmp0reg = -1;
+ }
+ reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);
+ reg1 = jitCompA000_selectPRegCache(src[6], IA32_REG2_EDX);
+ if (reg0 != IA32_REG0_EAX && reg1 == IA32_REG2_EDX){
+ reg1 = IA32_REG0_EAX;
+ }
+ if (reg1 == IA32_REG2_EDX){
+ jitCompA000_storeRegCacheEdx(&w);
+ }
+ if (reg1 <= 3 /* EAX, EDX */){
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, reg1, PRegOffset(src[6]) + 0); /* MOV(reg1, [EBP+?]); */
+ }
+ if (level < JITC_LV_FASTER){
+ jitCompA0001_checkLimit(&w, reg1, src[6]);
+ }
+ if (reg0 == IA32_REG0_EAX){
+ jitCompA0001_movEaxRxx(&w, src[1]);
+ }
+ /* 値の範囲チェック */
+ i = jitCompA000_convTyp(jitCompGetImm32(src + 2));
+ switch (i) {
+ case 0x0002:
+ case 0x0003:
+ jitCompPutByte2(w.dst, 0x88, reg0 << 3 | reg1); /* MOV([reg1], BYTE(reg0)); */
+ break;
+ case 0x0004:
+ case 0x0005:
+ jitCompPutByte3(w.dst, 0x66, 0x89, reg0 << 3 | reg1); /* MOV([reg1], WORD(reg0)); */
+ break;
+ case 0x0006:
+ case 0x0007:
+ jitCompPutByte2(w.dst, 0x89, reg0 << 3 | reg1); /* MOV([reg1], reg0); */
+ break;
+ default:
+ w.err = JITC_ERR_BADTYPE;
+ }
+ if (reg1 == IA32_REG2_EDX){
+ jitCompA000_loadRegCacheEdx(&w);
+ }
+ break;
+
+ case 0x0a: /* PLMEM */ /* 完成 */
+ i = jitCompGetImm32(src + 2);
+ if (i != 0x0001){
+ w.err = JITC_ERR_BADTYPE;
+ }
+ if (level < JITC_LV_FASTER) {
+ jitCompA0001_checkType(&w, src[6], i, 0); // read
+ cmp0reg = -1;
+ }
+ reg0 = jitCompA000_selectPRegCache(src[1], IA32_REG0_EAX);
+ reg1 = jitCompA000_selectPRegCache(src[6], IA32_REG2_EDX);
+ // if (reg0 != 0 /* EAX */ && reg1 == 2 /* EDX */) /* これをやってはいけない！(by K, 2013.08.02) */
+ // reg1 = 0; /* EAX */
+ if (reg0 == reg1 && reg0 != 0) {
+ // bugfix: hinted by yao, 2013.09.14. thanks!
+ jitCompA000_storePRegCacheAll(&w);
+ reg1 = IA32_REG2_EDX;
+ }
+ if (reg1 == IA32_REG2_EDX){
+ jitCompA000_storeRegCacheEdx(&w);
+ }
+ if (reg1 <= 3 /* EAX, EDX */){
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, reg1, PRegOffset(src[6])); /* MOV(reg1, [EBP+?]); */
+ }
+ if (level < JITC_LV_FASTER){
+ jitCompA0001_checkLimit(&w, reg1, src[6]);
+ }
+ jitCompPutByte2(w.dst, 0x8b, reg0 << 3 | reg1); /* MOV(reg0, [reg1]); */
+ if (reg0 == IA32_REG0_EAX){
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]), IA32_REG0_EAX); /* MOV([EBP+?], EAX); */
+ }
+ for (i = 4; i < 32; i += 4) {
+ jitCompPutByte3(w.dst, 0x8b, 0x40 | reg1, i); /* MOV(EAX, [reg1+?]); */
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + i, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */
+ }
+ if (reg1 == IA32_REG2_EDX){
+ jitCompA000_loadRegCacheEdx(&w);
+ }
+ break;
+
+ case 0x0b: /* PSMEM */ /* 完成 */
+ i = jitCompGetImm32(src + 2);
+ if (i != 0x0001) w.err = JITC_ERR_BADTYPE;
+ if (level < JITC_LV_FASTER) {
+ jitCompA0001_checkType(&w, src[6], i, 1); // write
+ cmp0reg = -1;
+ }
+ reg0 = jitCompA000_selectPRegCache(src[1], IA32_REG0_EAX);
+ reg1 = jitCompA000_selectPRegCache(src[6], IA32_REG2_EDX);
+ /* これをやってはいけない！(by K, 2013.08.02) */
+ // if (reg0 != 0 /* EAX */ && reg1 == 2 /* EDX */)
+ // reg1 = 0; /* EAX */
+ if (reg1 == IA32_REG2_EDX){
+ jitCompA000_storeRegCacheEdx(&w);
+ }
+ if (reg1 <= 3 /* EAX, EDX */){
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, reg1, PRegOffset(src[6])); /* MOV(reg1, [EBP+?]); */
+ }
+ if (level < JITC_LV_FASTER){
+ jitCompA0001_checkLimit(&w, reg1, src[6]);
+ }
+ if (reg0 == IA32_REG0_EAX){
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, PRegOffset(src[1])); /* MOV(reg0, [EBP+?]); */
+ }
+ jitCompPutByte2(w.dst, 0x89, reg0 << 3 | reg1); /* MOV([reg1], reg0); */
+ for (i = 4; i < 32; i += 4) {
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[1]) + i); /* MOV(EAX, [EBP+?]); */
+ jitCompPutByte3(w.dst, 0x89, 0x40 | reg1, i); /* MOV([reg1+?], EAX); */
+ }
+ if (reg1 == IA32_REG2_EDX)
+ jitCompA000_loadRegCacheEdx(&w);
+ break;
+
+ case 0x0e: /* PADD */ /* 完成 */
+ if (level < JITC_LV_FASTER) {
+ jitCompA0001_checkType0(&w, src[6], jitCompGetImm32(src + 2), 2); // other, aliveテストはとりあえずしない.
+ cmp0reg = -1;
+ }
+ reg0 = jitCompA000_selectPRegCache(src[1], IA32_REG0_EAX);
+ reg1 = jitCompA000_selectPRegCache(src[6], -1 /* mem */);
+ if (reg1 < 0 /* mem */){
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, PRegOffset(src[6])); /* MOV(reg0, [EBP+?]); */
+ }
+ if (reg1 >= 0 && reg0 != reg1) {
+ jitCompPutByte2(w.dst, 0x89, 0xc0 | reg1 << 3 | reg0); /* MOV(reg0, reg1); */
+ }
+ i = jitCompGetImm32(src + 2);
+ j = -1;
+ if (i == 1){
+ j = 5; /* 32 */
+ } else {
+ i = jitCompA000_convTyp(i);
+ if (0x0002 <= i && i <= 0x0007){
+ j = (i - 0x0002) >> 1;
+ }
+ }
+ if (j < 0) {
+ w.err = JITC_ERR_BADTYPE;
+ goto err_w;
+ }
+#if (jitCompA0001_USE_R3F_IMM32 != 0)
+ if (src[7] == 0x3f) {
+ j = w.r3f << j;
+#if (jitCompA0001_USE_R3F_IMM8 != 0)
+ if (-0x80 <= j && j <= 0x7f) {
+#if (jitCompA0001_USE_R3F_INCDEC != 0)
+ if (j == 1) {
+ /* INC */
+ jitCompPutByte1(w.dst, 0x40 | reg0);
+ goto padd1;
+ }
+ if (j == -1) {
+ /* DEC */
+ jitCompPutByte1(w.dst, 0x48 | reg0);
+ goto padd1;
+ }
+#endif
+ /* ADD(reg0, im8); */
+ jitCompPutByte3(w.dst, 0x83, 0xc0 | reg0, j & 0xff);
+ goto padd1;
+ }
+#endif
+ if (reg0 == 0) {
+ jitCompPutByte1(w.dst, 0x05); /* ADD(reg0, ?); */
+ } else {
+ jitCompPutByte2(w.dst, 0x81, 0xc0 | reg0); /* ADD(reg0, ?); */
+ }
+ jitCompPutImm32(w.dst, j);
+ goto padd1;
+ }
+#endif
+ if (src[7] >= 0x40){
+ w.err = JITC_ERR_REGNUM;
+ }
+ if (j == 0) {
+ reg1 = jitCompA000_selectRegCache(src[7], -1 /* mem */);
+ if (reg1 >= 0) {
+ jitCompPutByte2(w.dst, 0x01, 0xc0 | reg1 << 3 | reg0); /* ADD(reg0, reg1); */
+ } else {
+ jitCompPutByte1(w.dst, 0x03); /* ADD(reg0, [EBP+?]); */
+ jitCompPutModRM_Disp_BaseEBP(&w, src[7] * 4, reg0);
+ }
+ }
+ else {
+ reg1 = jitCompA000_selectRegCache(src[7], -1 /* mem */);
+ reg2 = IA32_REG2_EDX;
+ jitCompA000_storeRegCacheEdx(&w);
+ if (reg1 < 0){
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, reg2, src[7] * 4); /* MOV(reg2, [EBP+?]); */
+ }
+ if (reg1 >= 0 && reg1 != reg2) {
+ jitCompPutByte2(w.dst, 0x89, 0xc0 | reg1 << 3 | reg2); /* MOV(reg2, reg1); */
+ }
+ jitCompPutByte3(w.dst, 0xc1, 0xe0 | reg2, j); /* SHL(reg2, ?); */
+ jitCompPutByte2(w.dst, 0x01, 0xc0 | reg2 << 3 | reg0); /* ADD(reg0, reg2); */
+ jitCompA000_loadRegCacheEdx(&w);
+ }
+#if (jitCompA0001_USE_R3F_IMM32 != 0)
+ padd1:
+#endif
+ if (reg0 == IA32_REG0_EAX){
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]), reg0); /* MOV([EBP+?], reg0); */
+ }
+ if (src[1] != src[6]) {
+ for (i = 4; i < 32; i += 4) {
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[6]) + i); /* MOV(EAX, [EBP+?]); */
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + i, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */
+ }
+ }
+ cmp0reg = -1;
+ break;
+
+ case 0x0f: /* PDIF */ /* 未完成 */
+ reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);
+ jitCompA000_storePRegCacheAll(&w); // 手抜き.
+ jitCompA0001_checkCompPtr(&w, src[6], src[7]);
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, PRegOffset(src[6])); /* MOV(reg0, [EBP+?]); */
+ jitCompPutByte1(w.dst, 0x2b); /* SUB(EAX, [EBP+?]); */
+ jitCompPutModRM_Disp_BaseEBP(&w, PRegOffset(src[7]) + 0, reg0);
+ i = jitCompA000_convTyp(jitCompGetImm32(src + 2));
+ j = -1;
+ if (0x0002 <= i && i <= 0x0007){
+ j = (i - 0x0002) >> 1;
+ }
+ if (j < 0) {
+ w.err = JITC_ERR_BADTYPE;
+ goto err_w;
+ }
+ if (j > 0) {
+ jitCompPutByte3(w.dst, 0xc1, 0xf8 | reg0, j); /* SAR(reg0,?); */
+ }
+ if (reg0 == IA32_REG0_EAX){
+ jitCompA0001_movRxxEax(&w, src[1]);
+ }
+ cmp0reg = src[1];
+ cmp0lev = 1;
+ break;
+
+ case 0x10: /* OR */
+ case 0x11: /* XOR */
+ case 0x12: /* AND */
+ case 0x14: /* ADD */
+ case 0x15: /* SUB */
+ case 0x16: /* MUL */
+ if (src[1] >= 0x3f){
+ w.err = JITC_ERR_REGNUM;
+ }
+ reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);
+ reg1 = jitCompA000_selectRegCache(src[2], -1 /* mem */);
+#if (jitCompA0001_USE_R3F_IMM32 != 0)
+ if (src[2] == 0x3f) { // SUBのみ該当.
+ if (*src != 0x15){
+ w.err = JITC_ERR_REGNUM;
+ }
+ reg2 = jitCompA000_selectRegCache(src[3], -1 /* mem */);
+ if (reg2 >= 0){
+ jitCompA000_storeRegCacheAll(&w);
+ }
+ jitCompPutByte1(w.dst, 0xb8 | reg0); /* MOV(reg0, ?); */
+ jitCompPutImm32(w.dst, w.r3f);
+ jitCompPutByte1(w.dst, 0x2b);
+ jitCompPutModRM_Disp_BaseEBP(&w, src[3] * 4, reg0);
+ if (reg0 == 0){
+ jitCompA0001_movRxxEax(&w, src[1]);
+ }
+ break;
+ }
+#endif
+ if (reg1 < 0) {
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, src[2] * 4); /* MOV(reg0, [EBP+?]); */
+ }
+ if (reg1 >= 0 && reg0 != reg1) {
+ jitCompPutByte2(w.dst, 0x89, 0xc0 | reg1 << 3 | reg0); /* MOV(reg0, reg1); */
+ }
+ if (!(src[0] == 0x10 && src[3] == 0xff)) {
+ // bugfix: hinted by Iris, 2013.06.26. thanks!
+ cmp0reg = src[1];
+ cmp0lev = 1;
+ if (src[0] < 0x14){
+ cmp0lev = 2;
+ }
+ if (src[0] == 0x16){
+ cmp0reg = -1;
+ }
+ }
+ if (!(src[0] == 0x10 && src[3] == 0xff)) {
+#if (jitCompA0001_USE_R3F_IMM32 != 0)
+ if (src[3] == 0x3f) {
+ if (*src == 0x16 && w.r3f == -1) {
+ jitCompPutByte2(w.dst, 0xf7, 0xd8 | reg0); /* NEG(reg0); */
+ if (reg0 == 0){
+ jitCompA0001_movRxxEax(&w, src[1]);
+ }
+ break;
+ }
+#if (jitCompA0001_USE_R3F_INCDEC != 0)
+ if ((*src == 0x14 && w.r3f == 1) || (*src == 0x15 && w.r3f == -1)) {
+ jitCompPutByte1(w.dst, 0x40 | reg0); /* INC(reg0); */
+ if (reg0 == 0){
+ jitCompA0001_movRxxEax(&w, src[1]);
+ }
+ break;
+ }
+ if ((*src == 0x15 && w.r3f == 1) || (*src == 0x14 && w.r3f == -1)) {
+ jitCompPutByte1(w.dst, 0x48 | reg0); /* DEC(reg0); */
+ if (reg0 == 0){
+ jitCompA0001_movRxxEax(&w, src[1]);
+ }
+ break;
+ }
+#endif
+#if (jitCompA0001_USE_R3F_IMM8 != 0)
+ if (-0x80 <= w.r3f && w.r3f <= 0x7f) {
+ if (*src != 0x16) {
+ static unsigned char basic_op_table_im8[] = { 0xc8, 0xf0, 0xe0, 0, 0xc0, 0xe8 };
+ jitCompPutByte3(w.dst, 0x83, basic_op_table_im8[*src - 0x10] | reg0, w.r3f & 0xff);
+ } else{
+ jitCompPutByte3(w.dst, 0x6b, 0xc0 | reg0 << 3 | reg0, w.r3f & 0xff);
+ }
+ if (reg0 == 0){
+ jitCompA0001_movRxxEax(&w, src[1]);
+ }
+ break;
+ }
+#endif
+ if (reg0 == IA32_REG0_EAX) {
+ static unsigned char basic_op_table_im32_eax[] = { 0x0d, 0x35, 0x25, 0, 0x05, 0x2d, 0xc0 };
+ if (*src == 0x16) {
+ jitCompPutByte1(w.dst, 0x69);
+ }
+ jitCompPutByte1(w.dst, basic_op_table_im32_eax[*src - 0x10]);
+ } else{
+ if (*src != 0x16) {
+ static unsigned char basic_op_table_im32_reg[] = { 0xc8, 0xf0, 0xe0, 0, 0xc0, 0xe8 };
+ jitCompPutByte2(w.dst, 0x81, basic_op_table_im32_reg[*src - 0x10] | reg0);
+ }
+ else {
+ jitCompPutByte2(w.dst, 0x69, 0xc0 | reg0 << 3 | reg0);
+ }
+ }
+ jitCompPutImm32(w.dst, w.r3f);
+ if (reg0 == 0){
+ jitCompA0001_movRxxEax(&w, src[1]);
+ }
+ break;
+ }
+#endif
+ reg1 = jitCompA000_selectRegCache(src[3], -1 /* mem */);
+ if (src[3] >= 0x40){
+ w.err = JITC_ERR_REGNUM;
+ }
+ if (*src != 0x16) {
+ if (reg1 >= 0) {
+ static unsigned char basic_op_table_rr[] = { 0x09, 0x31, 0x21, 0, 0x01, 0x29 }; /* op(reg,reg); */
+ jitCompPutByte2(w.dst, basic_op_table_rr[*src - 0x10], 0xc0 | reg1 << 3 | reg0);
+ } else{
+ static unsigned char basic_op_table_rm[] = { 0x0b, 0x33, 0x23, 0, 0x03, 0x2b, 0xaf }; /* op(reg,mem); */
+ jitCompPutByte1(w.dst, basic_op_table_rm[*src - 0x10]);
+ jitCompPutModRM_Disp_BaseEBP(&w, src[3] * 4, reg0);
+ }
+ } else{
+ if (reg1 >= 0) {
+ jitCompPutByte3(w.dst, 0x0f, 0xaf, 0xc0 | reg0 << 3 | reg1);
+ } else{
+ jitCompPutByte2(w.dst, 0x0f, 0xaf);
+ jitCompPutModRM_Disp_BaseEBP(&w, src[3] * 4, reg0);
+ }
+ }
+ }
+ if (reg0 == 0){
+ jitCompA0001_movRxxEax(&w, src[1]);
+ }
+ break;
+
+ case 0x18: /* SHL */
+ case 0x19: /* SAR */
+ if (src[1] >= 0x3f){
+ w.err = JITC_ERR_REGNUM;
+ }
+ if (src[3] >= 0x40){
+ w.err = JITC_ERR_REGNUM;
+ }
+#if (jitCompA0001_USE_R3F_IMM32 != 0)
+ if (src[3] == 0x3f) {
+ reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);
+ reg1 = jitCompA000_selectRegCache(src[2], -1 /* mem */);
+ if (src[1] >= 0x3f){
+ w.err = JITC_ERR_REGNUM;
+ }
+ if (reg1 == -1){
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, src[2] * 4); /* MOV(reg1, [EBP+?]); */
+ } else{
+ if (reg0 != reg1) {
+ jitCompPutByte2(w.dst, 0x89, 0xc0 | reg1 << 3 | reg0); /* MOV(reg0, reg1); */
+ }
+ }
+ if (*src == 0x18) {
+ /* SHL(reg0, im8); */
+ jitCompPutByte3(w.dst, 0xc1, 0xe0 | reg0, w.r3f);
+ }
+ if (*src == 0x19) {
+ /* SAR(reg0, im8); */
+ jitCompPutByte3(w.dst, 0xc1, 0xf8 | reg0, w.r3f);
+ }
+ if (reg0 == IA32_REG0_EAX){
+ jitCompA0001_movRxxEax(&w, src[1]);
+ }
+ cmp0reg = src[1];
+ cmp0lev = 1;
+ break;
+ }
+#endif
+ jitCompA000_storeRegCacheAll(&w); // 手抜き.
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG1_ECX, src[3] * 4); /* MOV(ECX, [EBP+?]); */
+#if (jitCompA0001_USE_R3F_IMM32 != 0)
+ if (src[2] == 0x3f) {
+ jitCompPutByte1(w.dst, 0xb8); /* MOV(EAX, ?); */
+ jitCompPutImm32(w.dst, w.r3f);
+ } else{
+ jitCompA0001_movEaxRxx(&w, src[2]);
+ }
+#else
+ jitCompA0001_movEaxRxx(&w, src[2]);
+#endif
+ if (*src == 0x18) {
+ /* SHL(EAX, CL); */
+ jitCompPutByte2(w.dst, 0xd3, 0xe0);
+ }
+ if (*src == 0x19) {
+ /* SAR(EAX, CL); */
+ jitCompPutByte2(w.dst, 0xd3, 0xf8);
+ }
+ jitCompA0001_movRxxEax(&w, src[1]);
+ jitCompA000_loadRegCacheAll(&w); // 手抜き.
+ cmp0reg = src[1];
+ cmp0lev = 1;
+ break;
+
+ case 0x1a: /* DIV */
+ case 0x1b: /* MOD */
+ if (src[1] >= 0x3f || src[2] >= 0x40 || src[3] >= 0x40){
+ w.err = JITC_ERR_REGNUM;
+ }
+ jitCompA000_storeRegCacheAll(&w); // 手抜き.
+#if (jitCompA0001_USE_R3F_IMM32 != 0)
+ if (src[3] == 0x3f) {
+ jitCompPutByte1(w.dst, 0xb8 | 1); /* MOV(ECX, ?); */
+ jitCompPutImm32(w.dst, w.r3f);
+ } else{
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG1_ECX, src[3] * 4); /* MOV(ECX, [EBP+?]); */
+ }
+ if (src[2] == 0x3f) {
+ jitCompPutByte1(w.dst, 0xb8 | 0); /* MOV(EAX, ?); */
+ jitCompPutImm32(w.dst, w.r3f);
+ } else{
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, src[2] * 4); /* MOV(EAX, [EBP+?]); */
+ }
+#else
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG1_ECX, src[3] * 4); /* MOV(ECX, [EBP+?]); */
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, src[2] * 4); /* MOV(EAX, [EBP+?]); */
+#endif
+ jitCompPutByte1(w.dst, 0x99); /* CDQ(); */
+ /* ECXがゼロではないことを確認すべき */
+ jitCompPutByte2(w.dst, 0xf7, 0xf9); /* IDIV(ECX); */
+ if (*src == 0x1a) {
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, src[1] * 4, IA32_REG0_EAX);
+ }
+ if (*src == 0x1b) {
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, src[1] * 4, IA32_REG2_EDX);
+ }
+ jitCompA000_loadRegCacheAll(&w); // 手抜き.
+ cmp0reg = -1;
+ break;
+
+ case 0x1c: /* PLMT0 */
+ case 0x1d: /* PLMT1 */
+ if (src[1] >= 0x40 || src[2] >= 0x40){
+ w.err = JITC_ERR_PREGNUM;
+ }
+ if (level < JITC_LV_FASTEST) {
+ cmp0reg = -1;
+ if (level < JITC_LV_FASTER) {
+ // typ が一致していることを確認.
+ // plsとliveSignが一致していることを確認.
+
+ // preg1はp0 <= p <= p1 を満たしているか？.
+ // 新しいp0/p1は古いp0?p1に適合しているか？.
+
+ }
+ }
+
+ case 0x1e: /* PCP */ /* 未完成(p1まで完成) */
+ if (src[1] >= 0x40 || src[2] >= 0x40){
+ w.err = JITC_ERR_PREGNUM;
+ }
+ if (src[2] == 0x3f){
+ w.err = JITC_ERR_PREGNUM;
+ }
+ if (src[1] != 0x3f) {
+ /* src[2] == 0xff の場合に対応できてない */
+ jitCompA000_storePRegCacheAll(&w); // 手抜き.
+ for (i = 0; i < 32; i += 4) {
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[2]) + i); /* MOV(EAX, [EBP+?]); */
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + i, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */
+ }
+ jitCompA000_loadPRegCacheAll(&w); // 手抜き.
+ } else {
+ if (level < JITC_LV_FASTER) {
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[2]) + 4); /* MOV(EAX, [EBP+?]); */ /* typ */
+ jitCompPutByte3(w.dst, 0x83, 0xf8, 0); /* CMP(EAX, 0); */
+ jitCompPutByte2(w.dst, 0x0f, 0x85); /* JNE */
+ jitCompPutImm32(w.dst, errfnc - (w.dst + 4));
+ /* セキュリティチェックが足りてない!(aliveとか) */
+ }
+ reg0 = IA32_REG0_EAX;
+ jitCompA000_storePRegCacheAll(&w); // 手抜き.
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, reg0, PRegOffset(src[2]) + 0); /* MOV(EAX, [EBP+?]); */
+ if (level < JITC_LV_FASTER) {
+ jitCompPutByte1(w.dst, 0x3b); /* CMP(reg0, [EBP+?]); */
+ jitCompPutModRM_Disp_BaseEBP(&w, PRegOffset(src[2]) + 8, reg0); /* p0 */
+ jitCompPutByte2(w.dst, 0x0f, 0x85); /* JNE */
+ jitCompPutImm32(w.dst, errfnc - (w.dst + 4));
+ }
+ jitCompPutByte2(w.dst, 0xff, 0xe0); /* JMP(EAX); */
+ }
+ break;
+
+ case 0x1f: /* PCST */
+ if (jitCompGetImm32(src + 2) == 0) {
+ if (level < JITC_LV_FASTER){
+ jitCompA0001_checkType0(&w, src[6], jitCompGetImm32(src + 7), 2);
+ }
+ jitCompA000_storePRegCacheAll(&w); // 手抜き.
+ for (i = 0; i < 32 - 4; i += 4) {
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[6]) + i); /* MOV(EAX, [EBP+?]); */
+ if (i == 4) {
+ jitCompPutByte1(w.dst, 0x0d); /* OR(EAX, ?); */
+ jitCompPutImm32(w.dst, 0x80000000);
+ }
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + i, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */
+ }
+ jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, debugInfo1);
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 28, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */
+ jitCompA000_loadPRegCacheAll(&w); // 手抜き.
+ cmp0reg = -1;
+ break;
+ }
+ if (jitCompGetImm32(src + 7) == 0) {
+ jitCompA000_storePRegCacheAll(&w); // 手抜き.
+ for (i = 0; i < 32 - 4; i += 4) {
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[6]) + i); /* MOV(EAX, [EBP+?]); */
+ if (i == 4) {
+ jitCompPutByte1(w.dst, 0x25); /* AND(EAX, ?); */
+ jitCompPutImm32(w.dst, 0x7fffffff);
+ }
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + i, IA32_REG0_EAX); /* MOV([EBP+?], EAX); */
+ }
+ if (level < JITC_LV_FASTER) {
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[6]) + 28); /* MOV(EAX, [EBP+?]); */
+ jitCompPutByte1(w.dst, 0x3d); /* CMP(EAX, ?); */
+ jitCompPutImm32(w.dst, debugInfo1);
+ jitCompPutByte2(w.dst, 0x74, 8); /* JE */
+ jitCompPutOp_MOV_EAX_ZERO(w.dst);
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, PRegOffset(src[1]) + 0, IA32_REG0_EAX); /* MOV([EBP+?], EAX); (1+1+4) */
+ }
+ jitCompA000_loadPRegCacheAll(&w); // 手抜き.
+ cmp0reg = -1;
+ break;
+ }
+ w.err = JITC_ERR_OPECODE;
+ goto err_w;
+
+ case 0x20: /* CMPE */
+ case 0x21: /* CMPNE */
+ case 0x22: /* CMPL */
+ case 0x23: /* CMPGE */
+ case 0x24: /* CMPLE */
+ case 0x25: /* CMPG */
+ case 0x26: /* TSTZ */
+ case 0x27: /* TSTNZ */
+ reg0 = jitCompA000_selectRegCache(src[2], IA32_REG0_EAX);
+ reg1 = jitCompA000_selectRegCache(src[3], -1 /* mem */);
+ if (src[1] == 0x3f) {
+ /* 特殊構文チェック */
+ if (w.prefix != 0) {
+ w.err = JITC_ERR_PREFIX;
+ goto err_w;
+ }
+ if (src[4] != 0x04 || src[5] != 0x3f || src[6] != 0x03 || src[7] != 0x3f) {
+ w.err = JITC_ERR_IDIOM;
+ goto err_w;
+ }
+ }
+ if (reg0 == 0)
+ jitCompA0001_movEaxRxx(&w, src[2]);
+#if (jitCompA0001_USE_R3F_IMM32 != 0)
+ if (src[3] == 0x3f) {
+#if (jitCompA0001_OPTIMIZE_CMP != 0)
+ if ((*src <= 0x25 && w.r3f == 0) || (*src >= 0x26 && w.r3f == -1)) {
+ i = 0;
+ if (cmp0reg == src[2]) {
+ if (cmp0lev >= 1 && (src[0] == 0x20 || src[0] == 0x21 || src[0] == 0x26 || src[0] == 0x27)){
+ i = 1;
+ }
+ if (cmp0lev >= 2 && (src[0] == 0x22 || src[0] == 0x23 || src[0] == 0x24 || src[0] == 0x25)){
+ i = 1;
+ }
+ }
+ if (i == 0) {
+ jitCompPutByte2(w.dst, 0x85, 0xc0 | reg0 << 3 | reg0); /* TEST(reg0, reg0); */
+ }
+ cmp0reg = src[2];
+ cmp0lev = 2;
+ goto cmpcc1;
+ }
+#endif
+#if (jitCompA0001_USE_R3F_IMM8 != 0)
+ if (-0x80 <= w.r3f && w.r3f <= 0x7f && *src <= 0x25) {
+ jitCompPutByte3(w.dst, 0x83, 0xf8 | reg0, w.r3f);
+ goto cmpcc1;
+ }
+#endif
+ if (reg0 == 0) {
+ if (*src <= 0x25) {
+ jitCompPutByte1(w.dst, 0x3d);
+ }
+ if (*src >= 0x26) {
+ jitCompPutByte1(w.dst, 0xa9);
+ }
+ }
+ else {
+ if (*src <= 0x25) {
+ jitCompPutByte2(w.dst, 0x81, 0xf8 | reg0);
+ }
+ if (*src >= 0x26) {
+ jitCompPutByte2(w.dst, 0xf7, 0xc0 | reg0);
+ }
+ }
+ jitCompPutImm32(w.dst, w.r3f);
+ goto cmpcc1;
+ }
+#endif
+ if (src[3] >= 0x40){
+ w.err = JITC_ERR_PREGNUM;
+ }
+ if (reg1 >= 0) {
+ if (*src <= 0x25) {
+ jitCompPutByte2(w.dst, 0x39, 0xc0 | reg1 << 3 | reg0);
+ }
+ if (*src >= 0x26) {
+ jitCompPutByte2(w.dst, 0x85, 0xc0 | reg1 << 3 | reg0);
+ }
+ } else{
+ if (*src <= 0x25) {
+ jitCompPutByte1(w.dst, 0x3b);
+ }
+ if (*src >= 0x26) {
+ jitCompPutByte1(w.dst, 0x85);
+ }
+ jitCompPutModRM_Disp_BaseEBP(&w, src[3] * 4, reg0);
+ }
+ cmpcc1:
+ if (w.err != 0){
+ goto err_w;
+ }
+ static unsigned char cmpcc_table0[] = {
+ 0x04, 0x05, 0x0c, 0x0d, 0x0e, 0x0f, 0x04, 0x05, /* CMPcc, TSTcc */
+ 0x04, 0x05, 0x02, 0x03, 0x06, 0x07 /* PCMPcc */
+ };
+#if (jitCompA0001_USE_R3F_CMPJMP != 0)
+ if (src[1] == 0x3f) {
+ /* 特殊構文を利用した最適化 */
+ jitCompPutByte2(w.dst, 0x0f, 0x80 | cmpcc_table0[*src - 0x20]);
+ src += 6;
+ i = jitCompGetLabelNum(&w, src + 2);
+ if ((flags & JITC_PHASE1) != 0 && w.err != 0) {
+ if (label[i].opt == 0) {
+ w.err = JITC_ERR_LABELNODEF;
+ goto err_w;
+ }
+ // if (label[i].typ != 1) { w.err = JITC_ERR_LABELTYP; goto err_w; }
+ }
+ j = 0;
+ if ((flags & JITC_PHASE1) != 0 || (((flags & JITC_PHASE1) == 0) && label[i].opt != 0)){
+ j = label[i].p - (w.dst + 4);
+ }
+ jitCompPutImm32(w.dst, j);
+#if (jitCompA0001_OPTIMIZE_JMP != 0)
+ if (-128 - 4 <= j && j < 0) {
+ j += 4;
+ w.dst -= 6;
+ jitCompPutByte2(w.dst, w.dst[1] ^ 0xf0, j & 0xff);
+ }
+#endif
+ src += 6;
+ if (w.err != 0){
+ goto err_w;
+ }
+ continue;
+ }
+#endif
+ /* 一般的なJITC */
+ reg0 = jitCompA000_selectRegCache(src[1], IA32_REG0_EAX);
+ jitCompPutByte3(w.dst, 0x0f, 0x90 | cmpcc_table0[*src - 0x20], 0xc0 | reg0); /* SETcc(BYTE(reg0)); */
+ jitCompPutByte3(w.dst, 0x0f, 0xb6, 0xc0 | reg0 << 3 | reg0); /* MOVZX(reg0, BYTE(reg0)); */
+ jitCompPutByte2(w.dst, 0xf7, 0xd8 | reg0); /* NEG(reg0); */
+ if (reg0 == 0){
+ jitCompA0001_movRxxEax(&w, src[1]);
+ }
+ cmp0reg = src[2];
+ cmp0lev = 1;
+ break;
+
+ case 0x28: /* PCMPE */
+ case 0x29: /* PCMPNE */
+ case 0x2a: /* PCMPL */
+ case 0x2b: /* PCMPGE */
+ case 0x2c: /* PCMPLE */
+ case 0x2d: /* PCMPG */
+ if (src[1] == 0x3f) {
+ /* 特殊構文チェック */
+ if (w.prefix != 0) {
+ w.err = JITC_ERR_PREFIX;
+ goto err_w;
+ }
+ if (src[4] != 0x04 || src[5] != 0x3f || src[6] != 0x03 || src[7] != 0x3f) {
+ w.err = JITC_ERR_IDIOM;
+ goto err_w;
+ }
+ }
+ if (src[2] >= 0x40) {
+ w.err = JITC_ERR_PREGNUM;
+ }
+ jitCompA000_storePRegCacheAll(&w); // 手抜き.
+ if (src[3] != 0xff){
+ jitCompA0001_checkCompPtr(&w, src[2], src[3]);
+ }
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(src[2]) + 0); /* MOV(EAX, [EBP+?]); */
+ if (src[3] != 0xff) {
+ jitCompPutByte1(w.dst, 0x3b); /* CMP(EAX, [EBP+?]); */
+ jitCompPutModRM_Disp_BaseEBP(&w, PRegOffset(src[3]) + 0, 0);
+ } else{
+ /* ヌルポインタとの比較はこれでいいのか？たぶんよくない */
+ jitCompPutByte3(w.dst, 0x83, 0xf8, 0x00); /* CMP(EAX, 0); */
+ }
+ cmp0reg = -1;
+ goto cmpcc1;
+
+ case 0x30: /* talloc(old:F4) */
+ case 0x31: /* tfree(old:F5) */
+ case 0x32: /* malloc(old:F6) */
+ case 0x33: /* mfree(old:F7) */
+ jitCompA000_storeRegCacheAll(&w); // 手抜き.
+ jitCompA000_storePRegCacheAll(&w); // 手抜き.
+
+ jitCompPutOp_PUSH_Imm8(w.dst, src[3]);
+ jitCompPutOp_PUSH_Imm8(w.dst, src[2]);
+ jitCompPutOp_PUSH_Imm8(w.dst, src[1]);
+ jitCompPutOp_PUSH_GReg(w.dst, IA32_REG5_EBP);
+
+ switch (*src) {
+ case 0x30:
+ j = ((unsigned char *)&funcf4) - (w.dst + 1 + 4);
+ break;
+ case 0x31:
+ j = ((unsigned char *)&funcf5) - (w.dst + 1 + 4);
+ break;
+ case 0x32:
+ j = ((unsigned char *)&funcf6) - (w.dst + 1 + 4);
+ break;
+ case 0x33:
+ j = ((unsigned char *)&funcf7) - (w.dst + 1 + 4);
+ break;
+ }
+ jitCompPutOp_CALL_Relative(w.dst, j);
+ jitCompPutOp_ADD_GReg_Imm8(w.dst, IA32_REG4_ESP, 16);
+
+ jitCompA000_loadRegCacheAll(&w); // 手抜き.
+ jitCompA000_loadPRegCacheAll(&w); // 手抜き.
+ cmp0reg = -1;
+ break;
+
+ case 0x34: /* data (暫定) */
+ // 0 1234 5678 9
+ // 34 typ32 len32 data...
+ // len32 is NOT byte size!
+
+ cmp0reg = -1;
+ if (w.prefix != 0) {
+ w.err = JITC_ERR_PREFIX;
+ goto err_w;
+ }
+ int k, tmpData, bitCount, dataWidth;
+ // kはtyp32
+ k = jitCompGetImm32(&src[1]);
+ dataWidth = jitCompA000_dataWidth(k);
+ if (lastlabel >= 0 && label[lastlabel].typ == 0){
+ //直前のラベルタイプを設定
+ label[lastlabel].typ = k;
+ }
+ if (k != 1) {
+ i = jitCompA000_convTyp(k);
+ if (i < 2 || i > 7) {
+ w.err = JITC_ERR_BADTYPE;
+ goto err_w;
+ }
+ }
+ // jはlen32
+ j = jitCompGetImm32(&src[5]);
+ oldsrc = src;
+ src += 9;
+
+ // srcはdata本体を指す
+ if (k != 1) {
+ // 一般データ
+ bitCount = 7;
+ while (j > 0) {
+ if (src >= src1) {
+ // バイトコードを末端を超えて読もうとした
+ w.err = JITC_ERR_SRC1;
+ src = oldsrc;
+ goto err_w;
+ }
+ if (w.dst + 256 > dst1) {
+ // 書き込み先の残り容量が256Bytesを切った
+ w.err = JITC_ERR_DST1;
+ src = oldsrc;
+ goto err_w;
+ }
+ tmpData = 0;
+ for (k = 0; k < dataWidth; k++) {
+ // dataWidthビットごとに切り出してtmpDataに入れる
+ tmpData = tmpData << 1 | ((*src >> bitCount) & 1);
+ bitCount--;
+ if (bitCount < 0) {
+ bitCount = 7;
+ src++;
+ }
+ }
+ if ((i & 1) == 0 && dataWidth <= 31 && (tmpData >> (dataWidth - 1)) != 0) {
+ // 符号あり型で、かつtmpDataの符号ビットが1なので、マイナスにする
+ tmpData -= 1 << dataWidth;
+ }
+ if (i == 2 || i == 3) {
+ // BYTE
+ jitCompPutByte1(w.dst, tmpData & 0xff);
+ }
+ if (i == 4 || i == 5) {
+ // WORD
+ jitCompPutByte2(w.dst, tmpData & 0xff, (tmpData >> 8) & 0xff);
+ }
+ if (i == 6 || i == 7) {
+ // DWORD
+ jitCompPutByte4(w.dst, tmpData & 0xff, (tmpData >> 8) & 0xff, (tmpData >> 16) & 0xff, (tmpData >> 24) & 0xff);
+ }
+ j--;
+ }
+ } else{
+ // VPtr型
+ while (j > 0) {
+ if (src >= src1) {
+ // バイトコードを末端を超えて読もうとした
+ w.err = JITC_ERR_SRC1;
+ src = oldsrc;
+ goto err_w;
+ }
+ if (w.dst + 256 > dst1) {
+ // 書き込み先の残り容量が256Bytesを切った
+ w.err = JITC_ERR_DST1;
+ src = oldsrc;
+ goto err_w;
+ }
+ i = jitCompGetImm32(src);
+ src += 4;
+ if ((flags & JITC_PHASE1) != 0 && w.err == 0) {
+ // Only in phase1
+ if (label[i].opt == 0) {
+ // ローカルラベルはだめです...
+ w.err = JITC_ERR_LABELNODEF;
+ goto err_w;
+ }
+ }
+ jitCompPutImm32(w.dst, (int)label[i].p);
+ jitCompPutImm32(w.dst, label[i].typ);
+ jitCompPutImm32(w.dst, (int)label[i].p);
+ jitCompPutImm32(w.dst, (int)label[i].p1);
+ jitCompPutImm32(w.dst, 0); /* liveSign */
+ jitCompPutImm32(w.dst, envOffset_PTRCTRL); /* pls */
+ jitCompPutImm32(w.dst, 0);
+ jitCompPutImm32(w.dst, 0);
+ j--;
+ }
+ }
+ if (lastlabel >= 0 && label[lastlabel].p1 < w.dst){
+ label[lastlabel].p1 = w.dst;
+ }
+ continue;
+
+ case 0x3c: /* ENTER */
+ jitCompA000_storeRegCacheAll(&w); // 手抜き.
+ jitCompA000_storePRegCacheAll(&w); // 手抜き.
+ jitCompPutOp_PUSH_Imm8(w.dst, src[6]);
+ jitCompPutOp_PUSH_Imm8(w.dst, src[5]);
+ jitCompPutOp_PUSH_Imm8(w.dst, src[4] & 0x0f);
+ jitCompPutOp_PUSH_Imm8(w.dst, (src[4] >> 4) & 0x0f);
+ jitCompPutOp_PUSH_Imm8(w.dst, src[3]);
+ jitCompPutOp_PUSH_Imm8(w.dst, src[2]);
+ jitCompPutOp_PUSH_Imm8(w.dst, src[1]);
+ jitCompPutOp_PUSH_GReg(w.dst, IA32_REG5_EBP);
+ j = ((unsigned char *)&func3c) - (w.dst + 1 + 4);
+ jitCompPutOp_CALL_Relative(w.dst, j)
+ jitCompPutOp_ADD_GReg_Imm8(w.dst, IA32_REG4_ESP, 32);
+ jitCompA000_loadRegCacheAll(&w); // 手抜き.
+ jitCompA000_loadPRegCacheAll(&w); // 手抜き.
+ cmp0reg = -1;
+ break;
+
+ case 0x3d: /* LEAVE */
+ jitCompA000_storeRegCacheAll(&w); // 手抜き.
+ jitCompA000_storePRegCacheAll(&w); // 手抜き.
+ jitCompPutOp_PUSH_Imm8(w.dst, src[6]);
+ jitCompPutOp_PUSH_Imm8(w.dst, src[5]);
+ jitCompPutOp_PUSH_Imm8(w.dst, src[4] & 0x0f);
+ jitCompPutOp_PUSH_Imm8(w.dst, (src[4] >> 4) & 0x0f);
+ jitCompPutOp_PUSH_Imm8(w.dst, src[3]);
+ jitCompPutOp_PUSH_Imm8(w.dst, src[2]);
+ jitCompPutOp_PUSH_Imm8(w.dst, src[1]);
+ jitCompPutOp_PUSH_GReg(w.dst, IA32_REG5_EBP);
+ j = ((unsigned char *)&func3d) - (w.dst + 1 + 4);
+ jitCompPutOp_CALL_Relative(w.dst, j)
+ jitCompPutOp_ADD_GReg_Imm8(w.dst, IA32_REG4_ESP, 32);
+ jitCompA000_loadRegCacheAll(&w); // 手抜き.
+ jitCompA000_loadPRegCacheAll(&w); // 手抜き.
+ cmp0reg = -1;
+ break;
+
+ case 0xfe: /* remark */
+ if (src[1] == 0x01 && src[2] == 0x00) {
+ // DBGINFO1
+ if (level <= JITC_LV_SLOWER) {
+ jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, debugInfo1);
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, envOffset_DBGINFO1, IA32_REG0_EAX);
+ }
+ }
+ if (src[1] == 0x01 && src[2] == 0x03) {
+ // DBGINFO1CLR
+ if (level <= JITC_LV_SLOWER) {
+ jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, -1);
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, envOffset_DBGINFO1, IA32_REG0_EAX);
+ }
+ }
+ if (src[1] == 0x05 && src[2] == 0x00) {
+ // DBGINFO0
+ if (level <= JITC_LV_SLOWEST) {
+ debugInfo0 = jitCompGetImm32(src + 3);
+ jitCompPutOp_MOV_GReg_Imm32(w.dst, IA32_REG0_EAX, debugInfo0);
+ jitCompPutOp_MOV_EBPDisp_GReg(&w, envOffset_DBGINFO0, IA32_REG0_EAX);
+ }
+ }
+ break;
+
+ default:
+ w.err = JITC_ERR_OPECODE;
+ goto err_w;
+ }
+ if (w.err != 0){
+ goto err_w;
+ }
+ jitCompA0001_fixPrefix(&w);
+ if (w.err != 0) {
+ goto err_w;
+ }
+
+ if(*src != 0x00 && *src != 0x01 && *src != 0x34){
+ DEBUGCode(&w, 315315);
+ }
+
+ src += jitCompCmdLen(src);
+ }
+ if (enter0 != NULL) {
+ j = w.dst - (enter0 + 4);
+ enter0[0] = j & 0xff;
+ enter0[1] = (j >> 8) & 0xff;
+ enter0[2] = (j >> 16) & 0xff;
+ enter0[3] = (j >> 24) & 0xff;
+ }
+ if ((flags & JITC_NOSTARTUP) == 0) {
+ jitCompA000_storeRegCacheAll(&w);
+ jitCompA000_storePRegCacheAll(&w);
+ jitCompPutOp_POPAD(w.dst);
+ }
+ if ((flags & JITC_PHASE1) != 0){
+ return w.dst - dst00;
+ }
+ return 0;
+
+err_w:
+ if ((w.err & JITC_ERR_PHASE0ONLY) != 0) {
+ if ((flags & JITC_PHASE1) == 0){
+ w.err &= ~JITC_ERR_PHASE0ONLY;
+ }
+ }
+ if (w.err == (JITC_ERR_MASK & JITC_ERR_REGNUM)) errmsg = "reg-number error";
+ if (w.err == (JITC_ERR_MASK & JITC_ERR_DST1)) errmsg = "dst1 error";
+ if (w.err == (JITC_ERR_MASK & JITC_ERR_OPECODE)) errmsg = "opecode error";
+ if (w.err == (JITC_ERR_MASK & JITC_ERR_LABELNUM)) errmsg = "label number too large";
+ if (w.err == (JITC_ERR_MASK & JITC_ERR_LABELREDEF)) errmsg = "label redefine";
+ if (w.err == (JITC_ERR_MASK & JITC_ERR_PREFIX)) { errmsg = "prefix redefine"; w.dst -= 2; }
+ if (w.err == (JITC_ERR_MASK & JITC_ERR_LABELNODEF)) errmsg = "label not defined";
+ if (w.err == (JITC_ERR_MASK & JITC_ERR_LABELTYP)) errmsg = "label type error";
+ if (w.err == (JITC_ERR_MASK & JITC_ERR_IDIOM)) errmsg = "idiom error";
+ if (w.err == (JITC_ERR_MASK & JITC_ERR_PREGNUM)) errmsg = "preg-number error";
+ if (w.err == (JITC_ERR_MASK & JITC_ERR_SRC1)) errmsg = "src1 error";
+ if (w.err == (JITC_ERR_MASK & JITC_ERR_BADTYPE)) errmsg = "bad type code";
+ if (w.err == (JITC_ERR_MASK & JITC_ERR_PREFIXFAR)) errmsg = "prefix internal error";
+ if (w.err == (JITC_ERR_MASK & JITC_ERR_INTERNAL)) errmsg = "general internal error";
+ if (*errmsg != '\0') {
+ fprintf(stderr, "JITC: %s at %06X (debugInfo0=%d)\n ", errmsg, src - src0, debugInfo0);
+ for (i = 0; i < 16; i++)
+ fprintf(stderr, "%02X ", src[i]);
+ static char *table[0x30] = {
+ "NOP", "LB", "LIMM", "PLIMM", "CND", "??", "??", "??",
+ "LMEM", "SMEM", "PLMEM", "PSMEM", "LEA", "??", "PADD", "PDIF",
+ "CP/OR", "XOR", "AND", "??", "ADD", "SUB", "MUL", "??",
+ "SHL", "SAR", "DIV", "MOD", "PLMT0", "PLMT1", "PCP", "PCST",
+ "CMPE", "CMPNE", "CMPL", "CMPGE", "CMPLE", "CMPG", "TSTZ", "TSTNZ",
+ "PCMPE", "PCMPNE", "PCMPL", "PCMPGE", "PCMPLE", "PCMPG", "??", "EXT" };
+ errmsg = "??";
+ if (*src < 0x30) errmsg = table[*src];
+ fprintf(stderr, "(%s)\n", errmsg);
+ }
+ return -1;
+}
+
+unsigned char *jitCompCallFunc(unsigned char *dst, void *func)
+{
+ //この関数の中では結局w->dstしか参照していない
+ struct JitCompWork w;
+ w.dst = dst;
+ jitCompA000_storeRegCacheAll(&w);
+ jitCompA000_storePRegCacheAll(&w);
+ jitCompPutOp_PUSHAD(w.dst);
+ jitCompPutOp_PUSH_GReg(w.dst, IA32_REG0_EAX); /* for 16Byte-align（Mac OSX） */
+ jitCompPutOp_PUSH_GReg(w.dst, IA32_REG5_EBP);
+
+ int j = ((unsigned char *)func) - (w.dst + 1 + 4);
+ jitCompPutOp_CALL_Relative(w.dst, j);
+
+ jitCompPutOp_POP_GReg(w.dst, IA32_REG0_EAX);
+ jitCompPutOp_POP_GReg(w.dst, IA32_REG0_EAX); /* for 16Byte-align (Mac OSX) */
+ jitCompPutOp_POPAD(w.dst);
+ jitCompA000_loadRegCacheAll(&w);
+ jitCompA000_loadPRegCacheAll(&w);
+ jitCompPutOp_MOV_GReg_EBPDisp(&w, IA32_REG0_EAX, PRegOffset(0x30) + 0);
+
+ jitCompPutByte2(w.dst, 0xff, 0xe0); /* JMP(EAX); */
+ return w.dst;
+}
+
+unsigned char *jitCompInit(unsigned char *dst)
+{
+ errfnc = dst;
+ return jitCompCallFunc(dst, &errHndl);
+}
+
+void jitcRunBinary(void (*bin)(char *), HOSECPU_RuntimeEnvironment *env)
+{
+ (*bin)(((char *)env) + jitCompA0001_EBP128); /* サイズを節約するためにEBPをjitCompA0001_EBP128バイトずらす */
+ return;
+}
+
+void func3c(char *ebp, int opt, int r1, int p1, int lenR, int lenP, int r0, int p0)
+{
+ HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);
+ int i, *pi;
+ HOSECPU_PointerRegisterEntry *pp;
+
+ if (r->junkStack + 2048 > r->junkStack1) {
+ (*(r->errHndl))(r);
+ }
+ pi = (void *)r->junkStack;
+ r->junkStack += r1 * 4;
+ for (i = 0; i < r1; i++){
+ pi[i] = r->ireg[i];
+ }
+ pp = (void *)r->junkStack;
+ r->junkStack += p1 * 32;
+ for (i = 0; i < p1; i++){
+ //pp[i] = r->preg[i];
+ PRegCopy(&pp[i], &r->preg[i]);
+ //
+ }
+ pp = (void *)r->junkStack;
+ r->junkStack += 32;
+ //*pp = r->preg[0x30];
+ PRegCopy(pp, &r->preg[0x30]);
+ //
+ pi = (void *)r->junkStack;
+ r->junkStack += 4;
+ *pi = opt << 16 | r1 << 8 | p1;
+ for (i = 0; i < lenR; i++){
+ r->ireg[r0 + i] = r->ireg[0x30 + i];
+ }
+ for (i = 0; i < lenP; i++){
+ r->preg[p0 + i] = r->preg[0x31 + i];
+ }
+ return;
+}
+
+void func3d(char *ebp, int opt, int r1, int p1, int lenR, int lenP, int r0, int p0)
+{
+ HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);
+ int i;
+ r->junkStack -= 4;
+ r->junkStack -= 32;
+ HOSECPU_PointerRegisterEntry *pp = (void *)r->junkStack;
+
+ //r->preg[0x30] = *pp;
+ PRegCopy(&r->preg[0x30], pp);
+ //
+ r->junkStack -= p1 * 32; pp = (void *)r->junkStack;
+ for (i = 0; i < p1; i++){
+ //r->preg[i] = pp[i];
+ PRegCopy(&r->preg[i], &pp[i]);
+ //
+ }
+ r->junkStack -= r1 * 4; int *pi = (void *)r->junkStack;
+ for (i = 0; i < r1; i++){
+ r->ireg[i] = pi[i];
+ }
+ return;
+}
+
+void funcf4(char *ebp, int pxx, int typ, int len)
+{
+ HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);
+ int width = jitCompA000_dataWidth(jitCompA000_convTyp(r->ireg[typ])) >> 3;
+ if (width < 0 || r->ireg[len] < 0){
+ (*(r->errHndl))(r);
+ }
+ void *p = r->junkStack;
+ if (r->junkStack + width * r->ireg[len] + 256 > r->junkStack1){
+ (*(r->errHndl))(r);
+ }
+ r->junkStack += width * r->ireg[len];
+ r->preg[pxx].p = p;
+ r->preg[pxx].typ = r->ireg[typ];
+ r->preg[pxx].p0 = p;
+ r->preg[pxx].p1 = (void *)r->junkStack;
+ int *pi = (int *)r->junkStack;
+ *pi = width * r->ireg[len];
+ r->junkStack += sizeof (int);
+ if (r->ireg[typ] == 1) {
+ int i, i1 = (width * r->ireg[len]) >> 2;
+ pi = p;
+ for (i = 0; i < i1; i++){
+ pi[i] = 0;
+ }
+ }
+ return;
+}
+
+void funcf5(char *ebp, int pxx, int typ, int len)
+{
+ // pxxはダミーで参照されない
+ HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);
+ r->junkStack -= sizeof (int);
+ int *pi = (int *)r->junkStack;
+ r->junkStack -= *pi;
+#if 0
+ int width = jitCompA000_dataWidth(r->ireg[typ]);
+ void *p = r->junkStack;
+ r->junkStack -= width * r->ireg[len];
+#endif
+ return;
+}
+
+void funcf6(char *ebp, int pxx, int typ, int len)
+{
+ HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);
+ int width = jitCompA000_dataWidth(jitCompA000_convTyp(r->ireg[typ])) >> 3;
+ if (width < 0 || r->ireg[len] < 0){
+ (*(r->errHndl))(r);
+ }
+ void *p = malloc(width * r->ireg[len]);
+ r->preg[pxx].p = p;
+ r->preg[pxx].typ = r->ireg[typ];
+ r->preg[pxx].p0 = p;
+ r->preg[pxx].p1 = (unsigned char *)p + width * r->ireg[len];
+ if (r->ireg[typ] == 1) {
+ int i, i1 = (width * r->ireg[len]) >> 2, *pi;
+ pi = p;
+ for (i = 0; i < i1; i++){
+ pi[i] = 0;
+ }
+ for (i = 1; i < i1; i += 8){
+ pi[i] |= -1;
+ }
+ }
+ return;
+}
+
+void funcf7(char *ebp, int pxx, int typ, int len)
+{
+ // typとlenはダミーで参照されない
+ HOSECPU_RuntimeEnvironment *r = (HOSECPU_RuntimeEnvironment *) (ebp - jitCompA0001_EBP128);
+ free(r->preg[pxx].p);
+ return;
+}
+
+void errHndl(HOSECPU_RuntimeEnvironment *r)
+{
+ r = (HOSECPU_RuntimeEnvironment *) (((char *)r) - jitCompA0001_EBP128);
+ (*(r->errHndl))(r);
+ // ここに帰ってきてはいけない.
+}
+
+/*
+ * jitcの出力コードをひとまとめにする関数を作成しその中身をjitCompile()で生成
+ *
+ * qq : 出力バイナリの書き込み位置のアドレスへの参照(書き込み位置を呼び出しに反映させるため参照渡しにする)
+ * q1 : 出力バイナリの書き込み位置のアドレスの最大値
+ * p0 : (*.ose)バイナリの読み込み位置のアドレス(ヘッダ部除去済)
+ * p1 : (*.ose)バイナリの読み込み位置の取りうる最大値
+ * (ただし、「確保したメモリ」の最大値なのでこれより手前にゴミデータが入っているかもしれない)
+ * ret=1 : ヘッダのエラー
+ * ret=2 : jitコンパイルエラー
+ */
+int jitc0(unsigned char **qq, unsigned char *q1, const unsigned char *p0, const unsigned char *p1, int level, HOSECPU_LabelListTag *label)
+{
+ unsigned char *q = *qq;
+ int i;
+
+ if (p0[0] != 0x05 || p0[1] != SIGN1){
+ // OSECPUのヘッダ (05E1) を確認
+ return 1;
+ }
+
+ jitCompPutOp_PUSH_GReg(q, IA32_REG5_EBP);
+
+ *q++ = 0x8b; *q++ = 0x6c; *q++ = 0x24; *q++ = 0x08; /* MOV(EBP,[ESP+8]); */
+
+ for (i = 0; i < JITC_MAXLABELS; i++){
+ label[i].opt = 0;
+ }
+
+ // 以下のjitCompile()呼び出しでは第二引数をq1-2にした方がよいのではないか?
+ i = jitCompiler(q, q1, p0 + 2, p1, p0, label, JITC_MAXLABELS, level, di1_serial, 0);
+ if (i != 0){
+ return 2;
+ }
+ i = jitCompiler(q, q1, p0 + 2, p1, p0, label, JITC_MAXLABELS, level, di1_serial, JITC_PHASE1 + 0);
+ if (i < 0){
+ return 2;
+ }
+ q += i;
+
+ jitCompPutOp_POP_GReg(q, IA32_REG5_EBP);
+ *q++ = 0xc3; /* RET(); */
+ *qq = q;
+ return 0;
+}
+
+#if (USE_DEBUGGER != 0)
+
+int dbgrGetRegNum(const char *p)
+{
+ int i, j, r = -1;
+ if (p[2] <= ' ') {
+ i = p[0] - '0';
+ j = p[1] - '0';
+ if (i > 9){
+ i -= 'A' - '0' - 10;
+ }
+ if (j > 9){
+ j -= 'A' - '0' - 10;
+ }
+ if (0 <= i && i <= 15 && 0 <= j && j <= 15){
+ r = i << 4 | j;
+ }
+ }
+ return r;
+}
+
+void dbgrMain(HOSECPU_RuntimeEnvironment *r)
+{
+ if (r->dbgr == 0){
+ return;
+ }
+ for (;;) {
+ char cmd[64], *p;
+ int i, j, k;
+
+ printf("\ndbgr>");
+ p = fgets(cmd, 64, stdin);
+ if (p == NULL){
+ break;
+ }
+ if (cmd[0] == '\0'){
+ continue;
+ }
+ if (cmd[0] == 'q' && cmd[1] <= ' '){
+ break;
+ }
+ if (cmd[0] == 'p' && cmd[1] <= ' ' && cmd[1] != '\0') {
+ p = &cmd[2];
+ while (*p <= ' ' && *p != '\0'){
+ p++;
+ }
+ if (*p == 'R') {
+ i = dbgrGetRegNum(p + 1);
+ if (0 <= i && i <= 0x3f) {
+ printf("R%02X = 0x%08X = %d\n", i, r->ireg[i], r->ireg[i]);
+ } else{
+ puts("register name error");
+ }
+ continue;
+ }
+ if (*p == 'P') {
+ i = dbgrGetRegNum(p + 1);
+ if (0 <= i && i <= 0x3f) {
+ p = "invalid";
+ if (0 <= r->preg[i].typ && r->preg[i].typ <= 0x15) {
+ static char *typName[] = {
+ "T_CODE", "T_VPTR", "T_SINT8", "T_UINT8",
+ "T_SINT16", "T_UINT16", "T_SINT32", "T_UINT32",
+ "T_SINT4", "T_UINT4", "T_SINT2", "T_UINT2",
+ "T_SINT1", "T_UINT1", "T_SINT12", "T_UINT12",
+ "T_SINT20", "T_UINT20", "T_SINT24", "T_UINT24",
+ "T_SINT28", "T_UINT28"
+ };
+ p = typName[r->preg[i].typ];
+ }
+ printf("P%02X:\n type = %s(%04X), (origin-ptr) = 0x%08X\n", i, p, r->preg[i].typ, (unsigned int)(r->preg[i].p0));
+ if (r->preg[i].p != NULL && r->preg[i].p0 != NULL) {
+ j = jitCompA000_dataWidth(jitCompA000_convTyp(r->preg[i].typ)) >> 3;
+ if (j <= 0){
+ j = 1;
+ }
+ k = (r->preg[i].p1 - r->preg[i].p0) / j;
+ printf(" size = 0x%08X = %d\n", k, k);
+ k = (r->preg[i].p - r->preg[i].p0) / j;
+ printf(" pos = 0x%08X = %d\n", k, k);
+ }
+ else {
+ puts(" null pointer");
+ }
+ }
+ else
+ puts("register name error");
+ continue;
+ }
+ }
+ puts("command error");
+ }
+ return;
+}
+
+#endif
+
+
#endif
\ No newline at end of file
OSDN Git Service
