* reparsed with latest version of parser

  - disabled some headers for 64 bit platforms that are not available there
  * updated cocoa patch to adjust missed unions by the parser
  -> when compiled with current compiler, all field offsets
     and instance sizes should now match gcc's exactly

git-svn-id: trunk@18122 -

packages/cocoaint/src/CocoaAll.pas

@@ -3,6 +3,7 @@ unit CocoaAll;
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar} { for "external" after the semi-colon with external vars }
+{$packrecords c}
 
 interface
 

packages/cocoaint/src/CoreData.pas

@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch cvar}
 {$modeswitch objectivec1}
+{$packrecords c}
 unit CoreData;
 interface
 uses

packages/cocoaint/src/IvarSize.pas

@@ -5,1933 +5,1946 @@ uses
  objcrtl,objcrtlmacosx,CocoaAll;
 type
  TDerivedNSAffineTransform = objcclass (NSAffineTransform)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSAppleEventDescriptor = objcclass (NSAppleEventDescriptor)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSAppleEventManager = objcclass (NSAppleEventManager)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSAppleScript = objcclass (NSAppleScript)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSArchiver = objcclass (NSArchiver)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSUnarchiver = objcclass (NSUnarchiver)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSArray = objcclass (NSArray)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMutableArray = objcclass (NSMutableArray)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSAttributedString = objcclass (NSAttributedString)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMutableAttributedString = objcclass (NSMutableAttributedString)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSAutoreleasePool = objcclass (NSAutoreleasePool)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSBundle = objcclass (NSBundle)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCalendar = objcclass (NSCalendar)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDateComponents = objcclass (NSDateComponents)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCalendarDate = objcclass (NSCalendarDate)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCharacterSet = objcclass (NSCharacterSet)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMutableCharacterSet = objcclass (NSMutableCharacterSet)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSClassDescription = objcclass (NSClassDescription)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCoder = objcclass (NSCoder)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSComparisonPredicate = objcclass (NSComparisonPredicate)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCompoundPredicate = objcclass (NSCompoundPredicate)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSConnection = objcclass (NSConnection)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDistantObjectRequest = objcclass (NSDistantObjectRequest)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSData = objcclass (NSData)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMutableData = objcclass (NSMutableData)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDate = objcclass (NSDate)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDateFormatter = objcclass (NSDateFormatter)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDecimalNumber = objcclass (NSDecimalNumber)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDecimalNumberHandler = objcclass (NSDecimalNumberHandler)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDictionary = objcclass (NSDictionary)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMutableDictionary = objcclass (NSMutableDictionary)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDistantObject = objcclass (NSDistantObject)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDistributedLock = objcclass (NSDistributedLock)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDistributedNotificationCenter = objcclass (NSDistributedNotificationCenter)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSEnumerator = objcclass (NSEnumerator)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSError = objcclass (NSError)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSException = objcclass (NSException)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSAssertionHandler = objcclass (NSAssertionHandler)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSExpression = objcclass (NSExpression)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSFileHandle = objcclass (NSFileHandle)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPipe = objcclass (NSPipe)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSFileManager = objcclass (NSFileManager)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDirectoryEnumerator = objcclass (NSDirectoryEnumerator)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSFormatter = objcclass (NSFormatter)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSGarbageCollector = objcclass (NSGarbageCollector)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSHashTable = objcclass (NSHashTable)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSHost = objcclass (NSHost)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSHTTPCookie = objcclass (NSHTTPCookie)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSHTTPCookieStorage = objcclass (NSHTTPCookieStorage)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSIndexPath = objcclass (NSIndexPath)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSIndexSet = objcclass (NSIndexSet)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMutableIndexSet = objcclass (NSMutableIndexSet)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSKeyedArchiver = objcclass (NSKeyedArchiver)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSKeyedUnarchiver = objcclass (NSKeyedUnarchiver)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSLocale = objcclass (NSLocale)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSLock = objcclass (NSLock)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSConditionLock = objcclass (NSConditionLock)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSRecursiveLock = objcclass (NSRecursiveLock)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCondition = objcclass (NSCondition)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMapTable = objcclass (NSMapTable)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMetadataQuery = objcclass (NSMetadataQuery)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMetadataItem = objcclass (NSMetadataItem)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMetadataQueryAttributeValueTuple = objcclass (NSMetadataQueryAttributeValueTuple)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMetadataQueryResultGroup = objcclass (NSMetadataQueryResultGroup)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMethodSignature = objcclass (NSMethodSignature)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSNetService = objcclass (NSNetService)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSNetServiceBrowser = objcclass (NSNetServiceBrowser)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSNotification = objcclass (NSNotification)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSNotificationCenter = objcclass (NSNotificationCenter)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSNotificationQueue = objcclass (NSNotificationQueue)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSNull = objcclass (NSNull)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSNumberFormatter = objcclass (NSNumberFormatter)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSObject = objcclass (NSObject)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSOperation = objcclass (NSOperation)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSInvocationOperation = objcclass (NSInvocationOperation)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSOperationQueue = objcclass (NSOperationQueue)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPointerArray = objcclass (NSPointerArray)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPort = objcclass (NSPort)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMachPort = objcclass (NSMachPort)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMessagePort = objcclass (NSMessagePort)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSocketPort = objcclass (NSSocketPort)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPortCoder = objcclass (NSPortCoder)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPortMessage = objcclass (NSPortMessage)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPortNameServer = objcclass (NSPortNameServer)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMachBootstrapServer = objcclass (NSMachBootstrapServer)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMessagePortNameServer = objcclass (NSMessagePortNameServer)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSocketPortNameServer = objcclass (NSSocketPortNameServer)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPredicate = objcclass (NSPredicate)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSProcessInfo = objcclass (NSProcessInfo)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPropertyListSerialization = objcclass (NSPropertyListSerialization)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSProtocolChecker = objcclass (NSProtocolChecker)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSProxy = objcclass (NSProxy)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSRunLoop = objcclass (NSRunLoop)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSScanner = objcclass (NSScanner)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSScriptClassDescription = objcclass (NSScriptClassDescription)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSScriptCoercionHandler = objcclass (NSScriptCoercionHandler)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSScriptCommand = objcclass (NSScriptCommand)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSScriptCommandDescription = objcclass (NSScriptCommandDescription)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSScriptExecutionContext = objcclass (NSScriptExecutionContext)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSScriptObjectSpecifier = objcclass (NSScriptObjectSpecifier)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSIndexSpecifier = objcclass (NSIndexSpecifier)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMiddleSpecifier = objcclass (NSMiddleSpecifier)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSNameSpecifier = objcclass (NSNameSpecifier)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPositionalSpecifier = objcclass (NSPositionalSpecifier)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPropertySpecifier = objcclass (NSPropertySpecifier)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSRandomSpecifier = objcclass (NSRandomSpecifier)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSRangeSpecifier = objcclass (NSRangeSpecifier)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSRelativeSpecifier = objcclass (NSRelativeSpecifier)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSUniqueIDSpecifier = objcclass (NSUniqueIDSpecifier)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSWhoseSpecifier = objcclass (NSWhoseSpecifier)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCloneCommand = objcclass (NSCloneCommand)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCloseCommand = objcclass (NSCloseCommand)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCountCommand = objcclass (NSCountCommand)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCreateCommand = objcclass (NSCreateCommand)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDeleteCommand = objcclass (NSDeleteCommand)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSExistsCommand = objcclass (NSExistsCommand)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSGetCommand = objcclass (NSGetCommand)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMoveCommand = objcclass (NSMoveCommand)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSQuitCommand = objcclass (NSQuitCommand)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSetCommand = objcclass (NSSetCommand)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSScriptSuiteRegistry = objcclass (NSScriptSuiteRegistry)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSScriptWhoseTest = objcclass (NSScriptWhoseTest)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSLogicalTest = objcclass (NSLogicalTest)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSpecifierTest = objcclass (NSSpecifierTest)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSet = objcclass (NSSet)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMutableSet = objcclass (NSMutableSet)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCountedSet = objcclass (NSCountedSet)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSortDescriptor = objcclass (NSSortDescriptor)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSpellServer = objcclass (NSSpellServer)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSStream = objcclass (NSStream)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSInputStream = objcclass (NSInputStream)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSOutputStream = objcclass (NSOutputStream)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSString = objcclass (NSString)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMutableString = objcclass (NSMutableString)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSimpleCString = objcclass (NSSimpleCString)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTask = objcclass (NSTask)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSThread = objcclass (NSThread)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTimer = objcclass (NSTimer)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTimeZone = objcclass (NSTimeZone)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSUndoManager = objcclass (NSUndoManager)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSURL = objcclass (NSURL)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSURLAuthenticationChallenge = objcclass (NSURLAuthenticationChallenge)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCachedURLResponse = objcclass (NSCachedURLResponse)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSURLCache = objcclass (NSURLCache)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSURLConnection = objcclass (NSURLConnection)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSURLCredential = objcclass (NSURLCredential)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSURLCredentialStorage = objcclass (NSURLCredentialStorage)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSURLDownload = objcclass (NSURLDownload)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSURLHandle = objcclass (NSURLHandle)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSURLProtectionSpace = objcclass (NSURLProtectionSpace)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSURLProtocol = objcclass (NSURLProtocol)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSURLRequest = objcclass (NSURLRequest)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMutableURLRequest = objcclass (NSMutableURLRequest)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSURLResponse = objcclass (NSURLResponse)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSHTTPURLResponse = objcclass (NSHTTPURLResponse)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSUserDefaults = objcclass (NSUserDefaults)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSValue = objcclass (NSValue)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSNumber = objcclass (NSNumber)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSValueTransformer = objcclass (NSValueTransformer)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSXMLDocument = objcclass (NSXMLDocument)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSXMLDTD = objcclass (NSXMLDTD)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSXMLDTDNode = objcclass (NSXMLDTDNode)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSXMLElement = objcclass (NSXMLElement)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSXMLNode = objcclass (NSXMLNode)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSXMLParser = objcclass (NSXMLParser)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSActionCell = objcclass (NSActionCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSAlert = objcclass (NSAlert)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSAnimation = objcclass (NSAnimation)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSViewAnimation = objcclass (NSViewAnimation)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSAnimationContext = objcclass (NSAnimationContext)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSApplication = objcclass (NSApplication)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSArrayController = objcclass (NSArrayController)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSATSTypesetter = objcclass (NSATSTypesetter)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSBezierPath = objcclass (NSBezierPath)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSBitmapImageRep = objcclass (NSBitmapImageRep)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSBox = objcclass (NSBox)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSBrowser = objcclass (NSBrowser)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSBrowserCell = objcclass (NSBrowserCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSButton = objcclass (NSButton)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSButtonCell = objcclass (NSButtonCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCachedImageRep = objcclass (NSCachedImageRep)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCell = objcclass (NSCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCIImageRep = objcclass (NSCIImageRep)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSClipView = objcclass (NSClipView)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCollectionViewItem = objcclass (NSCollectionViewItem)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCollectionView = objcclass (NSCollectionView)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSColor = objcclass (NSColor)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSColorList = objcclass (NSColorList)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSColorPanel = objcclass (NSColorPanel)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSColorPicker = objcclass (NSColorPicker)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSColorSpace = objcclass (NSColorSpace)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSColorWell = objcclass (NSColorWell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSComboBox = objcclass (NSComboBox)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSComboBoxCell = objcclass (NSComboBoxCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSControl = objcclass (NSControl)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSController = objcclass (NSController)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCursor = objcclass (NSCursor)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSCustomImageRep = objcclass (NSCustomImageRep)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDatePicker = objcclass (NSDatePicker)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDatePickerCell = objcclass (NSDatePickerCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDictionaryController = objcclass (NSDictionaryController)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDockTile = objcclass (NSDockTile)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDocument = objcclass (NSDocument)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDocumentController = objcclass (NSDocumentController)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSDrawer = objcclass (NSDrawer)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSEPSImageRep = objcclass (NSEPSImageRep)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSEvent = objcclass (NSEvent)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSFileWrapper = objcclass (NSFileWrapper)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSFont = objcclass (NSFont)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSFontDescriptor = objcclass (NSFontDescriptor)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSFontManager = objcclass (NSFontManager)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSFontPanel = objcclass (NSFontPanel)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSFormCell = objcclass (NSFormCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSGlyphGenerator = objcclass (NSGlyphGenerator)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSGlyphInfo = objcclass (NSGlyphInfo)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSGradient = objcclass (NSGradient)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSGraphicsContext = objcclass (NSGraphicsContext)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSHelpManager = objcclass (NSHelpManager)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSImage = objcclass (NSImage)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSImageCell = objcclass (NSImageCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSImageRep = objcclass (NSImageRep)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSImageView = objcclass (NSImageView)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSInputManager = objcclass (NSInputManager)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSInputServer = objcclass (NSInputServer)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSLayoutManager = objcclass (NSLayoutManager)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSLevelIndicator = objcclass (NSLevelIndicator)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSLevelIndicatorCell = objcclass (NSLevelIndicatorCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMatrix = objcclass (NSMatrix)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMenu = objcclass (NSMenu)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMenuItem = objcclass (NSMenuItem)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMenuItemCell = objcclass (NSMenuItemCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
+{$ifndef cpu64}
 type
  TDerivedNSMenuView = objcclass (NSMenuView)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
+{$endif}
 type
  TDerivedNSMovie = objcclass (NSMovie)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
+{$ifndef cpu64}
 type
  TDerivedNSMovieView = objcclass (NSMovieView)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
+{$endif}
 type
  TDerivedNSNib = objcclass (NSNib)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSObjectController = objcclass (NSObjectController)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSOpenGLPixelFormat = objcclass (NSOpenGLPixelFormat)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSOpenGLPixelBuffer = objcclass (NSOpenGLPixelBuffer)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSOpenGLContext = objcclass (NSOpenGLContext)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSOpenGLView = objcclass (NSOpenGLView)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSOpenPanel = objcclass (NSOpenPanel)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSOutlineView = objcclass (NSOutlineView)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPageLayout = objcclass (NSPageLayout)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPanel = objcclass (NSPanel)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTextTab = objcclass (NSTextTab)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSParagraphStyle = objcclass (NSParagraphStyle)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSMutableParagraphStyle = objcclass (NSMutableParagraphStyle)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPasteboard = objcclass (NSPasteboard)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPathCell = objcclass (NSPathCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPathComponentCell = objcclass (NSPathComponentCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPathControl = objcclass (NSPathControl)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPDFImageRep = objcclass (NSPDFImageRep)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPersistentDocument = objcclass (NSPersistentDocument)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPICTImageRep = objcclass (NSPICTImageRep)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPopUpButton = objcclass (NSPopUpButton)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPopUpButtonCell = objcclass (NSPopUpButtonCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPredicateEditor = objcclass (NSPredicateEditor)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPrinter = objcclass (NSPrinter)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPrintInfo = objcclass (NSPrintInfo)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPrintOperation = objcclass (NSPrintOperation)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSPrintPanel = objcclass (NSPrintPanel)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSProgressIndicator = objcclass (NSProgressIndicator)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
+{$ifndef cpu64}
 type
  TDerivedNSQuickDrawView = objcclass (NSQuickDrawView)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
+{$endif}
 type
  TDerivedNSResponder = objcclass (NSResponder)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSRuleEditor = objcclass (NSRuleEditor)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSRulerMarker = objcclass (NSRulerMarker)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSRulerView = objcclass (NSRulerView)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSavePanel = objcclass (NSSavePanel)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSScreen = objcclass (NSScreen)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSScroller = objcclass (NSScroller)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSScrollView = objcclass (NSScrollView)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSearchField = objcclass (NSSearchField)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSearchFieldCell = objcclass (NSSearchFieldCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSecureTextField = objcclass (NSSecureTextField)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSecureTextFieldCell = objcclass (NSSecureTextFieldCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSegmentedControl = objcclass (NSSegmentedControl)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSShadow = objcclass (NSShadow)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSlider = objcclass (NSSlider)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSliderCell = objcclass (NSSliderCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSound = objcclass (NSSound)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSpeechRecognizer = objcclass (NSSpeechRecognizer)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSpeechSynthesizer = objcclass (NSSpeechSynthesizer)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSpellChecker = objcclass (NSSpellChecker)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSSplitView = objcclass (NSSplitView)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSStatusBar = objcclass (NSStatusBar)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSStatusItem = objcclass (NSStatusItem)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSStepper = objcclass (NSStepper)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSStepperCell = objcclass (NSStepperCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTableColumn = objcclass (NSTableColumn)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTableHeaderCell = objcclass (NSTableHeaderCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTableHeaderView = objcclass (NSTableHeaderView)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTableView = objcclass (NSTableView)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTabView = objcclass (NSTabView)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTabViewItem = objcclass (NSTabViewItem)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSText = objcclass (NSText)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTextAttachmentCell = objcclass (NSTextAttachmentCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTextAttachment = objcclass (NSTextAttachment)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTextContainer = objcclass (NSTextContainer)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTextField = objcclass (NSTextField)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTextFieldCell = objcclass (NSTextFieldCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTextList = objcclass (NSTextList)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTextStorage = objcclass (NSTextStorage)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTextBlock = objcclass (NSTextBlock)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTextTableBlock = objcclass (NSTextTableBlock)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTextTable = objcclass (NSTextTable)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTextView = objcclass (NSTextView)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTokenField = objcclass (NSTokenField)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTokenFieldCell = objcclass (NSTokenFieldCell)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSToolbar = objcclass (NSToolbar)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSToolbarItem = objcclass (NSToolbarItem)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSToolbarItemGroup = objcclass (NSToolbarItemGroup)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTrackingArea = objcclass (NSTrackingArea)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTreeController = objcclass (NSTreeController)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTreeNode = objcclass (NSTreeNode)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSTypesetter = objcclass (NSTypesetter)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSUserDefaultsController = objcclass (NSUserDefaultsController)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSView = objcclass (NSView)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSViewController = objcclass (NSViewController)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSWindow = objcclass (NSWindow)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSWindowController = objcclass (NSWindowController)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 type
  TDerivedNSWorkspace = objcclass (NSWorkspace)
- extrabyte: byte;
-end;
+ extraptr: pointer
+;end;
 
 procedure PrintGlue1;
-begin
- if class_getInstanceSize(TDerivedNSAffineTransform) <> (class_getInstanceSize(NSAffineTransform)+1) then
- writeln('size of NSAffineTransform is wrong: ',class_getInstanceSize(TDerivedNSAffineTransform),' <> ',class_getInstanceSize(NSAffineTransform)+1);
- if class_getInstanceSize(TDerivedNSAppleEventDescriptor) <> (class_getInstanceSize(NSAppleEventDescriptor)+1) then
- writeln('size of NSAppleEventDescriptor is wrong: ',class_getInstanceSize(TDerivedNSAppleEventDescriptor),' <> ',class_getInstanceSize(NSAppleEventDescriptor)+1);
- if class_getInstanceSize(TDerivedNSAppleEventManager) <> (class_getInstanceSize(NSAppleEventManager)+1) then
- writeln('size of NSAppleEventManager is wrong: ',class_getInstanceSize(TDerivedNSAppleEventManager),' <> ',class_getInstanceSize(NSAppleEventManager)+1);
- if class_getInstanceSize(TDerivedNSAppleScript) <> (class_getInstanceSize(NSAppleScript)+1) then
- writeln('size of NSAppleScript is wrong: ',class_getInstanceSize(TDerivedNSAppleScript),' <> ',class_getInstanceSize(NSAppleScript)+1);
- if class_getInstanceSize(TDerivedNSArchiver) <> (class_getInstanceSize(NSArchiver)+1) then
- writeln('size of NSArchiver is wrong: ',class_getInstanceSize(TDerivedNSArchiver),' <> ',class_getInstanceSize(NSArchiver)+1);
- if class_getInstanceSize(TDerivedNSUnarchiver) <> (class_getInstanceSize(NSUnarchiver)+1) then
- writeln('size of NSUnarchiver is wrong: ',class_getInstanceSize(TDerivedNSUnarchiver),' <> ',class_getInstanceSize(NSUnarchiver)+1);
- if class_getInstanceSize(TDerivedNSArray) <> (class_getInstanceSize(NSArray)+1) then
- writeln('size of NSArray is wrong: ',class_getInstanceSize(TDerivedNSArray),' <> ',class_getInstanceSize(NSArray)+1);
- if class_getInstanceSize(TDerivedNSMutableArray) <> (class_getInstanceSize(NSMutableArray)+1) then
- writeln('size of NSMutableArray is wrong: ',class_getInstanceSize(TDerivedNSMutableArray),' <> ',class_getInstanceSize(NSMutableArray)+1);
- if class_getInstanceSize(TDerivedNSAttributedString) <> (class_getInstanceSize(NSAttributedString)+1) then
- writeln('size of NSAttributedString is wrong: ',class_getInstanceSize(TDerivedNSAttributedString),' <> ',class_getInstanceSize(NSAttributedString)+1);
- if class_getInstanceSize(TDerivedNSMutableAttributedString) <> (class_getInstanceSize(NSMutableAttributedString)+1) then
- writeln('size of NSMutableAttributedString is wrong: ',class_getInstanceSize(TDerivedNSMutableAttributedString),' <> ',class_getInstanceSize(NSMutableAttributedString)+1);
- if class_getInstanceSize(TDerivedNSAutoreleasePool) <> (class_getInstanceSize(NSAutoreleasePool)+1) then
- writeln('size of NSAutoreleasePool is wrong: ',class_getInstanceSize(TDerivedNSAutoreleasePool),' <> ',class_getInstanceSize(NSAutoreleasePool)+1);
- if class_getInstanceSize(TDerivedNSBundle) <> (class_getInstanceSize(NSBundle)+1) then
- writeln('size of NSBundle is wrong: ',class_getInstanceSize(TDerivedNSBundle),' <> ',class_getInstanceSize(NSBundle)+1);
- if class_getInstanceSize(TDerivedNSCalendar) <> (class_getInstanceSize(NSCalendar)+1) then
- writeln('size of NSCalendar is wrong: ',class_getInstanceSize(TDerivedNSCalendar),' <> ',class_getInstanceSize(NSCalendar)+1);
- if class_getInstanceSize(TDerivedNSDateComponents) <> (class_getInstanceSize(NSDateComponents)+1) then
- writeln('size of NSDateComponents is wrong: ',class_getInstanceSize(TDerivedNSDateComponents),' <> ',class_getInstanceSize(NSDateComponents)+1);
- if class_getInstanceSize(TDerivedNSCalendarDate) <> (class_getInstanceSize(NSCalendarDate)+1) then
- writeln('size of NSCalendarDate is wrong: ',class_getInstanceSize(TDerivedNSCalendarDate),' <> ',class_getInstanceSize(NSCalendarDate)+1);
- if class_getInstanceSize(TDerivedNSCharacterSet) <> (class_getInstanceSize(NSCharacterSet)+1) then
- writeln('size of NSCharacterSet is wrong: ',class_getInstanceSize(TDerivedNSCharacterSet),' <> ',class_getInstanceSize(NSCharacterSet)+1);
- if class_getInstanceSize(TDerivedNSMutableCharacterSet) <> (class_getInstanceSize(NSMutableCharacterSet)+1) then
- writeln('size of NSMutableCharacterSet is wrong: ',class_getInstanceSize(TDerivedNSMutableCharacterSet),' <> ',class_getInstanceSize(NSMutableCharacterSet)+1);
- if class_getInstanceSize(TDerivedNSClassDescription) <> (class_getInstanceSize(NSClassDescription)+1) then
- writeln('size of NSClassDescription is wrong: ',class_getInstanceSize(TDerivedNSClassDescription),' <> ',class_getInstanceSize(NSClassDescription)+1);
- if class_getInstanceSize(TDerivedNSCoder) <> (class_getInstanceSize(NSCoder)+1) then
- writeln('size of NSCoder is wrong: ',class_getInstanceSize(TDerivedNSCoder),' <> ',class_getInstanceSize(NSCoder)+1);
- if class_getInstanceSize(TDerivedNSComparisonPredicate) <> (class_getInstanceSize(NSComparisonPredicate)+1) then
- writeln('size of NSComparisonPredicate is wrong: ',class_getInstanceSize(TDerivedNSComparisonPredicate),' <> ',class_getInstanceSize(NSComparisonPredicate)+1);
- if class_getInstanceSize(TDerivedNSCompoundPredicate) <> (class_getInstanceSize(NSCompoundPredicate)+1) then
- writeln('size of NSCompoundPredicate is wrong: ',class_getInstanceSize(TDerivedNSCompoundPredicate),' <> ',class_getInstanceSize(NSCompoundPredicate)+1);
- if class_getInstanceSize(TDerivedNSConnection) <> (class_getInstanceSize(NSConnection)+1) then
- writeln('size of NSConnection is wrong: ',class_getInstanceSize(TDerivedNSConnection),' <> ',class_getInstanceSize(NSConnection)+1);
- if class_getInstanceSize(TDerivedNSDistantObjectRequest) <> (class_getInstanceSize(NSDistantObjectRequest)+1) then
- writeln('size of NSDistantObjectRequest is wrong: ',class_getInstanceSize(TDerivedNSDistantObjectRequest),' <> ',class_getInstanceSize(NSDistantObjectRequest)+1);
- if class_getInstanceSize(TDerivedNSData) <> (class_getInstanceSize(NSData)+1) then
- writeln('size of NSData is wrong: ',class_getInstanceSize(TDerivedNSData),' <> ',class_getInstanceSize(NSData)+1);
- if class_getInstanceSize(TDerivedNSMutableData) <> (class_getInstanceSize(NSMutableData)+1) then
- writeln('size of NSMutableData is wrong: ',class_getInstanceSize(TDerivedNSMutableData),' <> ',class_getInstanceSize(NSMutableData)+1);
- if class_getInstanceSize(TDerivedNSDate) <> (class_getInstanceSize(NSDate)+1) then
- writeln('size of NSDate is wrong: ',class_getInstanceSize(TDerivedNSDate),' <> ',class_getInstanceSize(NSDate)+1);
- if class_getInstanceSize(TDerivedNSDateFormatter) <> (class_getInstanceSize(NSDateFormatter)+1) then
- writeln('size of NSDateFormatter is wrong: ',class_getInstanceSize(TDerivedNSDateFormatter),' <> ',class_getInstanceSize(NSDateFormatter)+1);
- if class_getInstanceSize(TDerivedNSDecimalNumber) <> (class_getInstanceSize(NSDecimalNumber)+1) then
- writeln('size of NSDecimalNumber is wrong: ',class_getInstanceSize(TDerivedNSDecimalNumber),' <> ',class_getInstanceSize(NSDecimalNumber)+1);
- if class_getInstanceSize(TDerivedNSDecimalNumberHandler) <> (class_getInstanceSize(NSDecimalNumberHandler)+1) then
- writeln('size of NSDecimalNumberHandler is wrong: ',class_getInstanceSize(TDerivedNSDecimalNumberHandler),' <> ',class_getInstanceSize(NSDecimalNumberHandler)+1);
- if class_getInstanceSize(TDerivedNSDictionary) <> (class_getInstanceSize(NSDictionary)+1) then
- writeln('size of NSDictionary is wrong: ',class_getInstanceSize(TDerivedNSDictionary),' <> ',class_getInstanceSize(NSDictionary)+1);
- if class_getInstanceSize(TDerivedNSMutableDictionary) <> (class_getInstanceSize(NSMutableDictionary)+1) then
- writeln('size of NSMutableDictionary is wrong: ',class_getInstanceSize(TDerivedNSMutableDictionary),' <> ',class_getInstanceSize(NSMutableDictionary)+1);
- if class_getInstanceSize(TDerivedNSDistantObject) <> (class_getInstanceSize(NSDistantObject)+1) then
- writeln('size of NSDistantObject is wrong: ',class_getInstanceSize(TDerivedNSDistantObject),' <> ',class_getInstanceSize(NSDistantObject)+1);
- if class_getInstanceSize(TDerivedNSDistributedLock) <> (class_getInstanceSize(NSDistributedLock)+1) then
- writeln('size of NSDistributedLock is wrong: ',class_getInstanceSize(TDerivedNSDistributedLock),' <> ',class_getInstanceSize(NSDistributedLock)+1);
- if class_getInstanceSize(TDerivedNSDistributedNotificationCenter) <> (class_getInstanceSize(NSDistributedNotificationCenter)+1) then
- writeln('size of NSDistributedNotificationCenter is wrong: ',class_getInstanceSize(TDerivedNSDistributedNotificationCenter),' <> ',class_getInstanceSize(NSDistributedNotificationCenter)+1);
- if class_getInstanceSize(TDerivedNSEnumerator) <> (class_getInstanceSize(NSEnumerator)+1) then
- writeln('size of NSEnumerator is wrong: ',class_getInstanceSize(TDerivedNSEnumerator),' <> ',class_getInstanceSize(NSEnumerator)+1);
- if class_getInstanceSize(TDerivedNSError) <> (class_getInstanceSize(NSError)+1) then
- writeln('size of NSError is wrong: ',class_getInstanceSize(TDerivedNSError),' <> ',class_getInstanceSize(NSError)+1);
- if class_getInstanceSize(TDerivedNSException) <> (class_getInstanceSize(NSException)+1) then
- writeln('size of NSException is wrong: ',class_getInstanceSize(TDerivedNSException),' <> ',class_getInstanceSize(NSException)+1);
- if class_getInstanceSize(TDerivedNSAssertionHandler) <> (class_getInstanceSize(NSAssertionHandler)+1) then
- writeln('size of NSAssertionHandler is wrong: ',class_getInstanceSize(TDerivedNSAssertionHandler),' <> ',class_getInstanceSize(NSAssertionHandler)+1);
- if class_getInstanceSize(TDerivedNSExpression) <> (class_getInstanceSize(NSExpression)+1) then
- writeln('size of NSExpression is wrong: ',class_getInstanceSize(TDerivedNSExpression),' <> ',class_getInstanceSize(NSExpression)+1);
- if class_getInstanceSize(TDerivedNSFileHandle) <> (class_getInstanceSize(NSFileHandle)+1) then
- writeln('size of NSFileHandle is wrong: ',class_getInstanceSize(TDerivedNSFileHandle),' <> ',class_getInstanceSize(NSFileHandle)+1);
- if class_getInstanceSize(TDerivedNSPipe) <> (class_getInstanceSize(NSPipe)+1) then
- writeln('size of NSPipe is wrong: ',class_getInstanceSize(TDerivedNSPipe),' <> ',class_getInstanceSize(NSPipe)+1);
- if class_getInstanceSize(TDerivedNSFileManager) <> (class_getInstanceSize(NSFileManager)+1) then
- writeln('size of NSFileManager is wrong: ',class_getInstanceSize(TDerivedNSFileManager),' <> ',class_getInstanceSize(NSFileManager)+1);
- if class_getInstanceSize(TDerivedNSDirectoryEnumerator) <> (class_getInstanceSize(NSDirectoryEnumerator)+1) then
- writeln('size of NSDirectoryEnumerator is wrong: ',class_getInstanceSize(TDerivedNSDirectoryEnumerator),' <> ',class_getInstanceSize(NSDirectoryEnumerator)+1);
- if class_getInstanceSize(TDerivedNSFormatter) <> (class_getInstanceSize(NSFormatter)+1) then
- writeln('size of NSFormatter is wrong: ',class_getInstanceSize(TDerivedNSFormatter),' <> ',class_getInstanceSize(NSFormatter)+1);
- if class_getInstanceSize(TDerivedNSGarbageCollector) <> (class_getInstanceSize(NSGarbageCollector)+1) then
- writeln('size of NSGarbageCollector is wrong: ',class_getInstanceSize(TDerivedNSGarbageCollector),' <> ',class_getInstanceSize(NSGarbageCollector)+1);
- if class_getInstanceSize(TDerivedNSHashTable) <> (class_getInstanceSize(NSHashTable)+1) then
- writeln('size of NSHashTable is wrong: ',class_getInstanceSize(TDerivedNSHashTable),' <> ',class_getInstanceSize(NSHashTable)+1);
- if class_getInstanceSize(TDerivedNSHost) <> (class_getInstanceSize(NSHost)+1) then
- writeln('size of NSHost is wrong: ',class_getInstanceSize(TDerivedNSHost),' <> ',class_getInstanceSize(NSHost)+1);
- if class_getInstanceSize(TDerivedNSHTTPCookie) <> (class_getInstanceSize(NSHTTPCookie)+1) then
- writeln('size of NSHTTPCookie is wrong: ',class_getInstanceSize(TDerivedNSHTTPCookie),' <> ',class_getInstanceSize(NSHTTPCookie)+1);
- if class_getInstanceSize(TDerivedNSHTTPCookieStorage) <> (class_getInstanceSize(NSHTTPCookieStorage)+1) then
- writeln('size of NSHTTPCookieStorage is wrong: ',class_getInstanceSize(TDerivedNSHTTPCookieStorage),' <> ',class_getInstanceSize(NSHTTPCookieStorage)+1);
- if class_getInstanceSize(TDerivedNSIndexPath) <> (class_getInstanceSize(NSIndexPath)+1) then
- writeln('size of NSIndexPath is wrong: ',class_getInstanceSize(TDerivedNSIndexPath),' <> ',class_getInstanceSize(NSIndexPath)+1);
- if class_getInstanceSize(TDerivedNSIndexSet) <> (class_getInstanceSize(NSIndexSet)+1) then
- writeln('size of NSIndexSet is wrong: ',class_getInstanceSize(TDerivedNSIndexSet),' <> ',class_getInstanceSize(NSIndexSet)+1);
- if class_getInstanceSize(TDerivedNSMutableIndexSet) <> (class_getInstanceSize(NSMutableIndexSet)+1) then
- writeln('size of NSMutableIndexSet is wrong: ',class_getInstanceSize(TDerivedNSMutableIndexSet),' <> ',class_getInstanceSize(NSMutableIndexSet)+1);
- if class_getInstanceSize(TDerivedNSKeyedArchiver) <> (class_getInstanceSize(NSKeyedArchiver)+1) then
- writeln('size of NSKeyedArchiver is wrong: ',class_getInstanceSize(TDerivedNSKeyedArchiver),' <> ',class_getInstanceSize(NSKeyedArchiver)+1);
- if class_getInstanceSize(TDerivedNSKeyedUnarchiver) <> (class_getInstanceSize(NSKeyedUnarchiver)+1) then
- writeln('size of NSKeyedUnarchiver is wrong: ',class_getInstanceSize(TDerivedNSKeyedUnarchiver),' <> ',class_getInstanceSize(NSKeyedUnarchiver)+1);
- if class_getInstanceSize(TDerivedNSLocale) <> (class_getInstanceSize(NSLocale)+1) then
- writeln('size of NSLocale is wrong: ',class_getInstanceSize(TDerivedNSLocale),' <> ',class_getInstanceSize(NSLocale)+1);
- if class_getInstanceSize(TDerivedNSLock) <> (class_getInstanceSize(NSLock)+1) then
- writeln('size of NSLock is wrong: ',class_getInstanceSize(TDerivedNSLock),' <> ',class_getInstanceSize(NSLock)+1);
- if class_getInstanceSize(TDerivedNSConditionLock) <> (class_getInstanceSize(NSConditionLock)+1) then
- writeln('size of NSConditionLock is wrong: ',class_getInstanceSize(TDerivedNSConditionLock),' <> ',class_getInstanceSize(NSConditionLock)+1);
- if class_getInstanceSize(TDerivedNSRecursiveLock) <> (class_getInstanceSize(NSRecursiveLock)+1) then
- writeln('size of NSRecursiveLock is wrong: ',class_getInstanceSize(TDerivedNSRecursiveLock),' <> ',class_getInstanceSize(NSRecursiveLock)+1);
- if class_getInstanceSize(TDerivedNSCondition) <> (class_getInstanceSize(NSCondition)+1) then
- writeln('size of NSCondition is wrong: ',class_getInstanceSize(TDerivedNSCondition),' <> ',class_getInstanceSize(NSCondition)+1);
- if class_getInstanceSize(TDerivedNSMapTable) <> (class_getInstanceSize(NSMapTable)+1) then
- writeln('size of NSMapTable is wrong: ',class_getInstanceSize(TDerivedNSMapTable),' <> ',class_getInstanceSize(NSMapTable)+1);
- if class_getInstanceSize(TDerivedNSMetadataQuery) <> (class_getInstanceSize(NSMetadataQuery)+1) then
- writeln('size of NSMetadataQuery is wrong: ',class_getInstanceSize(TDerivedNSMetadataQuery),' <> ',class_getInstanceSize(NSMetadataQuery)+1);
- if class_getInstanceSize(TDerivedNSMetadataItem) <> (class_getInstanceSize(NSMetadataItem)+1) then
- writeln('size of NSMetadataItem is wrong: ',class_getInstanceSize(TDerivedNSMetadataItem),' <> ',class_getInstanceSize(NSMetadataItem)+1);
- if class_getInstanceSize(TDerivedNSMetadataQueryAttributeValueTuple) <> (class_getInstanceSize(NSMetadataQueryAttributeValueTuple)+1) then
- writeln('size of NSMetadataQueryAttributeValueTuple is wrong: ',class_getInstanceSize(TDerivedNSMetadataQueryAttributeValueTuple),' <> ',class_getInstanceSize(NSMetadataQueryAttributeValueTuple)+1);
- if class_getInstanceSize(TDerivedNSMetadataQueryResultGroup) <> (class_getInstanceSize(NSMetadataQueryResultGroup)+1) then
- writeln('size of NSMetadataQueryResultGroup is wrong: ',class_getInstanceSize(TDerivedNSMetadataQueryResultGroup),' <> ',class_getInstanceSize(NSMetadataQueryResultGroup)+1);
- if class_getInstanceSize(TDerivedNSMethodSignature) <> (class_getInstanceSize(NSMethodSignature)+1) then
- writeln('size of NSMethodSignature is wrong: ',class_getInstanceSize(TDerivedNSMethodSignature),' <> ',class_getInstanceSize(NSMethodSignature)+1);
- if class_getInstanceSize(TDerivedNSNetService) <> (class_getInstanceSize(NSNetService)+1) then
- writeln('size of NSNetService is wrong: ',class_getInstanceSize(TDerivedNSNetService),' <> ',class_getInstanceSize(NSNetService)+1);
- if class_getInstanceSize(TDerivedNSNetServiceBrowser) <> (class_getInstanceSize(NSNetServiceBrowser)+1) then
- writeln('size of NSNetServiceBrowser is wrong: ',class_getInstanceSize(TDerivedNSNetServiceBrowser),' <> ',class_getInstanceSize(NSNetServiceBrowser)+1);
- if class_getInstanceSize(TDerivedNSNotification) <> (class_getInstanceSize(NSNotification)+1) then
- writeln('size of NSNotification is wrong: ',class_getInstanceSize(TDerivedNSNotification),' <> ',class_getInstanceSize(NSNotification)+1);
- if class_getInstanceSize(TDerivedNSNotificationCenter) <> (class_getInstanceSize(NSNotificationCenter)+1) then
- writeln('size of NSNotificationCenter is wrong: ',class_getInstanceSize(TDerivedNSNotificationCenter),' <> ',class_getInstanceSize(NSNotificationCenter)+1);
- if class_getInstanceSize(TDerivedNSNotificationQueue) <> (class_getInstanceSize(NSNotificationQueue)+1) then
- writeln('size of NSNotificationQueue is wrong: ',class_getInstanceSize(TDerivedNSNotificationQueue),' <> ',class_getInstanceSize(NSNotificationQueue)+1);
- if class_getInstanceSize(TDerivedNSNull) <> (class_getInstanceSize(NSNull)+1) then
- writeln('size of NSNull is wrong: ',class_getInstanceSize(TDerivedNSNull),' <> ',class_getInstanceSize(NSNull)+1);
- if class_getInstanceSize(TDerivedNSNumberFormatter) <> (class_getInstanceSize(NSNumberFormatter)+1) then
- writeln('size of NSNumberFormatter is wrong: ',class_getInstanceSize(TDerivedNSNumberFormatter),' <> ',class_getInstanceSize(NSNumberFormatter)+1);
- if class_getInstanceSize(TDerivedNSObject) <> (class_getInstanceSize(NSObject)+1) then
- writeln('size of NSObject is wrong: ',class_getInstanceSize(TDerivedNSObject),' <> ',class_getInstanceSize(NSObject)+1);
- if class_getInstanceSize(TDerivedNSOperation) <> (class_getInstanceSize(NSOperation)+1) then
- writeln('size of NSOperation is wrong: ',class_getInstanceSize(TDerivedNSOperation),' <> ',class_getInstanceSize(NSOperation)+1);
- if class_getInstanceSize(TDerivedNSInvocationOperation) <> (class_getInstanceSize(NSInvocationOperation)+1) then
- writeln('size of NSInvocationOperation is wrong: ',class_getInstanceSize(TDerivedNSInvocationOperation),' <> ',class_getInstanceSize(NSInvocationOperation)+1);
- if class_getInstanceSize(TDerivedNSOperationQueue) <> (class_getInstanceSize(NSOperationQueue)+1) then
- writeln('size of NSOperationQueue is wrong: ',class_getInstanceSize(TDerivedNSOperationQueue),' <> ',class_getInstanceSize(NSOperationQueue)+1);
- if class_getInstanceSize(TDerivedNSPointerArray) <> (class_getInstanceSize(NSPointerArray)+1) then
- writeln('size of NSPointerArray is wrong: ',class_getInstanceSize(TDerivedNSPointerArray),' <> ',class_getInstanceSize(NSPointerArray)+1);
- if class_getInstanceSize(TDerivedNSPort) <> (class_getInstanceSize(NSPort)+1) then
- writeln('size of NSPort is wrong: ',class_getInstanceSize(TDerivedNSPort),' <> ',class_getInstanceSize(NSPort)+1);
- if class_getInstanceSize(TDerivedNSMachPort) <> (class_getInstanceSize(NSMachPort)+1) then
- writeln('size of NSMachPort is wrong: ',class_getInstanceSize(TDerivedNSMachPort),' <> ',class_getInstanceSize(NSMachPort)+1);
- if class_getInstanceSize(TDerivedNSMessagePort) <> (class_getInstanceSize(NSMessagePort)+1) then
- writeln('size of NSMessagePort is wrong: ',class_getInstanceSize(TDerivedNSMessagePort),' <> ',class_getInstanceSize(NSMessagePort)+1);
- if class_getInstanceSize(TDerivedNSSocketPort) <> (class_getInstanceSize(NSSocketPort)+1) then
- writeln('size of NSSocketPort is wrong: ',class_getInstanceSize(TDerivedNSSocketPort),' <> ',class_getInstanceSize(NSSocketPort)+1);
- if class_getInstanceSize(TDerivedNSPortCoder) <> (class_getInstanceSize(NSPortCoder)+1) then
- writeln('size of NSPortCoder is wrong: ',class_getInstanceSize(TDerivedNSPortCoder),' <> ',class_getInstanceSize(NSPortCoder)+1);
- if class_getInstanceSize(TDerivedNSPortMessage) <> (class_getInstanceSize(NSPortMessage)+1) then
- writeln('size of NSPortMessage is wrong: ',class_getInstanceSize(TDerivedNSPortMessage),' <> ',class_getInstanceSize(NSPortMessage)+1);
- if class_getInstanceSize(TDerivedNSPortNameServer) <> (class_getInstanceSize(NSPortNameServer)+1) then
- writeln('size of NSPortNameServer is wrong: ',class_getInstanceSize(TDerivedNSPortNameServer),' <> ',class_getInstanceSize(NSPortNameServer)+1);
- if class_getInstanceSize(TDerivedNSMachBootstrapServer) <> (class_getInstanceSize(NSMachBootstrapServer)+1) then
- writeln('size of NSMachBootstrapServer is wrong: ',class_getInstanceSize(TDerivedNSMachBootstrapServer),' <> ',class_getInstanceSize(NSMachBootstrapServer)+1);
- if class_getInstanceSize(TDerivedNSMessagePortNameServer) <> (class_getInstanceSize(NSMessagePortNameServer)+1) then
- writeln('size of NSMessagePortNameServer is wrong: ',class_getInstanceSize(TDerivedNSMessagePortNameServer),' <> ',class_getInstanceSize(NSMessagePortNameServer)+1);
- if class_getInstanceSize(TDerivedNSSocketPortNameServer) <> (class_getInstanceSize(NSSocketPortNameServer)+1) then
- writeln('size of NSSocketPortNameServer is wrong: ',class_getInstanceSize(TDerivedNSSocketPortNameServer),' <> ',class_getInstanceSize(NSSocketPortNameServer)+1);
- if class_getInstanceSize(TDerivedNSPredicate) <> (class_getInstanceSize(NSPredicate)+1) then
- writeln('size of NSPredicate is wrong: ',class_getInstanceSize(TDerivedNSPredicate),' <> ',class_getInstanceSize(NSPredicate)+1);
- if class_getInstanceSize(TDerivedNSProcessInfo) <> (class_getInstanceSize(NSProcessInfo)+1) then
- writeln('size of NSProcessInfo is wrong: ',class_getInstanceSize(TDerivedNSProcessInfo),' <> ',class_getInstanceSize(NSProcessInfo)+1);
- if class_getInstanceSize(TDerivedNSPropertyListSerialization) <> (class_getInstanceSize(NSPropertyListSerialization)+1) then
- writeln('size of NSPropertyListSerialization is wrong: ',class_getInstanceSize(TDerivedNSPropertyListSerialization),' <> ',class_getInstanceSize(NSPropertyListSerialization)+1);
- if class_getInstanceSize(TDerivedNSProtocolChecker) <> (class_getInstanceSize(NSProtocolChecker)+1) then
- writeln('size of NSProtocolChecker is wrong: ',class_getInstanceSize(TDerivedNSProtocolChecker),' <> ',class_getInstanceSize(NSProtocolChecker)+1);
- if class_getInstanceSize(TDerivedNSProxy) <> (class_getInstanceSize(NSProxy)+1) then
- writeln('size of NSProxy is wrong: ',class_getInstanceSize(TDerivedNSProxy),' <> ',class_getInstanceSize(NSProxy)+1);
- if class_getInstanceSize(TDerivedNSRunLoop) <> (class_getInstanceSize(NSRunLoop)+1) then
- writeln('size of NSRunLoop is wrong: ',class_getInstanceSize(TDerivedNSRunLoop),' <> ',class_getInstanceSize(NSRunLoop)+1);
- if class_getInstanceSize(TDerivedNSScanner) <> (class_getInstanceSize(NSScanner)+1) then
- writeln('size of NSScanner is wrong: ',class_getInstanceSize(TDerivedNSScanner),' <> ',class_getInstanceSize(NSScanner)+1);
- if class_getInstanceSize(TDerivedNSScriptClassDescription) <> (class_getInstanceSize(NSScriptClassDescription)+1) then
- writeln('size of NSScriptClassDescription is wrong: ',class_getInstanceSize(TDerivedNSScriptClassDescription),' <> ',class_getInstanceSize(NSScriptClassDescription)+1);
- if class_getInstanceSize(TDerivedNSScriptCoercionHandler) <> (class_getInstanceSize(NSScriptCoercionHandler)+1) then
- writeln('size of NSScriptCoercionHandler is wrong: ',class_getInstanceSize(TDerivedNSScriptCoercionHandler),' <> ',class_getInstanceSize(NSScriptCoercionHandler)+1);
- if class_getInstanceSize(TDerivedNSScriptCommand) <> (class_getInstanceSize(NSScriptCommand)+1) then
- writeln('size of NSScriptCommand is wrong: ',class_getInstanceSize(TDerivedNSScriptCommand),' <> ',class_getInstanceSize(NSScriptCommand)+1);
- if class_getInstanceSize(TDerivedNSScriptCommandDescription) <> (class_getInstanceSize(NSScriptCommandDescription)+1) then
- writeln('size of NSScriptCommandDescription is wrong: ',class_getInstanceSize(TDerivedNSScriptCommandDescription),' <> ',class_getInstanceSize(NSScriptCommandDescription)+1);
- if class_getInstanceSize(TDerivedNSScriptExecutionContext) <> (class_getInstanceSize(NSScriptExecutionContext)+1) then
- writeln('size of NSScriptExecutionContext is wrong: ',class_getInstanceSize(TDerivedNSScriptExecutionContext),' <> ',class_getInstanceSize(NSScriptExecutionContext)+1);
- if class_getInstanceSize(TDerivedNSScriptObjectSpecifier) <> (class_getInstanceSize(NSScriptObjectSpecifier)+1) then
- writeln('size of NSScriptObjectSpecifier is wrong: ',class_getInstanceSize(TDerivedNSScriptObjectSpecifier),' <> ',class_getInstanceSize(NSScriptObjectSpecifier)+1);
- if class_getInstanceSize(TDerivedNSIndexSpecifier) <> (class_getInstanceSize(NSIndexSpecifier)+1) then
- writeln('size of NSIndexSpecifier is wrong: ',class_getInstanceSize(TDerivedNSIndexSpecifier),' <> ',class_getInstanceSize(NSIndexSpecifier)+1);
- if class_getInstanceSize(TDerivedNSMiddleSpecifier) <> (class_getInstanceSize(NSMiddleSpecifier)+1) then
- writeln('size of NSMiddleSpecifier is wrong: ',class_getInstanceSize(TDerivedNSMiddleSpecifier),' <> ',class_getInstanceSize(NSMiddleSpecifier)+1);
- if class_getInstanceSize(TDerivedNSNameSpecifier) <> (class_getInstanceSize(NSNameSpecifier)+1) then
- writeln('size of NSNameSpecifier is wrong: ',class_getInstanceSize(TDerivedNSNameSpecifier),' <> ',class_getInstanceSize(NSNameSpecifier)+1);
- if class_getInstanceSize(TDerivedNSPositionalSpecifier) <> (class_getInstanceSize(NSPositionalSpecifier)+1) then
- writeln('size of NSPositionalSpecifier is wrong: ',class_getInstanceSize(TDerivedNSPositionalSpecifier),' <> ',class_getInstanceSize(NSPositionalSpecifier)+1);
- if class_getInstanceSize(TDerivedNSPropertySpecifier) <> (class_getInstanceSize(NSPropertySpecifier)+1) then
- writeln('size of NSPropertySpecifier is wrong: ',class_getInstanceSize(TDerivedNSPropertySpecifier),' <> ',class_getInstanceSize(NSPropertySpecifier)+1);
- if class_getInstanceSize(TDerivedNSRandomSpecifier) <> (class_getInstanceSize(NSRandomSpecifier)+1) then
- writeln('size of NSRandomSpecifier is wrong: ',class_getInstanceSize(TDerivedNSRandomSpecifier),' <> ',class_getInstanceSize(NSRandomSpecifier)+1);
- if class_getInstanceSize(TDerivedNSRangeSpecifier) <> (class_getInstanceSize(NSRangeSpecifier)+1) then
- writeln('size of NSRangeSpecifier is wrong: ',class_getInstanceSize(TDerivedNSRangeSpecifier),' <> ',class_getInstanceSize(NSRangeSpecifier)+1);
- if class_getInstanceSize(TDerivedNSRelativeSpecifier) <> (class_getInstanceSize(NSRelativeSpecifier)+1) then
- writeln('size of NSRelativeSpecifier is wrong: ',class_getInstanceSize(TDerivedNSRelativeSpecifier),' <> ',class_getInstanceSize(NSRelativeSpecifier)+1);
- if class_getInstanceSize(TDerivedNSUniqueIDSpecifier) <> (class_getInstanceSize(NSUniqueIDSpecifier)+1) then
- writeln('size of NSUniqueIDSpecifier is wrong: ',class_getInstanceSize(TDerivedNSUniqueIDSpecifier),' <> ',class_getInstanceSize(NSUniqueIDSpecifier)+1);
- if class_getInstanceSize(TDerivedNSWhoseSpecifier) <> (class_getInstanceSize(NSWhoseSpecifier)+1) then
- writeln('size of NSWhoseSpecifier is wrong: ',class_getInstanceSize(TDerivedNSWhoseSpecifier),' <> ',class_getInstanceSize(NSWhoseSpecifier)+1);
- if class_getInstanceSize(TDerivedNSCloneCommand) <> (class_getInstanceSize(NSCloneCommand)+1) then
- writeln('size of NSCloneCommand is wrong: ',class_getInstanceSize(TDerivedNSCloneCommand),' <> ',class_getInstanceSize(NSCloneCommand)+1);
- if class_getInstanceSize(TDerivedNSCloseCommand) <> (class_getInstanceSize(NSCloseCommand)+1) then
- writeln('size of NSCloseCommand is wrong: ',class_getInstanceSize(TDerivedNSCloseCommand),' <> ',class_getInstanceSize(NSCloseCommand)+1);
- if class_getInstanceSize(TDerivedNSCountCommand) <> (class_getInstanceSize(NSCountCommand)+1) then
- writeln('size of NSCountCommand is wrong: ',class_getInstanceSize(TDerivedNSCountCommand),' <> ',class_getInstanceSize(NSCountCommand)+1);
- if class_getInstanceSize(TDerivedNSCreateCommand) <> (class_getInstanceSize(NSCreateCommand)+1) then
- writeln('size of NSCreateCommand is wrong: ',class_getInstanceSize(TDerivedNSCreateCommand),' <> ',class_getInstanceSize(NSCreateCommand)+1);
- if class_getInstanceSize(TDerivedNSDeleteCommand) <> (class_getInstanceSize(NSDeleteCommand)+1) then
- writeln('size of NSDeleteCommand is wrong: ',class_getInstanceSize(TDerivedNSDeleteCommand),' <> ',class_getInstanceSize(NSDeleteCommand)+1);
- if class_getInstanceSize(TDerivedNSExistsCommand) <> (class_getInstanceSize(NSExistsCommand)+1) then
- writeln('size of NSExistsCommand is wrong: ',class_getInstanceSize(TDerivedNSExistsCommand),' <> ',class_getInstanceSize(NSExistsCommand)+1);
- if class_getInstanceSize(TDerivedNSGetCommand) <> (class_getInstanceSize(NSGetCommand)+1) then
- writeln('size of NSGetCommand is wrong: ',class_getInstanceSize(TDerivedNSGetCommand),' <> ',class_getInstanceSize(NSGetCommand)+1);
- if class_getInstanceSize(TDerivedNSMoveCommand) <> (class_getInstanceSize(NSMoveCommand)+1) then
- writeln('size of NSMoveCommand is wrong: ',class_getInstanceSize(TDerivedNSMoveCommand),' <> ',class_getInstanceSize(NSMoveCommand)+1);
- if class_getInstanceSize(TDerivedNSQuitCommand) <> (class_getInstanceSize(NSQuitCommand)+1) then
- writeln('size of NSQuitCommand is wrong: ',class_getInstanceSize(TDerivedNSQuitCommand),' <> ',class_getInstanceSize(NSQuitCommand)+1);
- if class_getInstanceSize(TDerivedNSSetCommand) <> (class_getInstanceSize(NSSetCommand)+1) then
- writeln('size of NSSetCommand is wrong: ',class_getInstanceSize(TDerivedNSSetCommand),' <> ',class_getInstanceSize(NSSetCommand)+1);
- if class_getInstanceSize(TDerivedNSScriptSuiteRegistry) <> (class_getInstanceSize(NSScriptSuiteRegistry)+1) then
- writeln('size of NSScriptSuiteRegistry is wrong: ',class_getInstanceSize(TDerivedNSScriptSuiteRegistry),' <> ',class_getInstanceSize(NSScriptSuiteRegistry)+1);
- if class_getInstanceSize(TDerivedNSScriptWhoseTest) <> (class_getInstanceSize(NSScriptWhoseTest)+1) then
- writeln('size of NSScriptWhoseTest is wrong: ',class_getInstanceSize(TDerivedNSScriptWhoseTest),' <> ',class_getInstanceSize(NSScriptWhoseTest)+1);
- if class_getInstanceSize(TDerivedNSLogicalTest) <> (class_getInstanceSize(NSLogicalTest)+1) then
- writeln('size of NSLogicalTest is wrong: ',class_getInstanceSize(TDerivedNSLogicalTest),' <> ',class_getInstanceSize(NSLogicalTest)+1);
- if class_getInstanceSize(TDerivedNSSpecifierTest) <> (class_getInstanceSize(NSSpecifierTest)+1) then
- writeln('size of NSSpecifierTest is wrong: ',class_getInstanceSize(TDerivedNSSpecifierTest),' <> ',class_getInstanceSize(NSSpecifierTest)+1);
- if class_getInstanceSize(TDerivedNSSet) <> (class_getInstanceSize(NSSet)+1) then
- writeln('size of NSSet is wrong: ',class_getInstanceSize(TDerivedNSSet),' <> ',class_getInstanceSize(NSSet)+1);
- if class_getInstanceSize(TDerivedNSMutableSet) <> (class_getInstanceSize(NSMutableSet)+1) then
- writeln('size of NSMutableSet is wrong: ',class_getInstanceSize(TDerivedNSMutableSet),' <> ',class_getInstanceSize(NSMutableSet)+1);
- if class_getInstanceSize(TDerivedNSCountedSet) <> (class_getInstanceSize(NSCountedSet)+1) then
- writeln('size of NSCountedSet is wrong: ',class_getInstanceSize(TDerivedNSCountedSet),' <> ',class_getInstanceSize(NSCountedSet)+1);
- if class_getInstanceSize(TDerivedNSSortDescriptor) <> (class_getInstanceSize(NSSortDescriptor)+1) then
- writeln('size of NSSortDescriptor is wrong: ',class_getInstanceSize(TDerivedNSSortDescriptor),' <> ',class_getInstanceSize(NSSortDescriptor)+1);
- if class_getInstanceSize(TDerivedNSSpellServer) <> (class_getInstanceSize(NSSpellServer)+1) then
- writeln('size of NSSpellServer is wrong: ',class_getInstanceSize(TDerivedNSSpellServer),' <> ',class_getInstanceSize(NSSpellServer)+1);
- if class_getInstanceSize(TDerivedNSStream) <> (class_getInstanceSize(NSStream)+1) then
- writeln('size of NSStream is wrong: ',class_getInstanceSize(TDerivedNSStream),' <> ',class_getInstanceSize(NSStream)+1);
- if class_getInstanceSize(TDerivedNSInputStream) <> (class_getInstanceSize(NSInputStream)+1) then
- writeln('size of NSInputStream is wrong: ',class_getInstanceSize(TDerivedNSInputStream),' <> ',class_getInstanceSize(NSInputStream)+1);
- if class_getInstanceSize(TDerivedNSOutputStream) <> (class_getInstanceSize(NSOutputStream)+1) then
- writeln('size of NSOutputStream is wrong: ',class_getInstanceSize(TDerivedNSOutputStream),' <> ',class_getInstanceSize(NSOutputStream)+1);
- if class_getInstanceSize(TDerivedNSString) <> (class_getInstanceSize(NSString)+1) then
- writeln('size of NSString is wrong: ',class_getInstanceSize(TDerivedNSString),' <> ',class_getInstanceSize(NSString)+1);
- if class_getInstanceSize(TDerivedNSMutableString) <> (class_getInstanceSize(NSMutableString)+1) then
- writeln('size of NSMutableString is wrong: ',class_getInstanceSize(TDerivedNSMutableString),' <> ',class_getInstanceSize(NSMutableString)+1);
- if class_getInstanceSize(TDerivedNSSimpleCString) <> (class_getInstanceSize(NSSimpleCString)+1) then
- writeln('size of NSSimpleCString is wrong: ',class_getInstanceSize(TDerivedNSSimpleCString),' <> ',class_getInstanceSize(NSSimpleCString)+1);
- if class_getInstanceSize(TDerivedNSTask) <> (class_getInstanceSize(NSTask)+1) then
- writeln('size of NSTask is wrong: ',class_getInstanceSize(TDerivedNSTask),' <> ',class_getInstanceSize(NSTask)+1);
- if class_getInstanceSize(TDerivedNSThread) <> (class_getInstanceSize(NSThread)+1) then
- writeln('size of NSThread is wrong: ',class_getInstanceSize(TDerivedNSThread),' <> ',class_getInstanceSize(NSThread)+1);
- if class_getInstanceSize(TDerivedNSTimer) <> (class_getInstanceSize(NSTimer)+1) then
- writeln('size of NSTimer is wrong: ',class_getInstanceSize(TDerivedNSTimer),' <> ',class_getInstanceSize(NSTimer)+1);
- if class_getInstanceSize(TDerivedNSTimeZone) <> (class_getInstanceSize(NSTimeZone)+1) then
- writeln('size of NSTimeZone is wrong: ',class_getInstanceSize(TDerivedNSTimeZone),' <> ',class_getInstanceSize(NSTimeZone)+1);
- if class_getInstanceSize(TDerivedNSUndoManager) <> (class_getInstanceSize(NSUndoManager)+1) then
- writeln('size of NSUndoManager is wrong: ',class_getInstanceSize(TDerivedNSUndoManager),' <> ',class_getInstanceSize(NSUndoManager)+1);
- if class_getInstanceSize(TDerivedNSURL) <> (class_getInstanceSize(NSURL)+1) then
- writeln('size of NSURL is wrong: ',class_getInstanceSize(TDerivedNSURL),' <> ',class_getInstanceSize(NSURL)+1);
- if class_getInstanceSize(TDerivedNSURLAuthenticationChallenge) <> (class_getInstanceSize(NSURLAuthenticationChallenge)+1) then
- writeln('size of NSURLAuthenticationChallenge is wrong: ',class_getInstanceSize(TDerivedNSURLAuthenticationChallenge),' <> ',class_getInstanceSize(NSURLAuthenticationChallenge)+1);
- if class_getInstanceSize(TDerivedNSCachedURLResponse) <> (class_getInstanceSize(NSCachedURLResponse)+1) then
- writeln('size of NSCachedURLResponse is wrong: ',class_getInstanceSize(TDerivedNSCachedURLResponse),' <> ',class_getInstanceSize(NSCachedURLResponse)+1);
- if class_getInstanceSize(TDerivedNSURLCache) <> (class_getInstanceSize(NSURLCache)+1) then
- writeln('size of NSURLCache is wrong: ',class_getInstanceSize(TDerivedNSURLCache),' <> ',class_getInstanceSize(NSURLCache)+1);
- if class_getInstanceSize(TDerivedNSURLConnection) <> (class_getInstanceSize(NSURLConnection)+1) then
- writeln('size of NSURLConnection is wrong: ',class_getInstanceSize(TDerivedNSURLConnection),' <> ',class_getInstanceSize(NSURLConnection)+1);
- if class_getInstanceSize(TDerivedNSURLCredential) <> (class_getInstanceSize(NSURLCredential)+1) then
- writeln('size of NSURLCredential is wrong: ',class_getInstanceSize(TDerivedNSURLCredential),' <> ',class_getInstanceSize(NSURLCredential)+1);
- if class_getInstanceSize(TDerivedNSURLCredentialStorage) <> (class_getInstanceSize(NSURLCredentialStorage)+1) then
- writeln('size of NSURLCredentialStorage is wrong: ',class_getInstanceSize(TDerivedNSURLCredentialStorage),' <> ',class_getInstanceSize(NSURLCredentialStorage)+1);
- if class_getInstanceSize(TDerivedNSURLDownload) <> (class_getInstanceSize(NSURLDownload)+1) then
- writeln('size of NSURLDownload is wrong: ',class_getInstanceSize(TDerivedNSURLDownload),' <> ',class_getInstanceSize(NSURLDownload)+1);
- if class_getInstanceSize(TDerivedNSURLHandle) <> (class_getInstanceSize(NSURLHandle)+1) then
- writeln('size of NSURLHandle is wrong: ',class_getInstanceSize(TDerivedNSURLHandle),' <> ',class_getInstanceSize(NSURLHandle)+1);
- if class_getInstanceSize(TDerivedNSURLProtectionSpace) <> (class_getInstanceSize(NSURLProtectionSpace)+1) then
- writeln('size of NSURLProtectionSpace is wrong: ',class_getInstanceSize(TDerivedNSURLProtectionSpace),' <> ',class_getInstanceSize(NSURLProtectionSpace)+1);
- if class_getInstanceSize(TDerivedNSURLProtocol) <> (class_getInstanceSize(NSURLProtocol)+1) then
- writeln('size of NSURLProtocol is wrong: ',class_getInstanceSize(TDerivedNSURLProtocol),' <> ',class_getInstanceSize(NSURLProtocol)+1);
- if class_getInstanceSize(TDerivedNSURLRequest) <> (class_getInstanceSize(NSURLRequest)+1) then
- writeln('size of NSURLRequest is wrong: ',class_getInstanceSize(TDerivedNSURLRequest),' <> ',class_getInstanceSize(NSURLRequest)+1);
- if class_getInstanceSize(TDerivedNSMutableURLRequest) <> (class_getInstanceSize(NSMutableURLRequest)+1) then
- writeln('size of NSMutableURLRequest is wrong: ',class_getInstanceSize(TDerivedNSMutableURLRequest),' <> ',class_getInstanceSize(NSMutableURLRequest)+1);
- if class_getInstanceSize(TDerivedNSURLResponse) <> (class_getInstanceSize(NSURLResponse)+1) then
- writeln('size of NSURLResponse is wrong: ',class_getInstanceSize(TDerivedNSURLResponse),' <> ',class_getInstanceSize(NSURLResponse)+1);
- if class_getInstanceSize(TDerivedNSHTTPURLResponse) <> (class_getInstanceSize(NSHTTPURLResponse)+1) then
- writeln('size of NSHTTPURLResponse is wrong: ',class_getInstanceSize(TDerivedNSHTTPURLResponse),' <> ',class_getInstanceSize(NSHTTPURLResponse)+1);
- if class_getInstanceSize(TDerivedNSUserDefaults) <> (class_getInstanceSize(NSUserDefaults)+1) then
- writeln('size of NSUserDefaults is wrong: ',class_getInstanceSize(TDerivedNSUserDefaults),' <> ',class_getInstanceSize(NSUserDefaults)+1);
- if class_getInstanceSize(TDerivedNSValue) <> (class_getInstanceSize(NSValue)+1) then
- writeln('size of NSValue is wrong: ',class_getInstanceSize(TDerivedNSValue),' <> ',class_getInstanceSize(NSValue)+1);
- if class_getInstanceSize(TDerivedNSNumber) <> (class_getInstanceSize(NSNumber)+1) then
- writeln('size of NSNumber is wrong: ',class_getInstanceSize(TDerivedNSNumber),' <> ',class_getInstanceSize(NSNumber)+1);
- if class_getInstanceSize(TDerivedNSValueTransformer) <> (class_getInstanceSize(NSValueTransformer)+1) then
- writeln('size of NSValueTransformer is wrong: ',class_getInstanceSize(TDerivedNSValueTransformer),' <> ',class_getInstanceSize(NSValueTransformer)+1);
- if class_getInstanceSize(TDerivedNSXMLDocument) <> (class_getInstanceSize(NSXMLDocument)+1) then
- writeln('size of NSXMLDocument is wrong: ',class_getInstanceSize(TDerivedNSXMLDocument),' <> ',class_getInstanceSize(NSXMLDocument)+1);
- if class_getInstanceSize(TDerivedNSXMLDTD) <> (class_getInstanceSize(NSXMLDTD)+1) then
- writeln('size of NSXMLDTD is wrong: ',class_getInstanceSize(TDerivedNSXMLDTD),' <> ',class_getInstanceSize(NSXMLDTD)+1);
- if class_getInstanceSize(TDerivedNSXMLDTDNode) <> (class_getInstanceSize(NSXMLDTDNode)+1) then
- writeln('size of NSXMLDTDNode is wrong: ',class_getInstanceSize(TDerivedNSXMLDTDNode),' <> ',class_getInstanceSize(NSXMLDTDNode)+1);
- if class_getInstanceSize(TDerivedNSXMLElement) <> (class_getInstanceSize(NSXMLElement)+1) then
- writeln('size of NSXMLElement is wrong: ',class_getInstanceSize(TDerivedNSXMLElement),' <> ',class_getInstanceSize(NSXMLElement)+1);
- if class_getInstanceSize(TDerivedNSXMLNode) <> (class_getInstanceSize(NSXMLNode)+1) then
- writeln('size of NSXMLNode is wrong: ',class_getInstanceSize(TDerivedNSXMLNode),' <> ',class_getInstanceSize(NSXMLNode)+1);
- if class_getInstanceSize(TDerivedNSXMLParser) <> (class_getInstanceSize(NSXMLParser)+1) then
- writeln('size of NSXMLParser is wrong: ',class_getInstanceSize(TDerivedNSXMLParser),' <> ',class_getInstanceSize(NSXMLParser)+1);
- if class_getInstanceSize(TDerivedNSActionCell) <> (class_getInstanceSize(NSActionCell)+1) then
- writeln('size of NSActionCell is wrong: ',class_getInstanceSize(TDerivedNSActionCell),' <> ',class_getInstanceSize(NSActionCell)+1);
- if class_getInstanceSize(TDerivedNSAlert) <> (class_getInstanceSize(NSAlert)+1) then
- writeln('size of NSAlert is wrong: ',class_getInstanceSize(TDerivedNSAlert),' <> ',class_getInstanceSize(NSAlert)+1);
- if class_getInstanceSize(TDerivedNSAnimation) <> (class_getInstanceSize(NSAnimation)+1) then
- writeln('size of NSAnimation is wrong: ',class_getInstanceSize(TDerivedNSAnimation),' <> ',class_getInstanceSize(NSAnimation)+1);
- if class_getInstanceSize(TDerivedNSViewAnimation) <> (class_getInstanceSize(NSViewAnimation)+1) then
- writeln('size of NSViewAnimation is wrong: ',class_getInstanceSize(TDerivedNSViewAnimation),' <> ',class_getInstanceSize(NSViewAnimation)+1);
- if class_getInstanceSize(TDerivedNSAnimationContext) <> (class_getInstanceSize(NSAnimationContext)+1) then
- writeln('size of NSAnimationContext is wrong: ',class_getInstanceSize(TDerivedNSAnimationContext),' <> ',class_getInstanceSize(NSAnimationContext)+1);
- if class_getInstanceSize(TDerivedNSApplication) <> (class_getInstanceSize(NSApplication)+1) then
- writeln('size of NSApplication is wrong: ',class_getInstanceSize(TDerivedNSApplication),' <> ',class_getInstanceSize(NSApplication)+1);
- if class_getInstanceSize(TDerivedNSArrayController) <> (class_getInstanceSize(NSArrayController)+1) then
- writeln('size of NSArrayController is wrong: ',class_getInstanceSize(TDerivedNSArrayController),' <> ',class_getInstanceSize(NSArrayController)+1);
- if class_getInstanceSize(TDerivedNSATSTypesetter) <> (class_getInstanceSize(NSATSTypesetter)+1) then
- writeln('size of NSATSTypesetter is wrong: ',class_getInstanceSize(TDerivedNSATSTypesetter),' <> ',class_getInstanceSize(NSATSTypesetter)+1);
- if class_getInstanceSize(TDerivedNSBezierPath) <> (class_getInstanceSize(NSBezierPath)+1) then
- writeln('size of NSBezierPath is wrong: ',class_getInstanceSize(TDerivedNSBezierPath),' <> ',class_getInstanceSize(NSBezierPath)+1);
- if class_getInstanceSize(TDerivedNSBitmapImageRep) <> (class_getInstanceSize(NSBitmapImageRep)+1) then
- writeln('size of NSBitmapImageRep is wrong: ',class_getInstanceSize(TDerivedNSBitmapImageRep),' <> ',class_getInstanceSize(NSBitmapImageRep)+1);
- if class_getInstanceSize(TDerivedNSBox) <> (class_getInstanceSize(NSBox)+1) then
- writeln('size of NSBox is wrong: ',class_getInstanceSize(TDerivedNSBox),' <> ',class_getInstanceSize(NSBox)+1);
- if class_getInstanceSize(TDerivedNSBrowser) <> (class_getInstanceSize(NSBrowser)+1) then
- writeln('size of NSBrowser is wrong: ',class_getInstanceSize(TDerivedNSBrowser),' <> ',class_getInstanceSize(NSBrowser)+1);
- if class_getInstanceSize(TDerivedNSBrowserCell) <> (class_getInstanceSize(NSBrowserCell)+1) then
- writeln('size of NSBrowserCell is wrong: ',class_getInstanceSize(TDerivedNSBrowserCell),' <> ',class_getInstanceSize(NSBrowserCell)+1);
- if class_getInstanceSize(TDerivedNSButton) <> (class_getInstanceSize(NSButton)+1) then
- writeln('size of NSButton is wrong: ',class_getInstanceSize(TDerivedNSButton),' <> ',class_getInstanceSize(NSButton)+1);
- if class_getInstanceSize(TDerivedNSButtonCell) <> (class_getInstanceSize(NSButtonCell)+1) then
- writeln('size of NSButtonCell is wrong: ',class_getInstanceSize(TDerivedNSButtonCell),' <> ',class_getInstanceSize(NSButtonCell)+1);
- if class_getInstanceSize(TDerivedNSCachedImageRep) <> (class_getInstanceSize(NSCachedImageRep)+1) then
- writeln('size of NSCachedImageRep is wrong: ',class_getInstanceSize(TDerivedNSCachedImageRep),' <> ',class_getInstanceSize(NSCachedImageRep)+1);
- if class_getInstanceSize(TDerivedNSCell) <> (class_getInstanceSize(NSCell)+1) then
- writeln('size of NSCell is wrong: ',class_getInstanceSize(TDerivedNSCell),' <> ',class_getInstanceSize(NSCell)+1);
- if class_getInstanceSize(TDerivedNSCIImageRep) <> (class_getInstanceSize(NSCIImageRep)+1) then
- writeln('size of NSCIImageRep is wrong: ',class_getInstanceSize(TDerivedNSCIImageRep),' <> ',class_getInstanceSize(NSCIImageRep)+1);
- if class_getInstanceSize(TDerivedNSClipView) <> (class_getInstanceSize(NSClipView)+1) then
- writeln('size of NSClipView is wrong: ',class_getInstanceSize(TDerivedNSClipView),' <> ',class_getInstanceSize(NSClipView)+1);
- if class_getInstanceSize(TDerivedNSCollectionViewItem) <> (class_getInstanceSize(NSCollectionViewItem)+1) then
- writeln('size of NSCollectionViewItem is wrong: ',class_getInstanceSize(TDerivedNSCollectionViewItem),' <> ',class_getInstanceSize(NSCollectionViewItem)+1);
- if class_getInstanceSize(TDerivedNSCollectionView) <> (class_getInstanceSize(NSCollectionView)+1) then
- writeln('size of NSCollectionView is wrong: ',class_getInstanceSize(TDerivedNSCollectionView),' <> ',class_getInstanceSize(NSCollectionView)+1);
- if class_getInstanceSize(TDerivedNSColor) <> (class_getInstanceSize(NSColor)+1) then
- writeln('size of NSColor is wrong: ',class_getInstanceSize(TDerivedNSColor),' <> ',class_getInstanceSize(NSColor)+1);
- if class_getInstanceSize(TDerivedNSColorList) <> (class_getInstanceSize(NSColorList)+1) then
- writeln('size of NSColorList is wrong: ',class_getInstanceSize(TDerivedNSColorList),' <> ',class_getInstanceSize(NSColorList)+1);
- if class_getInstanceSize(TDerivedNSColorPanel) <> (class_getInstanceSize(NSColorPanel)+1) then
- writeln('size of NSColorPanel is wrong: ',class_getInstanceSize(TDerivedNSColorPanel),' <> ',class_getInstanceSize(NSColorPanel)+1);
- if class_getInstanceSize(TDerivedNSColorPicker) <> (class_getInstanceSize(NSColorPicker)+1) then
- writeln('size of NSColorPicker is wrong: ',class_getInstanceSize(TDerivedNSColorPicker),' <> ',class_getInstanceSize(NSColorPicker)+1);
- if class_getInstanceSize(TDerivedNSColorSpace) <> (class_getInstanceSize(NSColorSpace)+1) then
- writeln('size of NSColorSpace is wrong: ',class_getInstanceSize(TDerivedNSColorSpace),' <> ',class_getInstanceSize(NSColorSpace)+1);
- if class_getInstanceSize(TDerivedNSColorWell) <> (class_getInstanceSize(NSColorWell)+1) then
- writeln('size of NSColorWell is wrong: ',class_getInstanceSize(TDerivedNSColorWell),' <> ',class_getInstanceSize(NSColorWell)+1);
- if class_getInstanceSize(TDerivedNSComboBox) <> (class_getInstanceSize(NSComboBox)+1) then
- writeln('size of NSComboBox is wrong: ',class_getInstanceSize(TDerivedNSComboBox),' <> ',class_getInstanceSize(NSComboBox)+1);
- if class_getInstanceSize(TDerivedNSComboBoxCell) <> (class_getInstanceSize(NSComboBoxCell)+1) then
- writeln('size of NSComboBoxCell is wrong: ',class_getInstanceSize(TDerivedNSComboBoxCell),' <> ',class_getInstanceSize(NSComboBoxCell)+1);
- if class_getInstanceSize(TDerivedNSControl) <> (class_getInstanceSize(NSControl)+1) then
- writeln('size of NSControl is wrong: ',class_getInstanceSize(TDerivedNSControl),' <> ',class_getInstanceSize(NSControl)+1);
- if class_getInstanceSize(TDerivedNSController) <> (class_getInstanceSize(NSController)+1) then
- writeln('size of NSController is wrong: ',class_getInstanceSize(TDerivedNSController),' <> ',class_getInstanceSize(NSController)+1);
- if class_getInstanceSize(TDerivedNSCursor) <> (class_getInstanceSize(NSCursor)+1) then
- writeln('size of NSCursor is wrong: ',class_getInstanceSize(TDerivedNSCursor),' <> ',class_getInstanceSize(NSCursor)+1);
- if class_getInstanceSize(TDerivedNSCustomImageRep) <> (class_getInstanceSize(NSCustomImageRep)+1) then
- writeln('size of NSCustomImageRep is wrong: ',class_getInstanceSize(TDerivedNSCustomImageRep),' <> ',class_getInstanceSize(NSCustomImageRep)+1);
- if class_getInstanceSize(TDerivedNSDatePicker) <> (class_getInstanceSize(NSDatePicker)+1) then
- writeln('size of NSDatePicker is wrong: ',class_getInstanceSize(TDerivedNSDatePicker),' <> ',class_getInstanceSize(NSDatePicker)+1);
- if class_getInstanceSize(TDerivedNSDatePickerCell) <> (class_getInstanceSize(NSDatePickerCell)+1) then
- writeln('size of NSDatePickerCell is wrong: ',class_getInstanceSize(TDerivedNSDatePickerCell),' <> ',class_getInstanceSize(NSDatePickerCell)+1);
- if class_getInstanceSize(TDerivedNSDictionaryController) <> (class_getInstanceSize(NSDictionaryController)+1) then
- writeln('size of NSDictionaryController is wrong: ',class_getInstanceSize(TDerivedNSDictionaryController),' <> ',class_getInstanceSize(NSDictionaryController)+1);
- if class_getInstanceSize(TDerivedNSDockTile) <> (class_getInstanceSize(NSDockTile)+1) then
- writeln('size of NSDockTile is wrong: ',class_getInstanceSize(TDerivedNSDockTile),' <> ',class_getInstanceSize(NSDockTile)+1);
- if class_getInstanceSize(TDerivedNSDocument) <> (class_getInstanceSize(NSDocument)+1) then
- writeln('size of NSDocument is wrong: ',class_getInstanceSize(TDerivedNSDocument),' <> ',class_getInstanceSize(NSDocument)+1);
- if class_getInstanceSize(TDerivedNSDocumentController) <> (class_getInstanceSize(NSDocumentController)+1) then
- writeln('size of NSDocumentController is wrong: ',class_getInstanceSize(TDerivedNSDocumentController),' <> ',class_getInstanceSize(NSDocumentController)+1);
- if class_getInstanceSize(TDerivedNSDrawer) <> (class_getInstanceSize(NSDrawer)+1) then
- writeln('size of NSDrawer is wrong: ',class_getInstanceSize(TDerivedNSDrawer),' <> ',class_getInstanceSize(NSDrawer)+1);
- if class_getInstanceSize(TDerivedNSEPSImageRep) <> (class_getInstanceSize(NSEPSImageRep)+1) then
- writeln('size of NSEPSImageRep is wrong: ',class_getInstanceSize(TDerivedNSEPSImageRep),' <> ',class_getInstanceSize(NSEPSImageRep)+1);
- if class_getInstanceSize(TDerivedNSEvent) <> (class_getInstanceSize(NSEvent)+1) then
- writeln('size of NSEvent is wrong: ',class_getInstanceSize(TDerivedNSEvent),' <> ',class_getInstanceSize(NSEvent)+1);
- if class_getInstanceSize(TDerivedNSFileWrapper) <> (class_getInstanceSize(NSFileWrapper)+1) then
- writeln('size of NSFileWrapper is wrong: ',class_getInstanceSize(TDerivedNSFileWrapper),' <> ',class_getInstanceSize(NSFileWrapper)+1);
- if class_getInstanceSize(TDerivedNSFont) <> (class_getInstanceSize(NSFont)+1) then
- writeln('size of NSFont is wrong: ',class_getInstanceSize(TDerivedNSFont),' <> ',class_getInstanceSize(NSFont)+1);
- if class_getInstanceSize(TDerivedNSFontDescriptor) <> (class_getInstanceSize(NSFontDescriptor)+1) then
- writeln('size of NSFontDescriptor is wrong: ',class_getInstanceSize(TDerivedNSFontDescriptor),' <> ',class_getInstanceSize(NSFontDescriptor)+1);
- if class_getInstanceSize(TDerivedNSFontManager) <> (class_getInstanceSize(NSFontManager)+1) then
- writeln('size of NSFontManager is wrong: ',class_getInstanceSize(TDerivedNSFontManager),' <> ',class_getInstanceSize(NSFontManager)+1);
- if class_getInstanceSize(TDerivedNSFontPanel) <> (class_getInstanceSize(NSFontPanel)+1) then
- writeln('size of NSFontPanel is wrong: ',class_getInstanceSize(TDerivedNSFontPanel),' <> ',class_getInstanceSize(NSFontPanel)+1);
- if class_getInstanceSize(TDerivedNSFormCell) <> (class_getInstanceSize(NSFormCell)+1) then
- writeln('size of NSFormCell is wrong: ',class_getInstanceSize(TDerivedNSFormCell),' <> ',class_getInstanceSize(NSFormCell)+1);
- if class_getInstanceSize(TDerivedNSGlyphGenerator) <> (class_getInstanceSize(NSGlyphGenerator)+1) then
- writeln('size of NSGlyphGenerator is wrong: ',class_getInstanceSize(TDerivedNSGlyphGenerator),' <> ',class_getInstanceSize(NSGlyphGenerator)+1);
- if class_getInstanceSize(TDerivedNSGlyphInfo) <> (class_getInstanceSize(NSGlyphInfo)+1) then
- writeln('size of NSGlyphInfo is wrong: ',class_getInstanceSize(TDerivedNSGlyphInfo),' <> ',class_getInstanceSize(NSGlyphInfo)+1);
- if class_getInstanceSize(TDerivedNSGradient) <> (class_getInstanceSize(NSGradient)+1) then
- writeln('size of NSGradient is wrong: ',class_getInstanceSize(TDerivedNSGradient),' <> ',class_getInstanceSize(NSGradient)+1);
- if class_getInstanceSize(TDerivedNSGraphicsContext) <> (class_getInstanceSize(NSGraphicsContext)+1) then
- writeln('size of NSGraphicsContext is wrong: ',class_getInstanceSize(TDerivedNSGraphicsContext),' <> ',class_getInstanceSize(NSGraphicsContext)+1);
- if class_getInstanceSize(TDerivedNSHelpManager) <> (class_getInstanceSize(NSHelpManager)+1) then
- writeln('size of NSHelpManager is wrong: ',class_getInstanceSize(TDerivedNSHelpManager),' <> ',class_getInstanceSize(NSHelpManager)+1);
- if class_getInstanceSize(TDerivedNSImage) <> (class_getInstanceSize(NSImage)+1) then
- writeln('size of NSImage is wrong: ',class_getInstanceSize(TDerivedNSImage),' <> ',class_getInstanceSize(NSImage)+1);
- if class_getInstanceSize(TDerivedNSImageCell) <> (class_getInstanceSize(NSImageCell)+1) then
- writeln('size of NSImageCell is wrong: ',class_getInstanceSize(TDerivedNSImageCell),' <> ',class_getInstanceSize(NSImageCell)+1);
- if class_getInstanceSize(TDerivedNSImageRep) <> (class_getInstanceSize(NSImageRep)+1) then
- writeln('size of NSImageRep is wrong: ',class_getInstanceSize(TDerivedNSImageRep),' <> ',class_getInstanceSize(NSImageRep)+1);
- if class_getInstanceSize(TDerivedNSImageView) <> (class_getInstanceSize(NSImageView)+1) then
- writeln('size of NSImageView is wrong: ',class_getInstanceSize(TDerivedNSImageView),' <> ',class_getInstanceSize(NSImageView)+1);
- if class_getInstanceSize(TDerivedNSInputManager) <> (class_getInstanceSize(NSInputManager)+1) then
- writeln('size of NSInputManager is wrong: ',class_getInstanceSize(TDerivedNSInputManager),' <> ',class_getInstanceSize(NSInputManager)+1);
- if class_getInstanceSize(TDerivedNSInputServer) <> (class_getInstanceSize(NSInputServer)+1) then
- writeln('size of NSInputServer is wrong: ',class_getInstanceSize(TDerivedNSInputServer),' <> ',class_getInstanceSize(NSInputServer)+1);
- if class_getInstanceSize(TDerivedNSLayoutManager) <> (class_getInstanceSize(NSLayoutManager)+1) then
- writeln('size of NSLayoutManager is wrong: ',class_getInstanceSize(TDerivedNSLayoutManager),' <> ',class_getInstanceSize(NSLayoutManager)+1);
- if class_getInstanceSize(TDerivedNSLevelIndicator) <> (class_getInstanceSize(NSLevelIndicator)+1) then
- writeln('size of NSLevelIndicator is wrong: ',class_getInstanceSize(TDerivedNSLevelIndicator),' <> ',class_getInstanceSize(NSLevelIndicator)+1);
- if class_getInstanceSize(TDerivedNSLevelIndicatorCell) <> (class_getInstanceSize(NSLevelIndicatorCell)+1) then
- writeln('size of NSLevelIndicatorCell is wrong: ',class_getInstanceSize(TDerivedNSLevelIndicatorCell),' <> ',class_getInstanceSize(NSLevelIndicatorCell)+1);
- if class_getInstanceSize(TDerivedNSMatrix) <> (class_getInstanceSize(NSMatrix)+1) then
- writeln('size of NSMatrix is wrong: ',class_getInstanceSize(TDerivedNSMatrix),' <> ',class_getInstanceSize(NSMatrix)+1);
- if class_getInstanceSize(TDerivedNSMenu) <> (class_getInstanceSize(NSMenu)+1) then
- writeln('size of NSMenu is wrong: ',class_getInstanceSize(TDerivedNSMenu),' <> ',class_getInstanceSize(NSMenu)+1);
- if class_getInstanceSize(TDerivedNSMenuItem) <> (class_getInstanceSize(NSMenuItem)+1) then
- writeln('size of NSMenuItem is wrong: ',class_getInstanceSize(TDerivedNSMenuItem),' <> ',class_getInstanceSize(NSMenuItem)+1);
- if class_getInstanceSize(TDerivedNSMenuItemCell) <> (class_getInstanceSize(NSMenuItemCell)+1) then
- writeln('size of NSMenuItemCell is wrong: ',class_getInstanceSize(TDerivedNSMenuItemCell),' <> ',class_getInstanceSize(NSMenuItemCell)+1);
- if class_getInstanceSize(TDerivedNSMenuView) <> (class_getInstanceSize(NSMenuView)+1) then
- writeln('size of NSMenuView is wrong: ',class_getInstanceSize(TDerivedNSMenuView),' <> ',class_getInstanceSize(NSMenuView)+1);
- if class_getInstanceSize(TDerivedNSMovie) <> (class_getInstanceSize(NSMovie)+1) then
- writeln('size of NSMovie is wrong: ',class_getInstanceSize(TDerivedNSMovie),' <> ',class_getInstanceSize(NSMovie)+1);
- if class_getInstanceSize(TDerivedNSMovieView) <> (class_getInstanceSize(NSMovieView)+1) then
- writeln('size of NSMovieView is wrong: ',class_getInstanceSize(TDerivedNSMovieView),' <> ',class_getInstanceSize(NSMovieView)+1);
- if class_getInstanceSize(TDerivedNSNib) <> (class_getInstanceSize(NSNib)+1) then
- writeln('size of NSNib is wrong: ',class_getInstanceSize(TDerivedNSNib),' <> ',class_getInstanceSize(NSNib)+1);
- if class_getInstanceSize(TDerivedNSObjectController) <> (class_getInstanceSize(NSObjectController)+1) then
- writeln('size of NSObjectController is wrong: ',class_getInstanceSize(TDerivedNSObjectController),' <> ',class_getInstanceSize(NSObjectController)+1);
- if class_getInstanceSize(TDerivedNSOpenGLPixelFormat) <> (class_getInstanceSize(NSOpenGLPixelFormat)+1) then
- writeln('size of NSOpenGLPixelFormat is wrong: ',class_getInstanceSize(TDerivedNSOpenGLPixelFormat),' <> ',class_getInstanceSize(NSOpenGLPixelFormat)+1);
- if class_getInstanceSize(TDerivedNSOpenGLPixelBuffer) <> (class_getInstanceSize(NSOpenGLPixelBuffer)+1) then
- writeln('size of NSOpenGLPixelBuffer is wrong: ',class_getInstanceSize(TDerivedNSOpenGLPixelBuffer),' <> ',class_getInstanceSize(NSOpenGLPixelBuffer)+1);
- if class_getInstanceSize(TDerivedNSOpenGLContext) <> (class_getInstanceSize(NSOpenGLContext)+1) then
- writeln('size of NSOpenGLContext is wrong: ',class_getInstanceSize(TDerivedNSOpenGLContext),' <> ',class_getInstanceSize(NSOpenGLContext)+1);
- if class_getInstanceSize(TDerivedNSOpenGLView) <> (class_getInstanceSize(NSOpenGLView)+1) then
- writeln('size of NSOpenGLView is wrong: ',class_getInstanceSize(TDerivedNSOpenGLView),' <> ',class_getInstanceSize(NSOpenGLView)+1);
- if class_getInstanceSize(TDerivedNSOpenPanel) <> (class_getInstanceSize(NSOpenPanel)+1) then
- writeln('size of NSOpenPanel is wrong: ',class_getInstanceSize(TDerivedNSOpenPanel),' <> ',class_getInstanceSize(NSOpenPanel)+1);
- if class_getInstanceSize(TDerivedNSOutlineView) <> (class_getInstanceSize(NSOutlineView)+1) then
- writeln('size of NSOutlineView is wrong: ',class_getInstanceSize(TDerivedNSOutlineView),' <> ',class_getInstanceSize(NSOutlineView)+1);
- if class_getInstanceSize(TDerivedNSPageLayout) <> (class_getInstanceSize(NSPageLayout)+1) then
- writeln('size of NSPageLayout is wrong: ',class_getInstanceSize(TDerivedNSPageLayout),' <> ',class_getInstanceSize(NSPageLayout)+1);
- if class_getInstanceSize(TDerivedNSPanel) <> (class_getInstanceSize(NSPanel)+1) then
- writeln('size of NSPanel is wrong: ',class_getInstanceSize(TDerivedNSPanel),' <> ',class_getInstanceSize(NSPanel)+1);
- if class_getInstanceSize(TDerivedNSTextTab) <> (class_getInstanceSize(NSTextTab)+1) then
- writeln('size of NSTextTab is wrong: ',class_getInstanceSize(TDerivedNSTextTab),' <> ',class_getInstanceSize(NSTextTab)+1);
- if class_getInstanceSize(TDerivedNSParagraphStyle) <> (class_getInstanceSize(NSParagraphStyle)+1) then
- writeln('size of NSParagraphStyle is wrong: ',class_getInstanceSize(TDerivedNSParagraphStyle),' <> ',class_getInstanceSize(NSParagraphStyle)+1);
- if class_getInstanceSize(TDerivedNSMutableParagraphStyle) <> (class_getInstanceSize(NSMutableParagraphStyle)+1) then
- writeln('size of NSMutableParagraphStyle is wrong: ',class_getInstanceSize(TDerivedNSMutableParagraphStyle),' <> ',class_getInstanceSize(NSMutableParagraphStyle)+1);
- if class_getInstanceSize(TDerivedNSPasteboard) <> (class_getInstanceSize(NSPasteboard)+1) then
- writeln('size of NSPasteboard is wrong: ',class_getInstanceSize(TDerivedNSPasteboard),' <> ',class_getInstanceSize(NSPasteboard)+1);
- if class_getInstanceSize(TDerivedNSPathCell) <> (class_getInstanceSize(NSPathCell)+1) then
- writeln('size of NSPathCell is wrong: ',class_getInstanceSize(TDerivedNSPathCell),' <> ',class_getInstanceSize(NSPathCell)+1);
- if class_getInstanceSize(TDerivedNSPathComponentCell) <> (class_getInstanceSize(NSPathComponentCell)+1) then
- writeln('size of NSPathComponentCell is wrong: ',class_getInstanceSize(TDerivedNSPathComponentCell),' <> ',class_getInstanceSize(NSPathComponentCell)+1);
- if class_getInstanceSize(TDerivedNSPathControl) <> (class_getInstanceSize(NSPathControl)+1) then
- writeln('size of NSPathControl is wrong: ',class_getInstanceSize(TDerivedNSPathControl),' <> ',class_getInstanceSize(NSPathControl)+1);
- if class_getInstanceSize(TDerivedNSPDFImageRep) <> (class_getInstanceSize(NSPDFImageRep)+1) then
- writeln('size of NSPDFImageRep is wrong: ',class_getInstanceSize(TDerivedNSPDFImageRep),' <> ',class_getInstanceSize(NSPDFImageRep)+1);
- if class_getInstanceSize(TDerivedNSPersistentDocument) <> (class_getInstanceSize(NSPersistentDocument)+1) then
- writeln('size of NSPersistentDocument is wrong: ',class_getInstanceSize(TDerivedNSPersistentDocument),' <> ',class_getInstanceSize(NSPersistentDocument)+1);
- if class_getInstanceSize(TDerivedNSPICTImageRep) <> (class_getInstanceSize(NSPICTImageRep)+1) then
- writeln('size of NSPICTImageRep is wrong: ',class_getInstanceSize(TDerivedNSPICTImageRep),' <> ',class_getInstanceSize(NSPICTImageRep)+1);
- if class_getInstanceSize(TDerivedNSPopUpButton) <> (class_getInstanceSize(NSPopUpButton)+1) then
- writeln('size of NSPopUpButton is wrong: ',class_getInstanceSize(TDerivedNSPopUpButton),' <> ',class_getInstanceSize(NSPopUpButton)+1);
- if class_getInstanceSize(TDerivedNSPopUpButtonCell) <> (class_getInstanceSize(NSPopUpButtonCell)+1) then
- writeln('size of NSPopUpButtonCell is wrong: ',class_getInstanceSize(TDerivedNSPopUpButtonCell),' <> ',class_getInstanceSize(NSPopUpButtonCell)+1);
- if class_getInstanceSize(TDerivedNSPredicateEditor) <> (class_getInstanceSize(NSPredicateEditor)+1) then
- writeln('size of NSPredicateEditor is wrong: ',class_getInstanceSize(TDerivedNSPredicateEditor),' <> ',class_getInstanceSize(NSPredicateEditor)+1);
- if class_getInstanceSize(TDerivedNSPrinter) <> (class_getInstanceSize(NSPrinter)+1) then
- writeln('size of NSPrinter is wrong: ',class_getInstanceSize(TDerivedNSPrinter),' <> ',class_getInstanceSize(NSPrinter)+1);
- if class_getInstanceSize(TDerivedNSPrintInfo) <> (class_getInstanceSize(NSPrintInfo)+1) then
- writeln('size of NSPrintInfo is wrong: ',class_getInstanceSize(TDerivedNSPrintInfo),' <> ',class_getInstanceSize(NSPrintInfo)+1);
- if class_getInstanceSize(TDerivedNSPrintOperation) <> (class_getInstanceSize(NSPrintOperation)+1) then
- writeln('size of NSPrintOperation is wrong: ',class_getInstanceSize(TDerivedNSPrintOperation),' <> ',class_getInstanceSize(NSPrintOperation)+1);
- if class_getInstanceSize(TDerivedNSPrintPanel) <> (class_getInstanceSize(NSPrintPanel)+1) then
- writeln('size of NSPrintPanel is wrong: ',class_getInstanceSize(TDerivedNSPrintPanel),' <> ',class_getInstanceSize(NSPrintPanel)+1);
- if class_getInstanceSize(TDerivedNSProgressIndicator) <> (class_getInstanceSize(NSProgressIndicator)+1) then
- writeln('size of NSProgressIndicator is wrong: ',class_getInstanceSize(TDerivedNSProgressIndicator),' <> ',class_getInstanceSize(NSProgressIndicator)+1);
- if class_getInstanceSize(TDerivedNSQuickDrawView) <> (class_getInstanceSize(NSQuickDrawView)+1) then
- writeln('size of NSQuickDrawView is wrong: ',class_getInstanceSize(TDerivedNSQuickDrawView),' <> ',class_getInstanceSize(NSQuickDrawView)+1);
- if class_getInstanceSize(TDerivedNSResponder) <> (class_getInstanceSize(NSResponder)+1) then
- writeln('size of NSResponder is wrong: ',class_getInstanceSize(TDerivedNSResponder),' <> ',class_getInstanceSize(NSResponder)+1);
- if class_getInstanceSize(TDerivedNSRuleEditor) <> (class_getInstanceSize(NSRuleEditor)+1) then
- writeln('size of NSRuleEditor is wrong: ',class_getInstanceSize(TDerivedNSRuleEditor),' <> ',class_getInstanceSize(NSRuleEditor)+1);
- if class_getInstanceSize(TDerivedNSRulerMarker) <> (class_getInstanceSize(NSRulerMarker)+1) then
- writeln('size of NSRulerMarker is wrong: ',class_getInstanceSize(TDerivedNSRulerMarker),' <> ',class_getInstanceSize(NSRulerMarker)+1);
- if class_getInstanceSize(TDerivedNSRulerView) <> (class_getInstanceSize(NSRulerView)+1) then
- writeln('size of NSRulerView is wrong: ',class_getInstanceSize(TDerivedNSRulerView),' <> ',class_getInstanceSize(NSRulerView)+1);
- if class_getInstanceSize(TDerivedNSSavePanel) <> (class_getInstanceSize(NSSavePanel)+1) then
- writeln('size of NSSavePanel is wrong: ',class_getInstanceSize(TDerivedNSSavePanel),' <> ',class_getInstanceSize(NSSavePanel)+1);
- if class_getInstanceSize(TDerivedNSScreen) <> (class_getInstanceSize(NSScreen)+1) then
- writeln('size of NSScreen is wrong: ',class_getInstanceSize(TDerivedNSScreen),' <> ',class_getInstanceSize(NSScreen)+1);
- if class_getInstanceSize(TDerivedNSScroller) <> (class_getInstanceSize(NSScroller)+1) then
- writeln('size of NSScroller is wrong: ',class_getInstanceSize(TDerivedNSScroller),' <> ',class_getInstanceSize(NSScroller)+1);
- if class_getInstanceSize(TDerivedNSScrollView) <> (class_getInstanceSize(NSScrollView)+1) then
- writeln('size of NSScrollView is wrong: ',class_getInstanceSize(TDerivedNSScrollView),' <> ',class_getInstanceSize(NSScrollView)+1);
- if class_getInstanceSize(TDerivedNSSearchField) <> (class_getInstanceSize(NSSearchField)+1) then
- writeln('size of NSSearchField is wrong: ',class_getInstanceSize(TDerivedNSSearchField),' <> ',class_getInstanceSize(NSSearchField)+1);
- if class_getInstanceSize(TDerivedNSSearchFieldCell) <> (class_getInstanceSize(NSSearchFieldCell)+1) then
- writeln('size of NSSearchFieldCell is wrong: ',class_getInstanceSize(TDerivedNSSearchFieldCell),' <> ',class_getInstanceSize(NSSearchFieldCell)+1);
- if class_getInstanceSize(TDerivedNSSecureTextField) <> (class_getInstanceSize(NSSecureTextField)+1) then
- writeln('size of NSSecureTextField is wrong: ',class_getInstanceSize(TDerivedNSSecureTextField),' <> ',class_getInstanceSize(NSSecureTextField)+1);
- if class_getInstanceSize(TDerivedNSSecureTextFieldCell) <> (class_getInstanceSize(NSSecureTextFieldCell)+1) then
- writeln('size of NSSecureTextFieldCell is wrong: ',class_getInstanceSize(TDerivedNSSecureTextFieldCell),' <> ',class_getInstanceSize(NSSecureTextFieldCell)+1);
- if class_getInstanceSize(TDerivedNSSegmentedControl) <> (class_getInstanceSize(NSSegmentedControl)+1) then
- writeln('size of NSSegmentedControl is wrong: ',class_getInstanceSize(TDerivedNSSegmentedControl),' <> ',class_getInstanceSize(NSSegmentedControl)+1);
- if class_getInstanceSize(TDerivedNSShadow) <> (class_getInstanceSize(NSShadow)+1) then
- writeln('size of NSShadow is wrong: ',class_getInstanceSize(TDerivedNSShadow),' <> ',class_getInstanceSize(NSShadow)+1);
- if class_getInstanceSize(TDerivedNSSlider) <> (class_getInstanceSize(NSSlider)+1) then
- writeln('size of NSSlider is wrong: ',class_getInstanceSize(TDerivedNSSlider),' <> ',class_getInstanceSize(NSSlider)+1);
- if class_getInstanceSize(TDerivedNSSliderCell) <> (class_getInstanceSize(NSSliderCell)+1) then
- writeln('size of NSSliderCell is wrong: ',class_getInstanceSize(TDerivedNSSliderCell),' <> ',class_getInstanceSize(NSSliderCell)+1);
- if class_getInstanceSize(TDerivedNSSound) <> (class_getInstanceSize(NSSound)+1) then
- writeln('size of NSSound is wrong: ',class_getInstanceSize(TDerivedNSSound),' <> ',class_getInstanceSize(NSSound)+1);
- if class_getInstanceSize(TDerivedNSSpeechRecognizer) <> (class_getInstanceSize(NSSpeechRecognizer)+1) then
- writeln('size of NSSpeechRecognizer is wrong: ',class_getInstanceSize(TDerivedNSSpeechRecognizer),' <> ',class_getInstanceSize(NSSpeechRecognizer)+1);
- if class_getInstanceSize(TDerivedNSSpeechSynthesizer) <> (class_getInstanceSize(NSSpeechSynthesizer)+1) then
- writeln('size of NSSpeechSynthesizer is wrong: ',class_getInstanceSize(TDerivedNSSpeechSynthesizer),' <> ',class_getInstanceSize(NSSpeechSynthesizer)+1);
- if class_getInstanceSize(TDerivedNSSpellChecker) <> (class_getInstanceSize(NSSpellChecker)+1) then
- writeln('size of NSSpellChecker is wrong: ',class_getInstanceSize(TDerivedNSSpellChecker),' <> ',class_getInstanceSize(NSSpellChecker)+1);
- if class_getInstanceSize(TDerivedNSSplitView) <> (class_getInstanceSize(NSSplitView)+1) then
- writeln('size of NSSplitView is wrong: ',class_getInstanceSize(TDerivedNSSplitView),' <> ',class_getInstanceSize(NSSplitView)+1);
- if class_getInstanceSize(TDerivedNSStatusBar) <> (class_getInstanceSize(NSStatusBar)+1) then
- writeln('size of NSStatusBar is wrong: ',class_getInstanceSize(TDerivedNSStatusBar),' <> ',class_getInstanceSize(NSStatusBar)+1);
- if class_getInstanceSize(TDerivedNSStatusItem) <> (class_getInstanceSize(NSStatusItem)+1) then
- writeln('size of NSStatusItem is wrong: ',class_getInstanceSize(TDerivedNSStatusItem),' <> ',class_getInstanceSize(NSStatusItem)+1);
- if class_getInstanceSize(TDerivedNSStepper) <> (class_getInstanceSize(NSStepper)+1) then
- writeln('size of NSStepper is wrong: ',class_getInstanceSize(TDerivedNSStepper),' <> ',class_getInstanceSize(NSStepper)+1);
- if class_getInstanceSize(TDerivedNSStepperCell) <> (class_getInstanceSize(NSStepperCell)+1) then
- writeln('size of NSStepperCell is wrong: ',class_getInstanceSize(TDerivedNSStepperCell),' <> ',class_getInstanceSize(NSStepperCell)+1);
- if class_getInstanceSize(TDerivedNSTableColumn) <> (class_getInstanceSize(NSTableColumn)+1) then
- writeln('size of NSTableColumn is wrong: ',class_getInstanceSize(TDerivedNSTableColumn),' <> ',class_getInstanceSize(NSTableColumn)+1);
- if class_getInstanceSize(TDerivedNSTableHeaderCell) <> (class_getInstanceSize(NSTableHeaderCell)+1) then
- writeln('size of NSTableHeaderCell is wrong: ',class_getInstanceSize(TDerivedNSTableHeaderCell),' <> ',class_getInstanceSize(NSTableHeaderCell)+1);
- if class_getInstanceSize(TDerivedNSTableHeaderView) <> (class_getInstanceSize(NSTableHeaderView)+1) then
- writeln('size of NSTableHeaderView is wrong: ',class_getInstanceSize(TDerivedNSTableHeaderView),' <> ',class_getInstanceSize(NSTableHeaderView)+1);
- if class_getInstanceSize(TDerivedNSTableView) <> (class_getInstanceSize(NSTableView)+1) then
- writeln('size of NSTableView is wrong: ',class_getInstanceSize(TDerivedNSTableView),' <> ',class_getInstanceSize(NSTableView)+1);
- if class_getInstanceSize(TDerivedNSTabView) <> (class_getInstanceSize(NSTabView)+1) then
- writeln('size of NSTabView is wrong: ',class_getInstanceSize(TDerivedNSTabView),' <> ',class_getInstanceSize(NSTabView)+1);
- if class_getInstanceSize(TDerivedNSTabViewItem) <> (class_getInstanceSize(NSTabViewItem)+1) then
- writeln('size of NSTabViewItem is wrong: ',class_getInstanceSize(TDerivedNSTabViewItem),' <> ',class_getInstanceSize(NSTabViewItem)+1);
- if class_getInstanceSize(TDerivedNSText) <> (class_getInstanceSize(NSText)+1) then
- writeln('size of NSText is wrong: ',class_getInstanceSize(TDerivedNSText),' <> ',class_getInstanceSize(NSText)+1);
- if class_getInstanceSize(TDerivedNSTextAttachmentCell) <> (class_getInstanceSize(NSTextAttachmentCell)+1) then
- writeln('size of NSTextAttachmentCell is wrong: ',class_getInstanceSize(TDerivedNSTextAttachmentCell),' <> ',class_getInstanceSize(NSTextAttachmentCell)+1);
- if class_getInstanceSize(TDerivedNSTextAttachment) <> (class_getInstanceSize(NSTextAttachment)+1) then
- writeln('size of NSTextAttachment is wrong: ',class_getInstanceSize(TDerivedNSTextAttachment),' <> ',class_getInstanceSize(NSTextAttachment)+1);
- if class_getInstanceSize(TDerivedNSTextContainer) <> (class_getInstanceSize(NSTextContainer)+1) then
- writeln('size of NSTextContainer is wrong: ',class_getInstanceSize(TDerivedNSTextContainer),' <> ',class_getInstanceSize(NSTextContainer)+1);
- if class_getInstanceSize(TDerivedNSTextField) <> (class_getInstanceSize(NSTextField)+1) then
- writeln('size of NSTextField is wrong: ',class_getInstanceSize(TDerivedNSTextField),' <> ',class_getInstanceSize(NSTextField)+1);
- if class_getInstanceSize(TDerivedNSTextFieldCell) <> (class_getInstanceSize(NSTextFieldCell)+1) then
- writeln('size of NSTextFieldCell is wrong: ',class_getInstanceSize(TDerivedNSTextFieldCell),' <> ',class_getInstanceSize(NSTextFieldCell)+1);
- if class_getInstanceSize(TDerivedNSTextList) <> (class_getInstanceSize(NSTextList)+1) then
- writeln('size of NSTextList is wrong: ',class_getInstanceSize(TDerivedNSTextList),' <> ',class_getInstanceSize(NSTextList)+1);
- if class_getInstanceSize(TDerivedNSTextStorage) <> (class_getInstanceSize(NSTextStorage)+1) then
- writeln('size of NSTextStorage is wrong: ',class_getInstanceSize(TDerivedNSTextStorage),' <> ',class_getInstanceSize(NSTextStorage)+1);
- if class_getInstanceSize(TDerivedNSTextBlock) <> (class_getInstanceSize(NSTextBlock)+1) then
- writeln('size of NSTextBlock is wrong: ',class_getInstanceSize(TDerivedNSTextBlock),' <> ',class_getInstanceSize(NSTextBlock)+1);
- if class_getInstanceSize(TDerivedNSTextTableBlock) <> (class_getInstanceSize(NSTextTableBlock)+1) then
- writeln('size of NSTextTableBlock is wrong: ',class_getInstanceSize(TDerivedNSTextTableBlock),' <> ',class_getInstanceSize(NSTextTableBlock)+1);
- if class_getInstanceSize(TDerivedNSTextTable) <> (class_getInstanceSize(NSTextTable)+1) then
- writeln('size of NSTextTable is wrong: ',class_getInstanceSize(TDerivedNSTextTable),' <> ',class_getInstanceSize(NSTextTable)+1);
- if class_getInstanceSize(TDerivedNSTextView) <> (class_getInstanceSize(NSTextView)+1) then
- writeln('size of NSTextView is wrong: ',class_getInstanceSize(TDerivedNSTextView),' <> ',class_getInstanceSize(NSTextView)+1);
- if class_getInstanceSize(TDerivedNSTokenField) <> (class_getInstanceSize(NSTokenField)+1) then
- writeln('size of NSTokenField is wrong: ',class_getInstanceSize(TDerivedNSTokenField),' <> ',class_getInstanceSize(NSTokenField)+1);
- if class_getInstanceSize(TDerivedNSTokenFieldCell) <> (class_getInstanceSize(NSTokenFieldCell)+1) then
- writeln('size of NSTokenFieldCell is wrong: ',class_getInstanceSize(TDerivedNSTokenFieldCell),' <> ',class_getInstanceSize(NSTokenFieldCell)+1);
- if class_getInstanceSize(TDerivedNSToolbar) <> (class_getInstanceSize(NSToolbar)+1) then
- writeln('size of NSToolbar is wrong: ',class_getInstanceSize(TDerivedNSToolbar),' <> ',class_getInstanceSize(NSToolbar)+1);
- if class_getInstanceSize(TDerivedNSToolbarItem) <> (class_getInstanceSize(NSToolbarItem)+1) then
- writeln('size of NSToolbarItem is wrong: ',class_getInstanceSize(TDerivedNSToolbarItem),' <> ',class_getInstanceSize(NSToolbarItem)+1);
- if class_getInstanceSize(TDerivedNSToolbarItemGroup) <> (class_getInstanceSize(NSToolbarItemGroup)+1) then
- writeln('size of NSToolbarItemGroup is wrong: ',class_getInstanceSize(TDerivedNSToolbarItemGroup),' <> ',class_getInstanceSize(NSToolbarItemGroup)+1);
- if class_getInstanceSize(TDerivedNSTrackingArea) <> (class_getInstanceSize(NSTrackingArea)+1) then
- writeln('size of NSTrackingArea is wrong: ',class_getInstanceSize(TDerivedNSTrackingArea),' <> ',class_getInstanceSize(NSTrackingArea)+1);
- if class_getInstanceSize(TDerivedNSTreeController) <> (class_getInstanceSize(NSTreeController)+1) then
- writeln('size of NSTreeController is wrong: ',class_getInstanceSize(TDerivedNSTreeController),' <> ',class_getInstanceSize(NSTreeController)+1);
- if class_getInstanceSize(TDerivedNSTreeNode) <> (class_getInstanceSize(NSTreeNode)+1) then
- writeln('size of NSTreeNode is wrong: ',class_getInstanceSize(TDerivedNSTreeNode),' <> ',class_getInstanceSize(NSTreeNode)+1);
- if class_getInstanceSize(TDerivedNSTypesetter) <> (class_getInstanceSize(NSTypesetter)+1) then
- writeln('size of NSTypesetter is wrong: ',class_getInstanceSize(TDerivedNSTypesetter),' <> ',class_getInstanceSize(NSTypesetter)+1);
- if class_getInstanceSize(TDerivedNSUserDefaultsController) <> (class_getInstanceSize(NSUserDefaultsController)+1) then
- writeln('size of NSUserDefaultsController is wrong: ',class_getInstanceSize(TDerivedNSUserDefaultsController),' <> ',class_getInstanceSize(NSUserDefaultsController)+1);
- if class_getInstanceSize(TDerivedNSView) <> (class_getInstanceSize(NSView)+1) then
- writeln('size of NSView is wrong: ',class_getInstanceSize(TDerivedNSView),' <> ',class_getInstanceSize(NSView)+1);
- if class_getInstanceSize(TDerivedNSViewController) <> (class_getInstanceSize(NSViewController)+1) then
- writeln('size of NSViewController is wrong: ',class_getInstanceSize(TDerivedNSViewController),' <> ',class_getInstanceSize(NSViewController)+1);
- if class_getInstanceSize(TDerivedNSWindow) <> (class_getInstanceSize(NSWindow)+1) then
- writeln('size of NSWindow is wrong: ',class_getInstanceSize(TDerivedNSWindow),' <> ',class_getInstanceSize(NSWindow)+1);
- if class_getInstanceSize(TDerivedNSWindowController) <> (class_getInstanceSize(NSWindowController)+1) then
- writeln('size of NSWindowController is wrong: ',class_getInstanceSize(TDerivedNSWindowController),' <> ',class_getInstanceSize(NSWindowController)+1);
- if class_getInstanceSize(TDerivedNSWorkspace) <> (class_getInstanceSize(NSWorkspace)+1) then
- writeln('size of NSWorkspace is wrong: ',class_getInstanceSize(TDerivedNSWorkspace),' <> ',class_getInstanceSize(NSWorkspace)+1);
+begin 
+ 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
+ writeln('size of NSAppleEventDescriptor is wrong: ',class_getInstanceSize(TDerivedNSAppleEventDescriptor),' <> ',class_getInstanceSize(NSAppleEventDescriptor)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSAppleEventManager) <> (class_getInstanceSize(NSAppleEventManager)+sizeof(pointer)) then
+ writeln('size of NSAppleEventManager is wrong: ',class_getInstanceSize(TDerivedNSAppleEventManager),' <> ',class_getInstanceSize(NSAppleEventManager)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSAppleScript) <> (class_getInstanceSize(NSAppleScript)+sizeof(pointer)) then
+ writeln('size of NSAppleScript is wrong: ',class_getInstanceSize(TDerivedNSAppleScript),' <> ',class_getInstanceSize(NSAppleScript)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSArchiver) <> (class_getInstanceSize(NSArchiver)+sizeof(pointer)) then
+ writeln('size of NSArchiver is wrong: ',class_getInstanceSize(TDerivedNSArchiver),' <> ',class_getInstanceSize(NSArchiver)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSUnarchiver) <> (class_getInstanceSize(NSUnarchiver)+sizeof(pointer)) then
+ writeln('size of NSUnarchiver is wrong: ',class_getInstanceSize(TDerivedNSUnarchiver),' <> ',class_getInstanceSize(NSUnarchiver)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSArray) <> (class_getInstanceSize(NSArray)+sizeof(pointer)) then
+ writeln('size of NSArray is wrong: ',class_getInstanceSize(TDerivedNSArray),' <> ',class_getInstanceSize(NSArray)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMutableArray) <> (class_getInstanceSize(NSMutableArray)+sizeof(pointer)) then
+ writeln('size of NSMutableArray is wrong: ',class_getInstanceSize(TDerivedNSMutableArray),' <> ',class_getInstanceSize(NSMutableArray)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSAttributedString) <> (class_getInstanceSize(NSAttributedString)+sizeof(pointer)) then
+ writeln('size of NSAttributedString is wrong: ',class_getInstanceSize(TDerivedNSAttributedString),' <> ',class_getInstanceSize(NSAttributedString)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMutableAttributedString) <> (class_getInstanceSize(NSMutableAttributedString)+sizeof(pointer)) then
+ writeln('size of NSMutableAttributedString is wrong: ',class_getInstanceSize(TDerivedNSMutableAttributedString),' <> ',class_getInstanceSize(NSMutableAttributedString)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSAutoreleasePool) <> (class_getInstanceSize(NSAutoreleasePool)+sizeof(pointer)) then
+ writeln('size of NSAutoreleasePool is wrong: ',class_getInstanceSize(TDerivedNSAutoreleasePool),' <> ',class_getInstanceSize(NSAutoreleasePool)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSBundle) <> (class_getInstanceSize(NSBundle)+sizeof(pointer)) then
+ writeln('size of NSBundle is wrong: ',class_getInstanceSize(TDerivedNSBundle),' <> ',class_getInstanceSize(NSBundle)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCalendar) <> (class_getInstanceSize(NSCalendar)+sizeof(pointer)) then
+ writeln('size of NSCalendar is wrong: ',class_getInstanceSize(TDerivedNSCalendar),' <> ',class_getInstanceSize(NSCalendar)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDateComponents) <> (class_getInstanceSize(NSDateComponents)+sizeof(pointer)) then
+ writeln('size of NSDateComponents is wrong: ',class_getInstanceSize(TDerivedNSDateComponents),' <> ',class_getInstanceSize(NSDateComponents)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCalendarDate) <> (class_getInstanceSize(NSCalendarDate)+sizeof(pointer)) then
+ writeln('size of NSCalendarDate is wrong: ',class_getInstanceSize(TDerivedNSCalendarDate),' <> ',class_getInstanceSize(NSCalendarDate)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCharacterSet) <> (class_getInstanceSize(NSCharacterSet)+sizeof(pointer)) then
+ writeln('size of NSCharacterSet is wrong: ',class_getInstanceSize(TDerivedNSCharacterSet),' <> ',class_getInstanceSize(NSCharacterSet)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMutableCharacterSet) <> (class_getInstanceSize(NSMutableCharacterSet)+sizeof(pointer)) then
+ writeln('size of NSMutableCharacterSet is wrong: ',class_getInstanceSize(TDerivedNSMutableCharacterSet),' <> ',class_getInstanceSize(NSMutableCharacterSet)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSClassDescription) <> (class_getInstanceSize(NSClassDescription)+sizeof(pointer)) then
+ writeln('size of NSClassDescription is wrong: ',class_getInstanceSize(TDerivedNSClassDescription),' <> ',class_getInstanceSize(NSClassDescription)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCoder) <> (class_getInstanceSize(NSCoder)+sizeof(pointer)) then
+ writeln('size of NSCoder is wrong: ',class_getInstanceSize(TDerivedNSCoder),' <> ',class_getInstanceSize(NSCoder)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSComparisonPredicate) <> (class_getInstanceSize(NSComparisonPredicate)+sizeof(pointer)) then
+ writeln('size of NSComparisonPredicate is wrong: ',class_getInstanceSize(TDerivedNSComparisonPredicate),' <> ',class_getInstanceSize(NSComparisonPredicate)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCompoundPredicate) <> (class_getInstanceSize(NSCompoundPredicate)+sizeof(pointer)) then
+ writeln('size of NSCompoundPredicate is wrong: ',class_getInstanceSize(TDerivedNSCompoundPredicate),' <> ',class_getInstanceSize(NSCompoundPredicate)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSConnection) <> (class_getInstanceSize(NSConnection)+sizeof(pointer)) then
+ writeln('size of NSConnection is wrong: ',class_getInstanceSize(TDerivedNSConnection),' <> ',class_getInstanceSize(NSConnection)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDistantObjectRequest) <> (class_getInstanceSize(NSDistantObjectRequest)+sizeof(pointer)) then
+ writeln('size of NSDistantObjectRequest is wrong: ',class_getInstanceSize(TDerivedNSDistantObjectRequest),' <> ',class_getInstanceSize(NSDistantObjectRequest)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSData) <> (class_getInstanceSize(NSData)+sizeof(pointer)) then
+ writeln('size of NSData is wrong: ',class_getInstanceSize(TDerivedNSData),' <> ',class_getInstanceSize(NSData)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMutableData) <> (class_getInstanceSize(NSMutableData)+sizeof(pointer)) then
+ writeln('size of NSMutableData is wrong: ',class_getInstanceSize(TDerivedNSMutableData),' <> ',class_getInstanceSize(NSMutableData)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDate) <> (class_getInstanceSize(NSDate)+sizeof(pointer)) then
+ writeln('size of NSDate is wrong: ',class_getInstanceSize(TDerivedNSDate),' <> ',class_getInstanceSize(NSDate)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDateFormatter) <> (class_getInstanceSize(NSDateFormatter)+sizeof(pointer)) then
+ writeln('size of NSDateFormatter is wrong: ',class_getInstanceSize(TDerivedNSDateFormatter),' <> ',class_getInstanceSize(NSDateFormatter)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDecimalNumber) <> (class_getInstanceSize(NSDecimalNumber)+sizeof(pointer)) then
+ writeln('size of NSDecimalNumber is wrong: ',class_getInstanceSize(TDerivedNSDecimalNumber),' <> ',class_getInstanceSize(NSDecimalNumber)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDecimalNumberHandler) <> (class_getInstanceSize(NSDecimalNumberHandler)+sizeof(pointer)) then
+ writeln('size of NSDecimalNumberHandler is wrong: ',class_getInstanceSize(TDerivedNSDecimalNumberHandler),' <> ',class_getInstanceSize(NSDecimalNumberHandler)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDictionary) <> (class_getInstanceSize(NSDictionary)+sizeof(pointer)) then
+ writeln('size of NSDictionary is wrong: ',class_getInstanceSize(TDerivedNSDictionary),' <> ',class_getInstanceSize(NSDictionary)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMutableDictionary) <> (class_getInstanceSize(NSMutableDictionary)+sizeof(pointer)) then
+ writeln('size of NSMutableDictionary is wrong: ',class_getInstanceSize(TDerivedNSMutableDictionary),' <> ',class_getInstanceSize(NSMutableDictionary)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDistantObject) <> (class_getInstanceSize(NSDistantObject)+sizeof(pointer)) then
+ writeln('size of NSDistantObject is wrong: ',class_getInstanceSize(TDerivedNSDistantObject),' <> ',class_getInstanceSize(NSDistantObject)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDistributedLock) <> (class_getInstanceSize(NSDistributedLock)+sizeof(pointer)) then
+ writeln('size of NSDistributedLock is wrong: ',class_getInstanceSize(TDerivedNSDistributedLock),' <> ',class_getInstanceSize(NSDistributedLock)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDistributedNotificationCenter) <> (class_getInstanceSize(NSDistributedNotificationCenter)+sizeof(pointer)) then
+ writeln('size of NSDistributedNotificationCenter is wrong: ',class_getInstanceSize(TDerivedNSDistributedNotificationCenter),' <> ',class_getInstanceSize(NSDistributedNotificationCenter)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSEnumerator) <> (class_getInstanceSize(NSEnumerator)+sizeof(pointer)) then
+ writeln('size of NSEnumerator is wrong: ',class_getInstanceSize(TDerivedNSEnumerator),' <> ',class_getInstanceSize(NSEnumerator)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSError) <> (class_getInstanceSize(NSError)+sizeof(pointer)) then
+ writeln('size of NSError is wrong: ',class_getInstanceSize(TDerivedNSError),' <> ',class_getInstanceSize(NSError)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSException) <> (class_getInstanceSize(NSException)+sizeof(pointer)) then
+ writeln('size of NSException is wrong: ',class_getInstanceSize(TDerivedNSException),' <> ',class_getInstanceSize(NSException)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSAssertionHandler) <> (class_getInstanceSize(NSAssertionHandler)+sizeof(pointer)) then
+ writeln('size of NSAssertionHandler is wrong: ',class_getInstanceSize(TDerivedNSAssertionHandler),' <> ',class_getInstanceSize(NSAssertionHandler)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSExpression) <> (class_getInstanceSize(NSExpression)+sizeof(pointer)) then
+ writeln('size of NSExpression is wrong: ',class_getInstanceSize(TDerivedNSExpression),' <> ',class_getInstanceSize(NSExpression)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSFileHandle) <> (class_getInstanceSize(NSFileHandle)+sizeof(pointer)) then
+ writeln('size of NSFileHandle is wrong: ',class_getInstanceSize(TDerivedNSFileHandle),' <> ',class_getInstanceSize(NSFileHandle)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPipe) <> (class_getInstanceSize(NSPipe)+sizeof(pointer)) then
+ writeln('size of NSPipe is wrong: ',class_getInstanceSize(TDerivedNSPipe),' <> ',class_getInstanceSize(NSPipe)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSFileManager) <> (class_getInstanceSize(NSFileManager)+sizeof(pointer)) then
+ writeln('size of NSFileManager is wrong: ',class_getInstanceSize(TDerivedNSFileManager),' <> ',class_getInstanceSize(NSFileManager)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDirectoryEnumerator) <> (class_getInstanceSize(NSDirectoryEnumerator)+sizeof(pointer)) then
+ writeln('size of NSDirectoryEnumerator is wrong: ',class_getInstanceSize(TDerivedNSDirectoryEnumerator),' <> ',class_getInstanceSize(NSDirectoryEnumerator)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSFormatter) <> (class_getInstanceSize(NSFormatter)+sizeof(pointer)) then
+ writeln('size of NSFormatter is wrong: ',class_getInstanceSize(TDerivedNSFormatter),' <> ',class_getInstanceSize(NSFormatter)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSGarbageCollector) <> (class_getInstanceSize(NSGarbageCollector)+sizeof(pointer)) then
+ writeln('size of NSGarbageCollector is wrong: ',class_getInstanceSize(TDerivedNSGarbageCollector),' <> ',class_getInstanceSize(NSGarbageCollector)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSHashTable) <> (class_getInstanceSize(NSHashTable)+sizeof(pointer)) then
+ writeln('size of NSHashTable is wrong: ',class_getInstanceSize(TDerivedNSHashTable),' <> ',class_getInstanceSize(NSHashTable)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSHost) <> (class_getInstanceSize(NSHost)+sizeof(pointer)) then
+ writeln('size of NSHost is wrong: ',class_getInstanceSize(TDerivedNSHost),' <> ',class_getInstanceSize(NSHost)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSHTTPCookie) <> (class_getInstanceSize(NSHTTPCookie)+sizeof(pointer)) then
+ writeln('size of NSHTTPCookie is wrong: ',class_getInstanceSize(TDerivedNSHTTPCookie),' <> ',class_getInstanceSize(NSHTTPCookie)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSHTTPCookieStorage) <> (class_getInstanceSize(NSHTTPCookieStorage)+sizeof(pointer)) then
+ writeln('size of NSHTTPCookieStorage is wrong: ',class_getInstanceSize(TDerivedNSHTTPCookieStorage),' <> ',class_getInstanceSize(NSHTTPCookieStorage)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSIndexPath) <> (class_getInstanceSize(NSIndexPath)+sizeof(pointer)) then
+ writeln('size of NSIndexPath is wrong: ',class_getInstanceSize(TDerivedNSIndexPath),' <> ',class_getInstanceSize(NSIndexPath)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSIndexSet) <> (class_getInstanceSize(NSIndexSet)+sizeof(pointer)) then
+ writeln('size of NSIndexSet is wrong: ',class_getInstanceSize(TDerivedNSIndexSet),' <> ',class_getInstanceSize(NSIndexSet)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMutableIndexSet) <> (class_getInstanceSize(NSMutableIndexSet)+sizeof(pointer)) then
+ writeln('size of NSMutableIndexSet is wrong: ',class_getInstanceSize(TDerivedNSMutableIndexSet),' <> ',class_getInstanceSize(NSMutableIndexSet)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSKeyedArchiver) <> (class_getInstanceSize(NSKeyedArchiver)+sizeof(pointer)) then
+ writeln('size of NSKeyedArchiver is wrong: ',class_getInstanceSize(TDerivedNSKeyedArchiver),' <> ',class_getInstanceSize(NSKeyedArchiver)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSKeyedUnarchiver) <> (class_getInstanceSize(NSKeyedUnarchiver)+sizeof(pointer)) then
+ writeln('size of NSKeyedUnarchiver is wrong: ',class_getInstanceSize(TDerivedNSKeyedUnarchiver),' <> ',class_getInstanceSize(NSKeyedUnarchiver)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSLocale) <> (class_getInstanceSize(NSLocale)+sizeof(pointer)) then
+ writeln('size of NSLocale is wrong: ',class_getInstanceSize(TDerivedNSLocale),' <> ',class_getInstanceSize(NSLocale)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSLock) <> (class_getInstanceSize(NSLock)+sizeof(pointer)) then
+ writeln('size of NSLock is wrong: ',class_getInstanceSize(TDerivedNSLock),' <> ',class_getInstanceSize(NSLock)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSConditionLock) <> (class_getInstanceSize(NSConditionLock)+sizeof(pointer)) then
+ writeln('size of NSConditionLock is wrong: ',class_getInstanceSize(TDerivedNSConditionLock),' <> ',class_getInstanceSize(NSConditionLock)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSRecursiveLock) <> (class_getInstanceSize(NSRecursiveLock)+sizeof(pointer)) then
+ writeln('size of NSRecursiveLock is wrong: ',class_getInstanceSize(TDerivedNSRecursiveLock),' <> ',class_getInstanceSize(NSRecursiveLock)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCondition) <> (class_getInstanceSize(NSCondition)+sizeof(pointer)) then
+ writeln('size of NSCondition is wrong: ',class_getInstanceSize(TDerivedNSCondition),' <> ',class_getInstanceSize(NSCondition)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMapTable) <> (class_getInstanceSize(NSMapTable)+sizeof(pointer)) then
+ writeln('size of NSMapTable is wrong: ',class_getInstanceSize(TDerivedNSMapTable),' <> ',class_getInstanceSize(NSMapTable)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMetadataQuery) <> (class_getInstanceSize(NSMetadataQuery)+sizeof(pointer)) then
+ writeln('size of NSMetadataQuery is wrong: ',class_getInstanceSize(TDerivedNSMetadataQuery),' <> ',class_getInstanceSize(NSMetadataQuery)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMetadataItem) <> (class_getInstanceSize(NSMetadataItem)+sizeof(pointer)) then
+ writeln('size of NSMetadataItem is wrong: ',class_getInstanceSize(TDerivedNSMetadataItem),' <> ',class_getInstanceSize(NSMetadataItem)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMetadataQueryAttributeValueTuple) <> (class_getInstanceSize(NSMetadataQueryAttributeValueTuple)+sizeof(pointer)) then
+ writeln('size of NSMetadataQueryAttributeValueTuple is wrong: ',class_getInstanceSize(TDerivedNSMetadataQueryAttributeValueTuple),' <> ',class_getInstanceSize(NSMetadataQueryAttributeValueTuple)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMetadataQueryResultGroup) <> (class_getInstanceSize(NSMetadataQueryResultGroup)+sizeof(pointer)) then
+ writeln('size of NSMetadataQueryResultGroup is wrong: ',class_getInstanceSize(TDerivedNSMetadataQueryResultGroup),' <> ',class_getInstanceSize(NSMetadataQueryResultGroup)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMethodSignature) <> (class_getInstanceSize(NSMethodSignature)+sizeof(pointer)) then
+ writeln('size of NSMethodSignature is wrong: ',class_getInstanceSize(TDerivedNSMethodSignature),' <> ',class_getInstanceSize(NSMethodSignature)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSNetService) <> (class_getInstanceSize(NSNetService)+sizeof(pointer)) then
+ writeln('size of NSNetService is wrong: ',class_getInstanceSize(TDerivedNSNetService),' <> ',class_getInstanceSize(NSNetService)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSNetServiceBrowser) <> (class_getInstanceSize(NSNetServiceBrowser)+sizeof(pointer)) then
+ writeln('size of NSNetServiceBrowser is wrong: ',class_getInstanceSize(TDerivedNSNetServiceBrowser),' <> ',class_getInstanceSize(NSNetServiceBrowser)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSNotification) <> (class_getInstanceSize(NSNotification)+sizeof(pointer)) then
+ writeln('size of NSNotification is wrong: ',class_getInstanceSize(TDerivedNSNotification),' <> ',class_getInstanceSize(NSNotification)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSNotificationCenter) <> (class_getInstanceSize(NSNotificationCenter)+sizeof(pointer)) then
+ writeln('size of NSNotificationCenter is wrong: ',class_getInstanceSize(TDerivedNSNotificationCenter),' <> ',class_getInstanceSize(NSNotificationCenter)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSNotificationQueue) <> (class_getInstanceSize(NSNotificationQueue)+sizeof(pointer)) then
+ writeln('size of NSNotificationQueue is wrong: ',class_getInstanceSize(TDerivedNSNotificationQueue),' <> ',class_getInstanceSize(NSNotificationQueue)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSNull) <> (class_getInstanceSize(NSNull)+sizeof(pointer)) then
+ writeln('size of NSNull is wrong: ',class_getInstanceSize(TDerivedNSNull),' <> ',class_getInstanceSize(NSNull)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSNumberFormatter) <> (class_getInstanceSize(NSNumberFormatter)+sizeof(pointer)) then
+ writeln('size of NSNumberFormatter is wrong: ',class_getInstanceSize(TDerivedNSNumberFormatter),' <> ',class_getInstanceSize(NSNumberFormatter)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSObject) <> (class_getInstanceSize(NSObject)+sizeof(pointer)) then
+ writeln('size of NSObject is wrong: ',class_getInstanceSize(TDerivedNSObject),' <> ',class_getInstanceSize(NSObject)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSOperation) <> (class_getInstanceSize(NSOperation)+sizeof(pointer)) then
+ writeln('size of NSOperation is wrong: ',class_getInstanceSize(TDerivedNSOperation),' <> ',class_getInstanceSize(NSOperation)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSInvocationOperation) <> (class_getInstanceSize(NSInvocationOperation)+sizeof(pointer)) then
+ writeln('size of NSInvocationOperation is wrong: ',class_getInstanceSize(TDerivedNSInvocationOperation),' <> ',class_getInstanceSize(NSInvocationOperation)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSOperationQueue) <> (class_getInstanceSize(NSOperationQueue)+sizeof(pointer)) then
+ writeln('size of NSOperationQueue is wrong: ',class_getInstanceSize(TDerivedNSOperationQueue),' <> ',class_getInstanceSize(NSOperationQueue)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPointerArray) <> (class_getInstanceSize(NSPointerArray)+sizeof(pointer)) then
+ writeln('size of NSPointerArray is wrong: ',class_getInstanceSize(TDerivedNSPointerArray),' <> ',class_getInstanceSize(NSPointerArray)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPort) <> (class_getInstanceSize(NSPort)+sizeof(pointer)) then
+ writeln('size of NSPort is wrong: ',class_getInstanceSize(TDerivedNSPort),' <> ',class_getInstanceSize(NSPort)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMachPort) <> (class_getInstanceSize(NSMachPort)+sizeof(pointer)) then
+ writeln('size of NSMachPort is wrong: ',class_getInstanceSize(TDerivedNSMachPort),' <> ',class_getInstanceSize(NSMachPort)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMessagePort) <> (class_getInstanceSize(NSMessagePort)+sizeof(pointer)) then
+ writeln('size of NSMessagePort is wrong: ',class_getInstanceSize(TDerivedNSMessagePort),' <> ',class_getInstanceSize(NSMessagePort)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSocketPort) <> (class_getInstanceSize(NSSocketPort)+sizeof(pointer)) then
+ writeln('size of NSSocketPort is wrong: ',class_getInstanceSize(TDerivedNSSocketPort),' <> ',class_getInstanceSize(NSSocketPort)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPortCoder) <> (class_getInstanceSize(NSPortCoder)+sizeof(pointer)) then
+ writeln('size of NSPortCoder is wrong: ',class_getInstanceSize(TDerivedNSPortCoder),' <> ',class_getInstanceSize(NSPortCoder)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPortMessage) <> (class_getInstanceSize(NSPortMessage)+sizeof(pointer)) then
+ writeln('size of NSPortMessage is wrong: ',class_getInstanceSize(TDerivedNSPortMessage),' <> ',class_getInstanceSize(NSPortMessage)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPortNameServer) <> (class_getInstanceSize(NSPortNameServer)+sizeof(pointer)) then
+ writeln('size of NSPortNameServer is wrong: ',class_getInstanceSize(TDerivedNSPortNameServer),' <> ',class_getInstanceSize(NSPortNameServer)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMachBootstrapServer) <> (class_getInstanceSize(NSMachBootstrapServer)+sizeof(pointer)) then
+ writeln('size of NSMachBootstrapServer is wrong: ',class_getInstanceSize(TDerivedNSMachBootstrapServer),' <> ',class_getInstanceSize(NSMachBootstrapServer)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMessagePortNameServer) <> (class_getInstanceSize(NSMessagePortNameServer)+sizeof(pointer)) then
+ writeln('size of NSMessagePortNameServer is wrong: ',class_getInstanceSize(TDerivedNSMessagePortNameServer),' <> ',class_getInstanceSize(NSMessagePortNameServer)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSocketPortNameServer) <> (class_getInstanceSize(NSSocketPortNameServer)+sizeof(pointer)) then
+ writeln('size of NSSocketPortNameServer is wrong: ',class_getInstanceSize(TDerivedNSSocketPortNameServer),' <> ',class_getInstanceSize(NSSocketPortNameServer)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPredicate) <> (class_getInstanceSize(NSPredicate)+sizeof(pointer)) then
+ writeln('size of NSPredicate is wrong: ',class_getInstanceSize(TDerivedNSPredicate),' <> ',class_getInstanceSize(NSPredicate)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSProcessInfo) <> (class_getInstanceSize(NSProcessInfo)+sizeof(pointer)) then
+ writeln('size of NSProcessInfo is wrong: ',class_getInstanceSize(TDerivedNSProcessInfo),' <> ',class_getInstanceSize(NSProcessInfo)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPropertyListSerialization) <> (class_getInstanceSize(NSPropertyListSerialization)+sizeof(pointer)) then
+ writeln('size of NSPropertyListSerialization is wrong: ',class_getInstanceSize(TDerivedNSPropertyListSerialization),' <> ',class_getInstanceSize(NSPropertyListSerialization)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSProtocolChecker) <> (class_getInstanceSize(NSProtocolChecker)+sizeof(pointer)) then
+ writeln('size of NSProtocolChecker is wrong: ',class_getInstanceSize(TDerivedNSProtocolChecker),' <> ',class_getInstanceSize(NSProtocolChecker)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSProxy) <> (class_getInstanceSize(NSProxy)+sizeof(pointer)) then
+ writeln('size of NSProxy is wrong: ',class_getInstanceSize(TDerivedNSProxy),' <> ',class_getInstanceSize(NSProxy)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSRunLoop) <> (class_getInstanceSize(NSRunLoop)+sizeof(pointer)) then
+ writeln('size of NSRunLoop is wrong: ',class_getInstanceSize(TDerivedNSRunLoop),' <> ',class_getInstanceSize(NSRunLoop)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSScanner) <> (class_getInstanceSize(NSScanner)+sizeof(pointer)) then
+ writeln('size of NSScanner is wrong: ',class_getInstanceSize(TDerivedNSScanner),' <> ',class_getInstanceSize(NSScanner)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSScriptClassDescription) <> (class_getInstanceSize(NSScriptClassDescription)+sizeof(pointer)) then
+ writeln('size of NSScriptClassDescription is wrong: ',class_getInstanceSize(TDerivedNSScriptClassDescription),' <> ',class_getInstanceSize(NSScriptClassDescription)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSScriptCoercionHandler) <> (class_getInstanceSize(NSScriptCoercionHandler)+sizeof(pointer)) then
+ writeln('size of NSScriptCoercionHandler is wrong: ',class_getInstanceSize(TDerivedNSScriptCoercionHandler),' <> ',class_getInstanceSize(NSScriptCoercionHandler)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSScriptCommand) <> (class_getInstanceSize(NSScriptCommand)+sizeof(pointer)) then
+ writeln('size of NSScriptCommand is wrong: ',class_getInstanceSize(TDerivedNSScriptCommand),' <> ',class_getInstanceSize(NSScriptCommand)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSScriptCommandDescription) <> (class_getInstanceSize(NSScriptCommandDescription)+sizeof(pointer)) then
+ writeln('size of NSScriptCommandDescription is wrong: ',class_getInstanceSize(TDerivedNSScriptCommandDescription),' <> ',class_getInstanceSize(NSScriptCommandDescription)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSScriptExecutionContext) <> (class_getInstanceSize(NSScriptExecutionContext)+sizeof(pointer)) then
+ writeln('size of NSScriptExecutionContext is wrong: ',class_getInstanceSize(TDerivedNSScriptExecutionContext),' <> ',class_getInstanceSize(NSScriptExecutionContext)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSScriptObjectSpecifier) <> (class_getInstanceSize(NSScriptObjectSpecifier)+sizeof(pointer)) then
+ writeln('size of NSScriptObjectSpecifier is wrong: ',class_getInstanceSize(TDerivedNSScriptObjectSpecifier),' <> ',class_getInstanceSize(NSScriptObjectSpecifier)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSIndexSpecifier) <> (class_getInstanceSize(NSIndexSpecifier)+sizeof(pointer)) then
+ writeln('size of NSIndexSpecifier is wrong: ',class_getInstanceSize(TDerivedNSIndexSpecifier),' <> ',class_getInstanceSize(NSIndexSpecifier)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMiddleSpecifier) <> (class_getInstanceSize(NSMiddleSpecifier)+sizeof(pointer)) then
+ writeln('size of NSMiddleSpecifier is wrong: ',class_getInstanceSize(TDerivedNSMiddleSpecifier),' <> ',class_getInstanceSize(NSMiddleSpecifier)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSNameSpecifier) <> (class_getInstanceSize(NSNameSpecifier)+sizeof(pointer)) then
+ writeln('size of NSNameSpecifier is wrong: ',class_getInstanceSize(TDerivedNSNameSpecifier),' <> ',class_getInstanceSize(NSNameSpecifier)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPositionalSpecifier) <> (class_getInstanceSize(NSPositionalSpecifier)+sizeof(pointer)) then
+ writeln('size of NSPositionalSpecifier is wrong: ',class_getInstanceSize(TDerivedNSPositionalSpecifier),' <> ',class_getInstanceSize(NSPositionalSpecifier)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPropertySpecifier) <> (class_getInstanceSize(NSPropertySpecifier)+sizeof(pointer)) then
+ writeln('size of NSPropertySpecifier is wrong: ',class_getInstanceSize(TDerivedNSPropertySpecifier),' <> ',class_getInstanceSize(NSPropertySpecifier)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSRandomSpecifier) <> (class_getInstanceSize(NSRandomSpecifier)+sizeof(pointer)) then
+ writeln('size of NSRandomSpecifier is wrong: ',class_getInstanceSize(TDerivedNSRandomSpecifier),' <> ',class_getInstanceSize(NSRandomSpecifier)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSRangeSpecifier) <> (class_getInstanceSize(NSRangeSpecifier)+sizeof(pointer)) then
+ writeln('size of NSRangeSpecifier is wrong: ',class_getInstanceSize(TDerivedNSRangeSpecifier),' <> ',class_getInstanceSize(NSRangeSpecifier)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSRelativeSpecifier) <> (class_getInstanceSize(NSRelativeSpecifier)+sizeof(pointer)) then
+ writeln('size of NSRelativeSpecifier is wrong: ',class_getInstanceSize(TDerivedNSRelativeSpecifier),' <> ',class_getInstanceSize(NSRelativeSpecifier)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSUniqueIDSpecifier) <> (class_getInstanceSize(NSUniqueIDSpecifier)+sizeof(pointer)) then
+ writeln('size of NSUniqueIDSpecifier is wrong: ',class_getInstanceSize(TDerivedNSUniqueIDSpecifier),' <> ',class_getInstanceSize(NSUniqueIDSpecifier)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSWhoseSpecifier) <> (class_getInstanceSize(NSWhoseSpecifier)+sizeof(pointer)) then
+ writeln('size of NSWhoseSpecifier is wrong: ',class_getInstanceSize(TDerivedNSWhoseSpecifier),' <> ',class_getInstanceSize(NSWhoseSpecifier)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCloneCommand) <> (class_getInstanceSize(NSCloneCommand)+sizeof(pointer)) then
+ writeln('size of NSCloneCommand is wrong: ',class_getInstanceSize(TDerivedNSCloneCommand),' <> ',class_getInstanceSize(NSCloneCommand)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCloseCommand) <> (class_getInstanceSize(NSCloseCommand)+sizeof(pointer)) then
+ writeln('size of NSCloseCommand is wrong: ',class_getInstanceSize(TDerivedNSCloseCommand),' <> ',class_getInstanceSize(NSCloseCommand)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCountCommand) <> (class_getInstanceSize(NSCountCommand)+sizeof(pointer)) then
+ writeln('size of NSCountCommand is wrong: ',class_getInstanceSize(TDerivedNSCountCommand),' <> ',class_getInstanceSize(NSCountCommand)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCreateCommand) <> (class_getInstanceSize(NSCreateCommand)+sizeof(pointer)) then
+ writeln('size of NSCreateCommand is wrong: ',class_getInstanceSize(TDerivedNSCreateCommand),' <> ',class_getInstanceSize(NSCreateCommand)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDeleteCommand) <> (class_getInstanceSize(NSDeleteCommand)+sizeof(pointer)) then
+ writeln('size of NSDeleteCommand is wrong: ',class_getInstanceSize(TDerivedNSDeleteCommand),' <> ',class_getInstanceSize(NSDeleteCommand)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSExistsCommand) <> (class_getInstanceSize(NSExistsCommand)+sizeof(pointer)) then
+ writeln('size of NSExistsCommand is wrong: ',class_getInstanceSize(TDerivedNSExistsCommand),' <> ',class_getInstanceSize(NSExistsCommand)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSGetCommand) <> (class_getInstanceSize(NSGetCommand)+sizeof(pointer)) then
+ writeln('size of NSGetCommand is wrong: ',class_getInstanceSize(TDerivedNSGetCommand),' <> ',class_getInstanceSize(NSGetCommand)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMoveCommand) <> (class_getInstanceSize(NSMoveCommand)+sizeof(pointer)) then
+ writeln('size of NSMoveCommand is wrong: ',class_getInstanceSize(TDerivedNSMoveCommand),' <> ',class_getInstanceSize(NSMoveCommand)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSQuitCommand) <> (class_getInstanceSize(NSQuitCommand)+sizeof(pointer)) then
+ writeln('size of NSQuitCommand is wrong: ',class_getInstanceSize(TDerivedNSQuitCommand),' <> ',class_getInstanceSize(NSQuitCommand)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSetCommand) <> (class_getInstanceSize(NSSetCommand)+sizeof(pointer)) then
+ writeln('size of NSSetCommand is wrong: ',class_getInstanceSize(TDerivedNSSetCommand),' <> ',class_getInstanceSize(NSSetCommand)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSScriptSuiteRegistry) <> (class_getInstanceSize(NSScriptSuiteRegistry)+sizeof(pointer)) then
+ writeln('size of NSScriptSuiteRegistry is wrong: ',class_getInstanceSize(TDerivedNSScriptSuiteRegistry),' <> ',class_getInstanceSize(NSScriptSuiteRegistry)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSScriptWhoseTest) <> (class_getInstanceSize(NSScriptWhoseTest)+sizeof(pointer)) then
+ writeln('size of NSScriptWhoseTest is wrong: ',class_getInstanceSize(TDerivedNSScriptWhoseTest),' <> ',class_getInstanceSize(NSScriptWhoseTest)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSLogicalTest) <> (class_getInstanceSize(NSLogicalTest)+sizeof(pointer)) then
+ writeln('size of NSLogicalTest is wrong: ',class_getInstanceSize(TDerivedNSLogicalTest),' <> ',class_getInstanceSize(NSLogicalTest)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSpecifierTest) <> (class_getInstanceSize(NSSpecifierTest)+sizeof(pointer)) then
+ writeln('size of NSSpecifierTest is wrong: ',class_getInstanceSize(TDerivedNSSpecifierTest),' <> ',class_getInstanceSize(NSSpecifierTest)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSet) <> (class_getInstanceSize(NSSet)+sizeof(pointer)) then
+ writeln('size of NSSet is wrong: ',class_getInstanceSize(TDerivedNSSet),' <> ',class_getInstanceSize(NSSet)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMutableSet) <> (class_getInstanceSize(NSMutableSet)+sizeof(pointer)) then
+ writeln('size of NSMutableSet is wrong: ',class_getInstanceSize(TDerivedNSMutableSet),' <> ',class_getInstanceSize(NSMutableSet)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCountedSet) <> (class_getInstanceSize(NSCountedSet)+sizeof(pointer)) then
+ writeln('size of NSCountedSet is wrong: ',class_getInstanceSize(TDerivedNSCountedSet),' <> ',class_getInstanceSize(NSCountedSet)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSortDescriptor) <> (class_getInstanceSize(NSSortDescriptor)+sizeof(pointer)) then
+ writeln('size of NSSortDescriptor is wrong: ',class_getInstanceSize(TDerivedNSSortDescriptor),' <> ',class_getInstanceSize(NSSortDescriptor)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSpellServer) <> (class_getInstanceSize(NSSpellServer)+sizeof(pointer)) then
+ writeln('size of NSSpellServer is wrong: ',class_getInstanceSize(TDerivedNSSpellServer),' <> ',class_getInstanceSize(NSSpellServer)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSStream) <> (class_getInstanceSize(NSStream)+sizeof(pointer)) then
+ writeln('size of NSStream is wrong: ',class_getInstanceSize(TDerivedNSStream),' <> ',class_getInstanceSize(NSStream)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSInputStream) <> (class_getInstanceSize(NSInputStream)+sizeof(pointer)) then
+ writeln('size of NSInputStream is wrong: ',class_getInstanceSize(TDerivedNSInputStream),' <> ',class_getInstanceSize(NSInputStream)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSOutputStream) <> (class_getInstanceSize(NSOutputStream)+sizeof(pointer)) then
+ writeln('size of NSOutputStream is wrong: ',class_getInstanceSize(TDerivedNSOutputStream),' <> ',class_getInstanceSize(NSOutputStream)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSString) <> (class_getInstanceSize(NSString)+sizeof(pointer)) then
+ writeln('size of NSString is wrong: ',class_getInstanceSize(TDerivedNSString),' <> ',class_getInstanceSize(NSString)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMutableString) <> (class_getInstanceSize(NSMutableString)+sizeof(pointer)) then
+ writeln('size of NSMutableString is wrong: ',class_getInstanceSize(TDerivedNSMutableString),' <> ',class_getInstanceSize(NSMutableString)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSimpleCString) <> (class_getInstanceSize(NSSimpleCString)+sizeof(pointer)) then
+ writeln('size of NSSimpleCString is wrong: ',class_getInstanceSize(TDerivedNSSimpleCString),' <> ',class_getInstanceSize(NSSimpleCString)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTask) <> (class_getInstanceSize(NSTask)+sizeof(pointer)) then
+ writeln('size of NSTask is wrong: ',class_getInstanceSize(TDerivedNSTask),' <> ',class_getInstanceSize(NSTask)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSThread) <> (class_getInstanceSize(NSThread)+sizeof(pointer)) then
+ writeln('size of NSThread is wrong: ',class_getInstanceSize(TDerivedNSThread),' <> ',class_getInstanceSize(NSThread)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTimer) <> (class_getInstanceSize(NSTimer)+sizeof(pointer)) then
+ writeln('size of NSTimer is wrong: ',class_getInstanceSize(TDerivedNSTimer),' <> ',class_getInstanceSize(NSTimer)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTimeZone) <> (class_getInstanceSize(NSTimeZone)+sizeof(pointer)) then
+ writeln('size of NSTimeZone is wrong: ',class_getInstanceSize(TDerivedNSTimeZone),' <> ',class_getInstanceSize(NSTimeZone)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSUndoManager) <> (class_getInstanceSize(NSUndoManager)+sizeof(pointer)) then
+ writeln('size of NSUndoManager is wrong: ',class_getInstanceSize(TDerivedNSUndoManager),' <> ',class_getInstanceSize(NSUndoManager)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSURL) <> (class_getInstanceSize(NSURL)+sizeof(pointer)) then
+ writeln('size of NSURL is wrong: ',class_getInstanceSize(TDerivedNSURL),' <> ',class_getInstanceSize(NSURL)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSURLAuthenticationChallenge) <> (class_getInstanceSize(NSURLAuthenticationChallenge)+sizeof(pointer)) then
+ writeln('size of NSURLAuthenticationChallenge is wrong: ',class_getInstanceSize(TDerivedNSURLAuthenticationChallenge),' <> ',class_getInstanceSize(NSURLAuthenticationChallenge)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCachedURLResponse) <> (class_getInstanceSize(NSCachedURLResponse)+sizeof(pointer)) then
+ writeln('size of NSCachedURLResponse is wrong: ',class_getInstanceSize(TDerivedNSCachedURLResponse),' <> ',class_getInstanceSize(NSCachedURLResponse)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSURLCache) <> (class_getInstanceSize(NSURLCache)+sizeof(pointer)) then
+ writeln('size of NSURLCache is wrong: ',class_getInstanceSize(TDerivedNSURLCache),' <> ',class_getInstanceSize(NSURLCache)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSURLConnection) <> (class_getInstanceSize(NSURLConnection)+sizeof(pointer)) then
+ writeln('size of NSURLConnection is wrong: ',class_getInstanceSize(TDerivedNSURLConnection),' <> ',class_getInstanceSize(NSURLConnection)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSURLCredential) <> (class_getInstanceSize(NSURLCredential)+sizeof(pointer)) then
+ writeln('size of NSURLCredential is wrong: ',class_getInstanceSize(TDerivedNSURLCredential),' <> ',class_getInstanceSize(NSURLCredential)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSURLCredentialStorage) <> (class_getInstanceSize(NSURLCredentialStorage)+sizeof(pointer)) then
+ writeln('size of NSURLCredentialStorage is wrong: ',class_getInstanceSize(TDerivedNSURLCredentialStorage),' <> ',class_getInstanceSize(NSURLCredentialStorage)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSURLDownload) <> (class_getInstanceSize(NSURLDownload)+sizeof(pointer)) then
+ writeln('size of NSURLDownload is wrong: ',class_getInstanceSize(TDerivedNSURLDownload),' <> ',class_getInstanceSize(NSURLDownload)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSURLHandle) <> (class_getInstanceSize(NSURLHandle)+sizeof(pointer)) then
+ writeln('size of NSURLHandle is wrong: ',class_getInstanceSize(TDerivedNSURLHandle),' <> ',class_getInstanceSize(NSURLHandle)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSURLProtectionSpace) <> (class_getInstanceSize(NSURLProtectionSpace)+sizeof(pointer)) then
+ writeln('size of NSURLProtectionSpace is wrong: ',class_getInstanceSize(TDerivedNSURLProtectionSpace),' <> ',class_getInstanceSize(NSURLProtectionSpace)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSURLProtocol) <> (class_getInstanceSize(NSURLProtocol)+sizeof(pointer)) then
+ writeln('size of NSURLProtocol is wrong: ',class_getInstanceSize(TDerivedNSURLProtocol),' <> ',class_getInstanceSize(NSURLProtocol)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSURLRequest) <> (class_getInstanceSize(NSURLRequest)+sizeof(pointer)) then
+ writeln('size of NSURLRequest is wrong: ',class_getInstanceSize(TDerivedNSURLRequest),' <> ',class_getInstanceSize(NSURLRequest)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMutableURLRequest) <> (class_getInstanceSize(NSMutableURLRequest)+sizeof(pointer)) then
+ writeln('size of NSMutableURLRequest is wrong: ',class_getInstanceSize(TDerivedNSMutableURLRequest),' <> ',class_getInstanceSize(NSMutableURLRequest)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSURLResponse) <> (class_getInstanceSize(NSURLResponse)+sizeof(pointer)) then
+ writeln('size of NSURLResponse is wrong: ',class_getInstanceSize(TDerivedNSURLResponse),' <> ',class_getInstanceSize(NSURLResponse)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSHTTPURLResponse) <> (class_getInstanceSize(NSHTTPURLResponse)+sizeof(pointer)) then
+ writeln('size of NSHTTPURLResponse is wrong: ',class_getInstanceSize(TDerivedNSHTTPURLResponse),' <> ',class_getInstanceSize(NSHTTPURLResponse)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSUserDefaults) <> (class_getInstanceSize(NSUserDefaults)+sizeof(pointer)) then
+ writeln('size of NSUserDefaults is wrong: ',class_getInstanceSize(TDerivedNSUserDefaults),' <> ',class_getInstanceSize(NSUserDefaults)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSValue) <> (class_getInstanceSize(NSValue)+sizeof(pointer)) then
+ writeln('size of NSValue is wrong: ',class_getInstanceSize(TDerivedNSValue),' <> ',class_getInstanceSize(NSValue)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSNumber) <> (class_getInstanceSize(NSNumber)+sizeof(pointer)) then
+ writeln('size of NSNumber is wrong: ',class_getInstanceSize(TDerivedNSNumber),' <> ',class_getInstanceSize(NSNumber)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSValueTransformer) <> (class_getInstanceSize(NSValueTransformer)+sizeof(pointer)) then
+ writeln('size of NSValueTransformer is wrong: ',class_getInstanceSize(TDerivedNSValueTransformer),' <> ',class_getInstanceSize(NSValueTransformer)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSXMLDocument) <> (class_getInstanceSize(NSXMLDocument)+sizeof(pointer)) then
+ writeln('size of NSXMLDocument is wrong: ',class_getInstanceSize(TDerivedNSXMLDocument),' <> ',class_getInstanceSize(NSXMLDocument)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSXMLDTD) <> (class_getInstanceSize(NSXMLDTD)+sizeof(pointer)) then
+ writeln('size of NSXMLDTD is wrong: ',class_getInstanceSize(TDerivedNSXMLDTD),' <> ',class_getInstanceSize(NSXMLDTD)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSXMLDTDNode) <> (class_getInstanceSize(NSXMLDTDNode)+sizeof(pointer)) then
+ writeln('size of NSXMLDTDNode is wrong: ',class_getInstanceSize(TDerivedNSXMLDTDNode),' <> ',class_getInstanceSize(NSXMLDTDNode)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSXMLElement) <> (class_getInstanceSize(NSXMLElement)+sizeof(pointer)) then
+ writeln('size of NSXMLElement is wrong: ',class_getInstanceSize(TDerivedNSXMLElement),' <> ',class_getInstanceSize(NSXMLElement)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSXMLNode) <> (class_getInstanceSize(NSXMLNode)+sizeof(pointer)) then
+ writeln('size of NSXMLNode is wrong: ',class_getInstanceSize(TDerivedNSXMLNode),' <> ',class_getInstanceSize(NSXMLNode)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSXMLParser) <> (class_getInstanceSize(NSXMLParser)+sizeof(pointer)) then
+ writeln('size of NSXMLParser is wrong: ',class_getInstanceSize(TDerivedNSXMLParser),' <> ',class_getInstanceSize(NSXMLParser)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSActionCell) <> (class_getInstanceSize(NSActionCell)+sizeof(pointer)) then
+ writeln('size of NSActionCell is wrong: ',class_getInstanceSize(TDerivedNSActionCell),' <> ',class_getInstanceSize(NSActionCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSAlert) <> (class_getInstanceSize(NSAlert)+sizeof(pointer)) then
+ writeln('size of NSAlert is wrong: ',class_getInstanceSize(TDerivedNSAlert),' <> ',class_getInstanceSize(NSAlert)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSAnimation) <> (class_getInstanceSize(NSAnimation)+sizeof(pointer)) then
+ writeln('size of NSAnimation is wrong: ',class_getInstanceSize(TDerivedNSAnimation),' <> ',class_getInstanceSize(NSAnimation)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSViewAnimation) <> (class_getInstanceSize(NSViewAnimation)+sizeof(pointer)) then
+ writeln('size of NSViewAnimation is wrong: ',class_getInstanceSize(TDerivedNSViewAnimation),' <> ',class_getInstanceSize(NSViewAnimation)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSAnimationContext) <> (class_getInstanceSize(NSAnimationContext)+sizeof(pointer)) then
+ writeln('size of NSAnimationContext is wrong: ',class_getInstanceSize(TDerivedNSAnimationContext),' <> ',class_getInstanceSize(NSAnimationContext)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSApplication) <> (class_getInstanceSize(NSApplication)+sizeof(pointer)) then
+ writeln('size of NSApplication is wrong: ',class_getInstanceSize(TDerivedNSApplication),' <> ',class_getInstanceSize(NSApplication)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSArrayController) <> (class_getInstanceSize(NSArrayController)+sizeof(pointer)) then
+ writeln('size of NSArrayController is wrong: ',class_getInstanceSize(TDerivedNSArrayController),' <> ',class_getInstanceSize(NSArrayController)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSATSTypesetter) <> (class_getInstanceSize(NSATSTypesetter)+sizeof(pointer)) then
+ writeln('size of NSATSTypesetter is wrong: ',class_getInstanceSize(TDerivedNSATSTypesetter),' <> ',class_getInstanceSize(NSATSTypesetter)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSBezierPath) <> (class_getInstanceSize(NSBezierPath)+sizeof(pointer)) then
+ writeln('size of NSBezierPath is wrong: ',class_getInstanceSize(TDerivedNSBezierPath),' <> ',class_getInstanceSize(NSBezierPath)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSBitmapImageRep) <> (class_getInstanceSize(NSBitmapImageRep)+sizeof(pointer)) then
+ writeln('size of NSBitmapImageRep is wrong: ',class_getInstanceSize(TDerivedNSBitmapImageRep),' <> ',class_getInstanceSize(NSBitmapImageRep)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSBox) <> (class_getInstanceSize(NSBox)+sizeof(pointer)) then
+ writeln('size of NSBox is wrong: ',class_getInstanceSize(TDerivedNSBox),' <> ',class_getInstanceSize(NSBox)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSBrowser) <> (class_getInstanceSize(NSBrowser)+sizeof(pointer)) then
+ writeln('size of NSBrowser is wrong: ',class_getInstanceSize(TDerivedNSBrowser),' <> ',class_getInstanceSize(NSBrowser)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSBrowserCell) <> (class_getInstanceSize(NSBrowserCell)+sizeof(pointer)) then
+ writeln('size of NSBrowserCell is wrong: ',class_getInstanceSize(TDerivedNSBrowserCell),' <> ',class_getInstanceSize(NSBrowserCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSButton) <> (class_getInstanceSize(NSButton)+sizeof(pointer)) then
+ writeln('size of NSButton is wrong: ',class_getInstanceSize(TDerivedNSButton),' <> ',class_getInstanceSize(NSButton)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSButtonCell) <> (class_getInstanceSize(NSButtonCell)+sizeof(pointer)) then
+ writeln('size of NSButtonCell is wrong: ',class_getInstanceSize(TDerivedNSButtonCell),' <> ',class_getInstanceSize(NSButtonCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCachedImageRep) <> (class_getInstanceSize(NSCachedImageRep)+sizeof(pointer)) then
+ writeln('size of NSCachedImageRep is wrong: ',class_getInstanceSize(TDerivedNSCachedImageRep),' <> ',class_getInstanceSize(NSCachedImageRep)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCell) <> (class_getInstanceSize(NSCell)+sizeof(pointer)) then
+ writeln('size of NSCell is wrong: ',class_getInstanceSize(TDerivedNSCell),' <> ',class_getInstanceSize(NSCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCIImageRep) <> (class_getInstanceSize(NSCIImageRep)+sizeof(pointer)) then
+ writeln('size of NSCIImageRep is wrong: ',class_getInstanceSize(TDerivedNSCIImageRep),' <> ',class_getInstanceSize(NSCIImageRep)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSClipView) <> (class_getInstanceSize(NSClipView)+sizeof(pointer)) then
+ writeln('size of NSClipView is wrong: ',class_getInstanceSize(TDerivedNSClipView),' <> ',class_getInstanceSize(NSClipView)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCollectionViewItem) <> (class_getInstanceSize(NSCollectionViewItem)+sizeof(pointer)) then
+ writeln('size of NSCollectionViewItem is wrong: ',class_getInstanceSize(TDerivedNSCollectionViewItem),' <> ',class_getInstanceSize(NSCollectionViewItem)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCollectionView) <> (class_getInstanceSize(NSCollectionView)+sizeof(pointer)) then
+ writeln('size of NSCollectionView is wrong: ',class_getInstanceSize(TDerivedNSCollectionView),' <> ',class_getInstanceSize(NSCollectionView)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSColor) <> (class_getInstanceSize(NSColor)+sizeof(pointer)) then
+ writeln('size of NSColor is wrong: ',class_getInstanceSize(TDerivedNSColor),' <> ',class_getInstanceSize(NSColor)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSColorList) <> (class_getInstanceSize(NSColorList)+sizeof(pointer)) then
+ writeln('size of NSColorList is wrong: ',class_getInstanceSize(TDerivedNSColorList),' <> ',class_getInstanceSize(NSColorList)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSColorPanel) <> (class_getInstanceSize(NSColorPanel)+sizeof(pointer)) then
+ writeln('size of NSColorPanel is wrong: ',class_getInstanceSize(TDerivedNSColorPanel),' <> ',class_getInstanceSize(NSColorPanel)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSColorPicker) <> (class_getInstanceSize(NSColorPicker)+sizeof(pointer)) then
+ writeln('size of NSColorPicker is wrong: ',class_getInstanceSize(TDerivedNSColorPicker),' <> ',class_getInstanceSize(NSColorPicker)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSColorSpace) <> (class_getInstanceSize(NSColorSpace)+sizeof(pointer)) then
+ writeln('size of NSColorSpace is wrong: ',class_getInstanceSize(TDerivedNSColorSpace),' <> ',class_getInstanceSize(NSColorSpace)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSColorWell) <> (class_getInstanceSize(NSColorWell)+sizeof(pointer)) then
+ writeln('size of NSColorWell is wrong: ',class_getInstanceSize(TDerivedNSColorWell),' <> ',class_getInstanceSize(NSColorWell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSComboBox) <> (class_getInstanceSize(NSComboBox)+sizeof(pointer)) then
+ writeln('size of NSComboBox is wrong: ',class_getInstanceSize(TDerivedNSComboBox),' <> ',class_getInstanceSize(NSComboBox)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSComboBoxCell) <> (class_getInstanceSize(NSComboBoxCell)+sizeof(pointer)) then
+ writeln('size of NSComboBoxCell is wrong: ',class_getInstanceSize(TDerivedNSComboBoxCell),' <> ',class_getInstanceSize(NSComboBoxCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSControl) <> (class_getInstanceSize(NSControl)+sizeof(pointer)) then
+ writeln('size of NSControl is wrong: ',class_getInstanceSize(TDerivedNSControl),' <> ',class_getInstanceSize(NSControl)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSController) <> (class_getInstanceSize(NSController)+sizeof(pointer)) then
+ writeln('size of NSController is wrong: ',class_getInstanceSize(TDerivedNSController),' <> ',class_getInstanceSize(NSController)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCursor) <> (class_getInstanceSize(NSCursor)+sizeof(pointer)) then
+ writeln('size of NSCursor is wrong: ',class_getInstanceSize(TDerivedNSCursor),' <> ',class_getInstanceSize(NSCursor)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSCustomImageRep) <> (class_getInstanceSize(NSCustomImageRep)+sizeof(pointer)) then
+ writeln('size of NSCustomImageRep is wrong: ',class_getInstanceSize(TDerivedNSCustomImageRep),' <> ',class_getInstanceSize(NSCustomImageRep)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDatePicker) <> (class_getInstanceSize(NSDatePicker)+sizeof(pointer)) then
+ writeln('size of NSDatePicker is wrong: ',class_getInstanceSize(TDerivedNSDatePicker),' <> ',class_getInstanceSize(NSDatePicker)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDatePickerCell) <> (class_getInstanceSize(NSDatePickerCell)+sizeof(pointer)) then
+ writeln('size of NSDatePickerCell is wrong: ',class_getInstanceSize(TDerivedNSDatePickerCell),' <> ',class_getInstanceSize(NSDatePickerCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDictionaryController) <> (class_getInstanceSize(NSDictionaryController)+sizeof(pointer)) then
+ writeln('size of NSDictionaryController is wrong: ',class_getInstanceSize(TDerivedNSDictionaryController),' <> ',class_getInstanceSize(NSDictionaryController)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDockTile) <> (class_getInstanceSize(NSDockTile)+sizeof(pointer)) then
+ writeln('size of NSDockTile is wrong: ',class_getInstanceSize(TDerivedNSDockTile),' <> ',class_getInstanceSize(NSDockTile)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDocument) <> (class_getInstanceSize(NSDocument)+sizeof(pointer)) then
+ writeln('size of NSDocument is wrong: ',class_getInstanceSize(TDerivedNSDocument),' <> ',class_getInstanceSize(NSDocument)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDocumentController) <> (class_getInstanceSize(NSDocumentController)+sizeof(pointer)) then
+ writeln('size of NSDocumentController is wrong: ',class_getInstanceSize(TDerivedNSDocumentController),' <> ',class_getInstanceSize(NSDocumentController)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSDrawer) <> (class_getInstanceSize(NSDrawer)+sizeof(pointer)) then
+ writeln('size of NSDrawer is wrong: ',class_getInstanceSize(TDerivedNSDrawer),' <> ',class_getInstanceSize(NSDrawer)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSEPSImageRep) <> (class_getInstanceSize(NSEPSImageRep)+sizeof(pointer)) then
+ writeln('size of NSEPSImageRep is wrong: ',class_getInstanceSize(TDerivedNSEPSImageRep),' <> ',class_getInstanceSize(NSEPSImageRep)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSEvent) <> (class_getInstanceSize(NSEvent)+sizeof(pointer)) then
+ writeln('size of NSEvent is wrong: ',class_getInstanceSize(TDerivedNSEvent),' <> ',class_getInstanceSize(NSEvent)+sizeof(pointer));
+ writeln(sizeof(__VFlags));
+ if class_getInstanceSize(TDerivedNSFileWrapper) <> (class_getInstanceSize(NSFileWrapper)+sizeof(pointer)) then
+ writeln('size of NSFileWrapper is wrong: ',class_getInstanceSize(TDerivedNSFileWrapper),' <> ',class_getInstanceSize(NSFileWrapper)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSFont) <> (class_getInstanceSize(NSFont)+sizeof(pointer)) then
+ writeln('size of NSFont is wrong: ',class_getInstanceSize(TDerivedNSFont),' <> ',class_getInstanceSize(NSFont)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSFontDescriptor) <> (class_getInstanceSize(NSFontDescriptor)+sizeof(pointer)) then
+ writeln('size of NSFontDescriptor is wrong: ',class_getInstanceSize(TDerivedNSFontDescriptor),' <> ',class_getInstanceSize(NSFontDescriptor)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSFontManager) <> (class_getInstanceSize(NSFontManager)+sizeof(pointer)) then
+ writeln('size of NSFontManager is wrong: ',class_getInstanceSize(TDerivedNSFontManager),' <> ',class_getInstanceSize(NSFontManager)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSFontPanel) <> (class_getInstanceSize(NSFontPanel)+sizeof(pointer)) then
+ writeln('size of NSFontPanel is wrong: ',class_getInstanceSize(TDerivedNSFontPanel),' <> ',class_getInstanceSize(NSFontPanel)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSFormCell) <> (class_getInstanceSize(NSFormCell)+sizeof(pointer)) then
+ writeln('size of NSFormCell is wrong: ',class_getInstanceSize(TDerivedNSFormCell),' <> ',class_getInstanceSize(NSFormCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSGlyphGenerator) <> (class_getInstanceSize(NSGlyphGenerator)+sizeof(pointer)) then
+ writeln('size of NSGlyphGenerator is wrong: ',class_getInstanceSize(TDerivedNSGlyphGenerator),' <> ',class_getInstanceSize(NSGlyphGenerator)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSGlyphInfo) <> (class_getInstanceSize(NSGlyphInfo)+sizeof(pointer)) then
+ writeln('size of NSGlyphInfo is wrong: ',class_getInstanceSize(TDerivedNSGlyphInfo),' <> ',class_getInstanceSize(NSGlyphInfo)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSGradient) <> (class_getInstanceSize(NSGradient)+sizeof(pointer)) then
+ writeln('size of NSGradient is wrong: ',class_getInstanceSize(TDerivedNSGradient),' <> ',class_getInstanceSize(NSGradient)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSGraphicsContext) <> (class_getInstanceSize(NSGraphicsContext)+sizeof(pointer)) then
+ writeln('size of NSGraphicsContext is wrong: ',class_getInstanceSize(TDerivedNSGraphicsContext),' <> ',class_getInstanceSize(NSGraphicsContext)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSHelpManager) <> (class_getInstanceSize(NSHelpManager)+sizeof(pointer)) then
+ writeln('size of NSHelpManager is wrong: ',class_getInstanceSize(TDerivedNSHelpManager),' <> ',class_getInstanceSize(NSHelpManager)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSImage) <> (class_getInstanceSize(NSImage)+sizeof(pointer)) then
+ writeln('size of NSImage is wrong: ',class_getInstanceSize(TDerivedNSImage),' <> ',class_getInstanceSize(NSImage)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSImageCell) <> (class_getInstanceSize(NSImageCell)+sizeof(pointer)) then
+ writeln('size of NSImageCell is wrong: ',class_getInstanceSize(TDerivedNSImageCell),' <> ',class_getInstanceSize(NSImageCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSImageRep) <> (class_getInstanceSize(NSImageRep)+sizeof(pointer)) then
+ writeln('size of NSImageRep is wrong: ',class_getInstanceSize(TDerivedNSImageRep),' <> ',class_getInstanceSize(NSImageRep)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSImageView) <> (class_getInstanceSize(NSImageView)+sizeof(pointer)) then
+ writeln('size of NSImageView is wrong: ',class_getInstanceSize(TDerivedNSImageView),' <> ',class_getInstanceSize(NSImageView)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSInputManager) <> (class_getInstanceSize(NSInputManager)+sizeof(pointer)) then
+ writeln('size of NSInputManager is wrong: ',class_getInstanceSize(TDerivedNSInputManager),' <> ',class_getInstanceSize(NSInputManager)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSInputServer) <> (class_getInstanceSize(NSInputServer)+sizeof(pointer)) then
+ writeln('size of NSInputServer is wrong: ',class_getInstanceSize(TDerivedNSInputServer),' <> ',class_getInstanceSize(NSInputServer)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSLayoutManager) <> (class_getInstanceSize(NSLayoutManager)+sizeof(pointer)) then
+ writeln('size of NSLayoutManager is wrong: ',class_getInstanceSize(TDerivedNSLayoutManager),' <> ',class_getInstanceSize(NSLayoutManager)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSLevelIndicator) <> (class_getInstanceSize(NSLevelIndicator)+sizeof(pointer)) then
+ writeln('size of NSLevelIndicator is wrong: ',class_getInstanceSize(TDerivedNSLevelIndicator),' <> ',class_getInstanceSize(NSLevelIndicator)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSLevelIndicatorCell) <> (class_getInstanceSize(NSLevelIndicatorCell)+sizeof(pointer)) then
+ writeln('size of NSLevelIndicatorCell is wrong: ',class_getInstanceSize(TDerivedNSLevelIndicatorCell),' <> ',class_getInstanceSize(NSLevelIndicatorCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMatrix) <> (class_getInstanceSize(NSMatrix)+sizeof(pointer)) then
+ writeln('size of NSMatrix is wrong: ',class_getInstanceSize(TDerivedNSMatrix),' <> ',class_getInstanceSize(NSMatrix)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMenu) <> (class_getInstanceSize(NSMenu)+sizeof(pointer)) then
+ writeln('size of NSMenu is wrong: ',class_getInstanceSize(TDerivedNSMenu),' <> ',class_getInstanceSize(NSMenu)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMenuItem) <> (class_getInstanceSize(NSMenuItem)+sizeof(pointer)) then
+ writeln('size of NSMenuItem is wrong: ',class_getInstanceSize(TDerivedNSMenuItem),' <> ',class_getInstanceSize(NSMenuItem)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMenuItemCell) <> (class_getInstanceSize(NSMenuItemCell)+sizeof(pointer)) then
+ writeln('size of NSMenuItemCell is wrong: ',class_getInstanceSize(TDerivedNSMenuItemCell),' <> ',class_getInstanceSize(NSMenuItemCell)+sizeof(pointer));
+ {$ifndef cpu64}
+ if class_getInstanceSize(TDerivedNSMenuView) <> (class_getInstanceSize(NSMenuView)+sizeof(pointer)) then
+ writeln('size of NSMenuView is wrong: ',class_getInstanceSize(TDerivedNSMenuView),' <> ',class_getInstanceSize(NSMenuView)+sizeof(pointer));
+ {$endif}
+ if class_getInstanceSize(TDerivedNSMovie) <> (class_getInstanceSize(NSMovie)+sizeof(pointer)) then
+ writeln('size of NSMovie is wrong: ',class_getInstanceSize(TDerivedNSMovie),' <> ',class_getInstanceSize(NSMovie)+sizeof(pointer));
+ {$ifndef cpu64}
+ if class_getInstanceSize(TDerivedNSMovieView) <> (class_getInstanceSize(NSMovieView)+sizeof(pointer)) then
+ writeln('size of NSMovieView is wrong: ',class_getInstanceSize(TDerivedNSMovieView),' <> ',class_getInstanceSize(NSMovieView)+sizeof(pointer));
+ {$endif}
+ if class_getInstanceSize(TDerivedNSNib) <> (class_getInstanceSize(NSNib)+sizeof(pointer)) then
+ writeln('size of NSNib is wrong: ',class_getInstanceSize(TDerivedNSNib),' <> ',class_getInstanceSize(NSNib)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSObjectController) <> (class_getInstanceSize(NSObjectController)+sizeof(pointer)) then
+ writeln('size of NSObjectController is wrong: ',class_getInstanceSize(TDerivedNSObjectController),' <> ',class_getInstanceSize(NSObjectController)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSOpenGLPixelFormat) <> (class_getInstanceSize(NSOpenGLPixelFormat)+sizeof(pointer)) then
+ writeln('size of NSOpenGLPixelFormat is wrong: ',class_getInstanceSize(TDerivedNSOpenGLPixelFormat),' <> ',class_getInstanceSize(NSOpenGLPixelFormat)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSOpenGLPixelBuffer) <> (class_getInstanceSize(NSOpenGLPixelBuffer)+sizeof(pointer)) then
+ writeln('size of NSOpenGLPixelBuffer is wrong: ',class_getInstanceSize(TDerivedNSOpenGLPixelBuffer),' <> ',class_getInstanceSize(NSOpenGLPixelBuffer)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSOpenGLContext) <> (class_getInstanceSize(NSOpenGLContext)+sizeof(pointer)) then
+ writeln('size of NSOpenGLContext is wrong: ',class_getInstanceSize(TDerivedNSOpenGLContext),' <> ',class_getInstanceSize(NSOpenGLContext)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSOpenGLView) <> (class_getInstanceSize(NSOpenGLView)+sizeof(pointer)) then
+ writeln('size of NSOpenGLView is wrong: ',class_getInstanceSize(TDerivedNSOpenGLView),' <> ',class_getInstanceSize(NSOpenGLView)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSOpenPanel) <> (class_getInstanceSize(NSOpenPanel)+sizeof(pointer)) then
+ writeln('size of NSOpenPanel is wrong: ',class_getInstanceSize(TDerivedNSOpenPanel),' <> ',class_getInstanceSize(NSOpenPanel)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSOutlineView) <> (class_getInstanceSize(NSOutlineView)+sizeof(pointer)) then
+ writeln('size of NSOutlineView is wrong: ',class_getInstanceSize(TDerivedNSOutlineView),' <> ',class_getInstanceSize(NSOutlineView)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPageLayout) <> (class_getInstanceSize(NSPageLayout)+sizeof(pointer)) then
+ writeln('size of NSPageLayout is wrong: ',class_getInstanceSize(TDerivedNSPageLayout),' <> ',class_getInstanceSize(NSPageLayout)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPanel) <> (class_getInstanceSize(NSPanel)+sizeof(pointer)) then
+ writeln('size of NSPanel is wrong: ',class_getInstanceSize(TDerivedNSPanel),' <> ',class_getInstanceSize(NSPanel)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTextTab) <> (class_getInstanceSize(NSTextTab)+sizeof(pointer)) then
+ writeln('size of NSTextTab is wrong: ',class_getInstanceSize(TDerivedNSTextTab),' <> ',class_getInstanceSize(NSTextTab)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSParagraphStyle) <> (class_getInstanceSize(NSParagraphStyle)+sizeof(pointer)) then
+ writeln('size of NSParagraphStyle is wrong: ',class_getInstanceSize(TDerivedNSParagraphStyle),' <> ',class_getInstanceSize(NSParagraphStyle)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSMutableParagraphStyle) <> (class_getInstanceSize(NSMutableParagraphStyle)+sizeof(pointer)) then
+ writeln('size of NSMutableParagraphStyle is wrong: ',class_getInstanceSize(TDerivedNSMutableParagraphStyle),' <> ',class_getInstanceSize(NSMutableParagraphStyle)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPasteboard) <> (class_getInstanceSize(NSPasteboard)+sizeof(pointer)) then
+ writeln('size of NSPasteboard is wrong: ',class_getInstanceSize(TDerivedNSPasteboard),' <> ',class_getInstanceSize(NSPasteboard)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPathCell) <> (class_getInstanceSize(NSPathCell)+sizeof(pointer)) then
+ writeln('size of NSPathCell is wrong: ',class_getInstanceSize(TDerivedNSPathCell),' <> ',class_getInstanceSize(NSPathCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPathComponentCell) <> (class_getInstanceSize(NSPathComponentCell)+sizeof(pointer)) then
+ writeln('size of NSPathComponentCell is wrong: ',class_getInstanceSize(TDerivedNSPathComponentCell),' <> ',class_getInstanceSize(NSPathComponentCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPathControl) <> (class_getInstanceSize(NSPathControl)+sizeof(pointer)) then
+ writeln('size of NSPathControl is wrong: ',class_getInstanceSize(TDerivedNSPathControl),' <> ',class_getInstanceSize(NSPathControl)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPDFImageRep) <> (class_getInstanceSize(NSPDFImageRep)+sizeof(pointer)) then
+ writeln('size of NSPDFImageRep is wrong: ',class_getInstanceSize(TDerivedNSPDFImageRep),' <> ',class_getInstanceSize(NSPDFImageRep)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPersistentDocument) <> (class_getInstanceSize(NSPersistentDocument)+sizeof(pointer)) then
+ writeln('size of NSPersistentDocument is wrong: ',class_getInstanceSize(TDerivedNSPersistentDocument),' <> ',class_getInstanceSize(NSPersistentDocument)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPICTImageRep) <> (class_getInstanceSize(NSPICTImageRep)+sizeof(pointer)) then
+ writeln('size of NSPICTImageRep is wrong: ',class_getInstanceSize(TDerivedNSPICTImageRep),' <> ',class_getInstanceSize(NSPICTImageRep)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPopUpButton) <> (class_getInstanceSize(NSPopUpButton)+sizeof(pointer)) then
+ writeln('size of NSPopUpButton is wrong: ',class_getInstanceSize(TDerivedNSPopUpButton),' <> ',class_getInstanceSize(NSPopUpButton)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPopUpButtonCell) <> (class_getInstanceSize(NSPopUpButtonCell)+sizeof(pointer)) then
+ writeln('size of NSPopUpButtonCell is wrong: ',class_getInstanceSize(TDerivedNSPopUpButtonCell),' <> ',class_getInstanceSize(NSPopUpButtonCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPredicateEditor) <> (class_getInstanceSize(NSPredicateEditor)+sizeof(pointer)) then
+ writeln('size of NSPredicateEditor is wrong: ',class_getInstanceSize(TDerivedNSPredicateEditor),' <> ',class_getInstanceSize(NSPredicateEditor)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPrinter) <> (class_getInstanceSize(NSPrinter)+sizeof(pointer)) then
+ writeln('size of NSPrinter is wrong: ',class_getInstanceSize(TDerivedNSPrinter),' <> ',class_getInstanceSize(NSPrinter)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPrintInfo) <> (class_getInstanceSize(NSPrintInfo)+sizeof(pointer)) then
+ writeln('size of NSPrintInfo is wrong: ',class_getInstanceSize(TDerivedNSPrintInfo),' <> ',class_getInstanceSize(NSPrintInfo)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPrintOperation) <> (class_getInstanceSize(NSPrintOperation)+sizeof(pointer)) then
+ writeln('size of NSPrintOperation is wrong: ',class_getInstanceSize(TDerivedNSPrintOperation),' <> ',class_getInstanceSize(NSPrintOperation)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSPrintPanel) <> (class_getInstanceSize(NSPrintPanel)+sizeof(pointer)) then
+ writeln('size of NSPrintPanel is wrong: ',class_getInstanceSize(TDerivedNSPrintPanel),' <> ',class_getInstanceSize(NSPrintPanel)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSProgressIndicator) <> (class_getInstanceSize(NSProgressIndicator)+sizeof(pointer)) then
+ writeln('size of NSProgressIndicator is wrong: ',class_getInstanceSize(TDerivedNSProgressIndicator),' <> ',class_getInstanceSize(NSProgressIndicator)+sizeof(pointer));
+ {$ifndef cpu64}
+ if class_getInstanceSize(TDerivedNSQuickDrawView) <> (class_getInstanceSize(NSQuickDrawView)+sizeof(pointer)) then
+ writeln('size of NSQuickDrawView is wrong: ',class_getInstanceSize(TDerivedNSQuickDrawView),' <> ',class_getInstanceSize(NSQuickDrawView)+sizeof(pointer));
+ {$endif}
+ if class_getInstanceSize(TDerivedNSResponder) <> (class_getInstanceSize(NSResponder)+sizeof(pointer)) then
+ writeln('size of NSResponder is wrong: ',class_getInstanceSize(TDerivedNSResponder),' <> ',class_getInstanceSize(NSResponder)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSRuleEditor) <> (class_getInstanceSize(NSRuleEditor)+sizeof(pointer)) then
+ writeln('size of NSRuleEditor is wrong: ',class_getInstanceSize(TDerivedNSRuleEditor),' <> ',class_getInstanceSize(NSRuleEditor)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSRulerMarker) <> (class_getInstanceSize(NSRulerMarker)+sizeof(pointer)) then
+ writeln('size of NSRulerMarker is wrong: ',class_getInstanceSize(TDerivedNSRulerMarker),' <> ',class_getInstanceSize(NSRulerMarker)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSRulerView) <> (class_getInstanceSize(NSRulerView)+sizeof(pointer)) then
+ writeln('size of NSRulerView is wrong: ',class_getInstanceSize(TDerivedNSRulerView),' <> ',class_getInstanceSize(NSRulerView)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSavePanel) <> (class_getInstanceSize(NSSavePanel)+sizeof(pointer)) then
+ writeln('size of NSSavePanel is wrong: ',class_getInstanceSize(TDerivedNSSavePanel),' <> ',class_getInstanceSize(NSSavePanel)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSScreen) <> (class_getInstanceSize(NSScreen)+sizeof(pointer)) then
+ writeln('size of NSScreen is wrong: ',class_getInstanceSize(TDerivedNSScreen),' <> ',class_getInstanceSize(NSScreen)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSScroller) <> (class_getInstanceSize(NSScroller)+sizeof(pointer)) then
+ writeln('size of NSScroller is wrong: ',class_getInstanceSize(TDerivedNSScroller),' <> ',class_getInstanceSize(NSScroller)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSScrollView) <> (class_getInstanceSize(NSScrollView)+sizeof(pointer)) then
+ writeln('size of NSScrollView is wrong: ',class_getInstanceSize(TDerivedNSScrollView),' <> ',class_getInstanceSize(NSScrollView)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSearchField) <> (class_getInstanceSize(NSSearchField)+sizeof(pointer)) then
+ writeln('size of NSSearchField is wrong: ',class_getInstanceSize(TDerivedNSSearchField),' <> ',class_getInstanceSize(NSSearchField)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSearchFieldCell) <> (class_getInstanceSize(NSSearchFieldCell)+sizeof(pointer)) then
+ writeln('size of NSSearchFieldCell is wrong: ',class_getInstanceSize(TDerivedNSSearchFieldCell),' <> ',class_getInstanceSize(NSSearchFieldCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSecureTextField) <> (class_getInstanceSize(NSSecureTextField)+sizeof(pointer)) then
+ writeln('size of NSSecureTextField is wrong: ',class_getInstanceSize(TDerivedNSSecureTextField),' <> ',class_getInstanceSize(NSSecureTextField)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSecureTextFieldCell) <> (class_getInstanceSize(NSSecureTextFieldCell)+sizeof(pointer)) then
+ writeln('size of NSSecureTextFieldCell is wrong: ',class_getInstanceSize(TDerivedNSSecureTextFieldCell),' <> ',class_getInstanceSize(NSSecureTextFieldCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSegmentedControl) <> (class_getInstanceSize(NSSegmentedControl)+sizeof(pointer)) then
+ writeln('size of NSSegmentedControl is wrong: ',class_getInstanceSize(TDerivedNSSegmentedControl),' <> ',class_getInstanceSize(NSSegmentedControl)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSShadow) <> (class_getInstanceSize(NSShadow)+sizeof(pointer)) then
+ writeln('size of NSShadow is wrong: ',class_getInstanceSize(TDerivedNSShadow),' <> ',class_getInstanceSize(NSShadow)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSlider) <> (class_getInstanceSize(NSSlider)+sizeof(pointer)) then
+ writeln('size of NSSlider is wrong: ',class_getInstanceSize(TDerivedNSSlider),' <> ',class_getInstanceSize(NSSlider)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSliderCell) <> (class_getInstanceSize(NSSliderCell)+sizeof(pointer)) then
+ writeln('size of NSSliderCell is wrong: ',class_getInstanceSize(TDerivedNSSliderCell),' <> ',class_getInstanceSize(NSSliderCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSound) <> (class_getInstanceSize(NSSound)+sizeof(pointer)) then
+ writeln('size of NSSound is wrong: ',class_getInstanceSize(TDerivedNSSound),' <> ',class_getInstanceSize(NSSound)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSpeechRecognizer) <> (class_getInstanceSize(NSSpeechRecognizer)+sizeof(pointer)) then
+ writeln('size of NSSpeechRecognizer is wrong: ',class_getInstanceSize(TDerivedNSSpeechRecognizer),' <> ',class_getInstanceSize(NSSpeechRecognizer)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSpeechSynthesizer) <> (class_getInstanceSize(NSSpeechSynthesizer)+sizeof(pointer)) then
+ writeln('size of NSSpeechSynthesizer is wrong: ',class_getInstanceSize(TDerivedNSSpeechSynthesizer),' <> ',class_getInstanceSize(NSSpeechSynthesizer)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSpellChecker) <> (class_getInstanceSize(NSSpellChecker)+sizeof(pointer)) then
+ writeln('size of NSSpellChecker is wrong: ',class_getInstanceSize(TDerivedNSSpellChecker),' <> ',class_getInstanceSize(NSSpellChecker)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSSplitView) <> (class_getInstanceSize(NSSplitView)+sizeof(pointer)) then
+ writeln('size of NSSplitView is wrong: ',class_getInstanceSize(TDerivedNSSplitView),' <> ',class_getInstanceSize(NSSplitView)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSStatusBar) <> (class_getInstanceSize(NSStatusBar)+sizeof(pointer)) then
+ writeln('size of NSStatusBar is wrong: ',class_getInstanceSize(TDerivedNSStatusBar),' <> ',class_getInstanceSize(NSStatusBar)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSStatusItem) <> (class_getInstanceSize(NSStatusItem)+sizeof(pointer)) then
+ writeln('size of NSStatusItem is wrong: ',class_getInstanceSize(TDerivedNSStatusItem),' <> ',class_getInstanceSize(NSStatusItem)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSStepper) <> (class_getInstanceSize(NSStepper)+sizeof(pointer)) then
+ writeln('size of NSStepper is wrong: ',class_getInstanceSize(TDerivedNSStepper),' <> ',class_getInstanceSize(NSStepper)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSStepperCell) <> (class_getInstanceSize(NSStepperCell)+sizeof(pointer)) then
+ writeln('size of NSStepperCell is wrong: ',class_getInstanceSize(TDerivedNSStepperCell),' <> ',class_getInstanceSize(NSStepperCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTableColumn) <> (class_getInstanceSize(NSTableColumn)+sizeof(pointer)) then
+ writeln('size of NSTableColumn is wrong: ',class_getInstanceSize(TDerivedNSTableColumn),' <> ',class_getInstanceSize(NSTableColumn)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTableHeaderCell) <> (class_getInstanceSize(NSTableHeaderCell)+sizeof(pointer)) then
+ writeln('size of NSTableHeaderCell is wrong: ',class_getInstanceSize(TDerivedNSTableHeaderCell),' <> ',class_getInstanceSize(NSTableHeaderCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTableHeaderView) <> (class_getInstanceSize(NSTableHeaderView)+sizeof(pointer)) then
+ writeln('size of NSTableHeaderView is wrong: ',class_getInstanceSize(TDerivedNSTableHeaderView),' <> ',class_getInstanceSize(NSTableHeaderView)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTableView) <> (class_getInstanceSize(NSTableView)+sizeof(pointer)) then
+ writeln('size of NSTableView is wrong: ',class_getInstanceSize(TDerivedNSTableView),' <> ',class_getInstanceSize(NSTableView)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTabView) <> (class_getInstanceSize(NSTabView)+sizeof(pointer)) then
+ writeln('size of NSTabView is wrong: ',class_getInstanceSize(TDerivedNSTabView),' <> ',class_getInstanceSize(NSTabView)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTabViewItem) <> (class_getInstanceSize(NSTabViewItem)+sizeof(pointer)) then
+ writeln('size of NSTabViewItem is wrong: ',class_getInstanceSize(TDerivedNSTabViewItem),' <> ',class_getInstanceSize(NSTabViewItem)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSText) <> (class_getInstanceSize(NSText)+sizeof(pointer)) then
+ writeln('size of NSText is wrong: ',class_getInstanceSize(TDerivedNSText),' <> ',class_getInstanceSize(NSText)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTextAttachmentCell) <> (class_getInstanceSize(NSTextAttachmentCell)+sizeof(pointer)) then
+ writeln('size of NSTextAttachmentCell is wrong: ',class_getInstanceSize(TDerivedNSTextAttachmentCell),' <> ',class_getInstanceSize(NSTextAttachmentCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTextAttachment) <> (class_getInstanceSize(NSTextAttachment)+sizeof(pointer)) then
+ writeln('size of NSTextAttachment is wrong: ',class_getInstanceSize(TDerivedNSTextAttachment),' <> ',class_getInstanceSize(NSTextAttachment)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTextContainer) <> (class_getInstanceSize(NSTextContainer)+sizeof(pointer)) then
+ writeln('size of NSTextContainer is wrong: ',class_getInstanceSize(TDerivedNSTextContainer),' <> ',class_getInstanceSize(NSTextContainer)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTextField) <> (class_getInstanceSize(NSTextField)+sizeof(pointer)) then
+ writeln('size of NSTextField is wrong: ',class_getInstanceSize(TDerivedNSTextField),' <> ',class_getInstanceSize(NSTextField)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTextFieldCell) <> (class_getInstanceSize(NSTextFieldCell)+sizeof(pointer)) then
+ writeln('size of NSTextFieldCell is wrong: ',class_getInstanceSize(TDerivedNSTextFieldCell),' <> ',class_getInstanceSize(NSTextFieldCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTextList) <> (class_getInstanceSize(NSTextList)+sizeof(pointer)) then
+ writeln('size of NSTextList is wrong: ',class_getInstanceSize(TDerivedNSTextList),' <> ',class_getInstanceSize(NSTextList)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTextStorage) <> (class_getInstanceSize(NSTextStorage)+sizeof(pointer)) then
+ writeln('size of NSTextStorage is wrong: ',class_getInstanceSize(TDerivedNSTextStorage),' <> ',class_getInstanceSize(NSTextStorage)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTextBlock) <> (class_getInstanceSize(NSTextBlock)+sizeof(pointer)) then
+ writeln('size of NSTextBlock is wrong: ',class_getInstanceSize(TDerivedNSTextBlock),' <> ',class_getInstanceSize(NSTextBlock)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTextTableBlock) <> (class_getInstanceSize(NSTextTableBlock)+sizeof(pointer)) then
+ writeln('size of NSTextTableBlock is wrong: ',class_getInstanceSize(TDerivedNSTextTableBlock),' <> ',class_getInstanceSize(NSTextTableBlock)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTextTable) <> (class_getInstanceSize(NSTextTable)+sizeof(pointer)) then
+ writeln('size of NSTextTable is wrong: ',class_getInstanceSize(TDerivedNSTextTable),' <> ',class_getInstanceSize(NSTextTable)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTextView) <> (class_getInstanceSize(NSTextView)+sizeof(pointer)) then
+ writeln('size of NSTextView is wrong: ',class_getInstanceSize(TDerivedNSTextView),' <> ',class_getInstanceSize(NSTextView)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTokenField) <> (class_getInstanceSize(NSTokenField)+sizeof(pointer)) then
+ writeln('size of NSTokenField is wrong: ',class_getInstanceSize(TDerivedNSTokenField),' <> ',class_getInstanceSize(NSTokenField)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTokenFieldCell) <> (class_getInstanceSize(NSTokenFieldCell)+sizeof(pointer)) then
+ writeln('size of NSTokenFieldCell is wrong: ',class_getInstanceSize(TDerivedNSTokenFieldCell),' <> ',class_getInstanceSize(NSTokenFieldCell)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSToolbar) <> (class_getInstanceSize(NSToolbar)+sizeof(pointer)) then
+ writeln('size of NSToolbar is wrong: ',class_getInstanceSize(TDerivedNSToolbar),' <> ',class_getInstanceSize(NSToolbar)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSToolbarItem) <> (class_getInstanceSize(NSToolbarItem)+sizeof(pointer)) then
+ writeln('size of NSToolbarItem is wrong: ',class_getInstanceSize(TDerivedNSToolbarItem),' <> ',class_getInstanceSize(NSToolbarItem)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSToolbarItemGroup) <> (class_getInstanceSize(NSToolbarItemGroup)+sizeof(pointer)) then
+ writeln('size of NSToolbarItemGroup is wrong: ',class_getInstanceSize(TDerivedNSToolbarItemGroup),' <> ',class_getInstanceSize(NSToolbarItemGroup)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTrackingArea) <> (class_getInstanceSize(NSTrackingArea)+sizeof(pointer)) then
+ writeln('size of NSTrackingArea is wrong: ',class_getInstanceSize(TDerivedNSTrackingArea),' <> ',class_getInstanceSize(NSTrackingArea)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTreeController) <> (class_getInstanceSize(NSTreeController)+sizeof(pointer)) then
+ writeln('size of NSTreeController is wrong: ',class_getInstanceSize(TDerivedNSTreeController),' <> ',class_getInstanceSize(NSTreeController)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTreeNode) <> (class_getInstanceSize(NSTreeNode)+sizeof(pointer)) then
+ writeln('size of NSTreeNode is wrong: ',class_getInstanceSize(TDerivedNSTreeNode),' <> ',class_getInstanceSize(NSTreeNode)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSTypesetter) <> (class_getInstanceSize(NSTypesetter)+sizeof(pointer)) then
+ writeln('size of NSTypesetter is wrong: ',class_getInstanceSize(TDerivedNSTypesetter),' <> ',class_getInstanceSize(NSTypesetter)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSUserDefaultsController) <> (class_getInstanceSize(NSUserDefaultsController)+sizeof(pointer)) then
+ writeln('size of NSUserDefaultsController is wrong: ',class_getInstanceSize(TDerivedNSUserDefaultsController),' <> ',class_getInstanceSize(NSUserDefaultsController)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSView) <> (class_getInstanceSize(NSView)+sizeof(pointer)) then
+ writeln('size of NSView is wrong: ',class_getInstanceSize(TDerivedNSView),' <> ',class_getInstanceSize(NSView)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSViewController) <> (class_getInstanceSize(NSViewController)+sizeof(pointer)) then
+ writeln('size of NSViewController is wrong: ',class_getInstanceSize(TDerivedNSViewController),' <> ',class_getInstanceSize(NSViewController)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSWindow) <> (class_getInstanceSize(NSWindow)+sizeof(pointer)) then
+ writeln('size of NSWindow is wrong: ',class_getInstanceSize(TDerivedNSWindow),' <> ',class_getInstanceSize(NSWindow)+sizeof(pointer));
+ if class_getInstanceSize(TDerivedNSWindowController) <> (class_getInstanceSize(NSWindowController)+sizeof(pointer)) then
+ 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));
 end;
 begin
  PrintGlue1;

packages/cocoaint/src/WebKit.pas

@@ -3,6 +3,7 @@ unit WebKit;
 {$mode delphi}
 {$modeswitch cvar}
 {$modeswitch objectivec1}
+{$packrecords c}
 
 interface
 
@@ -66,4 +67,4 @@ implementation
 {$undef USER_PATCHES}
 
 {$undef IMPLEMENTATION}
-end.
+end.

packages/cocoaint/src/appkit/AppKit.inc

@@ -112,8 +112,10 @@
 {$include NSInterfaceStyle.inc} 
 {$include NSProgressIndicator.inc} 
 {$include NSTabView.inc} 
-{$include NSTabViewItem.inc} 
-{$include NSMenuView.inc} 
+{$include NSTabViewItem.inc}
+{$ifndef cpu64}
+{$include NSMenuView.inc}
+{$endif}
 {$include NSMenuItemCell.inc} 
 {$include NSPopUpButtonCell.inc} 
 {$include NSAffineTransform.inc} 
@@ -123,9 +125,13 @@
 {$include NSStatusItem.inc} 
 {$include NSSound.inc} 
 {$include NSMovie.inc} 
-{$include NSMovieView.inc} 
-{$include NSPDFImageRep.inc} 
-{$include NSQuickDrawView.inc} 
+{$ifndef cpu64}
+{$include NSMovieView.inc}
+{$endif}
+{$include NSPDFImageRep.inc}
+{$ifndef cpu64}
+{$include NSQuickDrawView.inc}
+{$endif}
 {$include NSDrawer.inc} 
 {$include NSOpenGL.inc} 
 {$include NSOpenGLView.inc} 

packages/cocoaint/src/appkit/NSATSTypesetter.inc

@@ -52,7 +52,7 @@
     currentTextContainerIndex: NSUInteger;
     currentTextContainerSize: NSSize;
     _currentParagraphStyle: NSParagraphStyle;
-        _atsReserved: array[0..7] of Pointer;
+    _atsReserved: array[0..(8)-1] of Pointer;
     _private: id;
     
   public

packages/cocoaint/src/appkit/NSAnimation.inc

@@ -92,10 +92,10 @@ var
     _startAnimation: NSAnimation;
     _stopAnimation: NSAnimation;
     _nextProgressMark: cint;
-    __aFlags: bitpacked record
+    __aFlags: record
       case byte of
        0: (_anonbitfield_NSAnimation0: cuint);
-       1: (
+       1: (data: bitpacked record
         delegateAnimationShouldStart: 0..1;
         delegateAnimationDidStop: 0..1;
         delegateAnimationDidEnd: 0..1;
@@ -104,15 +104,17 @@ var
         animating: 0..1;
         blocking: 0..1;
         reserved: 0..((1 shl 25)-1);
+       end;
       );
       end;
-    __aSettings: bitpacked record
+    __aSettings: record
       case byte of
        0: (_anonbitfield_NSAnimation1: cuint);
-       1: (
+       1: (data: bitpacked record
         _animationCurve: 0..((1 shl 8)-1);
         _animationBlockingMode: 0..((1 shl 2)-1);
         reserved: 0..((1 shl 22)-1);
+       end;
       );
       end;
     _scheduledRunLoop: NSRunLoop;
@@ -163,11 +165,12 @@ var
     _reserved4a: NSUInteger;
     _reserved4b: NSUInteger;
     _reserved4c: NSUInteger;
-    __vaFlags: bitpacked record
+    __vaFlags: record
       case byte of
        0: (_anonbitfield_NSAnimation2: cuint);
-       1: (
+       1: (data: bitpacked record
         reserved: 0..((1 shl 32)-1);
+       end;
       );
       end;
     _reserved5: NSUInteger;

packages/cocoaint/src/appkit/NSAnimationContext.inc

@@ -43,7 +43,7 @@
   NSAnimationContext = objcclass external (NSObject)
   private
     _duration: NSTimeInterval;
-        _reserved: array[0..4] of id;
+    _reserved: array[0..(5)-1] of id;
     
   public
     class procedure beginGrouping; message 'beginGrouping';

packages/cocoaint/src/appkit/NSApplication.inc

@@ -177,10 +177,10 @@ var
     _previousKeyWindow: id; {garbage collector: __weak }
     _unusedApp: cshort;
     _running: cshort;
-    __appFlags: bitpacked record
+    __appFlags: record
       case byte of
        0: (_anonbitfield_NSApplication0: cuint);
-       1: (
+       1: (data: bitpacked record
         _hidden: 0..1;
         _RESERVED1: 0..1;
         _active: 0..1;
@@ -209,6 +209,7 @@ var
         _waitingForTerminationReply: 0..1;
         _windowMoveDisabled: 0..1;
         _reserved: 0..((1 shl 4)-1);
+       end;
       );
       end;
     _mainMenu: id;

packages/cocoaint/src/appkit/NSArrayController.inc

@@ -45,10 +45,10 @@
     _reserved4: Pointer;
     _rearrangementExtensions: id;
     _temporaryWorkObjects: NSMutableArray;
-    __arrayControllerFlags: bitpacked record
+    __arrayControllerFlags: record
       case byte of
        0: (_anonbitfield_NSArrayController0: cuint);
-       1: (
+       1: (data: bitpacked record
         _avoidsEmptySelection: 0..1;
         _preservesSelection: 0..1;
         _selectsInsertedObjects: 0..1;
@@ -65,6 +65,7 @@
         _skipSortingAfterFetch: 0..1;
         _automaticallyRearrangesObjects: 0..1;
         _reservedArrayController: 0..((1 shl 17)-1);
+       end;
       );
       end;
     _observedIndexHint: NSUInteger;

packages/cocoaint/src/appkit/NSBezierPath.inc

@@ -90,15 +90,16 @@ type
     _path: Pointer;
     _extraSegmentCount: NSInteger;
     _extraSegmentMax: NSInteger;
-        _private: array[0..1] of id;
-    __bpFlags: bitpacked record
+    _private: array[0..(2)-1] of id;
+    __bpFlags: record
       case byte of
        0: (_anonbitfield_NSBezierPath0: cuint);
-       1: (
+       1: (data: bitpacked record
         _flags: 0..((1 shl 8)-1);
         _pathState: 0..((1 shl 2)-1);
         
         _unused: 0..((1 shl 22)-1);
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSBitmapImageRep.inc

@@ -103,11 +103,11 @@ var
 { NSBitmapImageRep }
   NSBitmapImageRep = objcclass external (NSImageRep)
   private
-    __moreRepFlags: bitpacked record
+    __moreRepFlags: record
       case byte of
        0: (_anonbitfield_NSBitmapImageRep0: cuint);
-       1: (
-        _bitsPerPixel: cuint;
+       1: (data: bitpacked record
+        _bitsPerPixel: 0..((1 shl 8)-1);
         _isPlanar: 0..1;
         explicitPlanes: 0..1;
         imageSourceIsIndexed: 0..1;
@@ -120,6 +120,7 @@ var
         _bitmapFormat: 0..((1 shl 3)-1);
         cgImageIsPrimary: 0..1;
         compression: 0..((1 shl 20)-1);
+       end;
       );
       end;
     _bytesPerRow: cuint;

packages/cocoaint/src/appkit/NSBox.inc

@@ -72,10 +72,10 @@ type
     _offsets: NSSize;
     _borderRect: NSRect;
     _titleRect: NSRect;
-    __bFlags: bitpacked record
+    __bFlags: record
       case byte of
        0: (_anonbitfield_NSBox0: NSBorderType);
-       1: (
+       1: (data: bitpacked record
         _borderType: 0..((1 shl 2)-1);
         _titlePosition: 0..((1 shl 3)-1);
         backgroundTransparent: 0..1;
@@ -85,6 +85,7 @@ type
         colorAltInterpretation: 0..1;
         _boxType: 0..((1 shl 3)-1);
         _RESERVED: 0..((1 shl 18)-1);
+       end;
       );
       end;
     _unused: id;

packages/cocoaint/src/appkit/NSBrowser.inc

@@ -37,63 +37,68 @@ type
 { Records }
 type
   __Brflags = record
+    case byte of
+    0: (_anonbitfield_NSBrowser0: cuint);
+    1: (data: bitpacked record
 {$ifdef fpc_big_endian}
-    allowsMultipleSelection: 0..1;
-    allowsBranchSelection: 0..1;
-    reuseColumns: 0..1;
-    isTitled: 0..1;
-    titleFromPrevious: 0..1;
-    separateColumns: 0..1;
-    delegateImplementsWillDisplayCell: 0..1;
-    delegateSetsTitles: 0..1;
-    delegateSelectsCellsByString: 0..1;
-    delegateDoesNotCreateRowsInMatrix: 0..1;
-    delegateValidatesColumns: 0..1;
-    acceptArrowKeys: 0..1;
-    dontDrawTitles: 0..1;
-    sendActionOnArrowKeys: 0..1;
-    prohibitEmptySel: 0..1;
-    hasHorizontalScroller: 0..1;
-    time: 0..1;
-    allowsIncrementalSearching: 0..1;
-    delegateSelectsCellsByRow: 0..1;
-    disableCompositing: 0..((1 shl 6)-1);
-    refusesFirstResponder: 0..1;
-    acceptsFirstMouse: 0..1;
-    actionNeedsToBeSent: 0..1;
-    usesSmallSizeTitleFont: 0..1;
-    usesSmallScrollers: 0..1;
-    prefersAllColumnUserResizing: 0..1;
-    firstVisibleCalculationDisabled: 0..1;
+          allowsMultipleSelection: 0..1;
+          allowsBranchSelection: 0..1;
+          reuseColumns: 0..1;
+          isTitled: 0..1;
+          titleFromPrevious: 0..1;
+          separateColumns: 0..1;
+          delegateImplementsWillDisplayCell: 0..1;
+          delegateSetsTitles: 0..1;
+          delegateSelectsCellsByString: 0..1;
+          delegateDoesNotCreateRowsInMatrix: 0..1;
+          delegateValidatesColumns: 0..1;
+          acceptArrowKeys: 0..1;
+          dontDrawTitles: 0..1;
+          sendActionOnArrowKeys: 0..1;
+          prohibitEmptySel: 0..1;
+          hasHorizontalScroller: 0..1;
+          time: 0..1;
+          allowsIncrementalSearching: 0..1;
+          delegateSelectsCellsByRow: 0..1;
+          disableCompositing: 0..((1 shl 6)-1);
+          refusesFirstResponder: 0..1;
+          acceptsFirstMouse: 0..1;
+          actionNeedsToBeSent: 0..1;
+          usesSmallSizeTitleFont: 0..1;
+          usesSmallScrollers: 0..1;
+          prefersAllColumnUserResizing: 0..1;
+          firstVisibleCalculationDisabled: 0..1;
 {$else}
-    firstVisibleCalculationDisabled: 0..1;
-    prefersAllColumnUserResizing: 0..1;
-    usesSmallScrollers: 0..1;
-    usesSmallSizeTitleFont: 0..1;
-    actionNeedsToBeSent: 0..1;
-    acceptsFirstMouse: 0..1;
-    refusesFirstResponder: 0..1;
-    disableCompositing: 0..((1 shl 6)-1);
-    delegateSelectsCellsByRow: 0..1;
-    allowsIncrementalSearching: 0..1;
-    time: 0..1;
-    hasHorizontalScroller: 0..1;
-    prohibitEmptySel: 0..1;
-    sendActionOnArrowKeys: 0..1;
-    dontDrawTitles: 0..1;
-    acceptArrowKeys: 0..1;
-    delegateValidatesColumns: 0..1;
-    delegateDoesNotCreateRowsInMatrix: 0..1;
-    delegateSelectsCellsByString: 0..1;
-    delegateSetsTitles: 0..1;
-    delegateImplementsWillDisplayCell: 0..1;
-    separateColumns: 0..1;
-    titleFromPrevious: 0..1;
-    isTitled: 0..1;
-    reuseColumns: 0..1;
-    allowsBranchSelection: 0..1;
-    allowsMultipleSelection: 0..1;
+          firstVisibleCalculationDisabled: 0..1;
+          prefersAllColumnUserResizing: 0..1;
+          usesSmallScrollers: 0..1;
+          usesSmallSizeTitleFont: 0..1;
+          actionNeedsToBeSent: 0..1;
+          acceptsFirstMouse: 0..1;
+          refusesFirstResponder: 0..1;
+          disableCompositing: 0..((1 shl 6)-1);
+          delegateSelectsCellsByRow: 0..1;
+          allowsIncrementalSearching: 0..1;
+          time: 0..1;
+          hasHorizontalScroller: 0..1;
+          prohibitEmptySel: 0..1;
+          sendActionOnArrowKeys: 0..1;
+          dontDrawTitles: 0..1;
+          acceptArrowKeys: 0..1;
+          delegateValidatesColumns: 0..1;
+          delegateDoesNotCreateRowsInMatrix: 0..1;
+          delegateSelectsCellsByString: 0..1;
+          delegateSetsTitles: 0..1;
+          delegateImplementsWillDisplayCell: 0..1;
+          separateColumns: 0..1;
+          titleFromPrevious: 0..1;
+          isTitled: 0..1;
+          reuseColumns: 0..1;
+          allowsBranchSelection: 0..1;
+          allowsMultipleSelection: 0..1;
 {$endif}
+         end;
+       );
   end;
 _Brflags = __Brflags;
 __BrflagsPtr = ^__Brflags;

packages/cocoaint/src/appkit/NSButtonCell.inc

@@ -61,76 +61,86 @@ type
 { Records }
 type
   __BCFlags = record
+    case byte of
+    0: (_anonbitfield_NSButtonCell0: cuint);
+    1: (data: bitpacked record
 {$ifdef fpc_big_endian}
-    pushIn: 0..1;
-    changeContents: 0..1;
-    changeBackground: 0..1;
-    changeGray: 0..1;
-    lightByContents: 0..1;
-    lightByBackground: 0..1;
-    lightByGray: 0..1;
-    drawing: 0..1;
-    bordered: 0..1;
-    imageOverlaps: 0..1;
-    horizontal: 0..1;
-    bottomOrLeft: 0..1;
-    imageAndText: 0..1;
-    imageSizeDiff: 0..1;
-    hasKeyEquivalentInsteadOfImage: 0..1;
-    lastState: 0..1;
-    transparent: 0..1;
-    inset: 0..((1 shl 2)-1);
-    doesNotDimImage: 0..1;
-    suppressAXValueChangeNote: 0..1;
-    reserved: 0..((1 shl 2)-1);
-    useButtonImageSource: 0..1;
-    alternateMnemonicLocation: 0..((1 shl 8)-1);
+          pushIn: 0..1;
+          changeContents: 0..1;
+          changeBackground: 0..1;
+          changeGray: 0..1;
+          lightByContents: 0..1;
+          lightByBackground: 0..1;
+          lightByGray: 0..1;
+          drawing: 0..1;
+          bordered: 0..1;
+          imageOverlaps: 0..1;
+          horizontal: 0..1;
+          bottomOrLeft: 0..1;
+          imageAndText: 0..1;
+          imageSizeDiff: 0..1;
+          hasKeyEquivalentInsteadOfImage: 0..1;
+          lastState: 0..1;
+          transparent: 0..1;
+          inset: 0..((1 shl 2)-1);
+          doesNotDimImage: 0..1;
+          suppressAXValueChangeNote: 0..1;
+          reserved: 0..((1 shl 2)-1);
+          useButtonImageSource: 0..1;
+          alternateMnemonicLocation: 0..((1 shl 8)-1);
 {$else}
-    alternateMnemonicLocation: 0..((1 shl 8)-1);
-    useButtonImageSource: 0..1;
-    reserved: 0..((1 shl 2)-1);
-    suppressAXValueChangeNote: 0..1;
-    doesNotDimImage: 0..1;
-    inset: 0..((1 shl 2)-1);
-    transparent: 0..1;
-    lastState: 0..1;
-    hasKeyEquivalentInsteadOfImage: 0..1;
-    imageSizeDiff: 0..1;
-    imageAndText: 0..1;
-    bottomOrLeft: 0..1;
-    horizontal: 0..1;
-    imageOverlaps: 0..1;
-    bordered: 0..1;
-    drawing: 0..1;
-    lightByGray: 0..1;
-    lightByBackground: 0..1;
-    lightByContents: 0..1;
-    changeGray: 0..1;
-    changeBackground: 0..1;
-    changeContents: 0..1;
-    pushIn: 0..1;
+          alternateMnemonicLocation: 0..((1 shl 8)-1);
+          useButtonImageSource: 0..1;
+          reserved: 0..((1 shl 2)-1);
+          suppressAXValueChangeNote: 0..1;
+          doesNotDimImage: 0..1;
+          inset: 0..((1 shl 2)-1);
+          transparent: 0..1;
+          lastState: 0..1;
+          hasKeyEquivalentInsteadOfImage: 0..1;
+          imageSizeDiff: 0..1;
+          imageAndText: 0..1;
+          bottomOrLeft: 0..1;
+          horizontal: 0..1;
+          imageOverlaps: 0..1;
+          bordered: 0..1;
+          drawing: 0..1;
+          lightByGray: 0..1;
+          lightByBackground: 0..1;
+          lightByContents: 0..1;
+          changeGray: 0..1;
+          changeBackground: 0..1;
+          changeContents: 0..1;
+          pushIn: 0..1;
 {$endif}
+         end;
+       );
   end;
 _BCFlags = __BCFlags;
 __BCFlagsPtr = ^__BCFlags;
 
 type
   __BCFlags2 = record
+    case byte of
+    0: (_anonbitfield_NSButtonCell1: cuint);
+    1: (data: bitpacked record
 {$ifdef fpc_big_endian}
-    keyEquivalentModifierMask: 0..((1 shl 24)-1);
-    imageScaling: 0..((1 shl 2)-1);
-    bezelStyle2: 0..1;
-    mouseInside: 0..1;
-    showsBorderOnlyWhileMouseInside: 0..1;
-    bezelStyle: 0..((1 shl 3)-1);
+          keyEquivalentModifierMask: 0..((1 shl 24)-1);
+          imageScaling: 0..((1 shl 2)-1);
+          bezelStyle2: 0..1;
+          mouseInside: 0..1;
+          showsBorderOnlyWhileMouseInside: 0..1;
+          bezelStyle: 0..((1 shl 3)-1);
 {$else}
-    bezelStyle: 0..((1 shl 3)-1);
-    showsBorderOnlyWhileMouseInside: 0..1;
-    mouseInside: 0..1;
-    bezelStyle2: 0..1;
-    imageScaling: 0..((1 shl 2)-1);
-    keyEquivalentModifierMask: 0..((1 shl 24)-1);
+          bezelStyle: 0..((1 shl 3)-1);
+          showsBorderOnlyWhileMouseInside: 0..1;
+          mouseInside: 0..1;
+          bezelStyle2: 0..1;
+          imageScaling: 0..((1 shl 2)-1);
+          keyEquivalentModifierMask: 0..((1 shl 24)-1);
 {$endif}
+         end;
+       );
   end;
 _BCFlags2 = __BCFlags2;
 __BCFlags2Ptr = ^__BCFlags2;

packages/cocoaint/src/appkit/NSCell.inc

@@ -122,10 +122,10 @@ type
 
 { Records }
 type
-  __CFlags = bitpacked record
+  __CFlags = record
     case byte of
     0: (_anonbitfield_NSCell0: cuint);
-    1: (
+    1: (data: bitpacked record
           state: 0..1;
           highlighted: 0..1;
           disabled: 0..1;
@@ -175,6 +175,7 @@ type
           branchImageDisabled: 0..1;
           drawingInRevealover: 0..1;
           needsHighlightedTextHint: 0..1;
+         end;
        );
   end;
 _CFlags = __CFlags;

packages/cocoaint/src/appkit/NSClipView.inc

@@ -48,10 +48,10 @@
     _oldDocFrame: NSRect;
     _cursor: NSCursor;
     _scrollAnimationHelper: id;
-    __cvFlags: bitpacked record
+    __cvFlags: record
       case byte of
        0: (_anonbitfield_NSClipView0: cuint);
-       1: (
+       1: (data: bitpacked record
         _isFlipped: 0..1;
         onlyUncovered: 0..1;
         reflectScroll: 0..1;
@@ -69,6 +69,7 @@
         documentViewAlignment: 0..((1 shl 4)-1);
         redrawnWhileScrolling: 0..1;
         RESERVED: 0..((1 shl 13)-1);
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSCollectionView.inc

@@ -58,14 +58,15 @@ const
   NSCollectionViewItem = objcclass external (NSViewController, NSCopyingProtocol)
   private
     _collectionView: NSCollectionView;
-    __cviFlags: bitpacked record
+    __cviFlags: record
       case byte of
        0: (_anonbitfield_NSCollectionView0: cuint);
-       1: (
+       1: (data: bitpacked record
         _isSelected: 0..1;
         suppressSelectionChangedNotification: 0..1;
         connectionsCopied: 0..1;
         reserved: 0..((1 shl 29)-1);
+       end;
       );
       end;
     _cachedArchive: NSData;
@@ -93,10 +94,10 @@ const
     _backgroundColors: NSArray;
     _displayedItems: NSMutableArray;
     _animationDuration: NSTimeInterval;
-    __cvFlags: bitpacked record
+    __cvFlags: record
       case byte of
        0: (_anonbitfield_NSCollectionView1: cuint);
-       1: (
+       1: (data: bitpacked record
         _isFirstResponder: 0..1;
         invalidateItemViews: 0..1;
         selectable: 0..1;
@@ -111,6 +112,7 @@ const
         animateForDrag: 0..1;
         unarchiving: 0..1;
         reserved: 0..((1 shl 19)-1);
+       end;
       );
       end;
     _delegate: id;
@@ -130,7 +132,7 @@ const
     _currentDropOperation: NSCollectionViewDropOperation;
     _dragTimer: NSTimer;
     _private: id;
-        _reserved: array[0..15] of Pointer;
+    _reserved: array[0..(16)-1] of Pointer;
     
   public
     procedure setDelegate(aDelegate: NSCollectionViewDelegateProtocol); message 'setDelegate:';

packages/cocoaint/src/appkit/NSColorList.inc

@@ -52,10 +52,10 @@ var
     _name: NSString;
     _printerType: NSString;
     _fileName: NSString;
-    __flags: bitpacked record
+    __flags: record
       case byte of
        0: (_anonbitfield_NSColorList2: cuint);
-       1: (
+       1: (data: bitpacked record
         colorsLoaded: 0..1;
         editable: 0..1;
         hasDeviceSpecificLists: 0..1;
@@ -68,6 +68,7 @@ var
         {$ifdef cpu64}
         _anonbitfield_NSColorList1: 0..((1 shl 32)-1);
         {$endif}
+       end;
       );
       end;
     _clAuxiliaryStorage: id;

packages/cocoaint/src/appkit/NSColorSpace.inc

@@ -60,10 +60,10 @@ type
   NSColorSpace = objcclass external (NSObject, NSCodingProtocol)
   private
     _profile: id;
-    __flags: bitpacked record
+    __flags: record
       case byte of
        0: (_anonbitfield_NSColorSpace2: cuint);
-       1: (
+       1: (data: bitpacked record
         colorSpaceID: 0..((1 shl 8)-1);
         storageType: 0..((1 shl 3)-1);
         replacedDuringUnarchiving: 0..1;
@@ -71,10 +71,11 @@ type
         {$ifdef cpu64}
         _anonbitfield_NSColorSpace1: 0..((1 shl 32)-1);
         {$endif}
+       end;
       );
       end;
     __cgColorSpace: Pointer;
-        _reserved: array[0..4] of Pointer;
+    _reserved: array[0..(5)-1] of Pointer;
     
   public
     function initWithICCProfileData(iccData: NSData): id; message 'initWithICCProfileData:';

packages/cocoaint/src/appkit/NSColorWell.inc

@@ -45,15 +45,16 @@
     _color: NSColor;
     _target: id;
     _action: SEL;
-    __cwFlags: bitpacked record
+    __cwFlags: record
       case byte of
        0: (_anonbitfield_NSColorWell0: cuint);
-       1: (
+       1: (data: bitpacked record
         _isActive: 0..1;
         _isBordered: 0..1;
         cantDraw: 0..1;
         isNotContinuous: 0..1;
         reservedColorWell: 0..((1 shl 28)-1);
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSComboBoxCell.inc

@@ -45,10 +45,10 @@
   private
     _delegate: id;
     _dataSource: id;
-    __cbcFlags: bitpacked record
+    __cbcFlags: record
       case byte of
        0: (_anonbitfield_NSComboBoxCell0: cuint);
-       1: (
+       1: (data: bitpacked record
         _usesDataSource: 0..1;
         _completes: 0..1;
         buttonBordered: 0..1;
@@ -58,6 +58,7 @@
         synchronizingSelection: 0..1;
         reserved: 0..((1 shl 9)-1);
         visibleItems: 0..((1 shl 16)-1);
+       end;
       );
       end;
     _buttonCell: NSButtonCell;
@@ -69,6 +70,42 @@
     _reserved: Pointer;
     
   public
+    function hasVerticalScroller: Boolean; message 'hasVerticalScroller';
+    procedure setHasVerticalScroller(flag: Boolean); message 'setHasVerticalScroller:';
+    function intercellSpacing: NSSize; message 'intercellSpacing';
+    procedure setIntercellSpacing(aSize: NSSize); message 'setIntercellSpacing:';
+    function itemHeight: CGFloat; message 'itemHeight';
+    procedure setItemHeight(itemHeight_: CGFloat); message 'setItemHeight:';
+    function numberOfVisibleItems: NSInteger; message 'numberOfVisibleItems';
+    procedure setNumberOfVisibleItems(visibleItems: NSInteger); message 'setNumberOfVisibleItems:';
+    procedure setButtonBordered(flag: Boolean); message 'setButtonBordered:';
+    function isButtonBordered: Boolean; message 'isButtonBordered';
+    procedure reloadData; message 'reloadData';
+    procedure noteNumberOfItemsChanged; message 'noteNumberOfItemsChanged';
+    procedure setUsesDataSource(flag: Boolean); message 'setUsesDataSource:';
+    function usesDataSource: Boolean; message 'usesDataSource';
+    procedure scrollItemAtIndexToTop(index: NSInteger); message 'scrollItemAtIndexToTop:';
+    procedure scrollItemAtIndexToVisible(index: NSInteger); message 'scrollItemAtIndexToVisible:';
+    procedure selectItemAtIndex(index: NSInteger); message 'selectItemAtIndex:';
+    procedure deselectItemAtIndex(index: NSInteger); message 'deselectItemAtIndex:';
+    function indexOfSelectedItem: NSInteger; message 'indexOfSelectedItem';
+    function numberOfItems: NSInteger; message 'numberOfItems';
+    function completes: Boolean; message 'completes';
+    procedure setCompletes(completes_: Boolean); message 'setCompletes:';
+    function completedString(string_: NSString): NSString; message 'completedString:';
+    function dataSource: NSComboBoxCellDataSourceProtocol; message 'dataSource';
+    procedure setDataSource(aSource: NSComboBoxCellDataSourceProtocol); message 'setDataSource:';
+    procedure addItemWithObjectValue(object_: id); message 'addItemWithObjectValue:';
+    procedure addItemsWithObjectValues(objects: NSArray); message 'addItemsWithObjectValues:';
+    procedure insertItemWithObjectValue_atIndex(object_: id; index: NSInteger); message 'insertItemWithObjectValue:atIndex:';
+    procedure removeItemWithObjectValue(object_: id); message 'removeItemWithObjectValue:';
+    procedure removeItemAtIndex(index: NSInteger); message 'removeItemAtIndex:';
+    procedure removeAllItems; message 'removeAllItems';
+    procedure selectItemWithObjectValue(object_: id); message 'selectItemWithObjectValue:';
+    function itemObjectValueAtIndex(index: NSInteger): id; message 'itemObjectValueAtIndex:';
+    function objectValueOfSelectedItem: id; message 'objectValueOfSelectedItem';
+    function indexOfItemWithObjectValue(object_: id): NSInteger; message 'indexOfItemWithObjectValue:';
+    function objectValues: NSArray; message 'objectValues';
   end;
 
 {$endif}

packages/cocoaint/src/appkit/NSControl.inc

@@ -51,10 +51,10 @@ var
   private
     _tag: NSInteger;
     _cell: id;
-    __conFlags: bitpacked record
+    __conFlags: record
       case byte of
        0: (_anonbitfield_NSControl0: cuint);
-       1: (
+       1: (data: bitpacked record
         enabled: 0..1;
         ignoreMultiClick: 0..1;
         _calcSize: 0..1;
@@ -62,6 +62,7 @@ var
         ibReserved: 0..1;
         updateCellFocus: 0..1;
         reserved: 0..((1 shl 26)-1);
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSController.inc

@@ -51,15 +51,16 @@
     _dependentKeyToModelKeyTable: NSMutableDictionary;
     _modelKeyToDependentKeyTable: NSMutableDictionary;
     _modelKeysToRefreshEachTime: NSMutableArray;
-    __bindingsControllerFlags: bitpacked record
+    __bindingsControllerFlags: record
       case byte of
        0: (_anonbitfield_NSController0: cuint);
-       1: (
+       1: (data: bitpacked record
         _alwaysPresentsApplicationModalAlerts: 0..1;
         _refreshesAllModelKeys: 0..1;
         _multipleObservedModelObjects: 0..1;
         _isEditing: 0..1;
         _reservedController: 0..((1 shl 28)-1);
+       end;
       );
       end;
     _reservedOther: NSMutableDictionary;

packages/cocoaint/src/appkit/NSCursor.inc

@@ -47,14 +47,15 @@ const
   NSCursor = objcclass external (NSObject, NSCodingProtocol)
   private
     _hotSpot: NSPoint;
-    __flags: bitpacked record
+    __flags: record
       case byte of
        0: (_anonbitfield_NSCursor1: cuint);
-       1: (
+       1: (data: bitpacked record
         onMouseExited: 0..1;
         onMouseEntered: 0..1;
         cursorType: 0..((1 shl 8)-1);
         _anonbitfield_NSCursor0: 0..((1 shl 22)-1);
+       end;
       );
       end;
     _image: id;

packages/cocoaint/src/appkit/NSDatePickerCell.inc

@@ -74,10 +74,10 @@ type
     _timeInterval: NSTimeInterval;
     _minDate: NSDate;
     _maxDate: NSDate;
-    __dcFlags: bitpacked record
+    __dcFlags: record
       case byte of
        0: (_anonbitfield_NSDatePickerCell0: cuint);
-       1: (
+       1: (data: bitpacked record
         elements: 0..((1 shl 16)-1);
         controlStyle: 0..((1 shl 3)-1);
         controlMode: 0..((1 shl 2)-1);
@@ -87,6 +87,7 @@ type
         digitsEntered: 0..((1 shl 2)-1);
         forcesLeadingZeroes: 0..1;
         wrapsDateComponentArithmetic: 0..1;
+       end;
       );
       end;
     _delegate: id;

packages/cocoaint/src/appkit/NSDictionaryController.inc

@@ -54,13 +54,14 @@
     _keyForLocalizedKeyDictionary: NSDictionary;
     _includedKeys: NSArray;
     _excludedKeys: NSArray;
-    __dictionaryControllerFlags: bitpacked record
+    __dictionaryControllerFlags: record
       case byte of
        0: (_anonbitfield_NSDictionaryController0: cuint);
-       1: (
+       1: (data: bitpacked record
         _deepCopiesValues: 0..1;
         _suppressBuildingDictionary: 0..1;
         _reservedDictionaryController: 0..((1 shl 30)-1);
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSDockTile.inc

@@ -53,16 +53,17 @@ const
     _frameView: NSView;
     _backstopView: NSView;
     _badgeLabel: NSString;
-    __dFlags: bitpacked record
+    __dFlags: record
       case byte of
        0: (_anonbitfield_NSDockTile0: cuint);
-       1: (
+       1: (data: bitpacked record
         showsAppBadge: 0..1;
         reserved: 0..((1 shl 31)-1);
+       end;
       );
       end;
     _dockTileSize: NSSize;
-        reserved: array[0..4] of id;
+    reserved: array[0..(5)-1] of id;
     
   public
     function size: NSSize; message 'size';

packages/cocoaint/src/appkit/NSDocument.inc

@@ -75,10 +75,10 @@ type
     _displayName: id;
     _privateData: id;
     _undoManager: NSUndoManager;
-    __docFlags: bitpacked record
+    __docFlags: record
       case byte of
        0: (_anonbitfield_NSDocument0: cuint);
-       1: (
+       1: (data: bitpacked record
         inClose: 0..1;
         _hasUndoManager: 0..1;
         isShowingPageLayout: 0..1;
@@ -89,6 +89,7 @@ type
         definitelyHasUnsavedChanges: 0..1;
         definitelyHasUnautosavedChanges: 0..1;
         RESERVED: 0..((1 shl 23)-1);
+       end;
       );
       end;
     _savePanelSaveType: NSString;

packages/cocoaint/src/appkit/NSEvent.inc

@@ -235,6 +235,9 @@ type
     _windowNumber: NSInteger;
     _window: NSWindow;
     _context: NSGraphicsContext;
+    _data: record
+      case byte of
+        1: (
     _mouse: record
         _eventNumber: cint;
         _clickCount: cint;
@@ -245,9 +248,11 @@ type
         _subtype: cint;
         _buttonNumber: cshort;
         reserved1: cshort;
-            reserved2: array[0..2] of cint;
+        reserved2: array[0..(3)-1] of cint;
         {$endif}
       end;
+           );
+        2: (
     _key: record
         keys: NSString;
         unmodKeys: NSString;
@@ -255,17 +260,21 @@ type
         _isARepeat: Boolean;
         {$ifdef cpu64}
         eventFlags: cint;
-            reserved: array[0..4] of cint;
+        reserved: array[0..(5)-1] of cint;
         {$endif}
       end;
+           );
+        3: (
     _tracking: record
         _eventNumber: cint;
         _trackingNumber: NSInteger;
         _userData: Pointer;
         {$ifdef cpu64}
-            reserved: array[0..5] of cint;
+        reserved: array[0..(6)-1] of cint;
         {$endif}
       end;
+           );
+        4: (
     _scrollWheel: record
         _deltaX: CGFloat;
         _deltaY: CGFloat;
@@ -273,17 +282,21 @@ type
         {$ifdef cpu64}
         _subtype: cshort;
         reserved1: cshort;
-            reserved2: array[0..5] of cint;
+        reserved2: array[0..(6)-1] of cint;
         {$endif}
       end;
+           );
+        5: (
     _axisGesture: record
         _deltaX: CGFloat;
         _deltaY: CGFloat;
         _deltaZ: CGFloat;
         {$ifdef cpu64}
-            reserved: array[0..6] of cint;
+        reserved: array[0..(7)-1] of cint;
         {$endif}
       end;
+           );
+        6: (
     _miscGesture: record
         _subtype: cshort;
         gestureEnded: Boolean;
@@ -291,23 +304,29 @@ type
         value: cint;
         percentage: single;
         {$ifdef cpu64}
-            reserved2: array[0..6] of cint;
+        reserved2: array[0..(7)-1] of cint;
         {$endif}
       end;
+          );
+       7: (
     _misc: record
         _subtype: cint;
         _data1: NSInteger;
         _data2: NSInteger;
         {$ifdef cpu64}
-            reserved: array[0..5] of cint;
+        reserved: array[0..(6)-1] of cint;
         {$endif}
       end;
+          );
     {$ifdef cpu64}
-        tabletPointData: array[0..13] of cint;
-        tabletProximityData: array[0..13] of cint;
+       8: (
+    tabletPointData: array[0..(14)-1] of cint;
+          );
+       9: (
+    tabletProximityData: array[0..(14)-1] of cint;
+          );
     {$endif}
-    __data: record
-      end;
+    end;
     _eventRef: Pointer;
     {$ifdef cpu64}
     reserved1: Pointer;

packages/cocoaint/src/appkit/NSFont.inc

@@ -107,16 +107,17 @@ var
     _name: NSString;
     _size: CGFloat;
     _retainCount: NSInteger;
-    __fFlags: bitpacked record
+    __fFlags: record
       case byte of
        0: (_anonbitfield_NSFont0: cuint);
-       1: (
+       1: (data: bitpacked record
         _isScreenFont: 0..1;
         _systemFontType: 0..((1 shl 8)-1);
         _reserved1: 0..((1 shl 4)-1);
         _matrixIsIdentity: 0..1;
         _renderingMode: 0..((1 shl 3)-1);
         _reserved2: 0..((1 shl 15)-1);
+       end;
       );
       end;
     _private: id;

packages/cocoaint/src/appkit/NSFontManager.inc

@@ -84,14 +84,15 @@ const
     _actionOrigin: id;
     _target: id;
     _selFont: NSFont;
-    __fmFlags: bitpacked record
+    __fmFlags: record
       case byte of
        0: (_anonbitfield_NSFontManager0: cuint);
-       1: (
+       1: (data: bitpacked record
         multipleFont: 0..1;
         disabled: 0..1;
         senderTagMode: 0..((1 shl 2)-1);
         _RESERVED: 0..((1 shl 12)-1);
+       end;
       );
       end;
     _fmReserved3: cushort;

packages/cocoaint/src/appkit/NSFontPanel.inc

@@ -90,10 +90,10 @@ const
     _fixedListButton: id;
     _sliderButton: id;
     _accessoryView: id;
-    __fpFlags: bitpacked record
+    __fpFlags: record
       case byte of
        0: (_anonbitfield_NSFontPanel0: cuint);
-       1: (
+       1: (data: bitpacked record
         setFontChange: 0..1;
         setFontAttributeChange: 0..1;
         _delRespFamily: 0..1;
@@ -106,6 +106,7 @@ const
         showEffects: 0..1;
         _uiMode: 0..((1 shl 8)-1);
         _reserved: 0..((1 shl 14)-1);
+       end;
       );
       end;
     _regularModeBox: id;
@@ -132,7 +133,7 @@ const
     _fontEffectsBox: id;
     _sizeStyle: cint;
     {$ifndef cpu64}
-        _fpUnused: array[0..71] of id;
+    _fpUnused: array[0..(72)-1] of id;
     {$endif}
     
   public

packages/cocoaint/src/appkit/NSImage.inc

@@ -131,10 +131,10 @@ var
   private
     _name: NSString;
     _size: NSSize;
-    __flags: bitpacked record
+    __flags: record
       case byte of
        0: (_anonbitfield_NSImage0: cuint);
-       1: (
+       1: (data: bitpacked record
         scalable: 0..1;
         dataRetained: 0..1;
         uniqueWindow: 0..1;
@@ -156,6 +156,7 @@ var
         _isTemplate: 0..1;
         failedToExpand: 0..1;
         reserved1: 0..((1 shl 9)-1);
+       end;
       );
       end;
     _reps: id; {garbage collector: volatile }

packages/cocoaint/src/appkit/NSImageCell.inc

@@ -70,15 +70,16 @@ type
   NSImageCell = objcclass external (NSCell, NSCopyingProtocol, NSCodingProtocol)
   private
     _controlView: id;
-    __icFlags: bitpacked record
+    __icFlags: record
       case byte of
        0: (_anonbitfield_NSImageCell0: cuint);
-       1: (
+       1: (data: bitpacked record
         _unused: 0..((1 shl 22)-1);
         _animates: 0..1;
         _align: 0..((1 shl 4)-1);
         _scale: 0..((1 shl 2)-1);
         _style: 0..((1 shl 3)-1);
+       end;
       );
       end;
     __animationState: Pointer;

packages/cocoaint/src/appkit/NSImageRep.inc

@@ -51,10 +51,10 @@ var
 { NSImageRep }
   NSImageRep = objcclass external (NSObject, NSCopyingProtocol, NSCodingProtocol)
   private
-    __repFlags: bitpacked record
+    __repFlags: record
       case byte of
        0: (_anonbitfield_NSImageRep0: cuint);
-       1: (
+       1: (data: bitpacked record
         _hasAlpha: 0..1;
         _isOpaque: 0..1;
         cacheParamsComputed: 0..1 deprecated;
@@ -64,6 +64,7 @@ var
         reserved: 0..1;
         _bitsPerSample: 0..((1 shl 8)-1);
         gsaved: 0..((1 shl 16)-1);
+       end;
       );
       end;
     _colorSpaceName: NSString;

packages/cocoaint/src/appkit/NSImageView.inc

@@ -42,10 +42,10 @@
 { NSImageView }
   NSImageView = objcclass external (NSControl)
   private
-    __ivFlags: bitpacked record
+    __ivFlags: record
       case byte of
        0: (_anonbitfield_NSImageView0: cuint);
-       1: (
+       1: (data: bitpacked record
         _unused: 0..((1 shl 26)-1);
         _rejectsMultiFileDrops: 0..1;
         _compatibleScalingAndAlignment: 0..1;
@@ -53,6 +53,7 @@
         _overridesDrawing: 0..1;
         _allowsCutCopyPaste: 0..1;
         _editable: 0..1;
+       end;
       );
       end;
     _target: id;

packages/cocoaint/src/appkit/NSLayoutManager.inc

@@ -88,10 +88,10 @@ type
     _extraLineFragmentContainer: NSTextContainer;
     _glyphHoles: NSSortedArray;
     _layoutHoles: NSSortedArray;
-    __lmFlags: bitpacked record
+    __lmFlags: record
       case byte of
        0: (_anonbitfield_NSLayoutManager0: cuint);
-       1: (
+       1: (data: bitpacked record
         containersAreFull: 0..1;
         glyphsMightDrawOutsideLines: 0..1;
         _backgroundLayoutEnabled: 0..1;
@@ -122,6 +122,7 @@ type
         flipsIfNeeded: 0..1;
         allowNonContig: 0..1;
         useNonContig: 0..1;
+       end;
       );
       end;
     _delegate: id;

packages/cocoaint/src/appkit/NSLevelIndicatorCell.inc

@@ -62,14 +62,15 @@ type
     _criticalValue: double;
     _numberOfTickMarks: cint;
     _numberOfMajorTickMarks: cint;
-    __liFlags: bitpacked record
+    __liFlags: record
       case byte of
        0: (_anonbitfield_NSLevelIndicatorCell0: cuint);
-       1: (
+       1: (data: bitpacked record
         indicatorStyle: 0..((1 shl 4)-1);
         _tickMarkPosition: 0..1;
         selectable: 0..1;
         reserved: 0..((1 shl 26)-1);
+       end;
       );
       end;
     _cellFrame: NSRect;

packages/cocoaint/src/appkit/NSMatrix.inc

@@ -32,67 +32,72 @@ type
 { Records }
 type
   __MFlags = record
+    case byte of
+    0: (_anonbitfield_NSMatrix0: cuint);
+    1: (data: bitpacked record
 {$ifdef fpc_big_endian}
-    highlightMode: 0..1;
-    radioMode: 0..1;
-    listMode: 0..1;
-    allowEmptySel: 0..1;
-    autoscroll: 0..1;
-    selectionByRect: 0..1;
-    drawsCellBackground: 0..1;
-    drawsBackground: 0..1;
-    autosizeCells: 0..1;
-    drawingAncestor: 0..1;
-    tabKeyTraversesCells: 0..1;
-    tabKeyTraversesCellsExplicitlySet: 0..1;
-    allowsIncrementalSearching: 0..1;
-    currentlySelectingCell: 0..1;
-    onlySetKeyCell: 0..1;
-    changingSelectionWithKeyboard: 0..1;
-    dontScroll: 0..1;
-    refusesFirstResponder: 0..1;
-    useSimpleTrackingMode: 0..1;
-    checkForSimpleTrackingMode: 0..1;
-    liveResizeImageCacheingEnabled: 0..1;
-    hasCachedSubclassIsSafeForLiveResize: 0..1;
-    subclassIsSafeForLiveResize: 0..1;
-    tmpAllowNonVisibleCellsToBecomeFirstResponder: 0..1;
-    needsRedrawBeforeFirstLiveResizeCache: 0..1;
-    browserOptimizationsEnabled: 0..1;
-    drawingContextMenuHighlight: 0..1;
-    drawingContextMenuHighlightOnAllSelectedRows: 0..1;
-    reservedMatrix: 0..((1 shl 4)-1);
+          highlightMode: 0..1;
+          radioMode: 0..1;
+          listMode: 0..1;
+          allowEmptySel: 0..1;
+          autoscroll: 0..1;
+          selectionByRect: 0..1;
+          drawsCellBackground: 0..1;
+          drawsBackground: 0..1;
+          autosizeCells: 0..1;
+          drawingAncestor: 0..1;
+          tabKeyTraversesCells: 0..1;
+          tabKeyTraversesCellsExplicitlySet: 0..1;
+          allowsIncrementalSearching: 0..1;
+          currentlySelectingCell: 0..1;
+          onlySetKeyCell: 0..1;
+          changingSelectionWithKeyboard: 0..1;
+          dontScroll: 0..1;
+          refusesFirstResponder: 0..1;
+          useSimpleTrackingMode: 0..1;
+          checkForSimpleTrackingMode: 0..1;
+          liveResizeImageCacheingEnabled: 0..1;
+          hasCachedSubclassIsSafeForLiveResize: 0..1;
+          subclassIsSafeForLiveResize: 0..1;
+          tmpAllowNonVisibleCellsToBecomeFirstResponder: 0..1;
+          needsRedrawBeforeFirstLiveResizeCache: 0..1;
+          browserOptimizationsEnabled: 0..1;
+          drawingContextMenuHighlight: 0..1;
+          drawingContextMenuHighlightOnAllSelectedRows: 0..1;
+          reservedMatrix: 0..((1 shl 4)-1);
 {$else}
-    reservedMatrix: 0..((1 shl 4)-1);
-    drawingContextMenuHighlightOnAllSelectedRows: 0..1;
-    drawingContextMenuHighlight: 0..1;
-    browserOptimizationsEnabled: 0..1;
-    needsRedrawBeforeFirstLiveResizeCache: 0..1;
-    tmpAllowNonVisibleCellsToBecomeFirstResponder: 0..1;
-    subclassIsSafeForLiveResize: 0..1;
-    hasCachedSubclassIsSafeForLiveResize: 0..1;
-    liveResizeImageCacheingEnabled: 0..1;
-    checkForSimpleTrackingMode: 0..1;
-    useSimpleTrackingMode: 0..1;
-    refusesFirstResponder: 0..1;
-    dontScroll: 0..1;
-    changingSelectionWithKeyboard: 0..1;
-    onlySetKeyCell: 0..1;
-    currentlySelectingCell: 0..1;
-    allowsIncrementalSearching: 0..1;
-    tabKeyTraversesCellsExplicitlySet: 0..1;
-    tabKeyTraversesCells: 0..1;
-    drawingAncestor: 0..1;
-    autosizeCells: 0..1;
-    drawsBackground: 0..1;
-    drawsCellBackground: 0..1;
-    selectionByRect: 0..1;
-    autoscroll: 0..1;
-    allowEmptySel: 0..1;
-    listMode: 0..1;
-    radioMode: 0..1;
-    highlightMode: 0..1;
+          reservedMatrix: 0..((1 shl 4)-1);
+          drawingContextMenuHighlightOnAllSelectedRows: 0..1;
+          drawingContextMenuHighlight: 0..1;
+          browserOptimizationsEnabled: 0..1;
+          needsRedrawBeforeFirstLiveResizeCache: 0..1;
+          tmpAllowNonVisibleCellsToBecomeFirstResponder: 0..1;
+          subclassIsSafeForLiveResize: 0..1;
+          hasCachedSubclassIsSafeForLiveResize: 0..1;
+          liveResizeImageCacheingEnabled: 0..1;
+          checkForSimpleTrackingMode: 0..1;
+          useSimpleTrackingMode: 0..1;
+          refusesFirstResponder: 0..1;
+          dontScroll: 0..1;
+          changingSelectionWithKeyboard: 0..1;
+          onlySetKeyCell: 0..1;
+          currentlySelectingCell: 0..1;
+          allowsIncrementalSearching: 0..1;
+          tabKeyTraversesCellsExplicitlySet: 0..1;
+          tabKeyTraversesCells: 0..1;
+          drawingAncestor: 0..1;
+          autosizeCells: 0..1;
+          drawsBackground: 0..1;
+          drawsCellBackground: 0..1;
+          selectionByRect: 0..1;
+          autoscroll: 0..1;
+          allowEmptySel: 0..1;
+          listMode: 0..1;
+          radioMode: 0..1;
+          highlightMode: 0..1;
 {$endif}
+         end;
+       );
   end;
 _MFlags = __MFlags;
 __MFlagsPtr = ^__MFlags;

packages/cocoaint/src/appkit/NSMenu.inc

@@ -72,10 +72,10 @@ var
     _title: NSString;
     _itemArray: id;
     _extra: id;
-    __mFlags: bitpacked record
+    __mFlags: record
       case byte of
        0: (_anonbitfield_NSMenu0: cuint);
-       1: (
+       1: (data: bitpacked record
         noAutoenable: 0..1;
         inMain: 0..1;
         internalPerformAction: 0..1;
@@ -92,6 +92,7 @@ var
         invertedCMPluginTypes: 0..((1 shl 2)-1);
         allowsDifferentSelection: 0..1;
         RESERVED: 0..((1 shl 15)-1);
+       end;
       );
       end;
     _name: NSString;

packages/cocoaint/src/appkit/NSMenuItem.inc

@@ -56,10 +56,10 @@
     _action: SEL;
     _tag: NSInteger;
     _extraData: id;
-    __miFlags: bitpacked record
+    __miFlags: record
       case byte of
        0: (_anonbitfield_NSMenuItem0: cuint);
-       1: (
+       1: (data: bitpacked record
         disabled: 0..1;
         isSeparator: 0..1;
         hidden: 0..1;
@@ -75,6 +75,7 @@
         hiddenActiveKE: 0..1;
         noRepeatKEs: 0..1;
         RESERVED: 0..1;
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSMenuItemCell.inc

@@ -48,16 +48,17 @@
     _titleSize: NSSize;
     _keyEquivalentSize: NSSize;
     _size: NSSize;
-    __micFlags: bitpacked record
+    __micFlags: record
       case byte of
        0: (_anonbitfield_NSMenuItemCell0: cuint);
-       1: (
+       1: (data: bitpacked record
         _needsSizing: 0..1;
         reserved: 0..1;
         _needsDisplay: 0..1;
         keyEquivGlyphWidth: 0..((1 shl 16)-1);
         uniqueAgainstMain: 0..1;
         _RESERVED: 0..((1 shl 12)-1);
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSMenuView.inc

@@ -59,10 +59,10 @@
     _horizontalEdgePad: CGFloat;
     trackingState: Pointer;
     _scrollingView: id;
-    __mvFlags: bitpacked record
+    __mvFlags: record
       case byte of
        0: (_anonbitfield_NSMenuView0: cuint);
-       1: (
+       1: (data: bitpacked record
         _needsSizing: 0..1;
         releasingWindow: 0..1;
         _isHorizontal: 0..1;
@@ -76,6 +76,7 @@
         savedHODState: 0..1;
         drawCenter: 0..1;
         RESERVED: 0..((1 shl 5)-1);
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSMovie.inc

@@ -44,12 +44,13 @@
   private
     _movie: Pointer;
     _url: NSURL;
-    __movieFlags: bitpacked record
+    __movieFlags: record
       case byte of
        0: (_anonbitfield_NSMovie0: cint);
-       1: (
+       1: (data: bitpacked record
         _dispose: 0..1;
         reserved: 0..((1 shl 31)-1);
+       end;
       );
       end;
     _reserved1: clong;

packages/cocoaint/src/appkit/NSMovieView.inc

@@ -25,16 +25,17 @@ type
 
 { Records }
 type
-  __MVFlags = bitpacked record
+  __MVFlags = record
     case byte of
     0: (_anonbitfield_NSMovieView0: cuint);
-    1: (
+    1: (data: bitpacked record
           editable: 0..1;
           loopMode: 0..((1 shl 3)-1);
           playsEveryFrame: 0..1;
           playsSelectionOnly: 0..1;
           controllerVisible: 0..1;
           reserved: 0..((1 shl 25)-1);
+         end;
        );
   end;
 _MVFlags = __MVFlags;

packages/cocoaint/src/appkit/NSNib.inc

@@ -51,12 +51,13 @@ var
     _images: NSArray;
     _sounds: NSArray;
     _bundle: NSBundle;
-    __flags: bitpacked record
+    __flags: record
       case byte of
        0: (_anonbitfield_NSNib0: cuint);
-       1: (
+       1: (data: bitpacked record
         _isKeyed: 0..1;
         _reserved: 0..((1 shl 31)-1);
+       end;
       );
       end;
     _path: NSString;

packages/cocoaint/src/appkit/NSObjectController.inc

@@ -44,10 +44,10 @@
   private
     _reserved3: Pointer;
     _managedProxy: id;
-    __objectControllerFlags: bitpacked record
+    __objectControllerFlags: record
       case byte of
        0: (_anonbitfield_NSObjectController0: cuint);
-       1: (
+       1: (data: bitpacked record
         _editable: 0..1;
         _automaticallyPreparesContent: 0..1;
         _hasLoadedData: 0..1;
@@ -57,6 +57,7 @@
         _hasFetched: 0..1;
         _batches: 0..1;
         _reservedObjectController: 0..((1 shl 24)-1);
+       end;
       );
       end;
     _objectClassName: NSString;

packages/cocoaint/src/appkit/NSOpenPanel.inc

@@ -42,7 +42,7 @@
 { NSOpenPanel }
   NSOpenPanel = objcclass external (NSSavePanel)
   private
-        _reservedOpenPanel: array[0..3] of char;
+    _reservedOpenPanel: array[0..(4)-1] of char;
     _privateOpenPanel: Pointer;
     
   public

packages/cocoaint/src/appkit/NSOutlineView.inc

@@ -19,69 +19,74 @@ const
 { Records }
 type
   __OvFlags = record
+    case byte of
+    0: (_anonbitfield_NSOutlineView0: cuint);
+    1: (data: bitpacked record
 {$ifdef fpc_big_endian}
-    delegateWillDisplayCell: 0..1;
-    delegateShouldEditTableColumn: 0..1;
-    delegateShouldSelectItem: 0..1;
-    delegateShouldSelectTableColumn: 0..1;
-    delegateSelectionShouldChangeInOutlineView: 0..1;
-    delegateShouldCollapseItem: 0..1;
-    delegateShouldExpandItem: 0..1;
-    autoresizesOutlineColumn: 0..1;
-    autoSaveExpandItems: 0..1;
-    enableExpandNotifications: 0..1;
-    delegateWillDisplayOutlineCell: 0..1;
-    removeChildInProgress: 0..1;
-    selectionAdjustmentDisabled: 0..1;
-    autoExpandFlashState: 0..1;
-    _unused: 0..1;
-    delegateHeightOfRowByItem: 0..1;
-    delayRowEntryFreeDisabled: 0..1;
-    numberOfRowsDataExpandEntered: 0..1;
-    validDataSourceMethods: 0..1;
-    reloadingData: 0..1;
-    dataSourceDraggingEndedAt: 0..1;
-    dataSourceDraggedImageMovedTo: 0..1;
-    delegateShouldShowOutlineCellForItem: 0..1;
-    delegateAutoExpandItem: 0..1;
-    delegateAutoCollapseItem: 0..1;
-    delegateShouldAutoExpandItem: 0..1;
-    flashingEntireRow: 0..1;
-    flashingOutlineCell: 0..1;
-    dontRedisplayOnFrameChange: 0..1;
-    __reserved: 0..((1 shl 3)-1);
+          delegateWillDisplayCell: 0..1;
+          delegateShouldEditTableColumn: 0..1;
+          delegateShouldSelectItem: 0..1;
+          delegateShouldSelectTableColumn: 0..1;
+          delegateSelectionShouldChangeInOutlineView: 0..1;
+          delegateShouldCollapseItem: 0..1;
+          delegateShouldExpandItem: 0..1;
+          autoresizesOutlineColumn: 0..1;
+          autoSaveExpandItems: 0..1;
+          enableExpandNotifications: 0..1;
+          delegateWillDisplayOutlineCell: 0..1;
+          removeChildInProgress: 0..1;
+          selectionAdjustmentDisabled: 0..1;
+          autoExpandFlashState: 0..1;
+          _unused: 0..1;
+          delegateHeightOfRowByItem: 0..1;
+          delayRowEntryFreeDisabled: 0..1;
+          numberOfRowsDataExpandEntered: 0..1;
+          validDataSourceMethods: 0..1;
+          reloadingData: 0..1;
+          dataSourceDraggingEndedAt: 0..1;
+          dataSourceDraggedImageMovedTo: 0..1;
+          delegateShouldShowOutlineCellForItem: 0..1;
+          delegateAutoExpandItem: 0..1;
+          delegateAutoCollapseItem: 0..1;
+          delegateShouldAutoExpandItem: 0..1;
+          flashingEntireRow: 0..1;
+          flashingOutlineCell: 0..1;
+          dontRedisplayOnFrameChange: 0..1;
+          __reserved: 0..((1 shl 3)-1);
 {$else}
-    __reserved: 0..((1 shl 3)-1);
-    dontRedisplayOnFrameChange: 0..1;
-    flashingOutlineCell: 0..1;
-    flashingEntireRow: 0..1;
-    delegateShouldAutoExpandItem: 0..1;
-    delegateAutoCollapseItem: 0..1;
-    delegateAutoExpandItem: 0..1;
-    delegateShouldShowOutlineCellForItem: 0..1;
-    dataSourceDraggedImageMovedTo: 0..1;
-    dataSourceDraggingEndedAt: 0..1;
-    reloadingData: 0..1;
-    validDataSourceMethods: 0..1;
-    numberOfRowsDataExpandEntered: 0..1;
-    delayRowEntryFreeDisabled: 0..1;
-    delegateHeightOfRowByItem: 0..1;
-    _unused: 0..1;
-    autoExpandFlashState: 0..1;
-    selectionAdjustmentDisabled: 0..1;
-    removeChildInProgress: 0..1;
-    delegateWillDisplayOutlineCell: 0..1;
-    enableExpandNotifications: 0..1;
-    autoSaveExpandItems: 0..1;
-    autoresizesOutlineColumn: 0..1;
-    delegateShouldExpandItem: 0..1;
-    delegateShouldCollapseItem: 0..1;
-    delegateSelectionShouldChangeInOutlineView: 0..1;
-    delegateShouldSelectTableColumn: 0..1;
-    delegateShouldSelectItem: 0..1;
-    delegateShouldEditTableColumn: 0..1;
-    delegateWillDisplayCell: 0..1;
+          __reserved: 0..((1 shl 3)-1);
+          dontRedisplayOnFrameChange: 0..1;
+          flashingOutlineCell: 0..1;
+          flashingEntireRow: 0..1;
+          delegateShouldAutoExpandItem: 0..1;
+          delegateAutoCollapseItem: 0..1;
+          delegateAutoExpandItem: 0..1;
+          delegateShouldShowOutlineCellForItem: 0..1;
+          dataSourceDraggedImageMovedTo: 0..1;
+          dataSourceDraggingEndedAt: 0..1;
+          reloadingData: 0..1;
+          validDataSourceMethods: 0..1;
+          numberOfRowsDataExpandEntered: 0..1;
+          delayRowEntryFreeDisabled: 0..1;
+          delegateHeightOfRowByItem: 0..1;
+          _unused: 0..1;
+          autoExpandFlashState: 0..1;
+          selectionAdjustmentDisabled: 0..1;
+          removeChildInProgress: 0..1;
+          delegateWillDisplayOutlineCell: 0..1;
+          enableExpandNotifications: 0..1;
+          autoSaveExpandItems: 0..1;
+          autoresizesOutlineColumn: 0..1;
+          delegateShouldExpandItem: 0..1;
+          delegateShouldCollapseItem: 0..1;
+          delegateSelectionShouldChangeInOutlineView: 0..1;
+          delegateShouldSelectTableColumn: 0..1;
+          delegateShouldSelectItem: 0..1;
+          delegateShouldEditTableColumn: 0..1;
+          delegateWillDisplayCell: 0..1;
 {$endif}
+         end;
+       );
   end;
 _OVFlags = __OvFlags;
 __OvFlagsPtr = ^__OvFlags;

packages/cocoaint/src/appkit/NSPageLayout.inc

@@ -50,9 +50,9 @@
     _presentedPrintInfo: NSPrintInfo;
     _windowController: NSWindowController;
     {$ifdef cpu64}
-        _reserved: array[0..3] of id;
+    _reserved: array[0..(4)-1] of id;
     {$else}
-        _compatibilityPadding: array[0..155] of char;
+    _compatibilityPadding: array[0..(156)-1] of char;
     {$endif}
     
   public

packages/cocoaint/src/appkit/NSParagraphStyle.inc

@@ -75,16 +75,17 @@ var
 { NSTextTab }
   NSTextTab = objcclass external (NSObject, NSCopyingProtocol, NSCodingProtocol)
   private
-    __flags: bitpacked record
+    __flags: record
       case byte of
        0: (_anonbitfield_NSParagraphStyle1: NSTextAlignment);
-       1: (
+       1: (data: bitpacked record
         _alignment: 0..((1 shl 4)-1);
         refCount: 0..((1 shl 24)-1);
         unused: 0..((1 shl 4)-1);
         {$ifdef cpu64}
         _anonbitfield_NSParagraphStyle0: 0..((1 shl 32)-1);
         {$endif}
+       end;
       );
       end;
     _location: CGFloat;
@@ -115,10 +116,10 @@ var
     _minimumLineHeight: CGFloat;
     _maximumLineHeight: CGFloat;
     _tabStops: NSArray;
-    __flags: bitpacked record
+    __flags: record
       case byte of
        0: (_anonbitfield_NSParagraphStyle3: NSTextAlignment);
-       1: (
+       1: (data: bitpacked record
         _alignment: 0..((1 shl 4)-1);
         _lineBreakMode: 0..((1 shl 4)-1);
         tabStopsIsMutable: 0..1;
@@ -129,6 +130,7 @@ var
         {$ifdef cpu64}
         _anonbitfield_NSParagraphStyle2: 0..((1 shl 32)-1);
         {$endif}
+       end;
       );
       end;
     _defaultTabInterval: CGFloat;

packages/cocoaint/src/appkit/NSPasteboard.inc

@@ -119,7 +119,7 @@ var
     _promiseTypeNamesByIdentifier: NSMutableDictionary;
     _support: id;
     _pasteboardItems: id;
-        _reserved: array[0..2] of Pointer;
+    _reserved: array[0..(3)-1] of Pointer;
     
   public
     class function generalPasteboard: NSPasteboard; message 'generalPasteboard';

packages/cocoaint/src/appkit/NSPathCell.inc

@@ -66,11 +66,12 @@ type
     _allowedTypes: NSArray;
     _doubleAction: SEL;
     _delegate: id;
-    __piFlags: bitpacked record
+    __piFlags: record
       case byte of
        0: (_anonbitfield_NSPathCell0: cuint);
-       1: (
+       1: (data: bitpacked record
         reserved: 0..((1 shl 32)-1);
+       end;
       );
       end;
     _pathStyle: NSPathStyle;

packages/cocoaint/src/appkit/NSPathComponentCell.inc

@@ -47,16 +47,17 @@
     _resizedWidth: CGFloat;
     _currentWidth: CGFloat;
     _url: NSURL;
-    __flags: bitpacked record
+    __flags: record
       case byte of
        0: (_anonbitfield_NSPathComponentCell0: cuint);
-       1: (
+       1: (data: bitpacked record
         shouldDrawArrow: 0..1;
         drawsAsNavigationBar: 0..1;
         isFirstItem: 0..1;
         isLastItem: 0..1;
         isDropTarget: 0..1;
         reserved: 0..((1 shl 27)-1);
+       end;
       );
       end;
     _aux: id;

packages/cocoaint/src/appkit/NSPopUpButton.inc

@@ -46,12 +46,13 @@ var
 { NSPopUpButton }
   NSPopUpButton = objcclass external (NSButton)
   private
-    __pbFlags: bitpacked record
+    __pbFlags: record
       case byte of
        0: (_anonbitfield_NSPopUpButton0: cuint);
-       1: (
+       1: (data: bitpacked record
         needsPullsDownFromTemplate: 0..1;
         RESERVED: 0..((1 shl 31)-1);
+       end;
       );
       end;
     {$ifdef cpu64}

packages/cocoaint/src/appkit/NSPopUpButtonCell.inc

@@ -60,10 +60,10 @@ var
   private
     _menu: NSMenu;
     _selectedIndex: cint;
-    __pbcFlags: bitpacked record
+    __pbcFlags: record
       case byte of
        0: (_anonbitfield_NSPopUpButtonCell0: cuint);
-       1: (
+       1: (data: bitpacked record
         _pullsDown: 0..1;
         _preferredEdge: 0..((1 shl 3)-1);
         menuIsAttached: 0..1;
@@ -75,6 +75,7 @@ var
         drawing: 0..1;
         menuShouldBeUniquedAgainstMain: 0..1;
         RESERVED: 0..((1 shl 19)-1);
+       end;
       );
       end;
     {$ifdef cpu64}

packages/cocoaint/src/appkit/NSPredicateEditor.inc

@@ -47,15 +47,16 @@
     _rootHeaderTrees: NSArray;
     _predicateTarget: id;
     _predicateAction: SEL;
-    __peFlags: bitpacked record
+    __peFlags: record
       case byte of
        0: (_anonbitfield_NSPredicateEditor0: cuint);
-       1: (
+       1: (data: bitpacked record
         suppressAction: 0..((1 shl 4)-1);
         reserved: 0..((1 shl 28)-1);
+       end;
       );
       end;
-        _predicateEditorReserved: array[0..2] of id;
+    _predicateEditorReserved: array[0..(3)-1] of id;
     
   public
     procedure setRowTemplates(rowTemplates_: NSArray); message 'setRowTemplates:';

packages/cocoaint/src/appkit/NSPredicateEditorRowTemplate.inc

@@ -48,13 +48,14 @@
     _leftAttributeType: NSUInteger;
     _rightAttributeType: NSUInteger;
     _views: NSArray;
-    __ptFlags: bitpacked record
+    __ptFlags: record
       case byte of
        0: (_anonbitfield_NSPredicateEditorRowTemplate0: cuint);
-       1: (
+       1: (data: bitpacked record
         leftIsWildcard: 0..1;
         rightIsWildcard: 0..1;
         reserved: 0..((1 shl 30)-1);
+       end;
       );
       end;
     _patternReserved: id;

packages/cocoaint/src/appkit/NSPrintPanel.inc

@@ -82,9 +82,9 @@ var
     _presentedPrintInfo: NSPrintInfo;
     _windowController: NSWindowController;
     {$ifdef cpu64}
-        _reserved: array[0..1] of id;
+    _reserved: array[0..(2)-1] of id;
     {$else}
-        _compatibilityPadding: array[0..191] of char;
+    _compatibilityPadding: array[0..(192)-1] of char;
     {$endif}
     
   public

packages/cocoaint/src/appkit/NSPrinter.inc

@@ -61,9 +61,9 @@ type
     _ppdNodes: Pointer;
     _ppdPriv: Pointer;
     {$ifdef cpu64}
-        _reserved: array[0..2] of id;
+    _reserved: array[0..(3)-1] of id;
     {$else}
-        _compatibilityPadding: array[0..19] of char;
+    _compatibilityPadding: array[0..(20)-1] of char;
     {$endif}
     
   public

packages/cocoaint/src/appkit/NSProgressIndicator.inc

@@ -77,10 +77,10 @@ const
     _roundColor: id;
     _reserved: id;
      {garbage collector: volatile }
-    __progressIndicatorFlags: bitpacked record
+    __progressIndicatorFlags: record
       case byte of
        0: (_anonbitfield_NSProgressIndicator0: cuint);
-       1: (
+       1: (data: bitpacked record
         isSpinning: 0..1;
         isVector: 0..1;
         isLocked: 0..1;
@@ -96,6 +96,7 @@ const
         _isHeartBeatInstalled: 0..1;
         _lastFrame: 0..((1 shl 8)-1);
         RESERVED: 0..((1 shl 8)-1);
+       end;
       );
       end;
     _NSProgressIndicatorReserved1: id;

packages/cocoaint/src/appkit/NSRuleEditor.inc

@@ -90,10 +90,10 @@ var
     _headerLocalizer: id;
     _predicate: NSPredicate;
     _nestingMode: NSInteger;
-    __ruleEditorFlags: bitpacked record
+    __ruleEditorFlags: record
       case byte of
        0: (_anonbitfield_NSRuleEditor0: cuint);
-       1: (
+       1: (data: bitpacked record
         elideUpdating: 0..1;
         lastAlternateKeyValue: 0..1;
         extendedDelegateCalls: 0..1;
@@ -107,6 +107,7 @@ var
         allowsEmptyCompoundRows: 0..1;
         dropChangedRowCount: 0..1;
         reserved: 0..((1 shl 20)-1);
+       end;
       );
       end;
     _typeKeyPath: NSString;

packages/cocoaint/src/appkit/NSRulerMarker.inc

@@ -46,15 +46,16 @@
     _location: CGFloat;
     _image: NSImage;
     _imageOrigin: NSPoint;
-    __rFlags: bitpacked record
+    __rFlags: record
       case byte of
        0: (_anonbitfield_NSRulerMarker0: cuint);
-       1: (
+       1: (data: bitpacked record
         movable: 0..1;
         removable: 0..1;
         dragging: 0..1;
         pinned: 0..1;
         _reserved: 0..((1 shl 28)-1);
+       end;
       );
       end;
     _representedObject: id;

packages/cocoaint/src/appkit/NSRunningApplication.inc

@@ -76,10 +76,10 @@ type
     _activeSeed: cuint;
     _staleSeed: cuint;
     _obsMask: culonglong;
-    __aflags: bitpacked record
+    __aflags: record
       case byte of
        0: (_anonbitfield_NSRunningApplication0: cuint);
-       1: (
+       1: (data: bitpacked record
         fetchedDynamic: 0..1;
         deadToUs: 0..1;
         terminated: 0..1;
@@ -89,6 +89,7 @@ type
         arch: 0..((1 shl 3)-1);
         activationPolicy: 0..((1 shl 3)-1);
         reserved1: 0..((1 shl 20)-1);
+       end;
       );
       end;
     _appReserved: id;

packages/cocoaint/src/appkit/NSSavePanel.inc

@@ -19,10 +19,10 @@ const
 
 { Records }
 type
-  __SPFlags = bitpacked record
+  __SPFlags = record
     case byte of
     0: (_anonbitfield_NSSavePanel0: cuint);
-    1: (
+    1: (data: bitpacked record
           saveMode: 0..1;
           isExpanded: 0..1;
           allowsOtherFileTypes: 0..1;
@@ -38,6 +38,7 @@ type
           movingAccessoryView: 0..1;
           userAccessoryViewFrameChange: 0..1;
           reserved: 0..((1 shl 18)-1);
+         end;
        );
   end;
 _SPFlags = __SPFlags;
@@ -102,7 +103,7 @@ __SPFlagsPtr = ^__SPFlags;
     _newFolderController: id;
     _spFlags: _SPFlags;
     _spAuxiliaryStorage: NSSavePanelAuxiliary;
-        _reserved: array[0..4] of char;
+    _reserved: array[0..(5)-1] of char;
     _openProgressIndicator: NSProgressIndicator;
     
   public

packages/cocoaint/src/appkit/NSScrollView.inc

@@ -14,45 +14,50 @@
 { Records }
 type
   __SFlags = record
+    case byte of
+    0: (_anonbitfield_NSScrollView0: cuint);
+    1: (data: bitpacked record
 {$ifdef fpc_big_endian}
-    vScrollerRequired: 0..1;
-    hScrollerRequired: 0..1;
-    vScrollerStatus: 0..1;
-    hScrollerStatus: 0..1;
-    noDynamicScrolling: 0..1;
-    borderType: 0..((1 shl 2)-1);
-    oldRulerInstalled: 0..1;
-    showRulers: 0..1;
-    hasHorizontalRuler: 0..1;
-    hasVerticalRuler: 0..1;
-    needsTile: 0..1;
-    doesNotDrawBackground: 0..1;
-    skipRemoveSuperviewCheck: 0..1;
-    focusRingNeedsRedisplay: 0..1;
-    hasCustomLineBorderColor: 0..1;
-    autohidesScrollers: 0..1;
-    autoforwardsScrollWheelEvents: 0..1;
-    RESERVED: 0..((1 shl 14)-1);
+          vScrollerRequired: 0..1;
+          hScrollerRequired: 0..1;
+          vScrollerStatus: 0..1;
+          hScrollerStatus: 0..1;
+          noDynamicScrolling: 0..1;
+          borderType: 0..((1 shl 2)-1);
+          oldRulerInstalled: 0..1;
+          showRulers: 0..1;
+          hasHorizontalRuler: 0..1;
+          hasVerticalRuler: 0..1;
+          needsTile: 0..1;
+          doesNotDrawBackground: 0..1;
+          skipRemoveSuperviewCheck: 0..1;
+          focusRingNeedsRedisplay: 0..1;
+          hasCustomLineBorderColor: 0..1;
+          autohidesScrollers: 0..1;
+          autoforwardsScrollWheelEvents: 0..1;
+          RESERVED: 0..((1 shl 14)-1);
 {$else}
-    RESERVED: 0..((1 shl 14)-1);
-    autoforwardsScrollWheelEvents: 0..1;
-    autohidesScrollers: 0..1;
-    hasCustomLineBorderColor: 0..1;
-    focusRingNeedsRedisplay: 0..1;
-    skipRemoveSuperviewCheck: 0..1;
-    doesNotDrawBackground: 0..1;
-    needsTile: 0..1;
-    hasVerticalRuler: 0..1;
-    hasHorizontalRuler: 0..1;
-    showRulers: 0..1;
-    oldRulerInstalled: 0..1;
-    borderType: 0..((1 shl 2)-1);
-    noDynamicScrolling: 0..1;
-    hScrollerStatus: 0..1;
-    vScrollerStatus: 0..1;
-    hScrollerRequired: 0..1;
-    vScrollerRequired: 0..1;
+          RESERVED: 0..((1 shl 14)-1);
+          autoforwardsScrollWheelEvents: 0..1;
+          autohidesScrollers: 0..1;
+          hasCustomLineBorderColor: 0..1;
+          focusRingNeedsRedisplay: 0..1;
+          skipRemoveSuperviewCheck: 0..1;
+          doesNotDrawBackground: 0..1;
+          needsTile: 0..1;
+          hasVerticalRuler: 0..1;
+          hasHorizontalRuler: 0..1;
+          showRulers: 0..1;
+          oldRulerInstalled: 0..1;
+          borderType: 0..((1 shl 2)-1);
+          noDynamicScrolling: 0..1;
+          hScrollerStatus: 0..1;
+          vScrollerStatus: 0..1;
+          hScrollerRequired: 0..1;
+          vScrollerRequired: 0..1;
 {$endif}
+         end;
+       );
   end;
 _SFlags = __SFlags;
 __SFlagsPtr = ^__SFlags;

packages/cocoaint/src/appkit/NSScroller.inc

@@ -82,24 +82,25 @@ type
     _curValue: CGFloat;
     _percent: CGFloat;
     _knobSize: CGFloat;
-    __sFlags2: bitpacked record
+    __sFlags2: record
       case byte of
        0: (_anonbitfield_NSScroller0: cuint);
-       1: (
+       1: (data: bitpacked record
         _hitPart: 0..((1 shl 4)-1);
         _controlSize: 0..((1 shl 2)-1);
         inMaxEnd: 0..1;
         setFloatValueOverridden: 0..1;
         setFloatValueKnobProportionOverridden: 0..1;
         reserved: 0..((1 shl 23)-1);
+       end;
       );
       end;
     _target: id;
     _action: SEL;
-    _sFlags: bitpacked record
+    _sFlags: record
       case byte of
        0: (_anonbitfield_NSScroller1: cuint);
-       1: (
+       1: (data: bitpacked record
         isHoriz: 0..1;
         arrowsLoc: 0..((1 shl 2)-1);
         partsUsable: 0..((1 shl 2)-1);
@@ -113,6 +114,7 @@ type
         reserved: 0..1;
         _controlTint: 0..((1 shl 3)-1);
         repeatCount: 0..((1 shl 16)-1);
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSSearchFieldCell.inc

@@ -49,10 +49,10 @@ const
 { NSSearchFieldCell }
   NSSearchFieldCell = objcclass external (NSTextFieldCell)
   private
-    __sfFlags: bitpacked record
+    __sfFlags: record
       case byte of
        0: (_anonbitfield_NSSearchFieldCell0: cuint);
-       1: (
+       1: (data: bitpacked record
         _sendsWholeSearchString: 0..1;
         _maximumRecents: 0..((1 shl 8)-1);
         cancelVisible: 0..1;
@@ -63,6 +63,7 @@ const
         sendsImmediately: 0..1;
         
         reserved: 0..((1 shl 16)-1);
+       end;
       );
       end;
     _searchButtonCell: NSButtonCell;

packages/cocoaint/src/appkit/NSShadow.inc

@@ -46,7 +46,7 @@
     _shadowOffset: NSSize;
     _shadowBlurRadius: CGFloat;
     _shadowColor: NSColor;
-        _reservedFloat: array[0..2] of CGFloat;
+    _reservedFloat: array[0..(3)-1] of CGFloat;
     _reserved: Pointer;
     
   public

packages/cocoaint/src/appkit/NSSliderCell.inc

@@ -61,17 +61,17 @@ type
 { NSSliderCell }
   NSSliderCell = objcclass external (NSActionCell)
   private
-        _reserved: array[0..2] of cint;
+    _reserved: array[0..(3)-1] of cint;
     _numberOfTickMarks: cint;
     _altIncValue: double;
     _value: double;
     _maxValue: double;
     _minValue: double;
     _trackRect: NSRect;
-    __scFlags: bitpacked record
+    __scFlags: record
       case byte of
        0: (_anonbitfield_NSSliderCell0: cuint);
-       1: (
+       1: (data: bitpacked record
         weAreVertical: 0..1;
         weAreVerticalSet: 0..1;
         reserved1: 0..1;
@@ -81,6 +81,7 @@ type
         _sliderType: 0..((1 shl 2)-1);
         drawing: 0..1;
         reserved2: 0..((1 shl 23)-1);
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSSound.inc

@@ -49,7 +49,7 @@ var
   private
     _delegate: id;
     _info: id;
-        _reserved: array[0..5] of id;
+    _reserved: array[0..(6)-1] of id;
     _sFlags: NSUInteger;
     
   public

packages/cocoaint/src/appkit/NSSpellChecker.inc

@@ -67,10 +67,10 @@ var
     _quotesBrowser: id;
     _replacementsBrowser: id;
     _defineButton: id;
-    __scFlags: bitpacked record
+    __scFlags: record
       case byte of
        0: (_anonbitfield_NSSpellChecker0: cuint);
-       1: (
+       1: (data: bitpacked record
         autoShowGuesses: 0..1;
         needDelayedGuess: 0..1;
         unignoreInProgress: 0..1;
@@ -83,6 +83,7 @@ var
         languagesHidden: 0..1;
         quotesByLanguage: 0..1;
         _reserved: 0..((1 shl 21)-1);
+       end;
       );
       end;
     _substitutionsPanel: id;

packages/cocoaint/src/appkit/NSStatusItem.inc

@@ -47,10 +47,10 @@
     _fWindow: NSWindow;
     _fView: NSView;
     _fPriority: cint;
-    __fFlags: bitpacked record
+    __fFlags: record
       case byte of
        0: (_anonbitfield_NSStatusItem0: cuint);
-       1: (
+       1: (data: bitpacked record
         customView: 0..1;
         _highlightMode: 0..1;
         hasAlternateImage: 0..1;
@@ -58,6 +58,7 @@
         backgroundStyle: 0..((1 shl 4)-1);
         inAdjustLength: 0..1;
         reserved: 0..((1 shl 23)-1);
+       end;
       );
       end;
     _statusItemMenu: id;

packages/cocoaint/src/appkit/NSStepperCell.inc

@@ -46,14 +46,15 @@
     _minValue: double;
     _maxValue: double;
     _increment: double;
-    __stFlags: bitpacked record
+    __stFlags: record
       case byte of
        0: (_anonbitfield_NSStepperCell0: cuint);
-       1: (
+       1: (data: bitpacked record
         _valueWraps: 0..1;
         _autorepeat: 0..1;
         drawing: 0..1;
         reserved: 0..((1 shl 29)-1);
+       end;
       );
       end;
     _reserved1: cuint;

packages/cocoaint/src/appkit/NSTabView.inc

@@ -77,21 +77,22 @@ type
     _tabHeight: CGFloat;
     _tabViewItemWithKeyView: NSTabViewItem;
     _originalNextKeyView: NSView;
-    __delegateRespondTo: bitpacked record
+    __delegateRespondTo: record
       case byte of
        0: (_anonbitfield_NSTabView0: cuint);
-       1: (
+       1: (data: bitpacked record
         shouldSelectTabViewItem: 0..1;
         willSelectTabViewItem: 0..1;
         didSelectTabViewItem: 0..1;
         didChangeNumberOfTabViewItems: 0..1;
         reserved: 0..((1 shl 28)-1);
+       end;
       );
       end;
-    __flags: bitpacked record
+    __flags: record
       case byte of
        0: (_anonbitfield_NSTabView1: cuint);
-       1: (
+       1: (data: bitpacked record
         needsLayout: 0..1;
         _controlTint: 0..((1 shl 3)-1);
         _controlSize: 0..((1 shl 2)-1);
@@ -100,6 +101,7 @@ type
         originalNextKeyViewChanged: 0..1;
         liveResizeSkippedResetToolTips: 0..1;
         reserved: 0..((1 shl 22)-1);
+       end;
       );
       end;
     _focusedTabViewItem: NSTabViewItem;

packages/cocoaint/src/appkit/NSTabViewItem.inc

@@ -62,15 +62,16 @@ type
     _tabView: NSTabView;
     _tabState: NSTabState;
     _lastKeyView: NSView;
-    __tviFlags: bitpacked record
+    __tviFlags: record
       case byte of
        0: (_anonbitfield_NSTabViewItem0: cuint);
-       1: (
+       1: (data: bitpacked record
         hasCustomColor: 0..1;
         labelSizeIsValid: 0..1;
         autoGeneratedIFR: 0..1;
         isTabDisabled: 0..1;
         RESERVED: 0..((1 shl 28)-1);
+       end;
       );
       end;
     _labelSize: NSSize;

packages/cocoaint/src/appkit/NSTableColumn.inc

@@ -54,10 +54,10 @@ const
     _tableView: NSTableView;
     _headerCell: NSCell;
     _dataCell: NSCell;
-    __cFlags: bitpacked record
+    __cFlags: record
       case byte of
        0: (_anonbitfield_NSTableColumn0: cuint);
-       1: (
+       1: (data: bitpacked record
         oldIsResizable: 0..1;
         _isEditable: 0..1;
         resizedPostingDisableCount: 0..((1 shl 8)-1);
@@ -66,6 +66,7 @@ const
         autoResizingAllowed: 0..1;
         hidden: 0..1;
         RESERVED: 0..((1 shl 18)-1);
+       end;
       );
       end;
     _tcAuxiliaryStorage: id;

packages/cocoaint/src/appkit/NSTableView.inc

@@ -54,47 +54,52 @@ type
 { Records }
 type
   __TvFlags = record
+    case byte of
+    0: (_anonbitfield_NSTableView0: cuint);
+    1: (data: bitpacked record
 {$ifdef fpc_big_endian}
-    allowsColumnReordering: 0..1;
-    allowsColumnResizing: 0..1;
-    oldDrawsGridFlag: 0..1;
-    allowsEmptySelection: 0..1;
-    allowsMultipleSelection: 0..1;
-    allowsColumnSelection: 0..1;
-    selectionType: 0..((1 shl 2)-1);
-    changingLayout: 0..1;
-    compareWidthWithSuperview: 0..((1 shl 2)-1);
-    delegateWillDisplayCell: 0..1;
-    delegateShouldEditTableColumn: 0..1;
-    delegateShouldSelectRow: 0..1;
-    delegateShouldSelectTableColumn: 0..1;
-    delegateSelectionShouldChangeInTableView: 0..1;
-    oldAutoresizesAllColumnsToFit: 0..1;
-    dataSourceSetObjectValue: 0..1;
-    selectionPostingDisableCount: 0..((1 shl 7)-1);
-    movedPostingDisableCount: 0..((1 shl 6)-1);
-    refusesFirstResponder: 0..1;
+          allowsColumnReordering: 0..1;
+          allowsColumnResizing: 0..1;
+          oldDrawsGridFlag: 0..1;
+          allowsEmptySelection: 0..1;
+          allowsMultipleSelection: 0..1;
+          allowsColumnSelection: 0..1;
+          selectionType: 0..((1 shl 2)-1);
+          changingLayout: 0..1;
+          compareWidthWithSuperview: 0..((1 shl 2)-1);
+          delegateWillDisplayCell: 0..1;
+          delegateShouldEditTableColumn: 0..1;
+          delegateShouldSelectRow: 0..1;
+          delegateShouldSelectTableColumn: 0..1;
+          delegateSelectionShouldChangeInTableView: 0..1;
+          oldAutoresizesAllColumnsToFit: 0..1;
+          dataSourceSetObjectValue: 0..1;
+          selectionPostingDisableCount: 0..((1 shl 7)-1);
+          movedPostingDisableCount: 0..((1 shl 6)-1);
+          refusesFirstResponder: 0..1;
 {$else}
-    refusesFirstResponder: 0..1;
-    movedPostingDisableCount: 0..((1 shl 6)-1);
-    selectionPostingDisableCount: 0..((1 shl 7)-1);
-    dataSourceSetObjectValue: 0..1;
-    oldAutoresizesAllColumnsToFit: 0..1;
-    delegateSelectionShouldChangeInTableView: 0..1;
-    delegateShouldSelectTableColumn: 0..1;
-    delegateShouldSelectRow: 0..1;
-    delegateShouldEditTableColumn: 0..1;
-    delegateWillDisplayCell: 0..1;
-    compareWidthWithSuperview: 0..((1 shl 2)-1);
-    changingLayout: 0..1;
-    selectionType: 0..((1 shl 2)-1);
-    allowsColumnSelection: 0..1;
-    allowsMultipleSelection: 0..1;
-    allowsEmptySelection: 0..1;
-    oldDrawsGridFlag: 0..1;
-    allowsColumnResizing: 0..1;
-    allowsColumnReordering: 0..1;
+          refusesFirstResponder: 0..1;
+          movedPostingDisableCount: 0..((1 shl 6)-1);
+          selectionPostingDisableCount: 0..((1 shl 7)-1);
+          dataSourceSetObjectValue: 0..1;
+          oldAutoresizesAllColumnsToFit: 0..1;
+          delegateSelectionShouldChangeInTableView: 0..1;
+          delegateShouldSelectTableColumn: 0..1;
+          delegateShouldSelectRow: 0..1;
+          delegateShouldEditTableColumn: 0..1;
+          delegateWillDisplayCell: 0..1;
+          compareWidthWithSuperview: 0..((1 shl 2)-1);
+          changingLayout: 0..1;
+          selectionType: 0..((1 shl 2)-1);
+          allowsColumnSelection: 0..1;
+          allowsMultipleSelection: 0..1;
+          allowsEmptySelection: 0..1;
+          oldDrawsGridFlag: 0..1;
+          allowsColumnResizing: 0..1;
+          allowsColumnReordering: 0..1;
 {$endif}
+         end;
+       );
   end;
 _TvFlags = __TvFlags;
 __TvFlagsPtr = ^__TvFlags;

packages/cocoaint/src/appkit/NSTextAttachment.inc

@@ -76,13 +76,14 @@ const
   private
     _fileWrapper: NSFileWrapper;
     _cell: NSTextAttachmentCellProtocol;
-    __flags: bitpacked record
+    __flags: record
       case byte of
        0: (_anonbitfield_NSTextAttachment1: cuint);
-       1: (
+       1: (data: bitpacked record
         cellWasExplicitlySet: 0..1;
         ignoresOrientation: 0..1;
         _anonbitfield_NSTextAttachment0: 0..((1 shl 30)-1);
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSTextContainer.inc

@@ -68,14 +68,15 @@ type
     _textView: NSTextView;
     _size: NSSize;
     _lineFragmentPadding: CGFloat;
-    __tcFlags: bitpacked record
+    __tcFlags: record
       case byte of
        0: (_anonbitfield_NSTextContainer0: cushort);
-       1: (
+       1: (data: bitpacked record
         _widthTracksTextView: 0..1;
         _heightTracksTextView: 0..1;
         observingFrameChanges: 0..1;
         _reserved: 0..((1 shl 13)-1);
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSTextFieldCell.inc

@@ -55,10 +55,10 @@ type
   private
     _backgroundColor: NSColor;
     _textColor: NSColor;
-    __tfFlags: bitpacked record
+    __tfFlags: record
       case byte of
        0: (_anonbitfield_NSTextFieldCell0: cuint);
-       1: (
+       1: (data: bitpacked record
         _drawsBackground: 0..1;
         _bezelStyle: 0..((1 shl 3)-1);
         thcSortDirection: 0..((1 shl 2)-1);
@@ -70,6 +70,7 @@ type
         invalidTextColor: 0..1;
         notificationForMarkedText: 0..1;
         reservedTextFieldCell: 0..((1 shl 16)-1);
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSTextInputContext.inc

@@ -52,12 +52,12 @@ var
     _keyBindings: id;
     _keyBindingManager: id;
     _commandCharacters: NSString;
-        _reserved: array[0..2] of id;
+    _reserved: array[0..(3)-1] of id;
     _auxiliary: id;
-    __ticFlags: bitpacked record
+    __ticFlags: record
       case byte of
        0: (_anonbitfield_NSTextInputContext0: cuint);
-       1: (
+       1: (data: bitpacked record
         _acceptsGlyphInfo: 0..1;
         
         _attributedString: 0..1;
@@ -77,6 +77,7 @@ var
         _bindingFound: 0..1;
         
         __reserved: 0..((1 shl 3)-1);
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSTextStorage.inc

@@ -56,16 +56,17 @@ var
   private
     _editedRange: NSRange;
     _editedDelta: NSInteger;
-    __flags: bitpacked record
+    __flags: record
       case byte of
        0: (_anonbitfield_NSTextStorage2: cuint);
-       1: (
+       1: (data: bitpacked record
         _editedMask: 0..((1 shl 8)-1);
         _anonbitfield_NSTextStorage0: 0..((1 shl 8)-1);
         disabled: 0..((1 shl 16)-1);
         {$ifdef cpu64}
         _anonbitfield_NSTextStorage1: 0..((1 shl 32)-1);
         {$endif}
+       end;
       );
       end;
     _layoutManagers: NSMutableArray;

packages/cocoaint/src/appkit/NSTokenField.inc

@@ -42,6 +42,15 @@
 
 { NSTokenField }
   NSTokenField = objcclass external (NSTextField)
+  private
+    _reserved1: Boolean;
+    _reserved2: Boolean;
+    _reserved3: Boolean;
+    _reserved4: Boolean;
+    _trackingRectTag: NSTrackingRectTag;
+    _reserved5: id;
+    _reserved6: id;
+    _reserved7: id;
     
   public
     procedure setDelegate(anObject: NSTokenFieldDelegateProtocol); message 'setDelegate:';

packages/cocoaint/src/appkit/NSTokenFieldCell.inc

@@ -63,11 +63,11 @@ type
     _trackingArea: id;
     _lastCell: id;
     _lastCellFrame: NSRect;
-        _reserved: array[0..6] of id;
-    __tfcFlags: bitpacked record
+    _reserved: array[0..(7)-1] of id;
+    __tfcFlags: record
       case byte of
        0: (_anonbitfield_NSTokenFieldCell0: cuint);
-       1: (
+       1: (data: bitpacked record
         _style: 0..((1 shl 4)-1);
         
         _invalidCache: 0..1;
@@ -79,6 +79,7 @@ type
         _performingDrop: 0..1;
         
         __reserved: 0..((1 shl 20)-1);
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSToolbar.inc

@@ -80,10 +80,10 @@ var
     _configPalette: id;
     _toolbarView: id;
     _syncPostEnabledCount: NSInteger;
-    __tbFlags: bitpacked record
+    __tbFlags: record
       case byte of
        0: (_anonbitfield_NSToolbar0: cuint);
-       1: (
+       1: (data: bitpacked record
         _allowsUserCustomization: 0..1;
         autosavesUsingIdentifier: 0..1;
         initialConfigurationDone: 0..1;
@@ -111,6 +111,7 @@ var
         autovalidatesItemsDisabled: 0..1;
         inAutovalidation: 0..1;
         loadedMetrics: 0..1;
+       end;
       );
       end;
     _customizationSheetWidth: NSInteger;

packages/cocoaint/src/appkit/NSToolbarItem.inc

@@ -69,10 +69,10 @@ var
     _toolTip: NSString;
     _menuItemRep: NSMenuItem;
     _tag: NSInteger;
-    __tbiFlags: bitpacked record
+    __tbiFlags: record
       case byte of
        0: (_anonbitfield_NSToolbarItem0: cuint);
-       1: (
+       1: (data: bitpacked record
         viewRespondsToIsEnabled: 0..1;
         viewRespondsToSetEnabled: 0..1;
         viewRespondsToTag: 0..1;
@@ -98,6 +98,7 @@ var
         sizeHasBeenSet: 0..1;
         stateWasDisabledBeforeSheet: 0..1;
         RESERVED: 0..((1 shl 8)-1);
+       end;
       );
       end;
     _tbiReserved: id;

packages/cocoaint/src/appkit/NSToolbarItemGroup.inc

@@ -43,12 +43,13 @@
   NSToolbarItemGroup = objcclass external (NSToolbarItem)
   private
     _groupItems: id;
-    __giFlags: bitpacked record
+    __giFlags: record
       case byte of
        0: (_anonbitfield_NSToolbarItemGroup0: cuint);
-       1: (
+       1: (data: bitpacked record
         dirtiedLayout: 0..1;
         reserved: 0..((1 shl 31)-1);
+       end;
       );
       end;
     _giReserved: id;

packages/cocoaint/src/appkit/NSTreeController.inc

@@ -48,10 +48,10 @@
     _arrangedObjects: id;
     _rootNode: id;
     _selectionIndexPaths: id;
-    __treeControllerFlags: bitpacked record
+    __treeControllerFlags: record
       case byte of
        0: (_anonbitfield_NSTreeController0: cuint);
-       1: (
+       1: (data: bitpacked record
         _avoidsEmptySelection: 0..1;
         _preservesSelection: 0..1;
         _selectsInsertedObjects: 0..1;
@@ -65,6 +65,7 @@
         _skipSortingAfterFetch: 0..1;
         _usesIdenticalComparisonOfModelObjects: 0..1;
         _reservedTreeController: 0..((1 shl 20)-1);
+       end;
       );
       end;
     _selectedObjects: NSArray;

packages/cocoaint/src/appkit/NSTreeNode.inc

@@ -48,12 +48,13 @@
     _reserved2: id;
     _childNodes: NSMutableArray;
     _parentNode: NSTreeNode;
-    __NSTreeNodeFlags: bitpacked record
+    __NSTreeNodeFlags: record
       case byte of
        0: (_anonbitfield_NSTreeNode0: cuint);
-       1: (
+       1: (data: bitpacked record
         ignoreObserving: 0..1;
         reserved: 0..((1 shl 31)-1);
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSTypesetter.inc

@@ -60,7 +60,7 @@ type
     {$ifdef cpu64}
     _reserved: Pointer;
     {$else}
-        _reserved: array[0..1] of cuint;
+    _reserved: array[0..(2)-1] of cuint;
     {$endif}
     
   public

packages/cocoaint/src/appkit/NSUserDefaultsController.inc

@@ -47,13 +47,14 @@
     _defaults: NSUserDefaults;
     _valueBuffer: NSMutableDictionary;
     _initialValues: NSDictionary;
-    __userDefaultsControllerFlags: bitpacked record
+    __userDefaultsControllerFlags: record
       case byte of
        0: (_anonbitfield_NSUserDefaultsController0: cuint);
-       1: (
+       1: (data: bitpacked record
         _sharedInstance: 0..1;
         _appliesImmediately: 0..1;
         _reservedUserDefaultsController: 0..((1 shl 30)-1);
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSView.inc

@@ -69,53 +69,58 @@ type
 { Records }
 type
   __VFlags = record
+    case byte of
+    0: (_anonbitfield_NSView0: cuint);
+    1: (data: bitpacked record
 {$ifdef fpc_big_endian}
-    rotatedFromBase: 0..1;
-    rotatedOrScaledFromBase: 0..1;
-    autosizing: 0..((1 shl 6)-1);
-    autoresizeSubviews: 0..1;
-    wantsGState: 0..1;
-    needsDisplay: 0..1;
-    validGState: 0..1;
-    newGState: 0..1;
-    noVerticalAutosizing: 0..1;
-    frameChangeNotesSuspended: 0..1;
-    needsFrameChangeNote: 0..1;
-    focusChangeNotesSuspended: 0..1;
-    boundsChangeNotesSuspended: 0..1;
-    needsBoundsChangeNote: 0..1;
-    removingWithoutInvalidation: 0..1;
-    interfaceStyle0: 0..1;
-    needsDisplayForBounds: 0..1;
-    specialArchiving: 0..1;
-    interfaceStyle1: 0..1;
-    retainCount: 0..((1 shl 6)-1);
-    retainCountOverMax: 0..1;
-    aboutToResize: 0..1;
+          rotatedFromBase: 0..1;
+          rotatedOrScaledFromBase: 0..1;
+          autosizing: 0..((1 shl 6)-1);
+          autoresizeSubviews: 0..1;
+          wantsGState: 0..1;
+          needsDisplay: 0..1;
+          validGState: 0..1;
+          newGState: 0..1;
+          noVerticalAutosizing: 0..1;
+          frameChangeNotesSuspended: 0..1;
+          needsFrameChangeNote: 0..1;
+          focusChangeNotesSuspended: 0..1;
+          boundsChangeNotesSuspended: 0..1;
+          needsBoundsChangeNote: 0..1;
+          removingWithoutInvalidation: 0..1;
+          interfaceStyle0: 0..1;
+          needsDisplayForBounds: 0..1;
+          specialArchiving: 0..1;
+          interfaceStyle1: 0..1;
+          retainCount: 0..((1 shl 6)-1);
+          retainCountOverMax: 0..1;
+          aboutToResize: 0..1;
 {$else}
-    aboutToResize: 0..1;
-    retainCountOverMax: 0..1;
-    retainCount: 0..((1 shl 6)-1);
-    interfaceStyle1: 0..1;
-    specialArchiving: 0..1;
-    needsDisplayForBounds: 0..1;
-    interfaceStyle0: 0..1;
-    removingWithoutInvalidation: 0..1;
-    needsBoundsChangeNote: 0..1;
-    boundsChangeNotesSuspended: 0..1;
-    focusChangeNotesSuspended: 0..1;
-    needsFrameChangeNote: 0..1;
-    frameChangeNotesSuspended: 0..1;
-    noVerticalAutosizing: 0..1;
-    newGState: 0..1;
-    validGState: 0..1;
-    needsDisplay: 0..1;
-    wantsGState: 0..1;
-    autoresizeSubviews: 0..1;
-    autosizing: 0..((1 shl 6)-1);
-    rotatedOrScaledFromBase: 0..1;
-    rotatedFromBase: 0..1;
+          aboutToResize: 0..1;
+          retainCountOverMax: 0..1;
+          retainCount: 0..((1 shl 6)-1);
+          interfaceStyle1: 0..1;
+          specialArchiving: 0..1;
+          needsDisplayForBounds: 0..1;
+          interfaceStyle0: 0..1;
+          removingWithoutInvalidation: 0..1;
+          needsBoundsChangeNote: 0..1;
+          boundsChangeNotesSuspended: 0..1;
+          focusChangeNotesSuspended: 0..1;
+          needsFrameChangeNote: 0..1;
+          frameChangeNotesSuspended: 0..1;
+          noVerticalAutosizing: 0..1;
+          newGState: 0..1;
+          validGState: 0..1;
+          needsDisplay: 0..1;
+          wantsGState: 0..1;
+          autoresizeSubviews: 0..1;
+          autosizing: 0..((1 shl 6)-1);
+          rotatedOrScaledFromBase: 0..1;
+          rotatedFromBase: 0..1;
 {$endif}
+         end;
+       );
   end;
 _VFlags = __VFlags;
 __VFlagsPtr = ^__VFlags;
@@ -178,16 +183,17 @@ var
     _dragTypes: id;
     _viewAuxiliary: _NSViewAuxiliary;
     _vFlags: _VFlags;
-    __vFlags2: bitpacked record
+    __vFlags2: record
       case byte of
-       0: (_anonbitfield_NSView0: cuint);
-       1: (
+       0: (_anonbitfield_NSView1: cuint);
+       1: (data: bitpacked record
         nextKeyViewRefCount: 0..((1 shl 14)-1);
         previousKeyViewRefCount: 0..((1 shl 14)-1);
         isVisibleRect: 0..1;
         hasToolTip: 0..1;
         needsRealLockFocus: 0..1;
         menuWasSet: 0..1;
+       end;
       );
       end;
     

packages/cocoaint/src/appkit/NSViewController.inc

@@ -51,7 +51,7 @@
     _editors: NSPointerArray;
     _autounbinder: id;
     _designNibBundleIdentifier: NSString;
-        _reserved: array[0..1] of id;
+    _reserved: array[0..(2)-1] of id;
     
   public
     function initWithNibName_bundle(nibNameOrNil: NSString; nibBundleOrNil: NSBundle): id; message 'initWithNibName:bundle:';

packages/cocoaint/src/appkit/NSWindow.inc

@@ -173,10 +173,10 @@ var
     _sizeLimits: NSSizePtr;
     _frameSaveName: NSString;
     _regDragTypes: NSSet;
-    __wFlags: bitpacked record
+    __wFlags: record
       case byte of
        0: (_anonbitfield_NSWindow0: cuint);
-       1: (
+       1: (data: bitpacked record
         backing: 0..((1 shl 2)-1);
         visible: 0..1;
         _isMainWindow: 0..1;
@@ -234,6 +234,7 @@ var
         needsZoom: 0..1;
         sentWindowNeedsDisplayMsg: 0..1;
         liveResizeActive: 0..1;
+       end;
       );
       end;
     _defaultButtonCell: id;

packages/cocoaint/src/appkit/NSWindowController.inc

@@ -47,15 +47,16 @@
     _document: NSDocument;
     _topLevelObjects: NSArray;
     _owner: id;
-    __wcFlags: bitpacked record
+    __wcFlags: record
       case byte of
        0: (_anonbitfield_NSWindowController0: cuint);
-       1: (
+       1: (data: bitpacked record
         _shouldCloseDocument: 0..1;
         shouldCascade: 0..1;
         nibIsLoaded: 0..1;
         nibNameIsPath: 0..1;
         RESERVED: 0..((1 shl 28)-1);
+       end;
       );
       end;
     _frameAutosaveName: NSString;

packages/cocoaint/src/appkit/NSWorkspace.inc

@@ -120,8 +120,10 @@ var
   NSWorkspace = objcclass external (NSObject)
   private
     _notificationCenter: NSNotificationCenter;
+{$ifndef cpu64}
     deviceStatusCount: cint;
     applicationStatusCount: cint;
+{$endif cpu64}
     _reservedWorkspace1: id;
     
   public

packages/cocoaint/src/coredata/NSAttributeDescription.inc

@@ -68,12 +68,13 @@ type
     _valueTransformerName: NSString;
     _type: NSAttributeType;
     _attributeValueClassName: NSString;
-    __attributeDescriptionFlags: bitpacked record
+    __attributeDescriptionFlags: record
       case byte of
        0: (_anonbitfield_NSAttributeDescription0: cuint);
-       1: (
+       1: (data: bitpacked record
         _useForLocking: 0..1;
         _reservedAttributeDescription: 0..((1 shl 31)-1);
+       end;
       );
       end;
     _defaultValue: id;

packages/cocoaint/src/coredata/NSEntityDescription.inc

@@ -56,10 +56,10 @@
     _properties: NSMutableDictionary;
     _propertyMapping: id;
     _propertyRanges: NSRangePtr; {garbage collector: __strong }
-    __entityDescriptionFlags: bitpacked record
+    __entityDescriptionFlags: record
       case byte of
        0: (_anonbitfield_NSEntityDescription0: cuint);
-       1: (
+       1: (data: bitpacked record
         _isAbstract: 0..1;
         _shouldValidateOnSave: 0..1;
         _isImmutable: 0..1;
@@ -68,6 +68,7 @@
         _hasPropertiesIndexedBySpotlight: 0..1;
         _hasPropertiesStoredInTruthFile: 0..1;
         _reservedEntityDescription: 0..((1 shl 25)-1);
+       end;
       );
       end;
     _extraIvars: Pointer; {garbage collector: __strong }