From 748d341119da2d955c10cc797318280bab5f1237 Mon Sep 17 00:00:00 2001 From: Shinya Sato Date: Wed, 10 Nov 2021 19:44:52 +0900 Subject: v0.5.2 --- src/inpla.y | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) (limited to 'src') diff --git a/src/inpla.y b/src/inpla.y index 7b13db5..928a5c1 100644 --- a/src/inpla.y +++ b/src/inpla.y @@ -21,7 +21,7 @@ //#define COUNT_CNCT // count of execution of JMP_CNCT //#define COUNT_MKAGENT // count of execution fo mkagent -#define CELL_USE_VERBOSE // count of memory access +//#define CELL_USE_VERBOSE // count of memory access @@ -48,8 +48,8 @@ int ActiveThreadNum=0; //#define YYDEBUG 1 -#define VERSION "0.5.1" -#define BUILT_DATE "2 Nov. 2021" +#define VERSION "0.5.2" +#define BUILT_DATE "10 Nov. 2021" extern FILE *yyin; @@ -1278,12 +1278,18 @@ void freeName(VALUE ptr) { void freeAgentRec(VALUE ptr) { - + loop: - if ((IS_FLAG_AVAIL(BASIC(ptr)->id)) || - (IS_FIXNUM(ptr)) || (ptr == (VALUE)NULL)) { + if ((IS_FIXNUM(ptr)) || (ptr == (VALUE)NULL)) { return; - } else if (IS_NAMEID(BASIC(ptr)->id)) { + } + + if (IS_FLAG_AVAIL(BASIC(ptr)->id)) { + return; + } + + + if (IS_NAMEID(BASIC(ptr)->id)) { if (ptr == ShowNameHeap) return; if (NAME(ptr)->port != (VALUE)NULL) { -- cgit v1.2.3