X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fexec.c;h=7e7a43181a1f46cfe0dcdf868e3f4ed8ad55d7c5;hb=c382a00ca44f99c57fe50b5b2ec6cafd457b16b5;hp=36543e93f61c3f0731e8759b2d844c62ece2f263;hpb=3964fd135fcf5f6309639096437dd7f07e0c035f;p=YACASL2.git

diff --git a/src/exec.c b/src/exec.c
index 36543e9..7e7a431 100644
--- a/src/exec.c
+++ b/src/exec.c
@@ -100,7 +100,7 @@ void svcin()
             break;
         }
         if(sys->cpu->gr[1] + i > execptr->end) {
-            setcerr(208, NULL);    /* SVC input - memory overflow */
+            setcerr(208, "");    /* SVC input - memory overflow */
             break;
         }
         sys->memory[sys->cpu->gr[1]+i] = *(buffer + i);
@@ -119,7 +119,7 @@ void svcout()
 
     for(i = 0; i < sys->memory[sys->cpu->gr[2]]; i++) {
         if(sys->cpu->gr[1] + i > execptr->end) {
-            setcerr(209, NULL);    /* SVC output - memory overflow */
+            setcerr(209, "");    /* SVC output - memory overflow */
             return;
         }
         /* 「文字の組」の符号表に記載された文字と、改行（CR）／タブを表示 */
@@ -263,7 +263,6 @@ void lad()
 /**
  * ADDA命令のテンプレート\n
  * 汎用レジスタrに値valを算術加算
- * \relates exec
  */
 void adda(WORD r, WORD val)
 {
@@ -337,7 +336,6 @@ void suba_r1_r2()
 /**
  * ADDL命令のテンプレート\n
  * 汎用レジスタrに値valを論理加算
- * \relates exec
  */
 void addl(WORD r, WORD val)
 {
@@ -525,8 +523,6 @@ void cpa_r1_r2()
  */
 void cpl(WORD r, WORD val)
 {
-    WORD w[1];
-    w[0] = sys->memory[sys->cpu->pr];
     sys->cpu->fr = 0x0;
     if(sys->cpu->gr[r] < val) {
         sys->cpu->fr = SF;
@@ -563,8 +559,8 @@ void cpl_r1_r2()
 
 /**
  * SLA命令 - オペランドr,adr,x。語長2\n
- * \relates exec
  * 算術演算なので、第15ビットは送り出されない
+ * \relates exec
  */
 void sla()
 {