--- Merging r42501 into '.':

U packages/cocoaint/src/AVFoundation.pas U packages/cocoaint/src/AVKit.pas U packages/cocoaint/src/Accounts.pas U packages/cocoaint/src/AddressBook.pas U packages/cocoaint/src/AppKit.pas U packages/cocoaint/src/AppleScriptObjC.pas U packages/cocoaint/src/AudioVideoBridging.pas U packages/cocoaint/src/Automator.pas U packages/cocoaint/src/CFOpenDirectory.pas U packages/cocoaint/src/CalendarStore.pas U packages/cocoaint/src/CloudKit.pas U packages/cocoaint/src/CocoaAll.pas U packages/cocoaint/src/Collaboration.pas U packages/cocoaint/src/CoreAudio.pas U packages/cocoaint/src/CoreAudioKit.pas U packages/cocoaint/src/CoreBluetooth.pas U packages/cocoaint/src/CoreData.pas U packages/cocoaint/src/CoreImage.pas U packages/cocoaint/src/CoreLocation.pas U packages/cocoaint/src/CoreMedia.pas U packages/cocoaint/src/CoreMediaIO.pas U packages/cocoaint/src/CoreVideo.pas U packages/cocoaint/src/CryptoTokenKit.pas U packages/cocoaint/src/DefinedClassesAVFoundation.pas U packages/cocoaint/src/DefinedClassesAVKit.pas U packages/cocoaint/src/DefinedClassesAccounts.pas U packages/cocoaint/src/DefinedClassesAddressBook.pas U packages/cocoaint/src/DefinedClassesAppKit.pas U packages/cocoaint/src/DefinedClassesAppleScriptObjC.pas U packages/cocoaint/src/DefinedClassesAudioVideoBridging.pas U packages/cocoaint/src/DefinedClassesAutomator.pas U packages/cocoaint/src/DefinedClassesCFOpenDirectory.pas U packages/cocoaint/src/DefinedClassesCalendarStore.pas U packages/cocoaint/src/DefinedClassesCloudKit.pas U packages/cocoaint/src/DefinedClassesCollaboration.pas U packages/cocoaint/src/DefinedClassesCoreAudio.pas U packages/cocoaint/src/DefinedClassesCoreAudioKit.pas U packages/cocoaint/src/DefinedClassesCoreBluetooth.pas U packages/cocoaint/src/DefinedClassesCoreData.pas U packages/cocoaint/src/DefinedClassesCoreImage.pas U packages/cocoaint/src/DefinedClassesCoreLocation.pas U packages/cocoaint/src/DefinedClassesCoreMedia.pas U packages/cocoaint/src/DefinedClassesCoreMediaIO.pas U packages/cocoaint/src/DefinedClassesCoreVideo.pas U packages/cocoaint/src/DefinedClassesCryptoTokenKit.pas U packages/cocoaint/src/DefinedClassesEventKit.pas U packages/cocoaint/src/DefinedClassesFinderSync.pas U packages/cocoaint/src/DefinedClassesFoundation.pas U packages/cocoaint/src/DefinedClassesGLKit.pas U packages/cocoaint/src/DefinedClassesGameController.pas U packages/cocoaint/src/DefinedClassesGameKit.pas U packages/cocoaint/src/DefinedClassesIOBluetooth.pas U packages/cocoaint/src/DefinedClassesIOBluetoothUI.pas U packages/cocoaint/src/DefinedClassesImageCaptureCore.pas U packages/cocoaint/src/DefinedClassesImageKit.pas U packages/cocoaint/src/DefinedClassesInputMethodKit.pas U packages/cocoaint/src/DefinedClassesInstallerPlugins.pas U packages/cocoaint/src/DefinedClassesInstantMessage.pas U packages/cocoaint/src/DefinedClassesLocalAuthentication.pas U packages/cocoaint/src/DefinedClassesMapKit.pas U packages/cocoaint/src/DefinedClassesMediaAccessibility.pas U packages/cocoaint/src/DefinedClassesMediaLibrary.pas U packages/cocoaint/src/DefinedClassesMultipeerConnectivity.pas U packages/cocoaint/src/DefinedClassesNotificationCenter.pas U packages/cocoaint/src/DefinedClassesOSAKit.pas U packages/cocoaint/src/DefinedClassesOpenDirectory.pas U packages/cocoaint/src/DefinedClassesPDFKit.pas U packages/cocoaint/src/DefinedClassesPreferencePanes.pas U packages/cocoaint/src/DefinedClassesPubSub.pas U packages/cocoaint/src/DefinedClassesQTKit.pas U packages/cocoaint/src/DefinedClassesQuartzComposer.pas U packages/cocoaint/src/DefinedClassesQuartzCore.pas U packages/cocoaint/src/DefinedClassesQuartzFilters.pas U packages/cocoaint/src/DefinedClassesQuickLook.pas U packages/cocoaint/src/DefinedClassesQuickLookUI.pas U packages/cocoaint/src/DefinedClassesSceneKit.pas U packages/cocoaint/src/DefinedClassesScreenSaver.pas U packages/cocoaint/src/DefinedClassesScriptingBridge.pas U packages/cocoaint/src/DefinedClassesSecurityFoundation.pas U packages/cocoaint/src/DefinedClassesSecurityInterface.pas U packages/cocoaint/src/DefinedClassesServiceManagement.pas U packages/cocoaint/src/DefinedClassesSocial.pas U packages/cocoaint/src/DefinedClassesSpriteKit.pas U packages/cocoaint/src/DefinedClassesStoreKit.pas U packages/cocoaint/src/DefinedClassesSyncServices.pas U packages/cocoaint/src/DefinedClassesWebKit.pas U packages/cocoaint/src/DefinedClassesiTunesLibrary.pas U packages/cocoaint/src/EventKit.pas U packages/cocoaint/src/FinderSync.pas U packages/cocoaint/src/Foundation.pas U packages/cocoaint/src/GLKit.pas U packages/cocoaint/src/GameController.pas U packages/cocoaint/src/GameKit.pas U packages/cocoaint/src/IOBluetooth.pas U packages/cocoaint/src/IOBluetoothUI.pas U packages/cocoaint/src/ImageCaptureCore.pas U packages/cocoaint/src/ImageKit.pas U packages/cocoaint/src/InputMethodKit.pas U packages/cocoaint/src/InstallerPlugins.pas U packages/cocoaint/src/InstantMessage.pas U packages/cocoaint/src/LocalAuthentication.pas U packages/cocoaint/src/MapKit.pas U packages/cocoaint/src/MediaAccessibility.pas U packages/cocoaint/src/MediaLibrary.pas U packages/cocoaint/src/MultipeerConnectivity.pas U packages/cocoaint/src/NotificationCenter.pas U packages/cocoaint/src/OSAKit.pas U packages/cocoaint/src/OpenDirectory.pas U packages/cocoaint/src/PDFKit.pas U packages/cocoaint/src/PreferencePanes.pas U packages/cocoaint/src/PubSub.pas U packages/cocoaint/src/QTKit.pas U packages/cocoaint/src/QuartzComposer.pas U packages/cocoaint/src/QuartzCore.pas U packages/cocoaint/src/QuartzFilters.pas U packages/cocoaint/src/QuickLook.pas U packages/cocoaint/src/QuickLookUI.pas U packages/cocoaint/src/SceneKit.pas U packages/cocoaint/src/ScreenSaver.pas U packages/cocoaint/src/ScriptingBridge.pas U packages/cocoaint/src/SecurityFoundation.pas U packages/cocoaint/src/SecurityInterface.pas U packages/cocoaint/src/ServiceManagement.pas U packages/cocoaint/src/Social.pas U packages/cocoaint/src/SpriteKit.pas U packages/cocoaint/src/StoreKit.pas U packages/cocoaint/src/SyncServices.pas U packages/cocoaint/src/WebKit.pas U packages/cocoaint/src/addressbook/ABAddressBook.inc U packages/cocoaint/src/appkit/NSAnimation.inc U packages/cocoaint/src/appkit/NSApplication.inc U packages/cocoaint/src/appkit/NSArrayController.inc U packages/cocoaint/src/appkit/NSBitmapImageRep.inc U packages/cocoaint/src/appkit/NSBox.inc U packages/cocoaint/src/appkit/NSClipView.inc U packages/cocoaint/src/appkit/NSColorList.inc U packages/cocoaint/src/appkit/NSColorWell.inc U packages/cocoaint/src/appkit/NSComboBoxCell.inc U packages/cocoaint/src/appkit/NSControl.inc U packages/cocoaint/src/appkit/NSController.inc U packages/cocoaint/src/appkit/NSCursor.inc U packages/cocoaint/src/appkit/NSDatePickerCell.inc U packages/cocoaint/src/appkit/NSDictionaryController.inc U packages/cocoaint/src/appkit/NSDocument.inc U packages/cocoaint/src/appkit/NSFont.inc U packages/cocoaint/src/appkit/NSFontPanel.inc U packages/cocoaint/src/appkit/NSGestureRecognizer.inc U packages/cocoaint/src/appkit/NSImage.inc U packages/cocoaint/src/appkit/NSImageCell.inc U packages/cocoaint/src/appkit/NSImageRep.inc U packages/cocoaint/src/appkit/NSImageView.inc U packages/cocoaint/src/appkit/NSLayoutManager.inc U packages/cocoaint/src/appkit/NSMenu.inc U packages/cocoaint/src/appkit/NSMenuItem.inc U packages/cocoaint/src/appkit/NSMenuItemCell.inc U packages/cocoaint/src/appkit/NSMenuView.inc U packages/cocoaint/src/appkit/NSNib.inc U packages/cocoaint/src/appkit/NSObjectController.inc U packages/cocoaint/src/appkit/NSPageController.inc U packages/cocoaint/src/appkit/NSPanGestureRecognizer.inc U packages/cocoaint/src/appkit/NSPopUpButton.inc U packages/cocoaint/src/appkit/NSRulerMarker.inc U packages/cocoaint/src/appkit/NSScrollView.inc U packages/cocoaint/src/appkit/NSScroller.inc U packages/cocoaint/src/appkit/NSSearchFieldCell.inc U packages/cocoaint/src/appkit/NSSliderCell.inc U packages/cocoaint/src/appkit/NSSpellChecker.inc U packages/cocoaint/src/appkit/NSStatusBar.inc U packages/cocoaint/src/appkit/NSTabView.inc U packages/cocoaint/src/appkit/NSTabViewItem.inc U packages/cocoaint/src/appkit/NSTableColumn.inc U packages/cocoaint/src/appkit/NSTextContainer.inc U packages/cocoaint/src/appkit/NSTextFieldCell.inc U packages/cocoaint/src/appkit/NSToolbar.inc U packages/cocoaint/src/appkit/NSToolbarItem.inc U packages/cocoaint/src/appkit/NSTreeController.inc U packages/cocoaint/src/appkit/NSUserDefaultsController.inc U packages/cocoaint/src/appkit/NSView.inc U packages/cocoaint/src/appkit/NSWindow.inc U packages/cocoaint/src/appkit/NSWindowController.inc U packages/cocoaint/src/automator/AMWorkflowController.inc U packages/cocoaint/src/automator/AMWorkflowView.inc U packages/cocoaint/src/coredata/NSBatchUpdateRequest.inc U packages/cocoaint/src/coredata/NSEntityDescription.inc U packages/cocoaint/src/coredata/NSEntityMapping.inc U packages/cocoaint/src/coredata/NSFetchRequestExpression.inc U packages/cocoaint/src/coredata/NSManagedObjectContext.inc U packages/cocoaint/src/coredata/NSManagedObjectModel.inc U packages/cocoaint/src/coredata/NSMappingModel.inc U packages/cocoaint/src/coredata/NSPersistentStore.inc U packages/cocoaint/src/coredata/NSPersistentStoreCoordinator.inc U packages/cocoaint/src/coredata/NSPropertyDescription.inc U packages/cocoaint/src/coredata/NSPropertyMapping.inc U packages/cocoaint/src/foundation/InlineFunctions.inc U packages/cocoaint/src/foundation/NSProxy.inc U packages/cocoaint/src/iTunesLibrary.pas --- Recording mergeinfo for merge of r42501 into '.': U . git-svn-id: https://svn.freepascal.org/svn/fpc/branches/fixes_3_2@44841 3ad0048d-3df7-0310-abae-a5850022a9f2
author: jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> 2020-04-19 10:42:57 +0000
committer: jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> 2020-04-19 10:42:57 +0000
commit: 7bf10738b95fac2f75125176441bca127272121e (patch)
tree: 446de311cd4edd9ec8f115243684154fdfd248ba
parent: 9bbd2db52696b99d4da55ac46d48b677f32eefad (diff)
download: fpc-7bf10738b95fac2f75125176441bca127272121e.tar.gz
196 files changed, 331 insertions, 149 deletions
diff --git a/packages/cocoaint/src/AVFoundation.pas b/packages/cocoaint/src/AVFoundation.pas
index f0a357e466..d11f0f7a77 100644
--- a/packages/cocoaint/src/AVFoundation.pas
+++ b/packages/cocoaint/src/AVFoundation.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/AVKit.pas b/packages/cocoaint/src/AVKit.pas
index 0d7a09b6e4..3f7e23b84f 100644
--- a/packages/cocoaint/src/AVKit.pas
+++ b/packages/cocoaint/src/AVKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/Accounts.pas b/packages/cocoaint/src/Accounts.pas
index 81a70b568f..3cb38c3ae1 100644
--- a/packages/cocoaint/src/Accounts.pas
+++ b/packages/cocoaint/src/Accounts.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/AddressBook.pas b/packages/cocoaint/src/AddressBook.pas
index 196be56306..ae08ea415c 100644
--- a/packages/cocoaint/src/AddressBook.pas
+++ b/packages/cocoaint/src/AddressBook.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/AppKit.pas b/packages/cocoaint/src/AppKit.pas
index 4a57a095e6..7a8721c529 100644
--- a/packages/cocoaint/src/AppKit.pas
+++ b/packages/cocoaint/src/AppKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 {$ifdef COCOAALL}
 {$fatal "AppKit can't be used because -dCOCOAALL has been declared."}
 {$endif}
