X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=src%2Fstruct.c;h=0662effea8bdd192e0981f08e4aa44d5a3e2c439;hp=8e6060153375977166e2fdc0c51ab0ffa66e983e;hb=a639337a9aa30a059c1695ab1701b8714fd26193;hpb=288d61424576d1aae956ea8e4b5fb89dc25909db

diff --git a/src/struct.c b/src/struct.c
index 8e60601..0662eff 100644
--- a/src/struct.c
+++ b/src/struct.c
@@ -1,38 +1,47 @@
-#include "casl2.h"
+#include "struct.h"
+#include "cmem.h"
 
-/* COMET IIの仮装実行マシンシステム */
+/**
+ * COMET IIの仮想実行マシンシステム
+ */
 SYSTEM *sys;
 
-/* CASL IIプログラムのプロパティ */
-PROGPROP *prog;
+/**
+ * プログラム実行時の開始と終了のアドレス
+ */
+EXECPTR *execptr;
 
-/* COMET II仮想マシンのリセット */
+/**
+ * COMET II仮想マシンのリセット
+ */
 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++) {
         sys->cpu->gr[i] = 0x0;
     }
     sys->cpu->sp = sys->cpu->pr = sys->cpu->fr = 0x0;
-    /* CASL2プログラムのプロパティ */
-    prog = malloc_chk(sizeof(PROGPROP), "prog");
+    /* CASL2プログラムの開始と終了のアドレスを初期化 */
+    execptr = malloc_chk(sizeof(execptr), "prog");
 }
 
-/* COMET II仮想マシンのシャットダウン */
+/**
+ * COMET II仮想マシンのシャットダウン
+ */
 void shutdown()
 {
-    free(prog);
-    free(sys->memory);
-    free(sys->cpu);
-    free(sys);
+    free_chk(execptr, "execptr");
+    free_chk(sys->memory, "sys.memory");
+    free_chk(sys->cpu, "sys.cpu");
+    free_chk(sys, "sys");
 }