Browse Source

--- Merging r18111 into '.':
U packages/cocoaint/utils/source/objp.php
--- Merging r18112 into '.':
G packages/cocoaint/utils/source/objp.php
--- Merging r18113 into '.':
G packages/cocoaint/utils/source/objp.php
--- Merging r18115 into '.':
U rtl/inc/objcbase.pp
U packages/cocoaint/utils/cocoa-skel/src/CocoaAll.pas
U packages/cocoaint/utils/cocoa-skel/src/CoreData.pas
U packages/cocoaint/utils/cocoa-skel/src/WebKit.pas
U packages/cocoaint/utils/uikit-skel/src/iPhoneAll.pas
--- Merging r18122 into '.':
U packages/cocoaint/utils/cocoa-skel/src/appkit/AppKit.inc
U packages/cocoaint/utils/patches/cocoa-coredata-webkit.patch
U packages/cocoaint/src/coredata/NSAttributeDescription.inc
U packages/cocoaint/src/coredata/NSMappingModel.inc
U packages/cocoaint/src/coredata/NSPersistentStore.inc
U packages/cocoaint/src/coredata/NSEntityDescription.inc
U packages/cocoaint/src/coredata/NSFetchRequestExpression.inc
U packages/cocoaint/src/coredata/NSMigrationManager.inc
U packages/cocoaint/src/coredata/NSManagedObjectContext.inc
U packages/cocoaint/src/coredata/NSEntityMapping.inc
U packages/cocoaint/src/coredata/NSPropertyDescription.inc
U packages/cocoaint/src/coredata/NSPropertyMapping.inc
U packages/cocoaint/src/coredata/NSFetchRequest.inc
U packages/cocoaint/src/coredata/NSManagedObjectModel.inc
U packages/cocoaint/src/appkit/NSLayoutManager.inc
U packages/cocoaint/src/appkit/NSImage.inc
U packages/cocoaint/src/appkit/NSStepperCell.inc
U packages/cocoaint/src/appkit/NSMenuItem.inc
U packages/cocoaint/src/appkit/NSTextFieldCell.inc
U packages/cocoaint/src/appkit/NSRulerMarker.inc
U packages/cocoaint/src/appkit/NSTextAttachment.inc
U packages/cocoaint/src/appkit/NSTreeController.inc
U packages/cocoaint/src/appkit/NSNib.inc
U packages/cocoaint/src/appkit/NSTextInputContext.inc
U packages/cocoaint/src/appkit/NSUserDefaultsController.inc
U packages/cocoaint/src/appkit/NSRuleEditor.inc
U packages/cocoaint/src/appkit/NSOpenPanel.inc
U packages/cocoaint/src/appkit/NSTableView.inc
U packages/cocoaint/src/appkit/NSArrayController.inc
U packages/cocoaint/src/appkit/NSAnimationContext.inc
U packages/cocoaint/src/appkit/NSPasteboard.inc
U packages/cocoaint/src/appkit/NSPathCell.inc
U packages/cocoaint/src/appkit/NSMenuView.inc
U packages/cocoaint/src/appkit/NSFontManager.inc
U packages/cocoaint/src/appkit/NSStatusItem.inc
U packages/cocoaint/src/appkit/NSTypesetter.inc
U packages/cocoaint/src/appkit/NSDictionaryController.inc
U packages/cocoaint/src/appkit/NSView.inc
U packages/cocoaint/src/appkit/NSDatePickerCell.inc
U packages/cocoaint/src/appkit/NSImageView.inc
U packages/cocoaint/src/appkit/NSDocument.inc
U packages/cocoaint/src/appkit/NSPathComponentCell.inc
U packages/cocoaint/src/appkit/NSATSTypesetter.inc
U packages/cocoaint/src/appkit/NSControl.inc
U packages/cocoaint/src/appkit/NSTokenFieldCell.inc
U packages/cocoaint/src/appkit/NSFontPanel.inc
U packages/cocoaint/src/appkit/NSImageRep.inc
U packages/cocoaint/src/appkit/NSBezierPath.inc
U packages/cocoaint/src/appkit/NSRunningApplication.inc
U packages/cocoaint/src/appkit/NSLevelIndicatorCell.inc
U packages/cocoaint/src/appkit/NSTableColumn.inc
U packages/cocoaint/src/appkit/NSColorList.inc
U packages/cocoaint/src/appkit/NSCell.inc
U packages/cocoaint/src/appkit/NSTabViewItem.inc
U packages/cocoaint/src/appkit/NSImageCell.inc
U packages/cocoaint/src/appkit/NSSliderCell.inc
U packages/cocoaint/src/appkit/NSController.inc
U packages/cocoaint/src/appkit/NSParagraphStyle.inc
U packages/cocoaint/src/appkit/NSWorkspace.inc
U packages/cocoaint/src/appkit/NSDockTile.inc
U packages/cocoaint/src/appkit/NSComboBoxCell.inc
U packages/cocoaint/src/appkit/NSSearchFieldCell.inc
U packages/cocoaint/src/appkit/NSObjectController.inc
U packages/cocoaint/src/appkit/NSCursor.inc
U packages/cocoaint/src/appkit/NSAnimation.inc
U packages/cocoaint/src/appkit/NSClipView.inc
U packages/cocoaint/src/appkit/NSBrowser.inc
U packages/cocoaint/src/appkit/NSScroller.inc
U packages/cocoaint/src/appkit/NSBitmapImageRep.inc
U packages/cocoaint/src/appkit/NSPopUpButtonCell.inc
U packages/cocoaint/src/appkit/NSProgressIndicator.inc
U packages/cocoaint/src/appkit/NSColorWell.inc
U packages/cocoaint/src/appkit/NSTextStorage.inc
U packages/cocoaint/src/appkit/NSMovieView.inc
U packages/cocoaint/src/appkit/NSWindowController.inc
U packages/cocoaint/src/appkit/NSPrintPanel.inc
U packages/cocoaint/src/appkit/NSSavePanel.inc
U packages/cocoaint/src/appkit/NSCollectionView.inc
U packages/cocoaint/src/appkit/NSColorSpace.inc
U packages/cocoaint/src/appkit/NSPredicateEditorRowTemplate.inc
U packages/cocoaint/src/appkit/NSPopUpButton.inc
U packages/cocoaint/src/appkit/NSToolbar.inc
U packages/cocoaint/src/appkit/NSSpellChecker.inc
U packages/cocoaint/src/appkit/NSTreeNode.inc
U packages/cocoaint/src/appkit/NSWindow.inc
U packages/cocoaint/src/appkit/NSButtonCell.inc
U packages/cocoaint/src/appkit/NSToolbarItem.inc
U packages/cocoaint/src/appkit/NSShadow.inc
U packages/cocoaint/src/appkit/NSSound.inc
U packages/cocoaint/src/appkit/NSScrollView.inc
U packages/cocoaint/src/appkit/NSToolbarItemGroup.inc
U packages/cocoaint/src/appkit/NSTabView.inc
U packages/cocoaint/src/appkit/NSApplication.inc
U packages/cocoaint/src/appkit/NSFont.inc
U packages/cocoaint/src/appkit/NSPredicateEditor.inc
U packages/cocoaint/src/appkit/NSPageLayout.inc
U packages/cocoaint/src/appkit/NSOutlineView.inc
U packages/cocoaint/src/appkit/NSViewController.inc
U packages/cocoaint/src/appkit/NSMovie.inc
U packages/cocoaint/src/appkit/NSEvent.inc
U packages/cocoaint/src/appkit/NSPrinter.inc
U packages/cocoaint/src/appkit/NSMenuItemCell.inc
U packages/cocoaint/src/appkit/NSTokenField.inc
U packages/cocoaint/src/appkit/AppKit.inc
U packages/cocoaint/src/appkit/NSTextContainer.inc
U packages/cocoaint/src/appkit/NSBox.inc
U packages/cocoaint/src/appkit/NSMenu.inc
U packages/cocoaint/src/appkit/NSMatrix.inc
U packages/cocoaint/src/CocoaAll.pas
U packages/cocoaint/src/quartzcore/CIVector.inc
U packages/cocoaint/src/quartzcore/CALayer.inc
U packages/cocoaint/src/quartzcore/CIColor.inc
U packages/cocoaint/src/quartzcore/CIFilter.inc
U packages/cocoaint/src/quartzcore/CIPlugIn.inc
U packages/cocoaint/src/quartzcore/CAConstraintLayoutManager.inc
U packages/cocoaint/src/CoreData.pas
U packages/cocoaint/src/foundation/NSUserDefaults.inc
U packages/cocoaint/src/foundation/NSScriptObjectSpecifiers.inc
U packages/cocoaint/src/foundation/NSInvocation.inc
U packages/cocoaint/src/foundation/NSMetadata.inc
U packages/cocoaint/src/foundation/NSEnumerator.inc
U packages/cocoaint/src/foundation/NSXMLDTD.inc
U packages/cocoaint/src/foundation/NSAppleEventDescriptor.inc
U packages/cocoaint/src/foundation/NSCache.inc
U packages/cocoaint/src/foundation/NSScriptCommand.inc
U packages/cocoaint/src/foundation/NSScriptSuiteRegistry.inc
U packages/cocoaint/src/foundation/NSDecimalNumber.inc
U packages/cocoaint/src/foundation/NSXMLElement.inc
U packages/cocoaint/src/foundation/NSXMLDocument.inc
U packages/cocoaint/src/foundation/NSConnection.inc
U packages/cocoaint/src/foundation/NSThread.inc
U packages/cocoaint/src/foundation/NSData.inc
U packages/cocoaint/src/foundation/NSNumberFormatter.inc
U packages/cocoaint/src/foundation/NSSpellServer.inc
U packages/cocoaint/src/foundation/NSPropertyList.inc
U packages/cocoaint/src/foundation/NSIndexSet.inc
U packages/cocoaint/src/foundation/NSNotification.inc
U packages/cocoaint/src/foundation/NSAppleEventManager.inc
U packages/cocoaint/src/foundation/NSDecimal.inc
U packages/cocoaint/src/foundation/NSRunLoop.inc
U packages/cocoaint/src/foundation/NSUndoManager.inc
U packages/cocoaint/src/foundation/NSMethodSignature.inc
U packages/cocoaint/src/WebKit.pas
U packages/cocoaint/src/IvarSize.pas

