* release allocated object at the end

git-svn-id: branches/objc@13623 -

tests/test/tobjc1.pp

@@ -21,4 +21,5 @@ begin
     halt(3);
   if (a.superclass<>nil) then
     halt(4);
+  a.release;
 end.

tests/test/tobjc12.pp

@@ -20,4 +20,5 @@ begin
       writeln('error: NSObject.Class <> NSObjectInstance.Class');
       halt(1);
     end;
+  a.release;
 end.