Have -drain call -release

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@28950 72102866-910b-0410-8b05-ffd578937521

ChangeLog

@@ -1,3 +1,8 @@
+2009-11-04 Richard Frith-Macdonald <rfm@gnu.org>
+
+	* Source/NSAutoreleasePool.m: ([-drain]) Copy undocumented OSX behavior
+	calling -release (suggested by Christopher James Elphinstone Chandler).
+
 2009-10-26  Adam Fedor  <fedor@gnu.org>
 
 	* Source/Makefile.postamble: Add flag filter for

Headers/Foundation/NSAutoreleasePool.h

@@ -222,7 +222,9 @@ typedef struct autorelease_array_list
 #if OS_API_VERSION(100400, GS_API_LATEST)
 /**
  * Intended to trigger a garbage collection run (if needed) when called in
- * a garbage collected environment, otherwise has no effect.
+ * a garbage collected environment.<br />
+ * In a non-garbage collected environment, this method implements the
+ * undocumented MacOS-X behavior, and releases the receiver.
  */
 - (void) drain;
 #endif

Source/NSAutoreleasePool.m

@@ -320,8 +320,9 @@ static IMP	initImp;
       imp = [collector methodForSelector: sel];
     }
   (*imp)(collector, sel);
+#else
+  [self release];
 #endif
-  return;
 }
 
 - (id) retain