# revisions: 18111,18112,18113,18115,18122
------------------------------------------------------------------------
r18111 | jonas | 2011-08-06 14:21:40 +0200 (Sat, 06 Aug 2011) | 6 lines
Changed paths:
M /trunk/packages/cocoaint/utils/source/objp.php

* do not calculate array bounds in php, since they may be expressed via
symbolic constants rather than numerically
* replace an empty C array (such as int[0]) with an empty record declaration
rather than with an array of one element, since it doesn't take up any
space in C either

------------------------------------------------------------------------
------------------------------------------------------------------------
r18112 | jonas | 2011-08-06 14:32:07 +0200 (Sat, 06 Aug 2011) | 2 lines
Changed paths:
M /trunk/packages/cocoaint/utils/source/objp.php

* replaced a few eregi's with the faster preg_match()

------------------------------------------------------------------------
------------------------------------------------------------------------
r18113 | jonas | 2011-08-06 14:38:31 +0200 (Sat, 06 Aug 2011) | 11 lines
Changed paths:
M /trunk/packages/cocoaint/utils/source/objp.php

* mark records containing at least one bitpacked field as "bitpacked" rather
than only record containing nothing but bitpacked fields (although in
theory this can also cause errors, it results in correct data layouts
for all Cocoa structs while the previous code didn't)
* changed the translation of bitpacked structs so that the compiler will
properly align them. This requires that all bitpacked fields are
wrapped into a separate record though, so all fields are now accessible
via recname.data.field instead of via recname.field. Since all fields
in the Cocoa classes are private, this should not cause problems
(except if exported record types are also used elsewhere)

------------------------------------------------------------------------
------------------------------------------------------------------------
r18115 | jonas | 2011-08-06 15:16:03 +0200 (Sat, 06 Aug 2011) | 3 lines
Changed paths:
M /trunk/packages/cocoaint/utils/cocoa-skel/src/CocoaAll.pas
M /trunk/packages/cocoaint/utils/cocoa-skel/src/CoreData.pas
M /trunk/packages/cocoaint/utils/cocoa-skel/src/WebKit.pas
M /trunk/packages/cocoaint/utils/uikit-skel/src/iPhoneAll.pas
M /trunk/rtl/inc/objcbase.pp

+ add {$packrecords c} to all units importing Objective-C records since
that's the alignment used by the system headers

------------------------------------------------------------------------
------------------------------------------------------------------------
r18122 | jonas | 2011-08-06 20:12:40 +0200 (Sat, 06 Aug 2011) | 6 lines
Changed paths:
M /trunk/packages/cocoaint/src/CocoaAll.pas
M /trunk/packages/cocoaint/src/CoreData.pas
M /trunk/packages/cocoaint/src/IvarSize.pas
M /trunk/packages/cocoaint/src/WebKit.pas
M /trunk/packages/cocoaint/src/appkit/AppKit.inc
M /trunk/packages/cocoaint/src/appkit/NSATSTypesetter.inc
M /trunk/packages/cocoaint/src/appkit/NSAnimation.inc
M /trunk/packages/cocoaint/src/appkit/NSAnimationContext.inc
M /trunk/packages/cocoaint/src/appkit/NSApplication.inc
M /trunk/packages/cocoaint/src/appkit/NSArrayController.inc
M /trunk/packages/cocoaint/src/appkit/NSBezierPath.inc
M /trunk/packages/cocoaint/src/appkit/NSBitmapImageRep.inc
M /trunk/packages/cocoaint/src/appkit/NSBox.inc
M /trunk/packages/cocoaint/src/appkit/NSBrowser.inc
M /trunk/packages/cocoaint/src/appkit/NSButtonCell.inc
M /trunk/packages/cocoaint/src/appkit/NSCell.inc
M /trunk/packages/cocoaint/src/appkit/NSClipView.inc
M /trunk/packages/cocoaint/src/appkit/NSCollectionView.inc
M /trunk/packages/cocoaint/src/appkit/NSColorList.inc
M /trunk/packages/cocoaint/src/appkit/NSColorSpace.inc
M /trunk/packages/cocoaint/src/appkit/NSColorWell.inc
M /trunk/packages/cocoaint/src/appkit/NSComboBoxCell.inc
M /trunk/packages/cocoaint/src/appkit/NSControl.inc
M /trunk/packages/cocoaint/src/appkit/NSController.inc
M /trunk/packages/cocoaint/src/appkit/NSCursor.inc
M /trunk/packages/cocoaint/src/appkit/NSDatePickerCell.inc
M /trunk/packages/cocoaint/src/appkit/NSDictionaryController.inc
M /trunk/packages/cocoaint/src/appkit/NSDockTile.inc
M /trunk/packages/cocoaint/src/appkit/NSDocument.inc
M /trunk/packages/cocoaint/src/appkit/NSEvent.inc
M /trunk/packages/cocoaint/src/appkit/NSFont.inc
M /trunk/packages/cocoaint/src/appkit/NSFontManager.inc
M /trunk/packages/cocoaint/src/appkit/NSFontPanel.inc
M /trunk/packages/cocoaint/src/appkit/NSImage.inc
M /trunk/packages/cocoaint/src/appkit/NSImageCell.inc
M /trunk/packages/cocoaint/src/appkit/NSImageRep.inc
M /trunk/packages/cocoaint/src/appkit/NSImageView.inc
M /trunk/packages/cocoaint/src/appkit/NSLayoutManager.inc
M /trunk/packages/cocoaint/src/appkit/NSLevelIndicatorCell.inc
M /trunk/packages/cocoaint/src/appkit/NSMatrix.inc
M /trunk/packages/cocoaint/src/appkit/NSMenu.inc
M /trunk/packages/cocoaint/src/appkit/NSMenuItem.inc
M /trunk/packages/cocoaint/src/appkit/NSMenuItemCell.inc
M /trunk/packages/cocoaint/src/appkit/NSMenuView.inc
M /trunk/packages/cocoaint/src/appkit/NSMovie.inc
M /trunk/packages/cocoaint/src/appkit/NSMovieView.inc
M /trunk/packages/cocoaint/src/appkit/NSNib.inc
M /trunk/packages/cocoaint/src/appkit/NSObjectController.inc
M /trunk/packages/cocoaint/src/appkit/NSOpenPanel.inc
M /trunk/packages/cocoaint/src/appkit/NSOutlineView.inc
M /trunk/packages/cocoaint/src/appkit/NSPageLayout.inc
M /trunk/packages/cocoaint/src/appkit/NSParagraphStyle.inc
M /trunk/packages/cocoaint/src/appkit/NSPasteboard.inc
M /trunk/packages/cocoaint/src/appkit/NSPathCell.inc
M /trunk/packages/cocoaint/src/appkit/NSPathComponentCell.inc
M /trunk/packages/cocoaint/src/appkit/NSPopUpButton.inc
M /trunk/packages/cocoaint/src/appkit/NSPopUpButtonCell.inc
M /trunk/packages/cocoaint/src/appkit/NSPredicateEditor.inc
M /trunk/packages/cocoaint/src/appkit/NSPredicateEditorRowTemplate.inc
M /trunk/packages/cocoaint/src/appkit/NSPrintPanel.inc
M /trunk/packages/cocoaint/src/appkit/NSPrinter.inc
M /trunk/packages/cocoaint/src/appkit/NSProgressIndicator.inc
M /trunk/packages/cocoaint/src/appkit/NSRuleEditor.inc
M /trunk/packages/cocoaint/src/appkit/NSRulerMarker.inc
M /trunk/packages/cocoaint/src/appkit/NSRunningApplication.inc
M /trunk/packages/cocoaint/src/appkit/NSSavePanel.inc
M /trunk/packages/cocoaint/src/appkit/NSScrollView.inc
M /trunk/packages/cocoaint/src/appkit/NSScroller.inc
M /trunk/packages/cocoaint/src/appkit/NSSearchFieldCell.inc
M /trunk/packages/cocoaint/src/appkit/NSShadow.inc
M /trunk/packages/cocoaint/src/appkit/NSSliderCell.inc
M /trunk/packages/cocoaint/src/appkit/NSSound.inc
M /trunk/packages/cocoaint/src/appkit/NSSpellChecker.inc
M /trunk/packages/cocoaint/src/appkit/NSStatusItem.inc
M /trunk/packages/cocoaint/src/appkit/NSStepperCell.inc
M /trunk/packages/cocoaint/src/appkit/NSTabView.inc
M /trunk/packages/cocoaint/src/appkit/NSTabViewItem.inc
M /trunk/packages/cocoaint/src/appkit/NSTableColumn.inc
M /trunk/packages/cocoaint/src/appkit/NSTableView.inc
M /trunk/packages/cocoaint/src/appkit/NSTextAttachment.inc
M /trunk/packages/cocoaint/src/appkit/NSTextContainer.inc
M /trunk/packages/cocoaint/src/appkit/NSTextFieldCell.inc
M /trunk/packages/cocoaint/src/appkit/NSTextInputContext.inc
M /trunk/packages/cocoaint/src/appkit/NSTextStorage.inc
M /trunk/packages/cocoaint/src/appkit/NSTokenField.inc
M /trunk/packages/cocoaint/src/appkit/NSTokenFieldCell.inc
M /trunk/packages/cocoaint/src/appkit/NSToolbar.inc
M /trunk/packages/cocoaint/src/appkit/NSToolbarItem.inc
M /trunk/packages/cocoaint/src/appkit/NSToolbarItemGroup.inc
M /trunk/packages/cocoaint/src/appkit/NSTreeController.inc
M /trunk/packages/cocoaint/src/appkit/NSTreeNode.inc
M /trunk/packages/cocoaint/src/appkit/NSTypesetter.inc
M /trunk/packages/cocoaint/src/appkit/NSUserDefaultsController.inc
M /trunk/packages/cocoaint/src/appkit/NSView.inc
M /trunk/packages/cocoaint/src/appkit/NSViewController.inc
M /trunk/packages/cocoaint/src/appkit/NSWindow.inc
M /trunk/packages/cocoaint/src/appkit/NSWindowController.inc
M /trunk/packages/cocoaint/src/appkit/NSWorkspace.inc
M /trunk/packages/cocoaint/src/coredata/NSAttributeDescription.inc
M /trunk/packages/cocoaint/src/coredata/NSEntityDescription.inc
M /trunk/packages/cocoaint/src/coredata/NSEntityMapping.inc
M /trunk/packages/cocoaint/src/coredata/NSFetchRequest.inc
M /trunk/packages/cocoaint/src/coredata/NSFetchRequestExpression.inc
M /trunk/packages/cocoaint/src/coredata/NSManagedObjectContext.inc
M /trunk/packages/cocoaint/src/coredata/NSManagedObjectModel.inc
M /trunk/packages/cocoaint/src/coredata/NSMappingModel.inc
M /trunk/packages/cocoaint/src/coredata/NSMigrationManager.inc
M /trunk/packages/cocoaint/src/coredata/NSPersistentStore.inc
M /trunk/packages/cocoaint/src/coredata/NSPropertyDescription.inc
M /trunk/packages/cocoaint/src/coredata/NSPropertyMapping.inc
M /trunk/packages/cocoaint/src/foundation/NSAppleEventDescriptor.inc
M /trunk/packages/cocoaint/src/foundation/NSAppleEventManager.inc
M /trunk/packages/cocoaint/src/foundation/NSCache.inc
M /trunk/packages/cocoaint/src/foundation/NSConnection.inc
M /trunk/packages/cocoaint/src/foundation/NSData.inc
M /trunk/packages/cocoaint/src/foundation/NSDecimal.inc
M /trunk/packages/cocoaint/src/foundation/NSDecimalNumber.inc
M /trunk/packages/cocoaint/src/foundation/NSEnumerator.inc
M /trunk/packages/cocoaint/src/foundation/NSIndexSet.inc
M /trunk/packages/cocoaint/src/foundation/NSInvocation.inc
M /trunk/packages/cocoaint/src/foundation/NSMetadata.inc
M /trunk/packages/cocoaint/src/foundation/NSMethodSignature.inc
M /trunk/packages/cocoaint/src/foundation/NSNotification.inc
M /trunk/packages/cocoaint/src/foundation/NSNumberFormatter.inc
M /trunk/packages/cocoaint/src/foundation/NSPropertyList.inc
M /trunk/packages/cocoaint/src/foundation/NSRunLoop.inc
M /trunk/packages/cocoaint/src/foundation/NSScriptCommand.inc
M /trunk/packages/cocoaint/src/foundation/NSScriptObjectSpecifiers.inc
M /trunk/packages/cocoaint/src/foundation/NSScriptSuiteRegistry.inc
M /trunk/packages/cocoaint/src/foundation/NSSpellServer.inc
M /trunk/packages/cocoaint/src/foundation/NSThread.inc
M /trunk/packages/cocoaint/src/foundation/NSUndoManager.inc
M /trunk/packages/cocoaint/src/foundation/NSUserDefaults.inc
M /trunk/packages/cocoaint/src/foundation/NSXMLDTD.inc
M /trunk/packages/cocoaint/src/foundation/NSXMLDocument.inc
M /trunk/packages/cocoaint/src/foundation/NSXMLElement.inc
M /trunk/packages/cocoaint/src/quartzcore/CAConstraintLayoutManager.inc
M /trunk/packages/cocoaint/src/quartzcore/CALayer.inc
M /trunk/packages/cocoaint/src/quartzcore/CIColor.inc
M /trunk/packages/cocoaint/src/quartzcore/CIFilter.inc
M /trunk/packages/cocoaint/src/quartzcore/CIPlugIn.inc
M /trunk/packages/cocoaint/src/quartzcore/CIVector.inc
M /trunk/packages/cocoaint/utils/cocoa-skel/src/appkit/AppKit.inc
M /trunk/packages/cocoaint/utils/patches/cocoa-coredata-webkit.patch

* 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: branches/fixes_2_6@18888 -

marco 14 years ago
parent
commit
97312b3e71
100 changed files with 2047 additions and 1838 deletions
  1. 1 0
      packages/cocoaint/src/CocoaAll.pas
  2. 1 0
      packages/cocoaint/src/CoreData.pas
  3. 1298 1285
      packages/cocoaint/src/IvarSize.pas
  4. 2 1
      packages/cocoaint/src/WebKit.pas
  5. 11 5
      packages/cocoaint/src/appkit/AppKit.inc
  6. 1 1
      packages/cocoaint/src/appkit/NSATSTypesetter.inc
  7. 9 6
      packages/cocoaint/src/appkit/NSAnimation.inc
  8. 1 1
      packages/cocoaint/src/appkit/NSAnimationContext.inc
  9. 3 2
      packages/cocoaint/src/appkit/NSApplication.inc
  10. 3 2
      packages/cocoaint/src/appkit/NSArrayController.inc
  11. 4 3
      packages/cocoaint/src/appkit/NSBezierPath.inc
  12. 4 3
      packages/cocoaint/src/appkit/NSBitmapImageRep.inc
  13. 3 2
      packages/cocoaint/src/appkit/NSBox.inc
  14. 59 54
      packages/cocoaint/src/appkit/NSBrowser.inc
  15. 68 58
      packages/cocoaint/src/appkit/NSButtonCell.inc
  16. 3 2
      packages/cocoaint/src/appkit/NSCell.inc
  17. 3 2
      packages/cocoaint/src/appkit/NSClipView.inc
  18. 7 5
      packages/cocoaint/src/appkit/NSCollectionView.inc
  19. 3 2
      packages/cocoaint/src/appkit/NSColorList.inc
  20. 4 3
      packages/cocoaint/src/appkit/NSColorSpace.inc
  21. 3 2
      packages/cocoaint/src/appkit/NSColorWell.inc
  22. 39 2
      packages/cocoaint/src/appkit/NSComboBoxCell.inc
  23. 3 2
      packages/cocoaint/src/appkit/NSControl.inc
  24. 3 2
      packages/cocoaint/src/appkit/NSController.inc
  25. 3 2
      packages/cocoaint/src/appkit/NSCursor.inc
  26. 3 2
      packages/cocoaint/src/appkit/NSDatePickerCell.inc
  27. 3 2
      packages/cocoaint/src/appkit/NSDictionaryController.inc
  28. 4 3
      packages/cocoaint/src/appkit/NSDockTile.inc
  29. 3 2
      packages/cocoaint/src/appkit/NSDocument.inc
  30. 30 11
      packages/cocoaint/src/appkit/NSEvent.inc
  31. 3 2
      packages/cocoaint/src/appkit/NSFont.inc
  32. 3 2
      packages/cocoaint/src/appkit/NSFontManager.inc
  33. 4 3
      packages/cocoaint/src/appkit/NSFontPanel.inc
  34. 3 2
      packages/cocoaint/src/appkit/NSImage.inc
  35. 3 2
      packages/cocoaint/src/appkit/NSImageCell.inc
  36. 3 2
      packages/cocoaint/src/appkit/NSImageRep.inc
  37. 3 2
      packages/cocoaint/src/appkit/NSImageView.inc
  38. 3 2
      packages/cocoaint/src/appkit/NSLayoutManager.inc
  39. 3 2
      packages/cocoaint/src/appkit/NSLevelIndicatorCell.inc
  40. 63 58
      packages/cocoaint/src/appkit/NSMatrix.inc
  41. 3 2
      packages/cocoaint/src/appkit/NSMenu.inc
  42. 3 2
      packages/cocoaint/src/appkit/NSMenuItem.inc
  43. 3 2
      packages/cocoaint/src/appkit/NSMenuItemCell.inc
  44. 3 2
      packages/cocoaint/src/appkit/NSMenuView.inc
  45. 3 2
      packages/cocoaint/src/appkit/NSMovie.inc
  46. 3 2
      packages/cocoaint/src/appkit/NSMovieView.inc
  47. 3 2
      packages/cocoaint/src/appkit/NSNib.inc
  48. 3 2
      packages/cocoaint/src/appkit/NSObjectController.inc
  49. 1 1
      packages/cocoaint/src/appkit/NSOpenPanel.inc
  50. 65 60
      packages/cocoaint/src/appkit/NSOutlineView.inc
  51. 2 2
      packages/cocoaint/src/appkit/NSPageLayout.inc
  52. 6 4
      packages/cocoaint/src/appkit/NSParagraphStyle.inc
  53. 1 1
      packages/cocoaint/src/appkit/NSPasteboard.inc
  54. 3 2
      packages/cocoaint/src/appkit/NSPathCell.inc
  55. 3 2
      packages/cocoaint/src/appkit/NSPathComponentCell.inc
  56. 3 2
      packages/cocoaint/src/appkit/NSPopUpButton.inc
  57. 3 2
      packages/cocoaint/src/appkit/NSPopUpButtonCell.inc
  58. 4 3
      packages/cocoaint/src/appkit/NSPredicateEditor.inc
  59. 3 2
      packages/cocoaint/src/appkit/NSPredicateEditorRowTemplate.inc
  60. 2 2
      packages/cocoaint/src/appkit/NSPrintPanel.inc
  61. 2 2
      packages/cocoaint/src/appkit/NSPrinter.inc
  62. 3 2
      packages/cocoaint/src/appkit/NSProgressIndicator.inc
  63. 3 2
      packages/cocoaint/src/appkit/NSRuleEditor.inc
  64. 3 2
      packages/cocoaint/src/appkit/NSRulerMarker.inc
  65. 3 2
      packages/cocoaint/src/appkit/NSRunningApplication.inc
  66. 4 3
      packages/cocoaint/src/appkit/NSSavePanel.inc
  67. 41 36
      packages/cocoaint/src/appkit/NSScrollView.inc
  68. 6 4
      packages/cocoaint/src/appkit/NSScroller.inc
  69. 3 2
      packages/cocoaint/src/appkit/NSSearchFieldCell.inc
  70. 1 1
      packages/cocoaint/src/appkit/NSShadow.inc
  71. 4 3
      packages/cocoaint/src/appkit/NSSliderCell.inc
  72. 1 1
      packages/cocoaint/src/appkit/NSSound.inc
  73. 3 2
      packages/cocoaint/src/appkit/NSSpellChecker.inc
  74. 3 2
      packages/cocoaint/src/appkit/NSStatusItem.inc
  75. 3 2
      packages/cocoaint/src/appkit/NSStepperCell.inc
  76. 6 4
      packages/cocoaint/src/appkit/NSTabView.inc
  77. 3 2
      packages/cocoaint/src/appkit/NSTabViewItem.inc
  78. 3 2
      packages/cocoaint/src/appkit/NSTableColumn.inc
  79. 43 38
      packages/cocoaint/src/appkit/NSTableView.inc
  80. 3 2
      packages/cocoaint/src/appkit/NSTextAttachment.inc
  81. 3 2
      packages/cocoaint/src/appkit/NSTextContainer.inc
  82. 3 2
      packages/cocoaint/src/appkit/NSTextFieldCell.inc
  83. 4 3
      packages/cocoaint/src/appkit/NSTextInputContext.inc
  84. 3 2
      packages/cocoaint/src/appkit/NSTextStorage.inc
  85. 9 0
      packages/cocoaint/src/appkit/NSTokenField.inc
  86. 4 3
      packages/cocoaint/src/appkit/NSTokenFieldCell.inc
  87. 3 2
      packages/cocoaint/src/appkit/NSToolbar.inc
  88. 3 2
      packages/cocoaint/src/appkit/NSToolbarItem.inc
  89. 3 2
      packages/cocoaint/src/appkit/NSToolbarItemGroup.inc
  90. 3 2
      packages/cocoaint/src/appkit/NSTreeController.inc
  91. 3 2
      packages/cocoaint/src/appkit/NSTreeNode.inc
  92. 1 1
      packages/cocoaint/src/appkit/NSTypesetter.inc
  93. 3 2
      packages/cocoaint/src/appkit/NSUserDefaultsController.inc
  94. 53 47
      packages/cocoaint/src/appkit/NSView.inc
  95. 1 1
      packages/cocoaint/src/appkit/NSViewController.inc
  96. 3 2
      packages/cocoaint/src/appkit/NSWindow.inc
  97. 3 2
      packages/cocoaint/src/appkit/NSWindowController.inc
  98. 2 0
      packages/cocoaint/src/appkit/NSWorkspace.inc
  99. 3 2
      packages/cocoaint/src/coredata/NSAttributeDescription.inc
  100. 3 2
      packages/cocoaint/src/coredata/NSEntityDescription.inc

+ 1 - 0
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
 

+ 1 - 0
packages/cocoaint/src/CoreData.pas

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

+ 1298 - 1285
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;

+ 2 - 1
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.

+ 11 - 5
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} 

