From 38d5945f12ba089d3368a584b275a010dd6ddc19 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 11 Feb 2012 16:18:54 +0000
Subject: [PATCH]   * avoid missing autoreleasepool warnings

git-svn-id: trunk@20311 -
---
 packages/cocoaint/src/IvarSize.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/packages/cocoaint/src/IvarSize.pas b/packages/cocoaint/src/IvarSize.pas
index 796ba56ae8..a800c5c3f6 100644
--- a/packages/cocoaint/src/IvarSize.pas
+++ b/packages/cocoaint/src/IvarSize.pas
@@ -1295,7 +1295,10 @@ type
 ;end;
 
 procedure PrintGlue1;
-begin 
+var
+  pool: NSAutoReleasePool;
+begin
+ pool:=NSAutoReleasePool.alloc.init;
  if class_getInstanceSize(TDerivedNSAffineTransform) <> (class_getInstanceSize(NSAffineTransform)+sizeof(pointer)) then
  writeln('size of NSAffineTransform is wrong: ',class_getInstanceSize(TDerivedNSAffineTransform),' <> ',class_getInstanceSize(NSAffineTransform)+sizeof(pointer));
  if class_getInstanceSize(TDerivedNSAppleEventDescriptor) <> (class_getInstanceSize(NSAppleEventDescriptor)+sizeof(pointer)) then
@@ -1945,6 +1948,7 @@ begin
  writeln('size of NSWindowController is wrong: ',class_getInstanceSize(TDerivedNSWindowController),' <> ',class_getInstanceSize(NSWindowController)+sizeof(pointer));
  if class_getInstanceSize(TDerivedNSWorkspace) <> (class_getInstanceSize(NSWorkspace)+sizeof(pointer)) then
  writeln('size of NSWorkspace is wrong: ',class_getInstanceSize(TDerivedNSWorkspace),' <> ',class_getInstanceSize(NSWorkspace)+sizeof(pointer));
+ pool.release;
 end;
 begin
  PrintGlue1;