X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=src%2Fstruct.c;h=2d3c67f0d5d39e308809c80eca9ae0b732cca29a;hp=58a35857c4668550fb5b2ecd33eec1fb2c81299a;hb=60d4c2573a30a48520545195b9ef89814fc60708;hpb=7f7bde5dd1305cfc598fe09030c69aad0dc01368

diff --git a/src/struct.c b/src/struct.c
index 58a3585..2d3c67f 100644
--- a/src/struct.c
+++ b/src/struct.c
@@ -2,14 +2,14 @@
 #include "cmem.h"
 
 /**
- * COMET IIの仮装実行マシンシステム
+ * COMET IIの仮想実行マシンシステム
  */
 SYSTEM *sys;
 
 /**
- * CASL IIプログラムのプロパティ
+ * プログラム実行時の開始と終了のアドレス
  */
-PROGPROP *prog;
+EXECPTR *execptr;
 
 /**
  * COMET II仮想マシンのリセット
@@ -19,20 +19,23 @@ void reset(int memsize, int clocks)
     int i;
 
     sys = malloc_chk(sizeof(SYSTEM), "sys");
-    /* メモリサイズの設定 */
+    /* メモリサイズを設定 */
     sys->memsize = memsize;
-    /* クロック周波数の設定 */
+    /* クロック周波数を設定 */
     sys->clocks = clocks;
-    /* メモリの初期化 */
+    /* メモリを初期化 */
     sys->memory = calloc_chk(sys->memsize, sizeof(WORD), "memory");
-    /* CPUの初期化 */
+    /* CPUを初期化 */
     sys->cpu = malloc_chk(sizeof(CPU), "cpu");
-    for(i = 0; i < GRSIZE; i++) {
+    for(i = 0; i < GRSIZE; i++) {                    /* 汎用レジスタ  */
         sys->cpu->gr[i] = 0x0;
     }
-    sys->cpu->sp = sys->cpu->pr = sys->cpu->fr = 0x0;
-    /* CASL2プログラムのプロパティ */
-    prog = malloc_chk(sizeof(PROGPROP), "prog");
+    sys->cpu->sp = sys->memsize;   /* スタックポインタ */
+    sys->cpu->pr = 0x0;            /* プログラムレジスタ */
+    sys->cpu->fr = 0x0;            /* フラグレジスタ */
+    /* CASL2プログラムの開始と終了のアドレスを初期化 */
+    execptr = malloc_chk(sizeof(EXECPTR), "execptr");
+    execptr->stop = false;
 }
 
 /**
@@ -40,8 +43,8 @@ void reset(int memsize, int clocks)
  */
 void shutdown()
 {
-    free_chk(prog, "prog");
-    free_chk(sys->memory, "sys.memory");
-    free_chk(sys->cpu, "sys.cpu");
-    free_chk(sys, "sys");
+    FREE(execptr);
+    FREE(sys->memory);
+    FREE(sys->cpu);
+    FREE(sys);
 }