diff --git a/packages/cocoaint/src/AppleScriptObjC.pas b/packages/cocoaint/src/AppleScriptObjC.pas
index d5b40de714..9a9c7aee25 100644
--- a/packages/cocoaint/src/AppleScriptObjC.pas
+++ b/packages/cocoaint/src/AppleScriptObjC.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/AudioVideoBridging.pas b/packages/cocoaint/src/AudioVideoBridging.pas
index 5ea65dd4fc..9669b698f4 100644
--- a/packages/cocoaint/src/AudioVideoBridging.pas
+++ b/packages/cocoaint/src/AudioVideoBridging.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/Automator.pas b/packages/cocoaint/src/Automator.pas
index 45b2bf4bfe..53e4bbab7e 100644
--- a/packages/cocoaint/src/Automator.pas
+++ b/packages/cocoaint/src/Automator.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/CFOpenDirectory.pas b/packages/cocoaint/src/CFOpenDirectory.pas
index 7bfcbb1ab7..92ff1ef641 100644
--- a/packages/cocoaint/src/CFOpenDirectory.pas
+++ b/packages/cocoaint/src/CFOpenDirectory.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/CalendarStore.pas b/packages/cocoaint/src/CalendarStore.pas
index ea7eaefb7e..f10165ed47 100644
--- a/packages/cocoaint/src/CalendarStore.pas
+++ b/packages/cocoaint/src/CalendarStore.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/CloudKit.pas b/packages/cocoaint/src/CloudKit.pas
index 0382e9aa99..5524d96689 100644
--- a/packages/cocoaint/src/CloudKit.pas
+++ b/packages/cocoaint/src/CloudKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/CocoaAll.pas b/packages/cocoaint/src/CocoaAll.pas
index b0dfbbeb01..c2ce948944 100644
--- a/packages/cocoaint/src/CocoaAll.pas
+++ b/packages/cocoaint/src/CocoaAll.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$ifndef COCOAALL}
 {$error "You must compile with -dCOCOAALL to use COCOAALL."}
@@ -199,6 +200,7 @@
 unit CocoaAll;
 interface
 
+{$linkframework Cocoa}
 {$linkframework Foundation}
 {linkframework CoreImage}
 {$linkframework QuartzCore}
diff --git a/packages/cocoaint/src/Collaboration.pas b/packages/cocoaint/src/Collaboration.pas
index 8ad8a6f469..37cd5f9a3c 100644
--- a/packages/cocoaint/src/Collaboration.pas
+++ b/packages/cocoaint/src/Collaboration.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/CoreAudio.pas b/packages/cocoaint/src/CoreAudio.pas
index dc6df2edb6..83bfc7dd50 100644
--- a/packages/cocoaint/src/CoreAudio.pas
+++ b/packages/cocoaint/src/CoreAudio.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/CoreAudioKit.pas b/packages/cocoaint/src/CoreAudioKit.pas
index 0e84c58c40..b8680f8da4 100644
--- a/packages/cocoaint/src/CoreAudioKit.pas
+++ b/packages/cocoaint/src/CoreAudioKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/CoreBluetooth.pas b/packages/cocoaint/src/CoreBluetooth.pas
index 20638d4d1d..07eba9b579 100644
--- a/packages/cocoaint/src/CoreBluetooth.pas
+++ b/packages/cocoaint/src/CoreBluetooth.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/CoreData.pas b/packages/cocoaint/src/CoreData.pas
index f4242e7f07..5a678ef5b0 100644
--- a/packages/cocoaint/src/CoreData.pas
+++ b/packages/cocoaint/src/CoreData.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 {$ifdef COCOAALL}
 {$fatal "CoreData can't be used because -dCOCOAALL has been declared."}
 {$endif}
diff --git a/packages/cocoaint/src/CoreImage.pas b/packages/cocoaint/src/CoreImage.pas
index 4443543cd7..de9da5ef38 100644
--- a/packages/cocoaint/src/CoreImage.pas
+++ b/packages/cocoaint/src/CoreImage.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 {$ifdef COCOAALL}
 {$fatal "CoreImage can't be used because -dCOCOAALL has been declared."}
 {$endif}
