diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-04 16:20:18 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-04 16:20:18 +0200 |
| commit | a4c9f5bd436dae1d99845f50da55bae733129f56 (patch) | |
| tree | 22a1718222ab8d76f928cfaa4740442a4d43c1fd /MLKInterpreter.m | |
| parent | a0b4d1eafa4312b5970f7268441d848be5231e7b (diff) | |
Add fixnum-aware macros LRETAIN, LRELEASE, LDESTROY, LAUTORELEASE, LASSIGN_COPY, and LASSIGN.
Diffstat (limited to 'MLKInterpreter.m')
| -rw-r--r-- | MLKInterpreter.m | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/MLKInterpreter.m b/MLKInterpreter.m index e90249a..cfb70a9 100644 --- a/MLKInterpreter.m +++ b/MLKInterpreter.m @@ -321,14 +321,14 @@ static MLKSymbol *MULTIPLE_VALUE_CALL; NSArray *); [MLKDynamicContext popContext]; - RELEASE (newctx); + LRELEASE (newctx); NS_VALUERETURN (values, NSArray *); } NS_HANDLER { [MLKDynamicContext popContext]; - RELEASE (newctx); + LRELEASE (newctx); if ([[localException name] isEqualToString:@"MLKThrow"]) { @@ -574,7 +574,7 @@ static MLKSymbol *MULTIPLE_VALUE_CALL; with:nil]]]); } - closure = AUTORELEASE ([[MLKInterpretedClosure alloc] + closure = LAUTORELEASE ([[MLKInterpretedClosure alloc] initWithBodyForms:body lambdaListName:lambdaList context:context @@ -602,7 +602,7 @@ static MLKSymbol *MULTIPLE_VALUE_CALL; declarations = nil; } - ctx = AUTORELEASE ([[MLKLexicalContext alloc] + ctx = LAUTORELEASE ([[MLKLexicalContext alloc] initWithParent:context variables:nil functions:nil @@ -675,7 +675,7 @@ static MLKSymbol *MULTIPLE_VALUE_CALL; declarations = nil; } - ctx = AUTORELEASE ([[MLKLexicalContext alloc] + ctx = LAUTORELEASE ([[MLKLexicalContext alloc] initWithParent:context variables:nil functions:nil @@ -686,7 +686,7 @@ static MLKSymbol *MULTIPLE_VALUE_CALL; declarations:declarations]); if (!expandOnly) - env = AUTORELEASE ([[MLKLexicalEnvironment alloc] + env = LAUTORELEASE ([[MLKLexicalEnvironment alloc] initWithParent:lexenv variables:nil functions:nil]); @@ -761,7 +761,7 @@ static MLKSymbol *MULTIPLE_VALUE_CALL; declarations = nil; } - ctx = AUTORELEASE ([[MLKLexicalContext alloc] + ctx = LAUTORELEASE ([[MLKLexicalContext alloc] initWithParent:context variables:nil functions:nil @@ -773,7 +773,7 @@ static MLKSymbol *MULTIPLE_VALUE_CALL; if (!expandOnly) { - env = AUTORELEASE ([[MLKLexicalEnvironment alloc] + env = LAUTORELEASE ([[MLKLexicalEnvironment alloc] initWithParent:lexenv variables:nil functions:nil]); @@ -871,7 +871,7 @@ static MLKSymbol *MULTIPLE_VALUE_CALL; NS_ENDHANDLER; [MLKDynamicContext popContext]; - RELEASE (dynctx); + LRELEASE (dynctx); return result; } @@ -1022,7 +1022,7 @@ static MLKSymbol *MULTIPLE_VALUE_CALL; NS_ENDHANDLER; [MLKDynamicContext popContext]; - RELEASE (dynctx); + LRELEASE (dynctx); return result; } @@ -1432,7 +1432,7 @@ static MLKSymbol *MULTIPLE_VALUE_CALL; expandOnly:NO]; //NSLog (@"; LOAD: Top-level form evaluated."); - RELEASE (pool); + LRELEASE (pool); if (print) { |