X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fstruct.c;h=4e38f2e0d15e0339c1ccc5bb975d803892625bb5;hb=be496380efb4018b38076cfadb4b790fa388a1e3;hp=c1a15429b6b7924b1758eca63d7cf093ee1e893d;hpb=15a07be760d84746bbace2d70326cd939f4568fd;p=YACASL2.git

diff --git a/src/struct.c b/src/struct.c
index c1a1542..4e38f2e 100644
--- a/src/struct.c
+++ b/src/struct.c
@@ -14,7 +14,7 @@ EXECPTR *execptr;
 /**
  * システムCOMET IIの命令表
  */
-static COMET2CMD comet2cmd[] = {
+static const COMET2CMD comet2cmd[] = {
     { "NOP", NONE, 0x0, nop },
     { "LD", R_ADR_X, 0x1000, ld_r_adr_x },
     { "ST", R_ADR_X, 0x1100, st },
@@ -238,6 +238,18 @@ char *getcmdname(WORD code)
     return cmd;
 }
 
+/**
+ * 汎用レジスタの番号からレジスタを表す文字列を返す
+ */
+
+char *grstr(WORD word)
+{
+    assert(word <= 7);
+    char *str = malloc_chk(3 + 1, "grstr.str");
+    sprintf(str, "GR%d", word);
+    return str;
+}
+
 /**
  * コードがキーの命令ハッシュ表を解放する
  */