diff --git a/packages/cocoaint/src/CoreLocation.pas b/packages/cocoaint/src/CoreLocation.pas
index 88da6ddbec..235a47cf42 100644
--- a/packages/cocoaint/src/CoreLocation.pas
+++ b/packages/cocoaint/src/CoreLocation.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/CoreMedia.pas b/packages/cocoaint/src/CoreMedia.pas
index e188c0a9a4..ebb27b5576 100644
--- a/packages/cocoaint/src/CoreMedia.pas
+++ b/packages/cocoaint/src/CoreMedia.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/CoreMediaIO.pas b/packages/cocoaint/src/CoreMediaIO.pas
index 590bd2f6ee..9169504b3f 100644
--- a/packages/cocoaint/src/CoreMediaIO.pas
+++ b/packages/cocoaint/src/CoreMediaIO.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/CoreVideo.pas b/packages/cocoaint/src/CoreVideo.pas
index a164f7de41..260f1a3923 100644
--- a/packages/cocoaint/src/CoreVideo.pas
+++ b/packages/cocoaint/src/CoreVideo.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/CryptoTokenKit.pas b/packages/cocoaint/src/CryptoTokenKit.pas
index 253a9e7607..18ef1000d2 100644
--- a/packages/cocoaint/src/CryptoTokenKit.pas
+++ b/packages/cocoaint/src/CryptoTokenKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/DefinedClassesAVFoundation.pas b/packages/cocoaint/src/DefinedClassesAVFoundation.pas
index b9f4d50a11..a3ee2bed67 100644
--- a/packages/cocoaint/src/DefinedClassesAVFoundation.pas
+++ b/packages/cocoaint/src/DefinedClassesAVFoundation.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesAVFoundation;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesAVKit.pas b/packages/cocoaint/src/DefinedClassesAVKit.pas
index 10076564f4..5a47e04ab6 100644
--- a/packages/cocoaint/src/DefinedClassesAVKit.pas
+++ b/packages/cocoaint/src/DefinedClassesAVKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesAVKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesAccounts.pas b/packages/cocoaint/src/DefinedClassesAccounts.pas
index 7091a6f608..22be0a499c 100644
--- a/packages/cocoaint/src/DefinedClassesAccounts.pas
+++ b/packages/cocoaint/src/DefinedClassesAccounts.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesAccounts;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesAddressBook.pas b/packages/cocoaint/src/DefinedClassesAddressBook.pas
index fee08fcada..c430b73312 100644
--- a/packages/cocoaint/src/DefinedClassesAddressBook.pas
+++ b/packages/cocoaint/src/DefinedClassesAddressBook.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesAddressBook;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesAppKit.pas b/packages/cocoaint/src/DefinedClassesAppKit.pas
index 135740f6df..119d2bb8d1 100644
--- a/packages/cocoaint/src/DefinedClassesAppKit.pas
+++ b/packages/cocoaint/src/DefinedClassesAppKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesAppKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesAppleScriptObjC.pas b/packages/cocoaint/src/DefinedClassesAppleScriptObjC.pas
index 658b98b577..dc3b4111d7 100644
--- a/packages/cocoaint/src/DefinedClassesAppleScriptObjC.pas
+++ b/packages/cocoaint/src/DefinedClassesAppleScriptObjC.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesAppleScriptObjC;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesAudioVideoBridging.pas b/packages/cocoaint/src/DefinedClassesAudioVideoBridging.pas
index c39f8ce2a9..cebec775e7 100644
--- a/packages/cocoaint/src/DefinedClassesAudioVideoBridging.pas
+++ b/packages/cocoaint/src/DefinedClassesAudioVideoBridging.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesAudioVideoBridging;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesAutomator.pas b/packages/cocoaint/src/DefinedClassesAutomator.pas
index 62a0b78909..eafa06c6df 100644
--- a/packages/cocoaint/src/DefinedClassesAutomator.pas
+++ b/packages/cocoaint/src/DefinedClassesAutomator.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesAutomator;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesCFOpenDirectory.pas b/packages/cocoaint/src/DefinedClassesCFOpenDirectory.pas
index 96d127df6d..5f36a874f1 100644
--- a/packages/cocoaint/src/DefinedClassesCFOpenDirectory.pas
+++ b/packages/cocoaint/src/DefinedClassesCFOpenDirectory.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesCFOpenDirectory;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesCalendarStore.pas b/packages/cocoaint/src/DefinedClassesCalendarStore.pas
index a15c148a33..64f7bc2ad2 100644
--- a/packages/cocoaint/src/DefinedClassesCalendarStore.pas
+++ b/packages/cocoaint/src/DefinedClassesCalendarStore.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesCalendarStore;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesCloudKit.pas b/packages/cocoaint/src/DefinedClassesCloudKit.pas
index 99783f5691..d5a9864d1d 100644
--- a/packages/cocoaint/src/DefinedClassesCloudKit.pas
+++ b/packages/cocoaint/src/DefinedClassesCloudKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesCloudKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesCollaboration.pas b/packages/cocoaint/src/DefinedClassesCollaboration.pas
index 5835350eee..7a2470072f 100644
--- a/packages/cocoaint/src/DefinedClassesCollaboration.pas
+++ b/packages/cocoaint/src/DefinedClassesCollaboration.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesCollaboration;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesCoreAudio.pas b/packages/cocoaint/src/DefinedClassesCoreAudio.pas
index f89654dac7..372acaade2 100644
--- a/packages/cocoaint/src/DefinedClassesCoreAudio.pas
+++ b/packages/cocoaint/src/DefinedClassesCoreAudio.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesCoreAudio;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesCoreAudioKit.pas b/packages/cocoaint/src/DefinedClassesCoreAudioKit.pas
index 7ad7ea0ccd..630764bf01 100644
--- a/packages/cocoaint/src/DefinedClassesCoreAudioKit.pas
+++ b/packages/cocoaint/src/DefinedClassesCoreAudioKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesCoreAudioKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesCoreBluetooth.pas b/packages/cocoaint/src/DefinedClassesCoreBluetooth.pas
index c3f8a73fef..ee32ada87f 100644
--- a/packages/cocoaint/src/DefinedClassesCoreBluetooth.pas
+++ b/packages/cocoaint/src/DefinedClassesCoreBluetooth.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesCoreBluetooth;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesCoreData.pas b/packages/cocoaint/src/DefinedClassesCoreData.pas
index e61b2c56df..9d40658043 100644
--- a/packages/cocoaint/src/DefinedClassesCoreData.pas
+++ b/packages/cocoaint/src/DefinedClassesCoreData.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesCoreData;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesCoreImage.pas b/packages/cocoaint/src/DefinedClassesCoreImage.pas
index bb4b811e7a..e1958a63fc 100644
--- a/packages/cocoaint/src/DefinedClassesCoreImage.pas
+++ b/packages/cocoaint/src/DefinedClassesCoreImage.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesCoreImage;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesCoreLocation.pas b/packages/cocoaint/src/DefinedClassesCoreLocation.pas
index 8ac9ada579..18dc3b62bf 100644
--- a/packages/cocoaint/src/DefinedClassesCoreLocation.pas
+++ b/packages/cocoaint/src/DefinedClassesCoreLocation.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesCoreLocation;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesCoreMedia.pas b/packages/cocoaint/src/DefinedClassesCoreMedia.pas
index 99072a8f7e..4f73083a10 100644
--- a/packages/cocoaint/src/DefinedClassesCoreMedia.pas
+++ b/packages/cocoaint/src/DefinedClassesCoreMedia.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesCoreMedia;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesCoreMediaIO.pas b/packages/cocoaint/src/DefinedClassesCoreMediaIO.pas
index dab1c5e6d6..df77b5badc 100644
--- a/packages/cocoaint/src/DefinedClassesCoreMediaIO.pas
+++ b/packages/cocoaint/src/DefinedClassesCoreMediaIO.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesCoreMediaIO;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesCoreVideo.pas b/packages/cocoaint/src/DefinedClassesCoreVideo.pas
index f36d50256d..ad372703d1 100644
--- a/packages/cocoaint/src/DefinedClassesCoreVideo.pas
+++ b/packages/cocoaint/src/DefinedClassesCoreVideo.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesCoreVideo;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesCryptoTokenKit.pas b/packages/cocoaint/src/DefinedClassesCryptoTokenKit.pas
index 02005e069e..5d34bf74d7 100644
--- a/packages/cocoaint/src/DefinedClassesCryptoTokenKit.pas
+++ b/packages/cocoaint/src/DefinedClassesCryptoTokenKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesCryptoTokenKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesEventKit.pas b/packages/cocoaint/src/DefinedClassesEventKit.pas
index 46c2361eb9..2c690dd741 100644
--- a/packages/cocoaint/src/DefinedClassesEventKit.pas
+++ b/packages/cocoaint/src/DefinedClassesEventKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesEventKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesFinderSync.pas b/packages/cocoaint/src/DefinedClassesFinderSync.pas
index 1dc31600fa..5bce201bfe 100644
--- a/packages/cocoaint/src/DefinedClassesFinderSync.pas
+++ b/packages/cocoaint/src/DefinedClassesFinderSync.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesFinderSync;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesFoundation.pas b/packages/cocoaint/src/DefinedClassesFoundation.pas
index bf388f7b65..062628b7c2 100644
--- a/packages/cocoaint/src/DefinedClassesFoundation.pas
+++ b/packages/cocoaint/src/DefinedClassesFoundation.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesFoundation;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesGLKit.pas b/packages/cocoaint/src/DefinedClassesGLKit.pas
index 3d02d91ae5..c69d81166b 100644
--- a/packages/cocoaint/src/DefinedClassesGLKit.pas
+++ b/packages/cocoaint/src/DefinedClassesGLKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesGLKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesGameController.pas b/packages/cocoaint/src/DefinedClassesGameController.pas
index db3c15a848..e060c83eca 100644
--- a/packages/cocoaint/src/DefinedClassesGameController.pas
+++ b/packages/cocoaint/src/DefinedClassesGameController.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesGameController;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesGameKit.pas b/packages/cocoaint/src/DefinedClassesGameKit.pas
index c21ae36e85..2107eb0497 100644
--- a/packages/cocoaint/src/DefinedClassesGameKit.pas
+++ b/packages/cocoaint/src/DefinedClassesGameKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesGameKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesIOBluetooth.pas b/packages/cocoaint/src/DefinedClassesIOBluetooth.pas
index 77f54841c0..8b17481e8b 100644
--- a/packages/cocoaint/src/DefinedClassesIOBluetooth.pas
+++ b/packages/cocoaint/src/DefinedClassesIOBluetooth.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesIOBluetooth;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesIOBluetoothUI.pas b/packages/cocoaint/src/DefinedClassesIOBluetoothUI.pas
index 3a797d76e6..860ce80a18 100644
--- a/packages/cocoaint/src/DefinedClassesIOBluetoothUI.pas
+++ b/packages/cocoaint/src/DefinedClassesIOBluetoothUI.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesIOBluetoothUI;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesImageCaptureCore.pas b/packages/cocoaint/src/DefinedClassesImageCaptureCore.pas
index b21c65c856..08d8a7b410 100644
--- a/packages/cocoaint/src/DefinedClassesImageCaptureCore.pas
+++ b/packages/cocoaint/src/DefinedClassesImageCaptureCore.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesImageCaptureCore;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesImageKit.pas b/packages/cocoaint/src/DefinedClassesImageKit.pas
index 161b3a165c..15101a332a 100644
--- a/packages/cocoaint/src/DefinedClassesImageKit.pas
+++ b/packages/cocoaint/src/DefinedClassesImageKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesImageKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesInputMethodKit.pas b/packages/cocoaint/src/DefinedClassesInputMethodKit.pas
index a08481e186..f8b9cd32ba 100644
--- a/packages/cocoaint/src/DefinedClassesInputMethodKit.pas
+++ b/packages/cocoaint/src/DefinedClassesInputMethodKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesInputMethodKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesInstallerPlugins.pas b/packages/cocoaint/src/DefinedClassesInstallerPlugins.pas
index 41b4e2b23a..4901f1a525 100644
--- a/packages/cocoaint/src/DefinedClassesInstallerPlugins.pas
+++ b/packages/cocoaint/src/DefinedClassesInstallerPlugins.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesInstallerPlugins;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesInstantMessage.pas b/packages/cocoaint/src/DefinedClassesInstantMessage.pas
index 9b3c49d537..4243541183 100644
--- a/packages/cocoaint/src/DefinedClassesInstantMessage.pas
+++ b/packages/cocoaint/src/DefinedClassesInstantMessage.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesInstantMessage;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesLocalAuthentication.pas b/packages/cocoaint/src/DefinedClassesLocalAuthentication.pas
index 0e5464f4ae..5a5bffec20 100644
--- a/packages/cocoaint/src/DefinedClassesLocalAuthentication.pas
+++ b/packages/cocoaint/src/DefinedClassesLocalAuthentication.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesLocalAuthentication;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesMapKit.pas b/packages/cocoaint/src/DefinedClassesMapKit.pas
index eba4e70bd7..b81316d0da 100644
--- a/packages/cocoaint/src/DefinedClassesMapKit.pas
+++ b/packages/cocoaint/src/DefinedClassesMapKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesMapKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesMediaAccessibility.pas b/packages/cocoaint/src/DefinedClassesMediaAccessibility.pas
index 05c9f4bd6b..dd70d0075d 100644
--- a/packages/cocoaint/src/DefinedClassesMediaAccessibility.pas
+++ b/packages/cocoaint/src/DefinedClassesMediaAccessibility.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesMediaAccessibility;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesMediaLibrary.pas b/packages/cocoaint/src/DefinedClassesMediaLibrary.pas
index 1d0709cca8..033c991e08 100644
--- a/packages/cocoaint/src/DefinedClassesMediaLibrary.pas
+++ b/packages/cocoaint/src/DefinedClassesMediaLibrary.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesMediaLibrary;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesMultipeerConnectivity.pas b/packages/cocoaint/src/DefinedClassesMultipeerConnectivity.pas
index 2475fb00fb..75031282c3 100644
--- a/packages/cocoaint/src/DefinedClassesMultipeerConnectivity.pas
+++ b/packages/cocoaint/src/DefinedClassesMultipeerConnectivity.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesMultipeerConnectivity;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesNotificationCenter.pas b/packages/cocoaint/src/DefinedClassesNotificationCenter.pas
index 61277d6e4e..8b279368fb 100644
--- a/packages/cocoaint/src/DefinedClassesNotificationCenter.pas
+++ b/packages/cocoaint/src/DefinedClassesNotificationCenter.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesNotificationCenter;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesOSAKit.pas b/packages/cocoaint/src/DefinedClassesOSAKit.pas
index 9c08c9da41..6e88554396 100644
--- a/packages/cocoaint/src/DefinedClassesOSAKit.pas
+++ b/packages/cocoaint/src/DefinedClassesOSAKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesOSAKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesOpenDirectory.pas b/packages/cocoaint/src/DefinedClassesOpenDirectory.pas
index e5587e8300..362bd2ca47 100644
--- a/packages/cocoaint/src/DefinedClassesOpenDirectory.pas
+++ b/packages/cocoaint/src/DefinedClassesOpenDirectory.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesOpenDirectory;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesPDFKit.pas b/packages/cocoaint/src/DefinedClassesPDFKit.pas
index 24effa0862..050c493543 100644
--- a/packages/cocoaint/src/DefinedClassesPDFKit.pas
+++ b/packages/cocoaint/src/DefinedClassesPDFKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesPDFKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesPreferencePanes.pas b/packages/cocoaint/src/DefinedClassesPreferencePanes.pas
index 6f64631fce..21747a52a7 100644
--- a/packages/cocoaint/src/DefinedClassesPreferencePanes.pas
+++ b/packages/cocoaint/src/DefinedClassesPreferencePanes.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesPreferencePanes;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesPubSub.pas b/packages/cocoaint/src/DefinedClassesPubSub.pas
index cb81146ebd..9a2d4d6d37 100644
--- a/packages/cocoaint/src/DefinedClassesPubSub.pas
+++ b/packages/cocoaint/src/DefinedClassesPubSub.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesPubSub;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesQTKit.pas b/packages/cocoaint/src/DefinedClassesQTKit.pas
index 6dac11cb77..50866d5f3a 100644
--- a/packages/cocoaint/src/DefinedClassesQTKit.pas
+++ b/packages/cocoaint/src/DefinedClassesQTKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesQTKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesQuartzComposer.pas b/packages/cocoaint/src/DefinedClassesQuartzComposer.pas
index a112353e2b..97b0126313 100644
--- a/packages/cocoaint/src/DefinedClassesQuartzComposer.pas
+++ b/packages/cocoaint/src/DefinedClassesQuartzComposer.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesQuartzComposer;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesQuartzCore.pas b/packages/cocoaint/src/DefinedClassesQuartzCore.pas
index 7555adf178..6bc15f7c9a 100644
--- a/packages/cocoaint/src/DefinedClassesQuartzCore.pas
+++ b/packages/cocoaint/src/DefinedClassesQuartzCore.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesQuartzCore;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesQuartzFilters.pas b/packages/cocoaint/src/DefinedClassesQuartzFilters.pas
index e1b30f0af7..2a4190b046 100644
--- a/packages/cocoaint/src/DefinedClassesQuartzFilters.pas
+++ b/packages/cocoaint/src/DefinedClassesQuartzFilters.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesQuartzFilters;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesQuickLook.pas b/packages/cocoaint/src/DefinedClassesQuickLook.pas
index 9c5fc940f9..b98798770d 100644
--- a/packages/cocoaint/src/DefinedClassesQuickLook.pas
+++ b/packages/cocoaint/src/DefinedClassesQuickLook.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesQuickLook;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesQuickLookUI.pas b/packages/cocoaint/src/DefinedClassesQuickLookUI.pas
index f2bf920309..9844322c75 100644
--- a/packages/cocoaint/src/DefinedClassesQuickLookUI.pas
+++ b/packages/cocoaint/src/DefinedClassesQuickLookUI.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesQuickLookUI;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesSceneKit.pas b/packages/cocoaint/src/DefinedClassesSceneKit.pas
index 3d84ee395b..42b9ba723a 100644
--- a/packages/cocoaint/src/DefinedClassesSceneKit.pas
+++ b/packages/cocoaint/src/DefinedClassesSceneKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesSceneKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesScreenSaver.pas b/packages/cocoaint/src/DefinedClassesScreenSaver.pas
index 1959417839..bed828508c 100644
--- a/packages/cocoaint/src/DefinedClassesScreenSaver.pas
+++ b/packages/cocoaint/src/DefinedClassesScreenSaver.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesScreenSaver;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesScriptingBridge.pas b/packages/cocoaint/src/DefinedClassesScriptingBridge.pas
index ae7fbd0423..3daec19aea 100644
--- a/packages/cocoaint/src/DefinedClassesScriptingBridge.pas
+++ b/packages/cocoaint/src/DefinedClassesScriptingBridge.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesScriptingBridge;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesSecurityFoundation.pas b/packages/cocoaint/src/DefinedClassesSecurityFoundation.pas
index 1929585a34..fc8a3a9d61 100644
--- a/packages/cocoaint/src/DefinedClassesSecurityFoundation.pas
+++ b/packages/cocoaint/src/DefinedClassesSecurityFoundation.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesSecurityFoundation;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesSecurityInterface.pas b/packages/cocoaint/src/DefinedClassesSecurityInterface.pas
index 8b225d48f8..474a18aae6 100644
--- a/packages/cocoaint/src/DefinedClassesSecurityInterface.pas
+++ b/packages/cocoaint/src/DefinedClassesSecurityInterface.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesSecurityInterface;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesServiceManagement.pas b/packages/cocoaint/src/DefinedClassesServiceManagement.pas
index 3768652729..557d4aabbd 100644
--- a/packages/cocoaint/src/DefinedClassesServiceManagement.pas
+++ b/packages/cocoaint/src/DefinedClassesServiceManagement.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesServiceManagement;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesSocial.pas b/packages/cocoaint/src/DefinedClassesSocial.pas
index f54a8d2cfc..2085155145 100644
--- a/packages/cocoaint/src/DefinedClassesSocial.pas
+++ b/packages/cocoaint/src/DefinedClassesSocial.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesSocial;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesSpriteKit.pas b/packages/cocoaint/src/DefinedClassesSpriteKit.pas
index 976ee67d88..7c6cc58b96 100644
--- a/packages/cocoaint/src/DefinedClassesSpriteKit.pas
+++ b/packages/cocoaint/src/DefinedClassesSpriteKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesSpriteKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesStoreKit.pas b/packages/cocoaint/src/DefinedClassesStoreKit.pas
index f593465305..caa070bcd5 100644
--- a/packages/cocoaint/src/DefinedClassesStoreKit.pas
+++ b/packages/cocoaint/src/DefinedClassesStoreKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesStoreKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesSyncServices.pas b/packages/cocoaint/src/DefinedClassesSyncServices.pas
index 3037a9fc0b..b72ba2cfe2 100644
--- a/packages/cocoaint/src/DefinedClassesSyncServices.pas
+++ b/packages/cocoaint/src/DefinedClassesSyncServices.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesSyncServices;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesWebKit.pas b/packages/cocoaint/src/DefinedClassesWebKit.pas
index 86e0518b94..28c706d697 100644
--- a/packages/cocoaint/src/DefinedClassesWebKit.pas
+++ b/packages/cocoaint/src/DefinedClassesWebKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesWebKit;
 interface
diff --git a/packages/cocoaint/src/DefinedClassesiTunesLibrary.pas b/packages/cocoaint/src/DefinedClassesiTunesLibrary.pas
index 1e4bb4e5ae..2735e0487a 100644
--- a/packages/cocoaint/src/DefinedClassesiTunesLibrary.pas
+++ b/packages/cocoaint/src/DefinedClassesiTunesLibrary.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 unit DefinedClassesiTunesLibrary;
 interface
diff --git a/packages/cocoaint/src/EventKit.pas b/packages/cocoaint/src/EventKit.pas
index 6c8741fea7..3c628dfd20 100644
--- a/packages/cocoaint/src/EventKit.pas
+++ b/packages/cocoaint/src/EventKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/FinderSync.pas b/packages/cocoaint/src/FinderSync.pas
index 88568933ba..e21ea0941d 100644
--- a/packages/cocoaint/src/FinderSync.pas
+++ b/packages/cocoaint/src/FinderSync.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/Foundation.pas b/packages/cocoaint/src/Foundation.pas
index 36a9635cee..7e78fd553b 100644
--- a/packages/cocoaint/src/Foundation.pas
+++ b/packages/cocoaint/src/Foundation.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 {$ifdef COCOAALL}
 {$fatal "Foundation can't be used because -dCOCOAALL has been declared."}
 {$endif}
