Exemple #1
0
void
sl_pre_init_class(sl_vm_t* vm)
{
    sl_class_t* obj = (sl_class_t*)allocate_class(vm);
    vm->lib.Class = sl_make_ptr((sl_object_t*)obj);
    obj->extra->allocator = allocate_class;
    obj->base.klass = vm->lib.Class;
}
Exemple #2
0
void c_new_class(int  which, int  has_values) {
    array_t *cl;
    
    cl = allocate_class(&current_prog->classes[which], has_values);
    push_refed_class(cl);
}