implement fixed object support

This commit is contained in:
Joel Dice
2007-10-27 19:54:30 -06:00
parent 6710ca85d7
commit 60072b9fdc
16 changed files with 653 additions and 239 deletions

View File

@ -2955,11 +2955,11 @@ class MyProcessor: public Processor {
{
Thread* t = static_cast<Thread*>(vmt);
v->visit(&(t->code));
visit(t, v, &(t->code));
for (unsigned i = 0; i < t->sp; ++i) {
if (t->stack[i * 2] == ObjectTag) {
v->visit(t->stack + (i * 2) + 1);
visit(t, v, reinterpret_cast<object*>(t->stack + (i * 2) + 1));
}
}
}