X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=src%2Fcmd.c;h=d90abb7abda76f32e4915a267b06f1d33a5467c0;hp=258c4913a1be12e9cd70ef5b01a8f95ef2ad9547;hb=85a32cf5cc8e39dc5d4f085179559de71ad87cb8;hpb=d1f82970bf7d41db2fea11b08cd8e308f6cb8138

diff --git a/src/cmd.c b/src/cmd.c
index 258c491..d90abb7 100644
--- a/src/cmd.c
+++ b/src/cmd.c
@@ -4,49 +4,50 @@
 #include "hash.h"
 #include "struct.h"
 #include "cmem.h"
+#include "exec.h"
 
 /**
  * 機械語命令のリスト
  */
-CMD comet2cmd[] = {
-    { "NOP", NONE, 0x0 },
-    { "LD", R_ADR_X_, 0x1000 },
-    { "ST", R_ADR_X, 0x1100 },
-    { "LAD", R_ADR_X, 0x1200 },
-    { "LD", R1_R2, 0x1400 },
-    { "ADDA", R_ADR_X_, 0x2000 },
-    { "SUBA", R_ADR_X_, 0x2100 },
-    { "ADDL", R_ADR_X_, 0x2200 },
-    { "SUBL", R_ADR_X_, 0x2300 },
-    { "ADDA", R1_R2, 0x2400 },
-    { "SUBA", R1_R2, 0x2500 },
-    { "ADDL", R1_R2, 0x2600 },
-    { "SUBL", R1_R2, 0x2700 },
-    { "AND", R_ADR_X_, 0x3000 },
-    { "OR", R_ADR_X_, 0x3100 },
-    { "XOR", R_ADR_X_, 0x3200 },
-    { "AND", R1_R2, 0x3400 },
-    { "OR", R1_R2, 0x3500 },
-    { "XOR", R1_R2, 0x3600 },
-    { "CPA", R_ADR_X_, 0x4000 },
-    { "CPL", R_ADR_X_, 0x4100 },
-    { "CPA", R1_R2, 0x4400 },
-    { "CPL", R1_R2, 0x4500 },
-    { "SLA", R_ADR_X, 0x5000 },
-    { "SRA", R_ADR_X, 0x5100 },
-    { "SLL", R_ADR_X, 0x5200 },
-    { "SRL", R_ADR_X, 0x5300 },
-    { "JMI", ADR_X, 0x6100 },
-    { "JNZ", ADR_X, 0x6200 },
-    { "JZE", ADR_X, 0x6300 },
-    { "JUMP", ADR_X, 0x6400 },
-    { "JPL", ADR_X, 0x6500 },
-    { "JOV", ADR_X, 0x6600 },
-    { "PUSH", ADR_X, 0x7000 },
-    { "POP", R_, 0x7100 },
-    { "CALL", ADR_X, 0x8000 },
-    { "SVC", ADR_X, 0xF000 },
-    { "RET", NONE, 0x8100 },
+static CMD comet2cmd[] = {
+    { "NOP", NONE, 0x0, nop },
+    { "LD", R_ADR_X, 0x1000, ld_r_adr_x },
+    { "ST", R_ADR_X, 0x1100, st },
+    { "LAD", R_ADR_X, 0x1200, lad },
+    { "LD", R1_R2, 0x1400, ld_r1_r2 },
+    { "ADDA", R_ADR_X, 0x2000, adda_r_adr_x },
+    { "SUBA", R_ADR_X, 0x2100, suba_r_adr_x },
+    { "ADDL", R_ADR_X, 0x2200, addl_r_adr_x },
+    { "SUBL", R_ADR_X, 0x2300, subl_r_adr_x },
+    { "ADDA", R1_R2, 0x2400, adda_r1_r2 },
+    { "SUBA", R1_R2, 0x2500, suba_r1_r2 },
+    { "ADDL", R1_R2, 0x2600, addl_r1_r2 },
+    { "SUBL", R1_R2, 0x2700, subl_r1_r2 },
+    { "AND", R_ADR_X, 0x3000, and_r_adr_x },
+    { "OR", R_ADR_X, 0x3100, or_r_adr_x },
+    { "XOR", R_ADR_X, 0x3200, xor_r_adr_x },
+    { "AND", R1_R2, 0x3400, and_r1_r2 },
+    { "OR", R1_R2, 0x3500, or_r1_r2 },
+    { "XOR", R1_R2, 0x3600, xor_r1_r2 },
+    { "CPA", R_ADR_X, 0x4000, cpa_r_adr_x },
+    { "CPL", R_ADR_X, 0x4100, cpl_r_adr_x },
+    { "CPA", R1_R2, 0x4400, cpa_r1_r2 },
+    { "CPL", R1_R2, 0x4500, cpl_r1_r2 },
+    { "SLA", R_ADR_X, 0x5000, sla },
+    { "SRA", R_ADR_X, 0x5100, sra },
+    { "SLL", R_ADR_X, 0x5200, sll },
+    { "SRL", R_ADR_X, 0x5300, srl },
+    { "JMI", ADR_X, 0x6100, jmi },
+    { "JNZ", ADR_X, 0x6200, jnz },
+    { "JZE", ADR_X, 0x6300, jze },
+    { "JUMP", ADR_X, 0x6400, jump },
+    { "JPL", ADR_X, 0x6500, jpl },
+    { "JOV", ADR_X, 0x6600, jov },
+    { "PUSH", ADR_X, 0x7000, push },
+    { "POP", R_, 0x7100, pop },
+    { "CALL", ADR_X, 0x8000, call },
+    { "SVC", ADR_X, 0xF000, svc },
+    { "RET", NONE, 0x8100, ret },
 };
 
 /**
@@ -55,20 +56,16 @@ CMD comet2cmd[] = {
 static int comet2cmdsize = ARRAYSIZE(comet2cmd);
 
 /**
- * 命令表のサイズ
+ * ハッシュ表のサイズ
  */
-static int cmdtabsize;
+enum {
+    CMDTABSIZE = 39,
+};
 
 /**
  * ハッシュ表
  */
-static CMDTAB **cmdtype_code, **code_type;
-
-#ifndef UNITTEST
-static unsigned hash_cmdtype(const char *cmd, CMDTYPE type);
-
-static unsigned hash_code(WORD code);
-#endif
+static CMDTAB *cmdtype_code[CMDTABSIZE], *code_type[CMDTABSIZE];
 
 /**
  * 命令の名前とタイプからハッシュ値を生成する
@@ -87,10 +84,10 @@ unsigned hash_cmdtype(const char *cmd, CMDTYPE type)
     keys[1]->type = INT;
     keys[1]->val.i = (int)(type & 070);
     /* ハッシュ値の計算 */
-    hashval = hash(2, keys, cmdtabsize);
-    free_chk(keys[0]->val.s, "keys[0].val.s");
-    free_chk(keys[0], "keys[0]");
-    free_chk(keys[1], "keys[1]");
+    hashval = hash(2, keys, CMDTABSIZE);
+    FREE(keys[0]->val.s);
+    FREE(keys[0]);
+    FREE(keys[1]);
     /* ハッシュ値を返す */
     return hashval;
 }
