summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-08-25 12:45:25 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-08-25 12:45:25 +0200
commit865c8a08dc0782afa69f0b5c91329fabce29daec (patch)
tree39869932ddad97bd6dfa89df23173c79de8e6776
parent1fa1c0d5ba09fe07ecd190c9c5fa1bf6fa3a5afb (diff)
MLKForm class cluster: Add appropriate -dealloc methods.
-rw-r--r--MLKForm.m169
1 files changed, 167 insertions, 2 deletions
diff --git a/MLKForm.m b/MLKForm.m
index 4ca222e..6fc3152 100644
--- a/MLKForm.m
+++ b/MLKForm.m
@@ -120,8 +120,8 @@
-(id) complete
{
self = [super complete];
- _head = [_form car];
- _tail = [_form cdr];
+ LASSIGN (_head, [_form car]);
+ LASSIGN (_tail, [_form cdr]);
return self;
}
@@ -150,6 +150,13 @@
else if (car == UNWIND_PROTECT) return [MLKUnwindProtectForm class];
else return [MLKSimpleCompoundForm class];
}
+
+-(void) dealloc
+{
+ LDESTROY (_head);
+ LDESTROY (_tail);
+ [super dealloc];
+}
@end
@@ -265,6 +272,14 @@
{
return _bodyForms;
}
+
+-(void) dealloc
+{
+ LDESTROY (_body);
+ LDESTROY (_bodyForms);
+ LDESTROY (_bodyContext);
+ [super dealloc];
+}
@end
@@ -284,6 +299,13 @@
{
return [[super subforms] arrayByAddingObjectsFromArray:_declarationForms];
}
+
+-(void) dealloc
+{
+ LDESTROY (_declarations);
+ LDESTROY (_declarationForms);
+ [super dealloc];
+}
@end
@@ -292,6 +314,12 @@
{
MLKSplitDeclarationsDocAndForms(&_declarations, &_documentation, &_body, object, YES);
}
+
+-(void) dealloc
+{
+ LDESTROY (_documentation);
+ [super dealloc];
+}
@end
@@ -320,6 +348,12 @@
{
return [[super subforms] arrayByAddingObjectsFromArray:_argumentForms];
}
+
+-(void) dealloc
+{
+ LDESTROY (_argumentForms);
+ [super dealloc];
+}
@end
@@ -337,6 +371,12 @@
return [[[super subforms] arrayByAddingObject:_tagForm]
arrayByAddingObjectsFromArray:_bodyForms];
}
+
+-(void) dealloc
+{
+ LDESTROY (_tagForm);
+ [super dealloc];
+}
@end
@@ -385,6 +425,14 @@
return self;
}
+
+-(void) dealloc
+{
+ LDESTROY (_foreignName);
+ LDESTROY (_foreignLibraryDesignator);
+ free (_argumentTypes);
+ [super dealloc];
+}
@end
@@ -400,6 +448,12 @@
return self;
}
+
+-(void) dealloc
+{
+ LDESTROY (_lambdaList);
+ [super dealloc];
+}
@end
@@ -428,6 +482,12 @@
{
return [[super subforms] arrayByAddingObject:_lambdaForm];
}
+
+-(void) dealloc
+{
+ LDESTROY (_lambdaForm);
+ [super dealloc];
+}
@end
@@ -438,6 +498,12 @@
LASSIGN (_functionName, [_tail car]);
return self;
}
+
+-(void) dealloc
+{
+ LDESTROY (_functionName);
+ [super dealloc];
+}
@end
@@ -457,6 +523,14 @@
arrayByAddingObject:_consequentForm]
arrayByAddingObject:_alternativeForm];
}
+
+-(void) dealloc
+{
+ LDESTROY (_conditionForm);
+ LDESTROY (_consequentForm);
+ LDESTROY (_alternativeForm);
+ [super dealloc];
+}
@end
@@ -467,6 +541,12 @@
LASSIGN (_packageDesignator, [_tail car]);
return self;
}
+
+-(void) dealloc
+{
+ LDESTROY (_packageDesignator);
+ [super dealloc];
+}
@end
@@ -496,6 +576,12 @@
{
return _lambdaListName;
}
+
+-(void) dealloc
+{
+ LDESTROY (_lambdaListName);
+ [super dealloc];
+}
@end
@@ -584,6 +670,12 @@
{
return [[super subforms] arrayByAddingObjectsFromArray:_functionBindingForms];
}
+
+-(void) dealloc
+{
+ LDESTROY (_functionBindingForms);
+ [super dealloc];
+}
@end
@@ -640,6 +732,12 @@
{
return [[super subforms] arrayByAddingObjectsFromArray:_variableBindingForms];
}
+
+-(void) dealloc
+{
+ LDESTROY (_variableBindingForms);
+ [super dealloc];
+}
@end
@@ -689,6 +787,12 @@
{
return [[super subforms] arrayByAddingObject:_functionForm];
}
+
+-(void) dealloc
+{
+ LDESTROY (_functionForm);
+ [super dealloc];
+}
@end
@@ -717,6 +821,13 @@
return [[[super subforms] arrayByAddingObject:_variableListForm]
arrayByAddingObject:_valueListForm];
}
+
+-(void) dealloc
+{
+ LDESTROY (_variableListForm);
+ LDESTROY (_valueListForm);
+ [super dealloc];
+}
@end
@@ -727,6 +838,12 @@
LASSIGN (_quotedData, [_tail car]);
return self;
}
+
+-(void) dealloc
+{
+ LDESTROY (_quotedData);
+ [super dealloc];
+}
@end
@@ -757,6 +874,13 @@
{
return [[super subforms] arrayByAddingObjectsFromArray:_valueForms];
}
+
+-(void) dealloc
+{
+ LDESTROY (_variables);
+ LDESTROY (_valueForms);
+ [super dealloc];
+}
@end
@@ -787,6 +911,13 @@
{
return [[super subforms] arrayByAddingObjectsFromArray:_valueForms];
}
+
+-(void) dealloc
+{
+ LDESTROY (_functionNames);
+ LDESTROY (_valueForms);
+ [super dealloc];
+}
@end
@@ -804,6 +935,13 @@
return [[[super subforms] arrayByAddingObject:_tagForm]
arrayByAddingObject:_valueForm];
}
+
+-(void) dealloc
+{
+ LDESTROY (_tagForm);
+ LDESTROY (_valueForm);
+ [super dealloc];
+}
@end
@@ -820,6 +958,12 @@
{
return [[super subforms] arrayByAddingObject:_protectedForm];
}
+
+-(void) dealloc
+{
+ LDESTROY (_protectedForm);
+ [super dealloc];
+}
@end
@@ -866,6 +1010,13 @@
{
return _bodyForms;
}
+
+-(void) dealloc
+{
+ LDESTROY (_name);
+ LDESTROY (_lambdaListName);
+ [super dealloc];
+}
@end
@@ -907,6 +1058,13 @@
{
return _valueForm;
}
+
+-(void) dealloc
+{
+ LDESTROY (_name);
+ LDESTROY (_valueForm);
+ [super dealloc];
+}
@end
@@ -925,4 +1083,11 @@
return self;
}
+
+-(void) dealloc
+{
+ LDESTROY (_type);
+ LDESTROY (_arguments);
+ [super dealloc];
+}
@end