quakeforge/ruamoko/lib/AutoreleasePool.r
Bill Currie 6d494bfcdf Fix a slew of warnings found by -Wall.
-Wall still isn't used yet due to a missing method in Array, and
overzealous warnings in qfcc, but this covers the necessary fixes.
2010-12-16 20:01:49 +09:00

61 lines
969 B
R

#include "AutoreleasePool.h"
#include "Array+Private.h"
//@static AutoreleasePool sharedInstance;
@static Array poolStack;
//@static Stack poolStack;
@implementation AutoreleasePool
- (id) init
{
if (!(self = [super init]))
return NIL;
if (!poolStack)
poolStack = [[Array alloc] initWithCapacity: 1];
[poolStack addObjectNoRetain: self];
array = [Array new];
return self;
}
+ (void) addObject: (id)anObject
{
if (!poolStack || [poolStack count])
[[AutoreleasePool alloc] init];
[[poolStack lastObject] addObject: anObject];
}
- (void) addObject: (id)anObject
{
[array addObjectNoRetain: anObject];
}
- (id) retain
{
[self error: "Don't send -retain to an autorelease pool."];
}
- (id) autorelease
{
[self error: "Don't send -autorelease to an autorelease pool."];
}
- (void) dealloc
{
[array release];
[poolStack removeObjectNoRelease: self];
[super dealloc];
}
@end
void
ARP_FreeAllPools (void)
{
[poolStack removeAllObjects];
}