summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <mulk@minimulk.mst-plus>2008-08-08 19:06:58 +0200
committerMatthias Benkard <mulk@minimulk.mst-plus>2008-08-08 19:06:58 +0200
commitaf415e7e63dc62416cd73a4f146e26e8f3e55c6f (patch)
tree74ae005473cc14c9769b21fd84466171e57030e8
parent1ec0f143110288a504bd0c267614ea7d1447e804 (diff)
MLKForeignProcedure: Do not free(3) the foreign function in -dealloc.
-rw-r--r--MLKForeignProcedure.m6
1 files changed, 1 insertions, 5 deletions
diff --git a/MLKForeignProcedure.m b/MLKForeignProcedure.m
index 248a184..459ce97 100644
--- a/MLKForeignProcedure.m
+++ b/MLKForeignProcedure.m
@@ -105,21 +105,17 @@
-(NSString *) descriptionForLisp
{
- return [NSString stringWithFormat:@"<Compiled procedure @%p>", self];
+ return [NSString stringWithFormat:@"<Foreign procedure %p @%p>", _code, self];
}
-(void) dealloc
{
- // FIXME: Can we really just use free() here?
- free (_code);
free (_argumentTypes);
[super dealloc];
}
-(void) finalize
{
- // FIXME: Can we really just use free() here?
- free (_code);
free (_argumentTypes);
}
@end