apparently nothing uses the bc field in Comp anymore
This commit is contained in:
parent
eb62b48e4e
commit
1d8479b589
3
src/ns.c
3
src/ns.c
@ -104,13 +104,12 @@ static i32* emptyi32ptr;
|
|||||||
static B emptyi32obj;
|
static B emptyi32obj;
|
||||||
Body* m_nnsDescF(i32 n, char** names) {
|
Body* m_nnsDescF(i32 n, char** names) {
|
||||||
if (emptyi32ptr==NULL) gc_add(emptyi32obj = m_i32arrv(&emptyi32ptr, 0));
|
if (emptyi32ptr==NULL) gc_add(emptyi32obj = m_i32arrv(&emptyi32ptr, 0));
|
||||||
incByG(emptyi32obj, 3);
|
incByG(emptyi32obj, 2);
|
||||||
|
|
||||||
M_HARR(nl, n)
|
M_HARR(nl, n)
|
||||||
for (usz i = 0; i < n; i++) HARR_ADD(nl, i, m_c8vec_0(names[i]));
|
for (usz i = 0; i < n; i++) HARR_ADD(nl, i, m_c8vec_0(names[i]));
|
||||||
|
|
||||||
Comp* comp = mm_alloc(sizeof(Comp), t_comp);
|
Comp* comp = mm_alloc(sizeof(Comp), t_comp);
|
||||||
comp->bc = emptyi32obj;
|
|
||||||
comp->indices = bi_N;
|
comp->indices = bi_N;
|
||||||
comp->src = bi_N;
|
comp->src = bi_N;
|
||||||
comp->path = bi_N;
|
comp->path = bi_N;
|
||||||
|
|||||||
7
src/vm.c
7
src/vm.c
@ -458,7 +458,6 @@ NOINLINE Block* compileAll(B bcq, B objs, B allBlocks, B allBodies, B indices, B
|
|||||||
u32* bc = (u32*)bca->a;
|
u32* bc = (u32*)bca->a;
|
||||||
usz bcIA = PIA(bca);
|
usz bcIA = PIA(bca);
|
||||||
Comp* comp = mm_alloc(sizeof(Comp), t_comp);
|
Comp* comp = mm_alloc(sizeof(Comp), t_comp);
|
||||||
comp->bc = taga(bca);
|
|
||||||
comp->indices = indices;
|
comp->indices = indices;
|
||||||
comp->src = src;
|
comp->src = src;
|
||||||
comp->path = path;
|
comp->path = path;
|
||||||
@ -491,7 +490,7 @@ NOINLINE Block* compileAll(B bcq, B objs, B allBlocks, B allBodies, B indices, B
|
|||||||
for (usz i = 0; i < bIA; i++) bDone[i] = false;
|
for (usz i = 0; i < bIA; i++) bDone[i] = false;
|
||||||
Block* ret = compileBlock(IGetU(allBlocks, 0), comp, bDone, bc, bcIA, allBlocks, allBodies, nameList, sc, 0, 0, nsResult);
|
Block* ret = compileBlock(IGetU(allBlocks, 0), comp, bDone, bc, bcIA, allBlocks, allBodies, nameList, sc, 0, 0, nsResult);
|
||||||
TFREE(bDone);
|
TFREE(bDone);
|
||||||
ptr_dec(comp); decG(allBlocks); decG(allBodies); dec(tokenInfo);
|
ptr_dec(comp); decG(allBlocks); decG(allBodies); dec(tokenInfo); decG(taga(bca));
|
||||||
return ret;
|
return ret;
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -1085,7 +1084,7 @@ DEF_FREE(block) {
|
|||||||
i32 am = c->bodyCount;
|
i32 am = c->bodyCount;
|
||||||
for (i32 i = 0; i < am; i++) ptr_decR(c->bodies[i]);
|
for (i32 i = 0; i < am; i++) ptr_decR(c->bodies[i]);
|
||||||
}
|
}
|
||||||
DEF_FREE(comp) { Comp* c = (Comp *)x; if (c->objs!=NULL) ptr_decR(c->objs); decR(c->bc); decR(c->src); decR(c->indices); decR(c->path); decR(c->nameList); }
|
DEF_FREE(comp) { Comp* c = (Comp *)x; if (c->objs!=NULL) ptr_decR(c->objs); decR(c->src); decR(c->indices); decR(c->path); decR(c->nameList); }
|
||||||
DEF_FREE(funBl) { FunBlock* c = (FunBlock*)x; ptr_dec(c->sc); ptr_decR(c->bl); }
|
DEF_FREE(funBl) { FunBlock* c = (FunBlock*)x; ptr_dec(c->sc); ptr_decR(c->bl); }
|
||||||
DEF_FREE(md1Bl) { Md1Block* c = (Md1Block*)x; ptr_dec(c->sc); ptr_decR(c->bl); }
|
DEF_FREE(md1Bl) { Md1Block* c = (Md1Block*)x; ptr_dec(c->sc); ptr_decR(c->bl); }
|
||||||
DEF_FREE(md2Bl) { Md2Block* c = (Md2Block*)x; ptr_dec(c->sc); ptr_decR(c->bl); }
|
DEF_FREE(md2Bl) { Md2Block* c = (Md2Block*)x; ptr_dec(c->sc); ptr_decR(c->bl); }
|
||||||
@ -1119,7 +1118,7 @@ void block_visit(Value* x) {
|
|||||||
i32 am = c->bodyCount;
|
i32 am = c->bodyCount;
|
||||||
for (i32 i = 0; i < am; i++) mm_visitP(c->bodies[i]);
|
for (i32 i = 0; i < am; i++) mm_visitP(c->bodies[i]);
|
||||||
}
|
}
|
||||||
void comp_visit(Value* x) { Comp* c = (Comp *)x; mm_visitP(c->objs); mm_visit(c->bc); mm_visit(c->src); mm_visit(c->indices); mm_visit(c->path); mm_visit(c->nameList); }
|
void comp_visit(Value* x) { Comp* c = (Comp *)x; mm_visitP(c->objs); mm_visit(c->src); mm_visit(c->indices); mm_visit(c->path); mm_visit(c->nameList); }
|
||||||
void funBl_visit(Value* x) { FunBlock* c = (FunBlock*)x; mm_visitP(c->sc); mm_visitP(c->bl); }
|
void funBl_visit(Value* x) { FunBlock* c = (FunBlock*)x; mm_visitP(c->sc); mm_visitP(c->bl); }
|
||||||
void md1Bl_visit(Value* x) { Md1Block* c = (Md1Block*)x; mm_visitP(c->sc); mm_visitP(c->bl); }
|
void md1Bl_visit(Value* x) { Md1Block* c = (Md1Block*)x; mm_visitP(c->sc); mm_visitP(c->bl); }
|
||||||
void md2Bl_visit(Value* x) { Md2Block* c = (Md2Block*)x; mm_visitP(c->sc); mm_visitP(c->bl); }
|
void md2Bl_visit(Value* x) { Md2Block* c = (Md2Block*)x; mm_visitP(c->sc); mm_visitP(c->bl); }
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user