@@ -100,25 +97,16 @@ unsigned hash_cmdtype(const char *cmd, CMDTYPE type)
  */
 bool create_cmdtype_code()
 {
-    CMDTAB *np;
+    CMDTAB *p;
     unsigned hashval;
     int i;
 
-    cmdtabsize = comet2cmdsize;
-    cmdtype_code = calloc_chk(cmdtabsize, sizeof(CMDTAB *), "cmdtype_code");
-    for(i = 0; i < cmdtabsize; i++) {
-        *(cmdtype_code + i) = NULL;
-    }
     for(i = 0; i < comet2cmdsize; i++) {
-        np = malloc_chk(sizeof(CMDTAB), "cmdtype_code.next");
-        np->cmd = NULL;
-        np->next = NULL;
-        /* ハッシュ値の生成 */
-        hashval = hash_cmdtype(comet2cmd[i].name, comet2cmd[i].type);
-        /* ハッシュ表に値を追加 */
-        np->next = cmdtype_code[hashval];
-        cmdtype_code[hashval] = np;
-        np->cmd = &(comet2cmd[i]);
+        hashval = hash_cmdtype(comet2cmd[i].name, comet2cmd[i].type);    /* ハッシュ値の生成 */
+        p = malloc_chk(sizeof(CMDTAB), "cmdtype_code");
+        p->cmd = &comet2cmd[i];
+        p->next = cmdtype_code[hashval];                                 /* ハッシュ表に値を追加 */
+        cmdtype_code[hashval] = p;
     }
     return true;
 }