diff --git a/packages/cocoaint/src/GLKit.pas b/packages/cocoaint/src/GLKit.pas
index a20c634437..868412ad14 100644
--- a/packages/cocoaint/src/GLKit.pas
+++ b/packages/cocoaint/src/GLKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/GameController.pas b/packages/cocoaint/src/GameController.pas
index 2a385a7f0a..5d1f72f5fb 100644
--- a/packages/cocoaint/src/GameController.pas
+++ b/packages/cocoaint/src/GameController.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/GameKit.pas b/packages/cocoaint/src/GameKit.pas
index 5925060e58..6d3ff24e04 100644
--- a/packages/cocoaint/src/GameKit.pas
+++ b/packages/cocoaint/src/GameKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/IOBluetooth.pas b/packages/cocoaint/src/IOBluetooth.pas
index dc6db19297..e875840bfa 100644
--- a/packages/cocoaint/src/IOBluetooth.pas
+++ b/packages/cocoaint/src/IOBluetooth.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/IOBluetoothUI.pas b/packages/cocoaint/src/IOBluetoothUI.pas
index 2eaf13ee0e..885c7ffd55 100644
--- a/packages/cocoaint/src/IOBluetoothUI.pas
+++ b/packages/cocoaint/src/IOBluetoothUI.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/ImageCaptureCore.pas b/packages/cocoaint/src/ImageCaptureCore.pas
index 0d0c852ff8..8fbd217e27 100644
--- a/packages/cocoaint/src/ImageCaptureCore.pas
+++ b/packages/cocoaint/src/ImageCaptureCore.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/ImageKit.pas b/packages/cocoaint/src/ImageKit.pas
index 98be2878ed..bd1a047a08 100644
--- a/packages/cocoaint/src/ImageKit.pas
+++ b/packages/cocoaint/src/ImageKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/InputMethodKit.pas b/packages/cocoaint/src/InputMethodKit.pas
index ee817ff237..c50eafd21e 100644
--- a/packages/cocoaint/src/InputMethodKit.pas
+++ b/packages/cocoaint/src/InputMethodKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/InstallerPlugins.pas b/packages/cocoaint/src/InstallerPlugins.pas
index c92c75c667..79486f1fc1 100644
--- a/packages/cocoaint/src/InstallerPlugins.pas
+++ b/packages/cocoaint/src/InstallerPlugins.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/InstantMessage.pas b/packages/cocoaint/src/InstantMessage.pas
index c66d369516..f9320a6593 100644
--- a/packages/cocoaint/src/InstantMessage.pas
+++ b/packages/cocoaint/src/InstantMessage.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/LocalAuthentication.pas b/packages/cocoaint/src/LocalAuthentication.pas
index d6a41d78a7..0169b511bd 100644
--- a/packages/cocoaint/src/LocalAuthentication.pas
+++ b/packages/cocoaint/src/LocalAuthentication.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/MapKit.pas b/packages/cocoaint/src/MapKit.pas
index 9b0e3144bf..fe90bed28a 100644
--- a/packages/cocoaint/src/MapKit.pas
+++ b/packages/cocoaint/src/MapKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/MediaAccessibility.pas b/packages/cocoaint/src/MediaAccessibility.pas
index 4b3ed5da50..041557f9dc 100644
--- a/packages/cocoaint/src/MediaAccessibility.pas
+++ b/packages/cocoaint/src/MediaAccessibility.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/MediaLibrary.pas b/packages/cocoaint/src/MediaLibrary.pas
index 6db33184f8..c4b77b8471 100644
--- a/packages/cocoaint/src/MediaLibrary.pas
+++ b/packages/cocoaint/src/MediaLibrary.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/MultipeerConnectivity.pas b/packages/cocoaint/src/MultipeerConnectivity.pas
index db3e064b31..7becec6393 100644
--- a/packages/cocoaint/src/MultipeerConnectivity.pas
+++ b/packages/cocoaint/src/MultipeerConnectivity.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/NotificationCenter.pas b/packages/cocoaint/src/NotificationCenter.pas
index 2030497d60..612baae709 100644
--- a/packages/cocoaint/src/NotificationCenter.pas
+++ b/packages/cocoaint/src/NotificationCenter.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/OSAKit.pas b/packages/cocoaint/src/OSAKit.pas
index 60ac131f92..ec388b752a 100644
--- a/packages/cocoaint/src/OSAKit.pas
+++ b/packages/cocoaint/src/OSAKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/OpenDirectory.pas b/packages/cocoaint/src/OpenDirectory.pas
index 5c21d02e6c..212eefd96b 100644
--- a/packages/cocoaint/src/OpenDirectory.pas
+++ b/packages/cocoaint/src/OpenDirectory.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/PDFKit.pas b/packages/cocoaint/src/PDFKit.pas
index ef9e67bc71..2bec5e20ff 100644
--- a/packages/cocoaint/src/PDFKit.pas
+++ b/packages/cocoaint/src/PDFKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/PreferencePanes.pas b/packages/cocoaint/src/PreferencePanes.pas
index 17b6aea99a..e0c7913f1a 100644
--- a/packages/cocoaint/src/PreferencePanes.pas
+++ b/packages/cocoaint/src/PreferencePanes.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/PubSub.pas b/packages/cocoaint/src/PubSub.pas
index 6fdbc47948..697fcee8b4 100644
--- a/packages/cocoaint/src/PubSub.pas
+++ b/packages/cocoaint/src/PubSub.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/QTKit.pas b/packages/cocoaint/src/QTKit.pas
index 19adf90d76..b86dd2f35a 100644
--- a/packages/cocoaint/src/QTKit.pas
+++ b/packages/cocoaint/src/QTKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/QuartzComposer.pas b/packages/cocoaint/src/QuartzComposer.pas
index 7a15cc60c6..b546d58c9e 100644
--- a/packages/cocoaint/src/QuartzComposer.pas
+++ b/packages/cocoaint/src/QuartzComposer.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/QuartzCore.pas b/packages/cocoaint/src/QuartzCore.pas
index 31fc022558..ecadaa3a79 100644
--- a/packages/cocoaint/src/QuartzCore.pas
+++ b/packages/cocoaint/src/QuartzCore.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 {$ifdef COCOAALL}
 {$fatal "QuartzCore can't be used because -dCOCOAALL has been declared."}
 {$endif}
diff --git a/packages/cocoaint/src/QuartzFilters.pas b/packages/cocoaint/src/QuartzFilters.pas
index 6fde225d01..4e74195f98 100644
--- a/packages/cocoaint/src/QuartzFilters.pas
+++ b/packages/cocoaint/src/QuartzFilters.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/QuickLook.pas b/packages/cocoaint/src/QuickLook.pas
index 321150ba99..7695ad53dd 100644
--- a/packages/cocoaint/src/QuickLook.pas
+++ b/packages/cocoaint/src/QuickLook.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/QuickLookUI.pas b/packages/cocoaint/src/QuickLookUI.pas
index 8db8214412..f68f7af1e1 100644
--- a/packages/cocoaint/src/QuickLookUI.pas
+++ b/packages/cocoaint/src/QuickLookUI.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/SceneKit.pas b/packages/cocoaint/src/SceneKit.pas
index abb767a115..d7cd420cb5 100644
--- a/packages/cocoaint/src/SceneKit.pas
+++ b/packages/cocoaint/src/SceneKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/ScreenSaver.pas b/packages/cocoaint/src/ScreenSaver.pas
index 5c87342ce1..de892c87a4 100644
--- a/packages/cocoaint/src/ScreenSaver.pas
+++ b/packages/cocoaint/src/ScreenSaver.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/ScriptingBridge.pas b/packages/cocoaint/src/ScriptingBridge.pas
index b0d86aaf61..ec711ec6c3 100644
--- a/packages/cocoaint/src/ScriptingBridge.pas
+++ b/packages/cocoaint/src/ScriptingBridge.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/SecurityFoundation.pas b/packages/cocoaint/src/SecurityFoundation.pas
index 8ebb7b17b7..1e44937f37 100644
--- a/packages/cocoaint/src/SecurityFoundation.pas
+++ b/packages/cocoaint/src/SecurityFoundation.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/SecurityInterface.pas b/packages/cocoaint/src/SecurityInterface.pas
index 19f67d8c79..0e95a66e17 100644
--- a/packages/cocoaint/src/SecurityInterface.pas
+++ b/packages/cocoaint/src/SecurityInterface.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/ServiceManagement.pas b/packages/cocoaint/src/ServiceManagement.pas
index 4cc860c339..5f202f8dd9 100644
--- a/packages/cocoaint/src/ServiceManagement.pas
+++ b/packages/cocoaint/src/ServiceManagement.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/Social.pas b/packages/cocoaint/src/Social.pas
index 1b96a9caf9..018b41135b 100644
--- a/packages/cocoaint/src/Social.pas
+++ b/packages/cocoaint/src/Social.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/SpriteKit.pas b/packages/cocoaint/src/SpriteKit.pas
index cfe771d69b..1cfdd44e7c 100644
--- a/packages/cocoaint/src/SpriteKit.pas
+++ b/packages/cocoaint/src/SpriteKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/StoreKit.pas b/packages/cocoaint/src/StoreKit.pas
index 0cc8cb7726..8009fe58ed 100644
--- a/packages/cocoaint/src/StoreKit.pas
+++ b/packages/cocoaint/src/StoreKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/SyncServices.pas b/packages/cocoaint/src/SyncServices.pas
index 688d464bc2..d98fefe2de 100644
--- a/packages/cocoaint/src/SyncServices.pas
+++ b/packages/cocoaint/src/SyncServices.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/WebKit.pas b/packages/cocoaint/src/WebKit.pas
index c732b1e5dd..d8184993f2 100644
--- a/packages/cocoaint/src/WebKit.pas
+++ b/packages/cocoaint/src/WebKit.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
 
diff --git a/packages/cocoaint/src/addressbook/ABAddressBook.inc b/packages/cocoaint/src/addressbook/ABAddressBook.inc
index a0dc7a604c..f646175d9a 100644
--- a/packages/cocoaint/src/addressbook/ABAddressBook.inc
+++ b/packages/cocoaint/src/addressbook/ABAddressBook.inc
@@ -38,9 +38,9 @@ type
     _reserved1: id;
     _reserved6: pointer;
     _reserved7: pointer;
-    __ABBookflags: bitpacked record
+    _flags: bitpacked record
       case byte of
