X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fexec.c;h=35aec47abe17a5e9b4b64ab2810f8957bde5d2d7;hb=0d225ac1f580c59da7a063ef52da35c0af254dd3;hp=da6fbad265cb9542a39bda72d64c7b0edb60c7ad;hpb=205ee1afdbd7eaffa3a12febfaa560c89280e7dd;p=YACASL2.git

diff --git a/src/exec.c b/src/exec.c
index da6fbad..35aec47 100644
--- a/src/exec.c
+++ b/src/exec.c
@@ -41,6 +41,7 @@ void svcin()
         sys->memory[sys->cpu->gr[1]+i] = *(buffer + i);
     }
     sys->memory[sys->cpu->gr[2]] = i + 1;
+    free_chk(buffer, "buffer");
 }
 
 /* 標準出力へ文字データを書出（SVC 2） */
@@ -347,6 +348,7 @@ bool exec()
                 val = sys->memory[val];
             }
         }
+        free_chk(errpr, "errpr");
         /* 主オペランドが1〜4の場合、第2ビットを無視 */
         if(op >= 0x1000 && op <= 0x4FFF) {
             op &= 0xFB00;