paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 06:39:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid missing autoreleasepool warnings

Browse Source 
git-svn-id: trunk@20311 -
This commit is contained in:
Jonas Maebe 2012-02-11 16:18:54 +00:00
parent 3eeca2b172
commit 38d5945f12
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/cocoaint/src/IvarSize.pas
View File

@ -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;