+ 1 - 1
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

+ 9 - 6
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;

+ 1 - 1
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';

+ 3 - 2
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;

+ 3 - 2
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;

+ 4 - 3
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;
     

+ 4 - 3
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;

+ 3 - 2
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;

+ 59 - 54
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;

+ 68 - 58
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;

+ 3 - 2
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;

+ 3 - 2
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;
     

+ 7 - 5
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:';

+ 3 - 2
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;

+ 4 - 3
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:';

+ 3 - 2
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;
     

+ 39 - 2
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}

+ 3 - 2
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;
     

+ 3 - 2
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;

+ 3 - 2
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;

+ 3 - 2
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;

+ 3 - 2
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;
     

+ 4 - 3
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';

+ 3 - 2
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;

+ 30 - 11
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;

+ 3 - 2
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;

+ 3 - 2
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;

+ 4 - 3
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

+ 3 - 2
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 }

+ 3 - 2
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;

+ 3 - 2
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;

+ 3 - 2
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;

+ 3 - 2
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;

+ 3 - 2
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;

+ 63 - 58
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;

+ 3 - 2
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;

+ 3 - 2
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;
     

+ 3 - 2
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;
     

+ 3 - 2
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;
     

+ 3 - 2
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;

+ 3 - 2
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;

+ 3 - 2
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;

