* synchronised zith r444 of the universal interfaces:

    o changed C-blocks modifier to new FPC syntax

git-svn-id: trunk@43687 -

packages/univint/src/AudioComponents.pas

@@ -700,7 +700,7 @@ function AudioComponentInstanceNew( inComponent: AudioComponent; var outInstance
                         called in an arbitrary thread context when instantiation is complete.
 }
 type
-  TAudioComponentinstantiateCompletionHandler = reference to procedure(instance: AudioComponentInstance; status: OSStatus); cdecl;
+  TAudioComponentinstantiateCompletionHandler = reference to procedure(instance: AudioComponentInstance; status: OSStatus); cblock;
 procedure AudioComponentInstantiate( inComponent: AudioComponent; inOptions: AudioComponentInstantiationOptions; inCompletionHandler: TAudioComponentinstantiateCompletionHandler); external name '_AudioComponentInstantiate';
 (* API_AVAILABLE(macos(10.11), ios(9.0), watchos(2.0), tvos(9.0)) *)
 

packages/univint/src/AudioServices.pas

@@ -370,7 +370,7 @@ function AudioServicesDisposeSystemSoundID( inSystemSoundID: SystemSoundID ): OS
                         responsible for handling thread safety.
 }
 type
-  TCompletionBlock = reference to procedure; cdecl;
+  TCompletionBlock = reference to procedure; cblock;
 
 procedure AudioServicesPlayAlertSoundWithCompletion(inSystemSoundID: SystemSoundID; inCompletionBlock: TCompletionBlock); external name '_AudioServicesPlayAlertSoundWithCompletion';
 (* API_AVAILABLE(macos(10.11), ios(9.0), watchos(2.0), tvos(9.0)) *)