quakeforge/ruamoko/scheme/Frame.r

49 lines
718 B
R
Raw Normal View History

#include "Frame.h"
@implementation Frame
+ (id) newWithSize: (int) sz link: (Frame *) l
{
return [[self alloc] initWithSize: sz link: l];
}
- (id) initWithSize: (int) sz link: (Frame *) l
{
self = [super init];
size = sz;
link = l;
array = obj_malloc(@sizeof (id) * size);
return self;
}
- (void) set: (int) index to: (SchemeObject *) o
{
array[index] = o;
}
- (SchemeObject *) get: (int) index
{
return array[index];
}
2011-02-14 13:39:43 +00:00
- (Frame *) getLink
{
return link;
}
- (void) markReachable
{
local int index;
for (index = 0; index < size; index++) {
[array[index] mark];
}
[link mark];
}
- (void) dealloc
{
obj_free(array);
[super dealloc];
}
@end