@@ -129,15 +117,17 @@ bool create_cmdtype_code()
  */
 WORD getcmdcode(const char *cmd, CMDTYPE type)
 {
-    CMDTAB *np;
+    CMDTAB *p;
+    WORD w = 0xFFFF;
 
     assert(cmd != NULL);
-    for(np = cmdtype_code[hash_cmdtype(cmd, type)]; np != NULL; np = np->next){
-        if(strcmp(cmd, np->cmd->name) == 0 && type == np->cmd->type) {
-            return np->cmd->code;
+    for(p = cmdtype_code[hash_cmdtype(cmd, type)]; p != NULL; p = p->next) {
+        if(strcmp(cmd, p->cmd->name) == 0 && type == p->cmd->type) {
+            w = p->cmd->code;
+            break;
         }
     }
-    return 0xFFFF;
+    return w;
 }
 
 /**
@@ -146,17 +136,14 @@ WORD getcmdcode(const char *cmd, CMDTYPE type)
 void free_cmdtype_code()
 {
     int i;
-    CMDTAB *np, *nq;
-
-    for(i = 0; i < cmdtabsize; i++) {
-        np = cmdtype_code[i];
-        while(np != NULL) {
-            nq = np->next;
-            free_chk(np, "free_cmdtype_code.np");
-            np = nq;
+    CMDTAB *p, *q;
+
+    for(i = 0; i < CMDTABSIZE; i++) {
+        for(p = cmdtype_code[i]; p != NULL; p = q) {
+            q = p->next;
+            FREE(p);
         }
     }
-    free_chk(cmdtype_code, "cmdtype_code");
 }
 
 /**
@@ -165,13 +152,15 @@ void free_cmdtype_code()
 unsigned hash_code(WORD code)
 {
     HKEY *keys[1];
+    unsigned h;
 
     /* 命令コードを設定 */
     keys[0] = malloc_chk(sizeof(HKEY), "hash_code.key");
     keys[0]->type = INT;
     keys[0]->val.i = (int)(code >> 8);
-    /* ハッシュ値を返す */
-    return hash(1, keys, cmdtabsize);
+    h = hash(1, keys, CMDTABSIZE);
+    FREE(keys[0]);
+    return h;
 }
 
 /**
@@ -179,42 +168,35 @@ unsigned hash_code(WORD code)
  */
 bool create_code_type()
 {
-    CMDTAB *np;
+    CMDTAB *p;
     unsigned hashval;
     int i;
 
-    cmdtabsize = comet2cmdsize;
-    code_type = calloc_chk(cmdtabsize, sizeof(CMDTAB *), "code_type");
-    for(i = 0; i < cmdtabsize; i++) {
-        *(code_type + i) = NULL;
-    }
     for(i = 0; i < comet2cmdsize; i++) {
-        np = malloc_chk(sizeof(CMDTAB), "code_type.next");
-        np->cmd = NULL;
-        np->next = NULL;
-        /* ハッシュ値の生成 */
-        hashval = hash_code((&comet2cmd[i])->code);
-        /* ハッシュ表に値を追加 */
-        np->next = code_type[hashval];
-        code_type[hashval] = np;
-        np->cmd = &comet2cmd[i];
+        hashval = hash_code((&comet2cmd[i])->code);    /* ハッシュ値の生成 */
+        p = malloc_chk(sizeof(CMDTAB), "code_type");
+        p->cmd = &comet2cmd[i];
+        p->next = code_type[hashval];                  /* ハッシュ表に値を追加 */
+        code_type[hashval] = p;
     }
     return true;
 }
 
 /**
- * 命令コードから命令タイプを返す
- * 無効な場合はNONEを返す
+ * 命令コードから命令の関数ポインタを返す
  */
-CMDTYPE getcmdtype(WORD code)
+const void (*getcmdptr(WORD code))
 {
-    CMDTAB *np;
-    for(np = code_type[hash_code(code)]; np != NULL; np = np->next) {
-        if(code == np->cmd->code) {
-            return np->cmd->type;
+    CMDTAB *t;
+    const void (*ptr);
+
+    for(t = code_type[hash_code(code)]; t != NULL; t = t->next) {
+        if(code == t->cmd->code) {
+            ptr = t->cmd->ptr;
+            break;
         }
     }
-    return NONE;
+    return ptr;
 }
 
 /**
@@ -223,14 +205,11 @@ CMDTYPE getcmdtype(WORD code)
 void free_code_type()
 {
     int i;
-    CMDTAB *np, *nq;
-    for(i = 0; i < cmdtabsize; i++) {
-        np = code_type[i];
-        while(np != NULL) {
-            nq = np->next;
-            free_chk(np, "np");
-            np = nq;
+    CMDTAB *p, *q;
+    for(i = 0; i < CMDTABSIZE; i++) {
+        for(p = code_type[i]; p != NULL; p = q) {
+            q = p->next;
+            FREE(p);
         }
     }
-    free_chk(code_type, "code_type");
 }