READMEのCASL II仕様書へのリンクを修正

[YACASL2.git] / src / exec.c

diff --git a/src/exec.c b/src/exec.c
index 5d4e191..8df0765 100644 (file)
--- a/src/exec.c
+++ b/src/exec.c
@@ -215,25 +215,6 @@ void addcerrlist_exec()
     addcerrlist(ARRAYSIZE(cerr_exec), cerr_exec);
 }
 
-WORD loadassemble(const char *file, WORD start)
-{
-    FILE *fp = NULL;
-    WORD end = 0;
-
-    assert(file != NULL);
-    if((fp = fopen(file, "rb")) == NULL) {
-        perror(file);
-        return 0;
-    }
-    end = start + fread(sys->memory + start, sizeof(WORD), sys->memsize - start, fp);
-    if(end == sys->memsize) {
-        setcerr(210, file);    /* load - memory overflow */
-        fprintf(stderr, "Load error - %d: %s\n", cerr->num, cerr->msg);
-    }
-    fclose(fp);
-    return end;
-}
-
 void nop()
 {
     sys->cpu->pr += 1;
@@ -316,10 +297,11 @@ void suba_r1_r2()
 
 void addl_gr(WORD r, WORD val, bool add)
 {
-    unsigned long o, s;
+    unsigned long o = 0;
+    unsigned long s = 0;
 
     o = sys->cpu->gr[r];
-    sys->cpu->fr = 0x0;    /* flag initialize */
+    sys->cpu->fr = 0;    /* flag initialize */
 
     if(add == true) {
         s = o + val;