From: j8takagi <j8takagi@nifty.com>
Date: Mon, 8 Feb 2010 19:39:47 +0000 (+0900)
Subject: GR3が不正な場合のエラーを修正
X-Git-Tag: v0.1~57
X-Git-Url: https://j8takagi.net/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f958640f07ddce6100e7eed1504ecaf05f6c1f02;p=YACASL2.git

GR3が不正な場合のエラーを修正
---

diff --git a/src/assemble.c b/src/assemble.c
index 811f670..36edd2b 100644
--- a/src/assemble.c
+++ b/src/assemble.c
@@ -314,6 +314,7 @@ bool cometcmd(const CMDLINE *cmdl, PASS pass)
             /* オペランド数3 */
             if(cmdl->opd->opdc == 3) {
                 if((x = getgr(cmdl->opd->opdv[2], true)) == 0xFFFF) {
+                    setcerr(125, cmdl->cmd);    /* not GR in operand x */
                     return false;
                 }
                 cmd |= x;
diff --git a/src/casl2.c b/src/casl2.c
index 35f9a80..8e0b94a 100644
--- a/src/casl2.c
+++ b/src/casl2.c
@@ -54,6 +54,7 @@ CERRARRAY cerr[] = {
     { 122, "cannot create hash table" },
     { 123, "illegal string" },
     { 124, "more than one character in literal" },
+    { 125, "not GR in operand x" },
     { 201, "execute - out of COMET II memory" },
     { 202, "SVC input - out of Input memory" },
     { 203, "SVC output - out of COMET II memory" },