Ejemplo n.º 1
0
Archivo: gc.cpp Proyecto: Renha/factor
    void operator()(void *frame_top, cell frame_size, code_block *owner, void *addr)
    {
        cell return_address = owner->offset(addr);

        gc_info *info = owner->block_gc_info();

        FACTOR_ASSERT(return_address < owner->size());
        cell index = info->return_address_index(return_address);
        if(index != (cell)-1)
            ctx->scrub_stacks(info,index);
    }