hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

simplified code a bit

Browse Source
This commit is contained in:
hyunghwan.chung 2018-10-11 10:07:41 +00:00
parent 1cbe741508
commit d638adc434
1 changed files with 34 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
moo/lib/comp.c
View File

@ -8916,19 +8916,23 @@ static int compile_stream (moo_t* moo)
return 0; return 0;
} }
static void gc_oopbuf (moo_t* moo, moo_oopbuf_t* oopbuf)
{
moo_oow_t i;
for (i = 0; i < oopbuf->count; i++)
{
register moo_oop_t x = moo_moveoop(moo, oopbuf->ptr[i]);
oopbuf->ptr[i] = x;
}
}
static void gc_compiler (moo_t* moo) static void gc_compiler (moo_t* moo)
{ {
/* called when garbage collection is performed */ /* called when garbage collection is performed */
if (moo->c) if (moo->c)
{ {
moo_oow_t i; gc_oopbuf (moo, &moo->c->arlit);
for (i = 0; i < moo->c->arlit.count; i++)
{
register moo_oop_t x = moo_moveoop(moo, moo->c->arlit.ptr[i]);
moo->c->arlit.ptr[i] = x;
}
gc_cunit_chain (moo); gc_cunit_chain (moo);
} }
} }
@ -8961,54 +8965,45 @@ static void gc_cunit_chain (moo_t* moo)
case MOO_CUNIT_CLASS: case MOO_CUNIT_CLASS:
{ {
moo_oow_t i, j; moo_oow_t i, j;
moo_cunit_class_t* c; moo_cunit_class_t* cc;
c = (moo_cunit_class_t*)cunit; cc = (moo_cunit_class_t*)cunit;
if (c->self_oop) if (cc->self_oop)
c->self_oop = (moo_oop_class_t)moo_moveoop(moo, (moo_oop_t)c->self_oop); cc->self_oop = (moo_oop_class_t)moo_moveoop(moo, (moo_oop_t)cc->self_oop);
if (c->super_oop) if (cc->super_oop)
c->super_oop = moo_moveoop(moo, c->super_oop); cc->super_oop = moo_moveoop(moo, cc->super_oop);
for (i = 0; i < MOO_COUNTOF(c->var); i++) for (i = 0; i < MOO_COUNTOF(cc->var); i++)
{ {
for (j = 0; j < c->var[i].initv_count; j++) for (j = 0; j < cc->var[i].initv_count; j++)
{ {
register moo_oop_t x = c->var[i].initv[j].v; register moo_oop_t x = cc->var[i].initv[j].v;
if (x) c->var[i].initv[j].v = moo_moveoop(moo, x); if (x) cc->var[i].initv[j].v = moo_moveoop(moo, x);
} }
} }
if (c->ns_oop) if (cc->ns_oop)
{ {
register moo_oop_t x = moo_moveoop(moo, (moo_oop_t)c->ns_oop); register moo_oop_t x = moo_moveoop(moo, (moo_oop_t)cc->ns_oop);
c->ns_oop = (moo_oop_nsdic_t)x; cc->ns_oop = (moo_oop_nsdic_t)x;
} }
if (c->superns_oop) if (cc->superns_oop)
{ {
register moo_oop_t x = moo_moveoop(moo, (moo_oop_t)c->superns_oop); register moo_oop_t x = moo_moveoop(moo, (moo_oop_t)cc->superns_oop);
c->superns_oop = (moo_oop_nsdic_t)x; cc->superns_oop = (moo_oop_nsdic_t)x;
} }
for (i = 0; i < c->ifces.count; i++) gc_oopbuf (moo, &cc->ifces);
for (i = 0; i < cc->pdimp.dcl_count; i++)
{ {
register moo_oop_t x = moo_moveoop(moo, c->ifces.ptr[i]); register moo_oop_t x = moo_moveoop(moo, (moo_oop_t)cc->pdimp.oops[i]);
c->ifces.ptr[i] = x; cc->pdimp.oops[i] = (moo_oop_dic_t)x;
}
for (i = 0; i < c->pdimp.dcl_count; i++)
{
register moo_oop_t x = moo_moveoop(moo, (moo_oop_t)c->pdimp.oops[i]);
c->pdimp.oops[i] = (moo_oop_dic_t)x;
}
for (i = 0; i < c->mth.literals.count; i++)
{
register moo_oop_t x = moo_moveoop(moo, c->mth.literals.ptr[i]);
c->mth.literals.ptr[i] = x;
} }
gc_oopbuf (moo, &cc->mth.literals);
break; break;
} }