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

* NSZone is a record, not a class (thanks to Gorazd Krosl for the remark)

Browse Source 
git-svn-id: branches/objc@13594 -
This commit is contained in:
Jonas Maebe 2009-08-25 18:52:30 +00:00
parent bf7456d8eb
commit ea520d1c6b
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/objcbase.pp
View File

@ -27,12 +27,15 @@ uses
type
{
NSString = objcclass; external;
NSZone = objcclass; external;
NSInvocation = objcclass; external;
NSMethodSignature = objcclass; external;
NSCoder = objcclass; external;
}
NSZone = record
end;
PNSZone = ^NSZone;
Protocol = objcclass
end; external;
@ -46,7 +49,7 @@ type
NSObject and thereby of each subclass as well
}
function self: id; message 'self';
function zone: id; message 'zone';{ NSZone }
function zone: PNSZone; message 'zone';
function performSelector_(aSelector: SEL): id; message 'performSelector:';
function performSelector_withObject_(aSelector: SEL; obj: id): id; message 'performSelector:withObject:';
@ -84,7 +87,7 @@ type
NSObject and thereby of each subclass as well
}
function self: id;
function zone: id; { NSZone }
function zone: PNSZone;
function performSelector_(aSelector: SEL): id;
function performSelector_withObject_(aSelector: SEL; obj: id): id;
@ -119,7 +122,7 @@ type
function init: id; message 'init';
class function new: id; message 'new';
class function allocWithZone_(_zone: id {NSZone}): id; message 'allocWithZone:';
class function allocWithZone_(_zone: PNSZone): id; message 'allocWithZone:';
class function alloc: id; message 'alloc';
procedure dealloc; message 'dealloc';
@ -130,8 +133,8 @@ type
function copy: id; message 'copy';
function mutableCopy: id; message 'mutableCopy';
class function copyWithZone_(_zone: id {NSZone}): id; message 'copyWithZone:';
class function mutableCopyWithZone_(_zone: id {NSZone}): id; message 'mutableCopyWithZone:';
class function copyWithZone_(_zone: PNSZone): id; message 'copyWithZone:';
class function mutableCopyWithZone_(_zone: PNSZone): id; message 'mutableCopyWithZone:';
{ "class" prefix to method name to avoid name collision with NSObjectProtocol }
class function classSuperclass: pobjc_class; message 'superclass';