aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAleksey Veresov <aleksey@veresov.pro>2021-03-28 15:26:55 +0300
committerAleksey Veresov <aleksey@veresov.pro>2021-03-28 15:26:55 +0300
commit9756ebfe2e6270514f4eb4afb4f9867ae7589e36 (patch)
tree70d789fd1cf3d85adbf416c094975712c3812f50 /src
parent4a922de4ceae013eb2845ab4ac890f00fe7e0e23 (diff)
downloadcsx-9756ebfe2e6270514f4eb4afb4f9867ae7589e36.tar
csx-9756ebfe2e6270514f4eb4afb4f9867ae7589e36.tar.xz
csx-9756ebfe2e6270514f4eb4afb4f9867ae7589e36.zip
Names are not garbage collected now.
Should be done in other way.
Diffstat (limited to 'src')
-rw-r--r--src/csx.c40
1 files changed, 1 insertions, 39 deletions
diff --git a/src/csx.c b/src/csx.c
index 675d6c9..f306fa2 100644
--- a/src/csx.c
+++ b/src/csx.c
@@ -102,7 +102,7 @@ static void sweep(csxi *csx)
int i;
csx->objs = 0;
for (i = 0; i != len; ++i) {
- if (old[i]->mark) {
+ if (old[i]->mark || old[i]->type == csx->basenames.name) {
old[i]->mark = 0;
pushobj(csx, old[i]);
} else {
@@ -112,48 +112,10 @@ static void sweep(csxi *csx)
free(old);
}
-static void mark_basenames(csxi *csx)
-{
- csxbasenames *n = &csx->basenames;
- csx_obj(n->name)->mark = 1;
- csx_obj(n->pair)->mark = 1;
- csx_obj(n->str)->mark = 1;
- csx_obj(n->_int)->mark = 1;
- csx_obj(n->base)->mark = 1;
- csx_obj(n->fn)->mark = 1;
- csx_obj(n->sx)->mark = 1;
- csx_obj(n->set)->mark = 1;
- csx_obj(n->_isset)->mark = 1;
- csx_obj(n->sethead)->mark = 1;
- csx_obj(n->settail)->mark = 1;
- csx_obj(n->head)->mark = 1;
- csx_obj(n->tail)->mark = 1;
- csx_obj(n->qt)->mark = 1;
- csx_obj(n->same)->mark = 1;
- csx_obj(n->type)->mark = 1;
- csx_obj(n->_do)->mark = 1;
- csx_obj(n->_if)->mark = 1;
- csx_obj(n->_plus)->mark = 1;
- csx_obj(n->_star)->mark = 1;
- csx_obj(n->neg)->mark = 1;
- csx_obj(n->div)->mark = 1;
- csx_obj(n->mod)->mark = 1;
- csx_obj(n->_less)->mark = 1;
- csx_obj(n->_more)->mark = 1;
- csx_obj(n->out)->mark = 1;
- csx_obj(n->in)->mark = 1;
- csx_obj(n->len)->mark = 1;
- csx_obj(n->run)->mark = 1;
- csx_obj(n->context)->mark = 1;
- csx_obj(n->newcontext)->mark = 1;
- csx_obj(n->_exit)->mark = 1;
-}
-
static void gc(csxi *csx)
{
int i;
if (csx->objslen < csx->lastlen * 2) return;
- mark_basenames(csx);
csx_obj(csx->null)->mark = 1;
csx_obj(csx->one)->mark = 1;
deepmark(csx, csx->context);