-        0: (_anonBitField___ABBookflags0: cuint);
+        0: (_anonBitField__flags0: cuint);
         1: (
           hasUnsavedChanges_: 0..1;
           readOnly: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSAnimation.inc b/packages/cocoaint/src/appkit/NSAnimation.inc
index d66a0687e2..effb86b2fe 100644
--- a/packages/cocoaint/src/appkit/NSAnimation.inc
+++ b/packages/cocoaint/src/appkit/NSAnimation.inc
@@ -55,9 +55,9 @@ type
     _startAnimation: NSAnimation;
     _stopAnimation: NSAnimation;
     _nextProgressMark: cint;
-    __aFlags: bitpacked record
+    _aFlags: bitpacked record
       case byte of
-        0: (_anonBitField___aFlags0: cuint);
+        0: (_anonBitField__aFlags0: cuint);
         1: (
           delegateAnimationShouldStart: 0..1;
           delegateAnimationDidStop: 0..1;
@@ -69,9 +69,9 @@ type
           reserved: 0..((1 shl 25)-1);
         );
       end;
-    __aSettings: bitpacked record
+    _aSettings: bitpacked record
       case byte of
-        0: (_anonBitField___aSettings0: cuint);
+        0: (_anonBitField__aSettings0: cuint);
         1: (
           animationCurve: 0..((1 shl 8)-1);
           animationBlockingMode: 0..((1 shl 2)-1);
@@ -151,9 +151,9 @@ type
     _reserved4a: NSUInteger;
     _reserved4b: NSUInteger;
     _reserved4c: NSUInteger;
-    __vaFlags: bitpacked record
+    _vaFlags: bitpacked record
       case byte of
-        0: (_anonBitField___vaFlags0: cuint);
+        0: (_anonBitField__vaFlags0: cuint);
         1: (
           reserved: 0..((1 shl 32)-1);
         );
diff --git a/packages/cocoaint/src/appkit/NSApplication.inc b/packages/cocoaint/src/appkit/NSApplication.inc
index 7c1f4450ad..3ce99d101e 100644
--- a/packages/cocoaint/src/appkit/NSApplication.inc
+++ b/packages/cocoaint/src/appkit/NSApplication.inc
@@ -151,9 +151,9 @@ type
     _previousKeyWindow: id;
     _unusedApp: cshort;
     _running: cshort;
-    __appFlags: bitpacked record
+    _appFlags: bitpacked record
       case byte of
-        0: (_anonBitField___appFlags0: cuint);
+        0: (_anonBitField__appFlags0: cuint);
         1: (
           _hidden: 0..1;
           _appleEventActivationInProgress: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSArrayController.inc b/packages/cocoaint/src/appkit/NSArrayController.inc
index d3004be033..181fc56c9f 100644
--- a/packages/cocoaint/src/appkit/NSArrayController.inc
+++ b/packages/cocoaint/src/appkit/NSArrayController.inc
@@ -14,9 +14,9 @@ type
     _reserved4: pointer;
     _rearrangementExtensions: id;
     _temporaryWorkObjects: NSMutableArray;
-    __arrayControllerFlags: bitpacked record
+    _arrayControllerFlags: bitpacked record
       case byte of
-        0: (_anonBitField___arrayControllerFlags0: cuint);
+        0: (_anonBitField__arrayControllerFlags0: cuint);
         1: (
           _avoidsEmptySelection: 0..1;
           _preservesSelection: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSBitmapImageRep.inc b/packages/cocoaint/src/appkit/NSBitmapImageRep.inc
index 0f2c76558d..9140e44d52 100644
--- a/packages/cocoaint/src/appkit/NSBitmapImageRep.inc
+++ b/packages/cocoaint/src/appkit/NSBitmapImageRep.inc
@@ -82,9 +82,9 @@ var
 type
   NSBitmapImageRep = objcclass external (NSImageRep, NSSecureCodingProtocol)
   private
-    __bitmapRepFlags: bitpacked record
+    _moreRepFlags: bitpacked record
       case byte of
-        0: (_anonBitField___bitmapRepFlags0: cuint);
+        0: (_anonBitField__moreRepFlags0: cuint);
         1: (
           bitsPerPixel: 0..((1 shl 8)-1);
           isPlanar: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSBox.inc b/packages/cocoaint/src/appkit/NSBox.inc
index d251525ae0..2364ff660f 100644
--- a/packages/cocoaint/src/appkit/NSBox.inc
+++ b/packages/cocoaint/src/appkit/NSBox.inc
@@ -42,9 +42,9 @@ type
     _offsets: NSSize;
     _borderRect: NSRect;
     _titleRect: NSRect;
-    __bFlags: bitpacked record
+    _bFlags: bitpacked record
       case byte of
-        0: (_anonBitField___bFlags0: cuint);
+        0: (_anonBitField__bFlags0: cuint);
         1: (
           borderType: 0..((1 shl 2)-1);
           titlePosition: 0..((1 shl 3)-1);
diff --git a/packages/cocoaint/src/appkit/NSClipView.inc b/packages/cocoaint/src/appkit/NSClipView.inc
index 16b4b0f079..6b30870784 100644
--- a/packages/cocoaint/src/appkit/NSClipView.inc
+++ b/packages/cocoaint/src/appkit/NSClipView.inc
@@ -17,9 +17,9 @@ type
     _oldDocFrame: NSRect;
     _cursor: NSCursor;
     _scrollAnimationHelper: id;
-    __cvFlags: bitpacked record
+    _cvFlags: bitpacked record
       case byte of
-        0: (_anonBitField___cvFlags0: cuint);
+        0: (_anonBitField__cvFlags0: cuint);
         1: (
           int: 0..1;
           onlyUncovered: 0..1;
@@ -53,8 +53,8 @@ type
     function backgroundColor: NSColor; message 'backgroundColor';
     procedure setDrawsBackground(newValue: ObjCBOOL); message 'setDrawsBackground:';
     function drawsBackground: ObjCBOOL; message 'drawsBackground';
-    procedure setDocumentView(newValue: id); message 'setDocumentView:';
-    function documentView: id; message 'documentView';
+    procedure setDocumentView(newValue: NSView); message 'setDocumentView:';
+    function documentView: NSView; message 'documentView';
     function documentRect: NSRect; message 'documentRect';
     procedure setDocumentCursor(newValue: NSCursor); message 'setDocumentCursor:';
     function documentCursor: NSCursor; message 'documentCursor';
diff --git a/packages/cocoaint/src/appkit/NSColorList.inc b/packages/cocoaint/src/appkit/NSColorList.inc
index 5ecce14349..58e1435b3f 100644
--- a/packages/cocoaint/src/appkit/NSColorList.inc
+++ b/packages/cocoaint/src/appkit/NSColorList.inc
@@ -17,9 +17,9 @@ type
     _name: NSString;
     _printerType: NSString;
     _fileName: NSString;
-    _colorListFlags: bitpacked record
+    _flags: bitpacked record
       case byte of
-        0: (_anonBitField__colorListFlags0: cuint);
+        0: (_anonBitField__flags0: cuint);
         1: (
           colorsLoaded: 0..1;
           editable: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSColorWell.inc b/packages/cocoaint/src/appkit/NSColorWell.inc
index ad8b43af43..8afdd91cc1 100644
--- a/packages/cocoaint/src/appkit/NSColorWell.inc
+++ b/packages/cocoaint/src/appkit/NSColorWell.inc
@@ -14,9 +14,9 @@ type
     _color: NSColor;
     _reserved: id;
     _reserved2: SEL;
-    __cwFlags: bitpacked record
+    _cwFlags: bitpacked record
       case byte of
-        0: (_anonBitField___cwFlags0: cuint);
+        0: (_anonBitField__cwFlags0: cuint);
         1: (
           isActive: 0..1;
           isBordered: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSComboBoxCell.inc b/packages/cocoaint/src/appkit/NSComboBoxCell.inc
index 5f331d9d96..7248f8c392 100644
--- a/packages/cocoaint/src/appkit/NSComboBoxCell.inc
+++ b/packages/cocoaint/src/appkit/NSComboBoxCell.inc
@@ -14,9 +14,9 @@ type
   private
     _delegate: id;
     _dataSource: id;
-    __cbcFlags: bitpacked record
+    _cbcFlags: bitpacked record
       case byte of
-        0: (_anonBitField___cbcFlags0: cuint);
+        0: (_anonBitField__cbcFlags0: cuint);
         1: (
           usesDataSource: 0..1;
           completes: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSControl.inc b/packages/cocoaint/src/appkit/NSControl.inc
index d207adf5a4..ca07be30e0 100644
--- a/packages/cocoaint/src/appkit/NSControl.inc
+++ b/packages/cocoaint/src/appkit/NSControl.inc
@@ -14,9 +14,9 @@ type
   private
     _aux: NSControlAuxiliary;
     _cell: id;
-    __conFlags: bitpacked record
+    _conFlags: bitpacked record
       case byte of
-        0: (_anonBitField___conFlags0: cuint);
+        0: (_anonBitField__conFlags0: cuint);
         1: (
           enabled: 0..1;
           ignoreMultiClick: 0..1;
@@ -160,6 +160,8 @@ type
     function selectedTag: NSInteger; message 'selectedTag';
 		{$ifndef LEGACY_SETNEEDSDISPLAY}
 		procedure setNeedsDisplay_; message 'setNeedsDisplay';
+		{$else}
+		procedure setNeedsDisplay; message 'setNeedsDisplay';
 		{$endif}
     procedure calcSize; message 'calcSize';
     procedure updateCell (aCell: NSCell); message 'updateCell:';
diff --git a/packages/cocoaint/src/appkit/NSController.inc b/packages/cocoaint/src/appkit/NSController.inc
index b9366e5512..b0fbf0277c 100644
--- a/packages/cocoaint/src/appkit/NSController.inc
+++ b/packages/cocoaint/src/appkit/NSController.inc
@@ -22,9 +22,9 @@ type
     _dependentKeyToModelKeyTable: NSMutableDictionary;
     _modelKeyToDependentKeyTable: NSMutableDictionary;
     _modelKeysToRefreshEachTime: NSMutableArray;
-    __bindingsControllerFlags: bitpacked record
+    _bindingsControllerFlags: bitpacked record
       case byte of
-        0: (_anonBitField___bindingsControllerFlags0: cuint);
+        0: (_anonBitField__bindingsControllerFlags0: cuint);
         1: (
           _alwaysPresentsApplicationModalAlerts: 0..1;
           _refreshesAllModelKeys: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSCursor.inc b/packages/cocoaint/src/appkit/NSCursor.inc
index 5259384b67..7ccf35c8d3 100644
--- a/packages/cocoaint/src/appkit/NSCursor.inc
+++ b/packages/cocoaint/src/appkit/NSCursor.inc
@@ -17,9 +17,9 @@ type
   NSCursor = objcclass external (NSObject, NSCodingProtocol)
   private
     _hotSpot: NSPoint;
-    _cursorFlags: bitpacked record
+    _flags: bitpacked record
       case byte of
-        0: (_anonBitField__cursorFlags0: cuint);
+        0: (_anonBitField__flags0: cuint);
         1: (
           onMouseExited: 0..1;
           onMouseEntered: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSDatePickerCell.inc b/packages/cocoaint/src/appkit/NSDatePickerCell.inc
index 0c2c8c256b..a937c646f4 100644
--- a/packages/cocoaint/src/appkit/NSDatePickerCell.inc
+++ b/packages/cocoaint/src/appkit/NSDatePickerCell.inc
@@ -46,9 +46,9 @@ type
     _timeInterval: NSTimeInterval;
     _minDate: NSDate;
     _maxDate: NSDate;
-    __dateCellFlags: bitpacked record
+    _dcFlags: bitpacked record
       case byte of
-        0: (_anonBitField___dateCellFlags0: cuint);
+        0: (_anonBitField__dcFlags0: cuint);
         1: (
           elements: 0..((1 shl 16)-1);
           controlStyle: 0..((1 shl 3)-1);
diff --git a/packages/cocoaint/src/appkit/NSDictionaryController.inc b/packages/cocoaint/src/appkit/NSDictionaryController.inc
index 6d3072df77..e1a08e1e48 100644
--- a/packages/cocoaint/src/appkit/NSDictionaryController.inc
+++ b/packages/cocoaint/src/appkit/NSDictionaryController.inc
@@ -35,9 +35,9 @@ type
     _keyForLocalizedKeyDictionary: NSDictionary;
     _includedKeys: NSArray;
     _excludedKeys: NSArray;
-    __dictionaryControllerFlags: bitpacked record
+    _dictionaryControllerFlags: bitpacked record
       case byte of
-        0: (_anonBitField___dictionaryControllerFlags0: cuint);
+        0: (_anonBitField__dictionaryControllerFlags0: cuint);
         1: (
           _deepCopiesValues: 0..1;
           _suppressBuildingDictionary: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSDocument.inc b/packages/cocoaint/src/appkit/NSDocument.inc
index f47352ae0c..e2a8702781 100644
--- a/packages/cocoaint/src/appkit/NSDocument.inc
+++ b/packages/cocoaint/src/appkit/NSDocument.inc
@@ -49,9 +49,9 @@ type
     _displayName: id;
     _privateData: id;
     _undoManager: NSUndoManager;
-    __docFlags: bitpacked record
+    _docFlags: bitpacked record
       case byte of
-        0: (_anonBitField___docFlags0: cuint);
+        0: (_anonBitField__docFlags0: cuint);
         1: (
           inClose: 0..1;
           hasUndoManager: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSFont.inc b/packages/cocoaint/src/appkit/NSFont.inc
index 6c8341247d..3d567ae572 100644
--- a/packages/cocoaint/src/appkit/NSFont.inc
+++ b/packages/cocoaint/src/appkit/NSFont.inc
@@ -48,9 +48,9 @@ type
     _name: NSString;
     _size: CGFloat;
     _retainCount: NSInteger;
-    __fFlags: bitpacked record
+    _fFlags: bitpacked record
       case byte of
-        0: (_anonBitField___fFlags0: cuint);
+        0: (_anonBitField__fFlags0: cuint);
         1: (
           _isScreenFont: 0..1;
           _systemFontType: 0..((1 shl 8)-1);
diff --git a/packages/cocoaint/src/appkit/NSFontPanel.inc b/packages/cocoaint/src/appkit/NSFontPanel.inc
index 656f66204a..555c191014 100644
--- a/packages/cocoaint/src/appkit/NSFontPanel.inc
+++ b/packages/cocoaint/src/appkit/NSFontPanel.inc
@@ -41,9 +41,9 @@ type
     _fixedListButton: id;
     _sliderButton: id;
     _accessoryView: id;
-    __fpFlags: bitpacked record
+    _fpFlags: bitpacked record
       case byte of
-        0: (_anonBitField___fpFlags0: cuint);
+        0: (_anonBitField__fpFlags0: cuint);
         1: (
           setFontChange: 0..1;
           setFontAttributeChange: 0..1;
@@ -83,8 +83,9 @@ type
     _actionButton: id;
     _fontEffectsBox: id;
     _sizeStyle: cint;
+    _mode: NSInteger;
     {$if  not defined(__LP64__)}
-    _fpUnused:array[0..71] of id;
+    _fpUnused:array[0..70] of id;
     {$endif}
   public
     class function sharedFontPanel: NSFontPanel; message 'sharedFontPanel';
diff --git a/packages/cocoaint/src/appkit/NSGestureRecognizer.inc b/packages/cocoaint/src/appkit/NSGestureRecognizer.inc
index 7b3f70420f..29347bd245 100644
--- a/packages/cocoaint/src/appkit/NSGestureRecognizer.inc
+++ b/packages/cocoaint/src/appkit/NSGestureRecognizer.inc
@@ -43,9 +43,7 @@ type
     _dynamicFailureRequirements: NSMutableSet;
     _dynamicFailureDependents: NSMutableSet;
     _failureMap: id;
-    {$ifndef __OBJC2__}
     _reserved: id;
-    {$endif}
   public
     function initWithTarget_action (target: id; action: SEL): instancetype; message 'initWithTarget:action:'; { NS_DESIGNATED_INITIALIZER }
     function initWithCoder (coder: NSCoder): instancetype; message 'initWithCoder:'; { NS_DESIGNATED_INITIALIZER }
diff --git a/packages/cocoaint/src/appkit/NSImage.inc b/packages/cocoaint/src/appkit/NSImage.inc
index 71eadeb8e9..0daad45a38 100644
--- a/packages/cocoaint/src/appkit/NSImage.inc
+++ b/packages/cocoaint/src/appkit/NSImage.inc
@@ -45,9 +45,9 @@ type
   private
     _name: NSString;
     _size: NSSize;
-    __imageFlags: bitpacked record
+    _flags: bitpacked record
       case byte of
-        0: (_anonBitField___imageFlags0: cuint);
+        0: (_anonBitField__flags0: cuint);
         1: (
           scalable: 0..1;
           dataRetained: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSImageCell.inc b/packages/cocoaint/src/appkit/NSImageCell.inc
index 3b5ce834f6..f8124401eb 100644
--- a/packages/cocoaint/src/appkit/NSImageCell.inc
+++ b/packages/cocoaint/src/appkit/NSImageCell.inc
@@ -40,9 +40,9 @@ type
   NSImageCell = objcclass external (NSCell, NSCopyingProtocol, NSCodingProtocol)
   private
     _controlView: id;
-    __ICFlags: bitpacked record
+    _icFlags: bitpacked record
       case byte of
-        0: (_anonBitField___ICFlags0: cuint);
+        0: (_anonBitField__icFlags0: cuint);
         1: (
           _unused: 0..((1 shl 22)-1);
           _animates: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSImageRep.inc b/packages/cocoaint/src/appkit/NSImageRep.inc
index 86db7beae2..c3c042ddd3 100644
--- a/packages/cocoaint/src/appkit/NSImageRep.inc
+++ b/packages/cocoaint/src/appkit/NSImageRep.inc
@@ -16,16 +16,16 @@ const
 type
   NSImageRep = objcclass external (NSObject, NSCopyingProtocol, NSCodingProtocol)
   private
-    __repFlags: bitpacked record
+    _repFlags: bitpacked record
       case byte of
-        0: (_anonBitField___repFlags0: cuint);
+        0: (_anonBitField__repFlags0: cuint);
         1: (
           hasAlpha: 0..1;
           isOpaque: 0..1;
-          cacheParamsComputed: cuint;
-          cacheAlphaComputed: cuint;
+          cacheParamsComputed: 0..1 deprecated;
+          cacheAlphaComputed: 0..1 deprecated;
           loadState: 0..((1 shl 2)-1);
-          keepCacheWindow: cuint;
+          keepCacheWindow: 0..1 deprecated;
           reserved: 0..1;
           bitsPerSample: 0..((1 shl 8)-1);
           gsaved: 0..((1 shl 16)-1);
diff --git a/packages/cocoaint/src/appkit/NSImageView.inc b/packages/cocoaint/src/appkit/NSImageView.inc
index 64541b61f6..50a726d6ed 100644
--- a/packages/cocoaint/src/appkit/NSImageView.inc
+++ b/packages/cocoaint/src/appkit/NSImageView.inc
@@ -11,9 +11,9 @@ type
 type
   NSImageView = objcclass external (NSControl, NSAccessibilityImageProtocol)
   private
-    __IVFlags: bitpacked record
+    _ivFlags: bitpacked record
       case byte of
-        0: (_anonBitField___IVFlags0: cuint);
+        0: (_anonBitField__ivFlags0: cuint);
         1: (
           _hasImageView: 0..1;
           _unused: 0..((1 shl 25)-1);
diff --git a/packages/cocoaint/src/appkit/NSLayoutManager.inc b/packages/cocoaint/src/appkit/NSLayoutManager.inc
index f5f5754129..591b4ace01 100644
--- a/packages/cocoaint/src/appkit/NSLayoutManager.inc
+++ b/packages/cocoaint/src/appkit/NSLayoutManager.inc
@@ -75,9 +75,9 @@ type
     _extraLineFragmentContainer: NSTextContainer;
     _glyphHoles: NSSortedArray;
     _layoutHoles: NSSortedArray;
-    __lmFlags: bitpacked record
+    _lmFlags: bitpacked record
       case byte of
-        0: (_anonBitField___lmFlags0: cuint);
+        0: (_anonBitField__lmFlags0: cuint);
         1: (
           containersAreFull: 0..1;
           glyphsMightDrawOutsideLines: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSMenu.inc b/packages/cocoaint/src/appkit/NSMenu.inc
index b8a1889618..39477bfdd8 100644
--- a/packages/cocoaint/src/appkit/NSMenu.inc
+++ b/packages/cocoaint/src/appkit/NSMenu.inc
@@ -16,9 +16,9 @@ type
     _title: NSString;
     _itemArray: id;
     _extra: id;
-    __mFlags: bitpacked record
+    _mFlags: bitpacked record
       case byte of
-        0: (_anonBitField___mFlags0: cuint);
+        0: (_anonBitField__mFlags0: cuint);
         1: (
           noAutoenable: 0..1;
           inMain: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSMenuItem.inc b/packages/cocoaint/src/appkit/NSMenuItem.inc
index 72202e9cfe..1e86cb0e2a 100644
--- a/packages/cocoaint/src/appkit/NSMenuItem.inc
+++ b/packages/cocoaint/src/appkit/NSMenuItem.inc
@@ -36,9 +36,9 @@ type
     _tag_: NSInteger;
     _extraData_: id;
     {$endif}
-    __miFlags: bitpacked record
+    _miFlags: bitpacked record
       case byte of
-        0: (_anonBitField___miFlags0: cuint);
+        0: (_anonBitField__miFlags0: cuint);
         1: (
           keGenerationCount: 0..((1 shl 8)-1);
           disabled: 0..1;
@@ -50,7 +50,8 @@ type
           indent: 0..((1 shl 4)-1);
           keShareMode: 0..((1 shl 3)-1);
           state: 0..((1 shl 2)-1);
-          RESERVED1: 0..((1 shl 2)-1);
+          destructive: 0..1;
+          RESERVED1: 0..1;
           limitedView: 0..1;
           nextItemIsAlternate: 0..1;
           blockKE: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSMenuItemCell.inc b/packages/cocoaint/src/appkit/NSMenuItemCell.inc
index 293d9dd468..ce2cf56d9a 100644
--- a/packages/cocoaint/src/appkit/NSMenuItemCell.inc
+++ b/packages/cocoaint/src/appkit/NSMenuItemCell.inc
@@ -25,9 +25,9 @@ type
     _keyEquivalentSize: NSSize;
     {$endif}
     _size: NSSize;
-    __micFlags: bitpacked record
+    _micFlags: bitpacked record
       case byte of
-        0: (_anonBitField___micFlags0: cuint);
+        0: (_anonBitField__micFlags0: cuint);
         1: (
           needsSizing: 0..1;
           reserved: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSMenuView.inc b/packages/cocoaint/src/appkit/NSMenuView.inc
index 9502f7903f..b2a98997b1 100644
--- a/packages/cocoaint/src/appkit/NSMenuView.inc
+++ b/packages/cocoaint/src/appkit/NSMenuView.inc
@@ -29,9 +29,9 @@ type
     _horizontalEdgePad: CGFloat;
     trackingState: pointer;
     _scrollingView: id;
-    __mvFlags: bitpacked record
+    _mvFlags: bitpacked record
       case byte of
-        0: (_anonBitField___mvFlags0: cuint);
+        0: (_anonBitField__mvFlags0: cuint);
         1: (
           needsSizing_: 0..1;
           releasingWindow: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSNib.inc b/packages/cocoaint/src/appkit/NSNib.inc
index 09d2e8f0b7..1fd63551e2 100644
--- a/packages/cocoaint/src/appkit/NSNib.inc
+++ b/packages/cocoaint/src/appkit/NSNib.inc
@@ -15,9 +15,9 @@ type
     _images: NSArray;
     _sounds: NSArray;
     _bundle: NSBundle;
-    _NSNibFlags: bitpacked record
+    _flags: bitpacked record
       case byte of
-        0: (_anonBitField__NSNibFlags0: cuint);
+        0: (_anonBitField__flags0: cuint);
         1: (
           _isKeyed: 0..1;
           _inheritsDecodeTimeBundle: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSObjectController.inc b/packages/cocoaint/src/appkit/NSObjectController.inc
index 589173e9a6..c76bc6eb03 100644
--- a/packages/cocoaint/src/appkit/NSObjectController.inc
+++ b/packages/cocoaint/src/appkit/NSObjectController.inc
@@ -13,9 +13,9 @@ type
   private
     _reserved3: pointer;
     _managedProxy: id;
-    __objectControllerFlags: bitpacked record
+    _objectControllerFlags: bitpacked record
       case byte of
-        0: (_anonBitField___objectControllerFlags0: cuint);
+        0: (_anonBitField__objectControllerFlags0: cuint);
         1: (
           _editable: 0..1;
           _automaticallyPreparesContent: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSPageController.inc b/packages/cocoaint/src/appkit/NSPageController.inc
index dedfd58a85..4d68ad3495 100644
--- a/packages/cocoaint/src/appkit/NSPageController.inc
+++ b/packages/cocoaint/src/appkit/NSPageController.inc
@@ -31,9 +31,9 @@ type
     _selectedIndex: NSInteger;
     _arrangedObjects: NSMutableArray;
     _snapshots: NSMutableArray;
-    __pcDelegateFlags: bitpacked record
+    _pcDelegateFlags: bitpacked record
       case byte of
-        0: (_anonBitField___pcDelegateFlags0: cuint);
+        0: (_anonBitField__pcDelegateFlags0: cuint);
         1: (
           delegateRespondsToIdentifierForRepresentedObject: 0..1;
           delegateRespondsToViewControllerForIdentifier: 0..1;
@@ -46,9 +46,9 @@ type
           reserved: 0..((1 shl 24)-1);
         );
       end;
-    __pcFlags: bitpacked record
+    _pcFlags: bitpacked record
       case byte of
-        0: (_anonBitField___pcFlags0: cuint);
+        0: (_anonBitField__pcFlags0: cuint);
         1: (
           templateCacheIsInvalid: 0..1;
           private1: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSPanGestureRecognizer.inc b/packages/cocoaint/src/appkit/NSPanGestureRecognizer.inc
index 6d2c876faa..a500f7f426 100644
--- a/packages/cocoaint/src/appkit/NSPanGestureRecognizer.inc
+++ b/packages/cocoaint/src/appkit/NSPanGestureRecognizer.inc
@@ -25,8 +25,8 @@ type
           reserved: 0..((1 shl 32)-1);
         );
       end;
+    _reserved0: id;
     {$ifndef __OBJC2__}
-    _reserved0: NSInteger;
     _reserved1: NSInteger;
     {$endif}
   public
diff --git a/packages/cocoaint/src/appkit/NSPopUpButton.inc b/packages/cocoaint/src/appkit/NSPopUpButton.inc
index 4a70d884ca..9c829f7b49 100644
--- a/packages/cocoaint/src/appkit/NSPopUpButton.inc
+++ b/packages/cocoaint/src/appkit/NSPopUpButton.inc
@@ -11,9 +11,9 @@ type
 type
   NSPopUpButton = objcclass external (NSButton)
   private
-    __pbFlags: bitpacked record
+    _pbFlags: bitpacked record
       case byte of
-        0: (_anonBitField___pbFlags0: cuint);
+        0: (_anonBitField__pbFlags0: cuint);
         1: (
           needsPullsDownFromTemplate: 0..1;
           RESERVED: 0..((1 shl 31)-1);
diff --git a/packages/cocoaint/src/appkit/NSRulerMarker.inc b/packages/cocoaint/src/appkit/NSRulerMarker.inc
index a32cd1ead3..d7f42398ec 100644
--- a/packages/cocoaint/src/appkit/NSRulerMarker.inc
+++ b/packages/cocoaint/src/appkit/NSRulerMarker.inc
@@ -15,9 +15,9 @@ type
     _location: CGFloat;
     _image: NSImage;
     _imageOrigin: NSPoint;
-    __rFlags: bitpacked record
+    _rFlags: bitpacked record
       case byte of
-        0: (_anonBitField___rFlags0: cuint);
+        0: (_anonBitField__rFlags0: cuint);
         1: (
           movable: 0..1;
           removable: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSScrollView.inc b/packages/cocoaint/src/appkit/NSScrollView.inc
index 5eb88fc79a..a8cb8107a1 100644
--- a/packages/cocoaint/src/appkit/NSScrollView.inc
+++ b/packages/cocoaint/src/appkit/NSScrollView.inc
@@ -110,8 +110,8 @@ type
     class function contentSizeForFrameSize_hasHorizontalScroller_hasVerticalScroller_borderType (fSize: NSSize; hFlag: ObjCBOOL; vFlag: ObjCBOOL; aType: NSBorderType): NSSize; message 'contentSizeForFrameSize:hasHorizontalScroller:hasVerticalScroller:borderType:'; deprecated 'in 10_0, 10_7, "+contentSizeForFrameSize:horizontalScrollerClass:verticalScrollerClass:borderType:controlSize:scrollerStyle: instead"';
     function documentVisibleRect: NSRect; message 'documentVisibleRect';
     function contentSize: NSSize; message 'contentSize';
-    procedure setDocumentView(newValue: id); message 'setDocumentView:';
-    function documentView: id; message 'documentView';
+    procedure setDocumentView(newValue: NSView); message 'setDocumentView:';
+    function documentView: NSView; message 'documentView';
     procedure setContentView(newValue: NSClipView); message 'setContentView:';
     function contentView: NSClipView; message 'contentView';
     procedure setDocumentCursor(newValue: NSCursor); message 'setDocumentCursor:';
diff --git a/packages/cocoaint/src/appkit/NSScroller.inc b/packages/cocoaint/src/appkit/NSScroller.inc
index 2721f31f73..f623c51ea9 100644
--- a/packages/cocoaint/src/appkit/NSScroller.inc
+++ b/packages/cocoaint/src/appkit/NSScroller.inc
@@ -73,9 +73,9 @@ type
     _curValue: CGFloat;
     _percent: CGFloat;
     _knobSize: CGFloat;
-    __sFlags2: bitpacked record
+    _sFlags2: bitpacked record
       case byte of
-        0: (_anonBitField___sFlags20: cuint);
+        0: (_anonBitField__sFlags20: cuint);
         1: (
           hitPart: 0..((1 shl 4)-1);
           controlSize: 0..((1 shl 2)-1);
@@ -94,9 +94,9 @@ type
       end;
     _reserved: id;
     _reserved2: SEL;
-    _sFlags: bitpacked record
+    sFlags: bitpacked record
       case byte of
-        0: (_anonBitField__sFlags0: cuint);
+        0: (_anonBitField_sFlags0: cuint);
         1: (
           isHoriz: 0..1;
           arrowsLoc: 0..((1 shl 2)-1);
diff --git a/packages/cocoaint/src/appkit/NSSearchFieldCell.inc b/packages/cocoaint/src/appkit/NSSearchFieldCell.inc
index d528433716..da1fbd40d2 100644
--- a/packages/cocoaint/src/appkit/NSSearchFieldCell.inc
+++ b/packages/cocoaint/src/appkit/NSSearchFieldCell.inc
@@ -19,9 +19,9 @@ const
 type
   NSSearchFieldCell = objcclass external (NSTextFieldCell)
   private
-    __sfFlags: bitpacked record
+    _sfFlags: bitpacked record
       case byte of
-        0: (_anonBitField___sfFlags0: cuint);
+        0: (_anonBitField__sfFlags0: cuint);
         1: (
           sendsWholeSearchString: 0..1;
           maximumRecents: 0..((1 shl 8)-1);
diff --git a/packages/cocoaint/src/appkit/NSSliderCell.inc b/packages/cocoaint/src/appkit/NSSliderCell.inc
index 3678af6091..15812c5fd6 100644
--- a/packages/cocoaint/src/appkit/NSSliderCell.inc
+++ b/packages/cocoaint/src/appkit/NSSliderCell.inc
@@ -40,9 +40,9 @@ type
     _maxValue: double;
     _minValue: double;
     _trackRect: NSRect;
-    __sliderCellFlags: bitpacked record
+    _scFlags: bitpacked record
       case byte of
-        0: (_anonBitField___sliderCellFlags0: cuint);
+        0: (_anonBitField___scFlags0: cuint);
         1: (
           weAreVertical: 0..1;
           weAreVerticalSet: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSSpellChecker.inc b/packages/cocoaint/src/appkit/NSSpellChecker.inc
index b01e720f06..ae4ecda78b 100644
--- a/packages/cocoaint/src/appkit/NSSpellChecker.inc
+++ b/packages/cocoaint/src/appkit/NSSpellChecker.inc
@@ -53,9 +53,9 @@ type
     _quotesBrowser: id;
     _replacementsBrowser: id;
     _defineButton: id;
-    __scFlags: bitpacked record
+    _scFlags: bitpacked record
       case byte of
-        0: (_anonBitField___scFlags0: cuint);
+        0: (_anonBitField__scFlags0: cuint);
         1: (
           autoShowGuesses: 0..1;
           needDelayedGuess: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSStatusBar.inc b/packages/cocoaint/src/appkit/NSStatusBar.inc
index 450d02d625..b5226a2156 100644
--- a/packages/cocoaint/src/appkit/NSStatusBar.inc
+++ b/packages/cocoaint/src/appkit/NSStatusBar.inc
@@ -2,6 +2,11 @@
 
 
 {$ifdef TYPES}
+
+const
+  NSVariableStatusItemLength = -1;
+  NSSquareStatusItemLength = -2;
+
 type
   NSStatusBarPtr = ^NSStatusBar;
 {$endif}
diff --git a/packages/cocoaint/src/appkit/NSTabView.inc b/packages/cocoaint/src/appkit/NSTabView.inc
index 1543318b67..64d1ac1ee4 100644
--- a/packages/cocoaint/src/appkit/NSTabView.inc
+++ b/packages/cocoaint/src/appkit/NSTabView.inc
@@ -47,9 +47,9 @@ type
     {$if defined(__LP64__)}
     _tabViewMinimumSizeConstraint: NSLayoutConstraint;
     {$endif}
-    __NSTabViewDelegateRespondTo: bitpacked record
+    _delegateRespondTo: bitpacked record
       case byte of
-        0: (_anonBitField___NSTabViewDelegateRespondTo0: cuint);
+        0: (_anonBitField__delegateRespondTo0: cuint);
         1: (
           shouldSelectTabViewItem: 0..1;
           willSelectTabViewItem: 0..1;
@@ -58,9 +58,9 @@ type
           reserved: 0..((1 shl 28)-1);
         );
       end;
-    __NSTabViewFlags: bitpacked record
+    _flags: bitpacked record
       case byte of
-        0: (_anonBitField___NSTabViewFlags0: cuint);
+        0: (_anonBitField__flags0: cuint);
         1: (
           needsLayout: 0..1;
           controlTint: 0..((1 shl 3)-1);
diff --git a/packages/cocoaint/src/appkit/NSTabViewItem.inc b/packages/cocoaint/src/appkit/NSTabViewItem.inc
index 0d98e49074..e54ee8b0af 100644
--- a/packages/cocoaint/src/appkit/NSTabViewItem.inc
+++ b/packages/cocoaint/src/appkit/NSTabViewItem.inc
@@ -30,9 +30,9 @@ type
     _tabView: NSTabView;
     _tabState: NSTabState;
     _lastKeyView: NSView;
-    __tviFlags: bitpacked record
+    _tviFlags: bitpacked record
       case byte of
-        0: (_anonBitField___tviFlags0: cuint);
+        0: (_anonBitField__tviFlags0: cuint);
         1: (
           hasCustomColor: 0..1;
           labelSizeIsValid: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSTableColumn.inc b/packages/cocoaint/src/appkit/NSTableColumn.inc
index 74215f79b1..7df12185e3 100644
--- a/packages/cocoaint/src/appkit/NSTableColumn.inc
+++ b/packages/cocoaint/src/appkit/NSTableColumn.inc
@@ -29,9 +29,9 @@ type
     _tableView: NSTableView;
     _headerCell: NSCell;
     _dataCell: NSCell;
-    __colFlags: bitpacked record
+    _cFlags: bitpacked record
       case byte of
-        0: (_anonBitField___colFlags0: cuint);
+        0: (_anonBitField__cFlags0: cuint);
         1: (
           oldIsResizable: 0..1;
           isEditable: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSTextContainer.inc b/packages/cocoaint/src/appkit/NSTextContainer.inc
index 2cd484fd89..af18de9994 100644
--- a/packages/cocoaint/src/appkit/NSTextContainer.inc
+++ b/packages/cocoaint/src/appkit/NSTextContainer.inc
@@ -38,9 +38,9 @@ type
     _textView: NSTextView;
     _size: NSSize;
     _lineFragmentPadding: CGFloat;
-    __tcFlags: bitpacked record
+    _tcFlags: bitpacked record
       case byte of
-        0: (_anonBitField___tcFlags0: cuint);
+        0: (_anonBitField__tcFlags0: cuint);
         1: (
           widthTracksTextView: 0..1;
           heightTracksTextView: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSTextFieldCell.inc b/packages/cocoaint/src/appkit/NSTextFieldCell.inc
index cbb05d6f09..a4e8ba0928 100644
--- a/packages/cocoaint/src/appkit/NSTextFieldCell.inc
+++ b/packages/cocoaint/src/appkit/NSTextFieldCell.inc
@@ -23,9 +23,9 @@ type
   private
     _backgroundColor: NSColor;
     _textColor: NSColor;
-    __tfFlags: bitpacked record
+    _tfFlags: bitpacked record
       case byte of
-        0: (_anonBitField___tfFlags0: cuint);
+        0: (_anonBitField__tfFlags0: cuint);
         1: (
           drawsBackground: 0..1;
           bezelStyle: 0..((1 shl 3)-1);
diff --git a/packages/cocoaint/src/appkit/NSToolbar.inc b/packages/cocoaint/src/appkit/NSToolbar.inc
index 81da9f9a71..5cc06fca14 100644
--- a/packages/cocoaint/src/appkit/NSToolbar.inc
+++ b/packages/cocoaint/src/appkit/NSToolbar.inc
@@ -45,9 +45,9 @@ type
     _configPalette: id;
     _toolbarView: id;
     _syncPostEnabledCount: NSInteger;
-    __tbFlags: bitpacked record
+    _tbFlags: bitpacked record
       case byte of
-        0: (_anonBitField___tbFlags0: cuint);
+        0: (_anonBitField__tbFlags0: cuint);
         1: (
           allowsUserCustomization: 0..1;
           autosavesUsingIdentifier: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSToolbarItem.inc b/packages/cocoaint/src/appkit/NSToolbarItem.inc
index f5c5e0df3c..442a065319 100644
--- a/packages/cocoaint/src/appkit/NSToolbarItem.inc
+++ b/packages/cocoaint/src/appkit/NSToolbarItem.inc
@@ -31,9 +31,9 @@ type
     _toolTip: NSString;
     _menuItemRep: NSMenuItem;
     _tag: NSInteger;
-    __tbiFlags: bitpacked record
+    _tbiFlags: bitpacked record
       case byte of
-        0: (_anonBitField___tbiFlags0: cuint);
+        0: (_anonBitField__tbiFlags0: cuint);
         1: (
           viewRespondsToIsEnabled: 0..1;
           viewRespondsToSetEnabled: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSTreeController.inc b/packages/cocoaint/src/appkit/NSTreeController.inc
index a50d87ae89..ae666b9a2c 100644
--- a/packages/cocoaint/src/appkit/NSTreeController.inc
+++ b/packages/cocoaint/src/appkit/NSTreeController.inc
@@ -17,9 +17,9 @@ type
     _arrangedObjects: id;
     _rootNode: id;
     _selectionIndexPaths: id;
-    __treeControllerFlags: bitpacked record
+    _treeControllerFlags: bitpacked record
       case byte of
-        0: (_anonBitField___treeControllerFlags0: cuint);
+        0: (_anonBitField__treeControllerFlags0: cuint);
         1: (
           _avoidsEmptySelection: 0..1;
           _preservesSelection: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSUserDefaultsController.inc b/packages/cocoaint/src/appkit/NSUserDefaultsController.inc
index caced76f81..6a5e1fff8b 100644
--- a/packages/cocoaint/src/appkit/NSUserDefaultsController.inc
+++ b/packages/cocoaint/src/appkit/NSUserDefaultsController.inc
@@ -18,9 +18,9 @@ type
     _defaults: NSUserDefaults;
     _valueBuffer: NSMutableDictionary;
     _initialValues: NSDictionary;
-    __userDefaultsControllerFlags: bitpacked record
+    _userDefaultsControllerFlags: bitpacked record
       case byte of
-        0: (_anonBitField___userDefaultsControllerFlags0: cuint);
+        0: (_anonBitField__userDefaultsControllerFlags0: cuint);
         1: (
           _sharedInstance: 0..1;
           _appliesImmediately: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSView.inc b/packages/cocoaint/src/appkit/NSView.inc
index 3e6a26e5ad..df4c06f80e 100644
--- a/packages/cocoaint/src/appkit/NSView.inc
+++ b/packages/cocoaint/src/appkit/NSView.inc
@@ -67,9 +67,9 @@ const
   NSViewLayerContentsPlacementTopLeft = 11;
 
 type
-  __VFlags = bitpacked record
+  _VFlags = bitpacked record
     case byte of
-      0: (_anonBitField___VFlags0: cuint);
+      0: (_anonBitField__VFlags0: cuint);
       1: (
         {$ifdef __BIG_ENDIAN__}
         rotatedFromBase: 0..1;
@@ -121,7 +121,7 @@ type
       );
     end;
 type
-  _VFlags = __VFlags;
+  __VFlags = _VFlags;
 type
   _VFlagsPtr = ^__VFlags;
 type
diff --git a/packages/cocoaint/src/appkit/NSWindow.inc b/packages/cocoaint/src/appkit/NSWindow.inc
index 86ea16b6d6..aa58134820 100644
--- a/packages/cocoaint/src/appkit/NSWindow.inc
+++ b/packages/cocoaint/src/appkit/NSWindow.inc
@@ -165,9 +165,9 @@ type
     _sizeLimits: NSSizePtr;
     _frameSaveName: NSString;
     _reservedWindow2: id;
-    __wFlags: bitpacked record
+    _wFlags: bitpacked record
       case byte of
-        0: (_anonBitField___wFlags0: cuint);
+        0: (_anonBitField__wFlags0: cuint);
         1: (
           backing: 0..((1 shl 2)-1);
           visible: 0..1;
diff --git a/packages/cocoaint/src/appkit/NSWindowController.inc b/packages/cocoaint/src/appkit/NSWindowController.inc
index 3ca152aef0..be016bad5c 100644
--- a/packages/cocoaint/src/appkit/NSWindowController.inc
+++ b/packages/cocoaint/src/appkit/NSWindowController.inc
@@ -16,9 +16,9 @@ type
     _document: NSDocument;
     _topLevelObjects: NSArray;
     _owner: id;
-    __wcFlags: bitpacked record
+    _wcFlags: bitpacked record
       case byte of
-        0: (_anonBitField___wcFlags0: cuint);
+        0: (_anonBitField__wcFlags0: cuint);
         1: (
           shouldCloseDocument: 0..1;
           shouldCascade: 0..1;
diff --git a/packages/cocoaint/src/automator/AMWorkflowController.inc b/packages/cocoaint/src/automator/AMWorkflowController.inc
index db9a0f9bbc..0dad62e377 100644
--- a/packages/cocoaint/src/automator/AMWorkflowController.inc
+++ b/packages/cocoaint/src/automator/AMWorkflowController.inc
@@ -17,9 +17,9 @@ type
     _runnerInterface: id;
     _eventMonitor: id;
     _delegate: id;
-    __AMWorkflowControllerFlags: bitpacked record
+    _flags: bitpacked record
       case byte of
-        0: (_anonBitField___AMWorkflowControllerFlags0: cuint);
+        0: (_anonBitField__flags0: cuint);
         1: (
           shouldRunLocally: 0..1;
           isRunningLocally: 0..1;
@@ -27,9 +27,9 @@ type
           reserved: 0..((1 shl 29)-1);
         );
       end;
-    __AMWorkflowControllerDelegateRespondTo: bitpacked record
+    _delegateRespondTo: bitpacked record
       case byte of
-        0: (_anonBitField___AMWorkflowControllerDelegateRespondTo0: cuint);
+        0: (_anonBitField__delegateRespondTo0: cuint);
         1: (
           workflowControllerDidAddWorkflow: 0..1;
           workflowControllerDidRemoveWorkflow: 0..1;
diff --git a/packages/cocoaint/src/automator/AMWorkflowView.inc b/packages/cocoaint/src/automator/AMWorkflowView.inc
index fb1375b9f0..0b15d17a1c 100644
--- a/packages/cocoaint/src/automator/AMWorkflowView.inc
+++ b/packages/cocoaint/src/automator/AMWorkflowView.inc
@@ -18,9 +18,9 @@ type
     _unused: id;
     _variablesEditorController: id;
     _showWhenRunController: id;
-    __AMWorkflowViewFlags: bitpacked record
+    _flags: bitpacked record
       case byte of
-        0: (_anonBitField___AMWorkflowViewFlags0: cuint);
+        0: (_anonBitField__flags0: cuint);
         1: (
           ignoreSubviewFrameChanges: 0..1;
           editingEnabled: 0..1;
diff --git a/packages/cocoaint/src/coredata/NSBatchUpdateRequest.inc b/packages/cocoaint/src/coredata/NSBatchUpdateRequest.inc
index f96114ba17..dc385b14df 100644
--- a/packages/cocoaint/src/coredata/NSBatchUpdateRequest.inc
+++ b/packages/cocoaint/src/coredata/NSBatchUpdateRequest.inc
@@ -13,9 +13,9 @@ type
   private
     _entity: id;
     _predicate: NSPredicate;
-    _requestFlags: bitpacked record
+    _flags: bitpacked record
       case byte of
-        0: (_anonBitField__requestFlags0: cuint);
+        0: (_anonBitField__flags0: cuint);
         1: (
           includesSubentities: 0..1;
           resultType: 0..((1 shl 2)-1);
diff --git a/packages/cocoaint/src/coredata/NSEntityDescription.inc b/packages/cocoaint/src/coredata/NSEntityDescription.inc
index 75474b6554..3439a82078 100644
--- a/packages/cocoaint/src/coredata/NSEntityDescription.inc
+++ b/packages/cocoaint/src/coredata/NSEntityDescription.inc
@@ -25,9 +25,9 @@ type
     _properties: NSMutableDictionary;
     _propertyMapping: id;
     _propertyRanges: NSRangePtr;
-    __entityDescriptionFlags: bitpacked record
+    _entityDescriptionFlags: bitpacked record
       case byte of
-        0: (_anonBitField___entityDescriptionFlags0: cuint);
+        0: (_anonBitField__entityDescriptionFlags0: cuint);
         1: (
           _isAbstract: 0..1;
           _shouldValidateOnSave: 0..1;
diff --git a/packages/cocoaint/src/coredata/NSEntityMapping.inc b/packages/cocoaint/src/coredata/NSEntityMapping.inc
index dfe4fbb841..e765fe6f67 100644
--- a/packages/cocoaint/src/coredata/NSEntityMapping.inc
+++ b/packages/cocoaint/src/coredata/NSEntityMapping.inc
@@ -39,9 +39,9 @@ type
     _entityMigrationPolicyClassName: NSString;
     _attributeMappings: NSMutableArray;
     _relationshipMappings: NSMutableArray;
-    __entityMappingFlags: bitpacked record
+    _entityMappingFlags: bitpacked record
       case byte of
-        0: (_anonBitField___entityMappingFlags0: cuint);
+        0: (_anonBitField__entityMappingFlags0: cuint);
         1: (
           _isInUse: 0..1;
           _reservedEntityMapping: 0..((1 shl 31)-1);
diff --git a/packages/cocoaint/src/coredata/NSFetchRequestExpression.inc b/packages/cocoaint/src/coredata/NSFetchRequestExpression.inc
index e118509b11..8f31b45f0e 100644
--- a/packages/cocoaint/src/coredata/NSFetchRequestExpression.inc
+++ b/packages/cocoaint/src/coredata/NSFetchRequestExpression.inc
@@ -22,9 +22,9 @@ type
     _reserved4: pointer;
     _fetchRequest: NSExpression;
     _managedObjectContext: NSExpression;
-    _fetchExpressionFlags: bitpacked record
+    _flags: bitpacked record
       case byte of
-        0: (_anonBitField__fetchExpressionFlags0: cuint);
+        0: (_anonBitField__flags0: cuint);
         1: (
           isCountOnly: 0..1;
           _RESERVED: 0..((1 shl 31)-1);
diff --git a/packages/cocoaint/src/coredata/NSManagedObjectContext.inc b/packages/cocoaint/src/coredata/NSManagedObjectContext.inc
index b750e03826..fe2ed39632 100644
--- a/packages/cocoaint/src/coredata/NSManagedObjectContext.inc
+++ b/packages/cocoaint/src/coredata/NSManagedObjectContext.inc
@@ -40,9 +40,9 @@ type
     _reserved1: pointer;
     _spinLock: cint32;
     _parentObjectStore: id;
-    _managedObjectContextFlags: bitpacked record
+    _flags: bitpacked record
       case byte of
-        0: (_anonBitField__managedObjectContextFlags0: cuint);
+        0: (_anonBitField__flags0: cuint);
         1: (
           _registeredForCallback: 0..1;
           _propagatesDeletesAtEndOfEvent: 0..1;
diff --git a/packages/cocoaint/src/coredata/NSManagedObjectModel.inc b/packages/cocoaint/src/coredata/NSManagedObjectModel.inc
index 4763cf5da4..05495bbdb2 100644
--- a/packages/cocoaint/src/coredata/NSManagedObjectModel.inc
+++ b/packages/cocoaint/src/coredata/NSManagedObjectModel.inc
@@ -18,9 +18,9 @@ type
     _configurations: NSMutableDictionary;
     _fetchRequestTemplates: NSMutableDictionary;
     _versionIdentifiers: NSSet;
-    __managedObjectModelFlags: bitpacked record
+    _managedObjectModelFlags: bitpacked record
       case byte of
-        0: (_anonBitField___managedObjectModelFlags0: cuint);
+        0: (_anonBitField__managedObjectModelFlags0: cuint);
         1: (
           _isInUse: 0..1;
           _isImmutable: 0..1;
diff --git a/packages/cocoaint/src/coredata/NSMappingModel.inc b/packages/cocoaint/src/coredata/NSMappingModel.inc
index d69c639ad0..7d872e1a6d 100644
--- a/packages/cocoaint/src/coredata/NSMappingModel.inc
+++ b/packages/cocoaint/src/coredata/NSMappingModel.inc
@@ -16,9 +16,9 @@ type
     _reserved2: pointer;
     _entityMappings: NSMutableArray;
     _entityMappingsByName: NSMutableDictionary;
-    __modelMappingFlags: bitpacked record
+    _modelMappingFlags: bitpacked record
       case byte of
-        0: (_anonBitField___modelMappingFlags0: cuint);
+        0: (_anonBitField__modelMappingFlags0: cuint);
         1: (
           _isInUse: 0..1;
           _reservedModelMapping: 0..((1 shl 31)-1);
diff --git a/packages/cocoaint/src/coredata/NSPersistentStore.inc b/packages/cocoaint/src/coredata/NSPersistentStore.inc
index 2bc9912475..12f6199f5d 100644
--- a/packages/cocoaint/src/coredata/NSPersistentStore.inc
+++ b/packages/cocoaint/src/coredata/NSPersistentStore.inc
@@ -17,9 +17,9 @@ type
     _options: NSDictionary;
     _oidFactories: idPtr;
     _defaultFaultHandler: id;
-    _objectStoreFlags: bitpacked record
+    _flags: bitpacked record
       case byte of
-        0: (_anonBitField__objectStoreFlags0: cuint);
+        0: (_anonBitField__flags0: cuint);
         1: (
           isReadOnly: 0..1;
           cleanOnRemove: 0..1;
diff --git a/packages/cocoaint/src/coredata/NSPersistentStoreCoordinator.inc b/packages/cocoaint/src/coredata/NSPersistentStoreCoordinator.inc
index f75340dd11..9208a51c34 100644
--- a/packages/cocoaint/src/coredata/NSPersistentStoreCoordinator.inc
+++ b/packages/cocoaint/src/coredata/NSPersistentStoreCoordinator.inc
@@ -75,9 +75,9 @@ type
   private
     _queueOwner: id;
     _dispatchQueue: pointer;
-    _persistentStoreCoordinatorFlags: bitpacked record
+    _flags: bitpacked record
       case byte of
-        0: (_anonBitField__persistentStoreCoordinatorFlags0: cuint);
+        0: (_anonBitField__flags0: cuint);
         1: (
           _isRegistered: 0..1;
           _reservedFlags: 0..((1 shl 31)-1);
diff --git a/packages/cocoaint/src/coredata/NSPropertyDescription.inc b/packages/cocoaint/src/coredata/NSPropertyDescription.inc
index 73bd07665d..e113aad0fa 100644
--- a/packages/cocoaint/src/coredata/NSPropertyDescription.inc
+++ b/packages/cocoaint/src/coredata/NSPropertyDescription.inc
@@ -18,9 +18,9 @@ type
     _name: NSString;
     _validationPredicates: NSArray;
     _validationWarnings: NSArray;
-    __propertyDescriptionFlags: bitpacked record
+    _propertyDescriptionFlags: bitpacked record
       case byte of
-        0: (_anonBitField___propertyDescriptionFlags0: cuint);
+        0: (_anonBitField__propertyDescriptionFlags0: cuint);
         1: (
           _isReadOnly: 0..1;
           _isTransient: 0..1;
diff --git a/packages/cocoaint/src/coredata/NSPropertyMapping.inc b/packages/cocoaint/src/coredata/NSPropertyMapping.inc
index c87734646c..0a6b6fd324 100644
--- a/packages/cocoaint/src/coredata/NSPropertyMapping.inc
+++ b/packages/cocoaint/src/coredata/NSPropertyMapping.inc
@@ -17,9 +17,9 @@ type
     _name: NSString;
     _valueExpression: NSExpression;
     _userInfo: NSDictionary;
-    __propertyMappingFlags: bitpacked record
+    _propertyMappingFlags: bitpacked record
       case byte of
-        0: (_anonBitField___propertyMappingFlags0: cuint);
+        0: (_anonBitField__propertyMappingFlags0: cuint);
         1: (
           _isInUse: 0..1;
           _reservedPropertyMapping: 0..((1 shl 31)-1);
diff --git a/packages/cocoaint/src/foundation/InlineFunctions.inc b/packages/cocoaint/src/foundation/InlineFunctions.inc
index 3657ddf8d9..ca8d608000 100644
--- a/packages/cocoaint/src/foundation/InlineFunctions.inc
+++ b/packages/cocoaint/src/foundation/InlineFunctions.inc
@@ -23,6 +23,9 @@ function NSPointFromCGPoint (aPoint: CGPoint): NSPoint;
 function NSPointToCGPoint (aPoint: NSPoint): CGPoint;
 function NSSizeFromCGSize(aSize: CGSize): NSSize;
 function NSSizeToCGSize(aSize: NSSize): CGSize;
+function NSLocalizedString(key : NSString): NSString;
+function NSLocalizedStringFromTable(key : NSString; table : NSString) : NSString;
+function NSLocalizedStringFromTableInBundle(key : NSString; table : NSString; bundle : NSBundle) : NSString;
 {$endif}
 
 {$ifdef IMPLEMENTATION}
@@ -165,4 +168,20 @@ begin
 	else
 		result := NSString(CFSTR(''));
 end;
+
+function NSLocalizedString(key : NSString): NSString;
+begin
+  Result := NSBundle.mainBundle.localizedStringForKey_value_table(key, NSSTR(''), nil);
+end;
+
+function NSLocalizedStringFromTable(key : NSString; table : NSString) : NSString;
+begin
+  Result := NSBundle.mainBundle.localizedStringForKey_value_table(key, NSSTR(''), table)
+end;
+
+function NSLocalizedStringFromTableInBundle(key : NSString; table : NSString; bundle : NSBundle) : NSString;
+begin
+  Result := bundle.localizedStringForKey_value_table(key, NSSTR(''), table)
+end;
+
 {$endif}
diff --git a/packages/cocoaint/src/foundation/NSProxy.inc b/packages/cocoaint/src/foundation/NSProxy.inc
index f541f43f13..f6b27eb7ee 100644
--- a/packages/cocoaint/src/foundation/NSProxy.inc
+++ b/packages/cocoaint/src/foundation/NSProxy.inc
@@ -9,13 +9,13 @@ type
 {$ifdef CLASSES}
 
 type
-  NSProxy = objcclass external (NSObject, NSObjectProtocol)
+  NSProxy = objcclass external (NSObjectProtocol)
   private
     isa: pobjc_class;
   public
     class function alloc: id; message 'alloc';
     class function allocWithZone (zone: NSZonePtr): id; message 'allocWithZone:';
-    class function class_: pobjc_class; message 'class';
+    class function classClass: pobjc_class; message 'class';
     procedure forwardInvocation (invocation: NSInvocation); message 'forwardInvocation:';
     function methodSignatureForSelector (sel_: SEL): NSMethodSignature; message 'methodSignatureForSelector:';
     procedure dealloc; message 'dealloc';
@@ -25,6 +25,32 @@ type
     class function classRespondsToSelector (aSelector: SEL): ObjCBOOL; message 'respondsToSelector:';
     function allowsWeakReference: ObjCBOOL; message 'allowsWeakReference';
     function retainWeakReference: ObjCBOOL; message 'retainWeakReference';
+
+    function isEqual(obj: id): ObjCBOOL; message 'isEqual:';
+    function hash: NSUInteger; message 'hash';
+
+    function superclass: pobjc_class; message 'superclass';
+    function _class: pobjc_class; message 'class';
+    function self: id;  message 'self';
+    function zone: PNSZone;  message 'zone';
+
+    function performSelector(aSelector: SEL): id; message 'performSelector:';
+    function performSelector_withObject(aSelector: SEL; obj: id): id; message 'performSelector:withObject:';
+    function performSelector_withObject_withObject(aSelector: SEL; obj1, obj2: id): id; message 'performSelector:withObject:withObject:';
+
+    function isProxy: ObjCBOOL; message 'isProxy';
+
+    function isKindOfClass(aClass: pobjc_class): ObjCBOOL; message 'isKindOfClass:';
+    function isMemberOfClass(aClass: pobjc_class): ObjCBOOL; message 'isMemberOfClass:';
+    function conformsToProtocol(aProtocol: Protocol): ObjCBOOL; message 'conformsToProtocol:';
+
+    function respondsToSelector(aSelector: SEL): ObjCBOOL; message 'respondsToSelector:';
+
+    function retain: id; message 'retain';
+    procedure release;  message 'release'; { oneway }
+    function autorelease: id; message 'autorelease';
+    function retainCount: NSUInteger; message 'retainCount';
+
   end;
 {$endif}
 
diff --git a/packages/cocoaint/src/iTunesLibrary.pas b/packages/cocoaint/src/iTunesLibrary.pas
index 7cf346cea6..48fde4cb7e 100644
--- a/packages/cocoaint/src/iTunesLibrary.pas
+++ b/packages/cocoaint/src/iTunesLibrary.pas
@@ -1,6 +1,7 @@
 {$mode delphi}
 {$modeswitch objectivec1}
 {$modeswitch cvar}
+{$packrecords c}
 
 {$macro on}
author	jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2>	2020-04-19 10:42:57 +0000
committer	jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2>	2020-04-19 10:42:57 +0000
commit	7bf10738b95fac2f75125176441bca127272121e (patch)
tree	446de311cd4edd9ec8f115243684154fdfd248ba
parent	9bbd2db52696b99d4da55ac46d48b677f32eefad (diff)
download	fpc-7bf10738b95fac2f75125176441bca127272121e.tar.gz