X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=src%2Fassemble.c;fp=src%2Fassemble.c;h=a69837f6f4e2af44b27c9548416b00b0ca35da96;hp=8f092874a383b7f0825cff0eecbc7920fd431074;hb=019b584feedf0402e473fba3e0e7752db78e616a;hpb=d30262d3338bf9ad2f9a965a546834927a7238de

diff --git a/src/assemble.c b/src/assemble.c
index 8f09287..a69837f 100644
--- a/src/assemble.c
+++ b/src/assemble.c
@@ -184,9 +184,12 @@ WORD getliteral(const char *str, PASS pass)
  */
 void writememory(WORD word, WORD adr, PASS pass)
 {
+    char *n;
+
     /* メモリオーバーの場合、エラー発生 */
     if(adr >= sys->memsize) {
-        setcerr(119, word2n(adr));    /* out of COMET II memory */
+        setcerr(119, (n = word2n(adr)));    /* out of COMET II memory */
+        FREE(n)
         return;
     }
     (sys->memory)[adr] = word;