diff options
| author | Matthias Benkard <mulk@minimulk.mst-plus> | 2008-08-08 19:06:58 +0200 |
|---|---|---|
| committer | Matthias Benkard <mulk@minimulk.mst-plus> | 2008-08-08 19:06:58 +0200 |
| commit | af415e7e63dc62416cd73a4f146e26e8f3e55c6f (patch) | |
| tree | 74ae005473cc14c9769b21fd84466171e57030e8 /MLKForeignProcedure.m | |
| parent | 1ec0f143110288a504bd0c267614ea7d1447e804 (diff) | |
MLKForeignProcedure: Do not free(3) the foreign function in -dealloc.
Diffstat (limited to 'MLKForeignProcedure.m')
| -rw-r--r-- | MLKForeignProcedure.m | 6 |
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 |