+ 3 - 2
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;

+ 1 - 1
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

+ 65 - 60
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;

+ 2 - 2
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

+ 6 - 4
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;

+ 1 - 1
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';

+ 3 - 2
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;

+ 3 - 2
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;

+ 3 - 2
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}

+ 3 - 2
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}

+ 4 - 3
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:';

+ 3 - 2
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;

+ 2 - 2
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

+ 2 - 2
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

+ 3 - 2
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;

+ 3 - 2
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;

+ 3 - 2
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;

+ 3 - 2
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;

+ 4 - 3
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

+ 41 - 36
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;

+ 6 - 4
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;
     

+ 3 - 2
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;

+ 1 - 1
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

+ 4 - 3
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;
     

+ 1 - 1
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

+ 3 - 2
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;

+ 3 - 2
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;

+ 3 - 2
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;

+ 6 - 4
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;

+ 3 - 2
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;

+ 3 - 2
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;

+ 43 - 38
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;

+ 3 - 2
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;
     

+ 3 - 2
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;
     

+ 3 - 2
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;
     

+ 4 - 3
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;
     

+ 3 - 2
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;

+ 9 - 0
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:';

+ 4 - 3
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;
     

+ 3 - 2
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;

+ 3 - 2
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;

+ 3 - 2
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;

+ 3 - 2
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;

+ 3 - 2
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;
     

+ 1 - 1
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

+ 3 - 2
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;
     

+ 53 - 47
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;
     

+ 1 - 1
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:';

+ 3 - 2
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;

+ 3 - 2
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;

+ 2 - 0
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

+ 3 - 2
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;

+ 3 - 2
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 }

Some files were not shown because too many files changed in this diff