From: j8takagi <j8takagi@nifty.com>
Date: Sat, 13 Feb 2010 17:20:09 +0000 (+0900)
Subject: オブジェクトファイルの読込時、領域が足りない場合はすぐエラー201を発生
X-Git-Tag: v0.1~39
X-Git-Url: https://j8takagi.net/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f656c0e92ba6a746a6301bc8a26c6f5b5a4cdc3a;p=YACASL2.git

オブジェクトファイルの読込時、領域が足りない場合はすぐエラー201を発生
---

diff --git a/src/comet2.c b/src/comet2.c
index a3fc2a0..e2a9e3c 100644
--- a/src/comet2.c
+++ b/src/comet2.c
@@ -34,7 +34,11 @@ bool loadassemble(char *file) {
         perror(file);
         return false;
     }
-    endptr = startptr + fread(memory, sizeof(WORD), memsize, fp);
+    if((endptr = startptr + fread(memory, sizeof(WORD), memsize-startptr, fp)) == memsize) {
+        setcerr(201, NULL);    /* Load object file - full of COMET II memory */
+        fprintf(stderr, "Execute error - %d: %s\n", cerrno, cerrmsg);
+        return false;
+    }
     fclose(fp);
     return true;
 }