From 6308630e3e9a7db923efa9e536c7f67224c3f2a0 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Mon, 21 Jun 2010 09:26:08 +0000
Subject: [PATCH]   * rtl changes part of r15460

git-svn-id: trunk@15462 -
---
 rtl/inc/objc1.inc  | 6 ++++++
 rtl/inc/objcnf.inc | 6 ++++++
 2 files changed, 12 insertions(+)

diff --git a/rtl/inc/objc1.inc b/rtl/inc/objc1.inc
index a1b3c8f5c9..619ef8e7b2 100644
--- a/rtl/inc/objc1.inc
+++ b/rtl/inc/objc1.inc
@@ -99,6 +99,8 @@ type
     a: array[0..1000] of shortstring;
   end;
 
+  TEnumerationMutationHandler = procedure(obj: id); cdecl;
+
   ptrdiff_t = ptrint;
 
 { sending messages }
@@ -201,6 +203,10 @@ type
   function sel_isEqual(lhs:SEL; rhs:SEL):BOOL; cdecl; external libname;
 *)
 
+  { fast enumeration support (available on Mac OS X 10.5 and later) }
+  procedure objc_enumerationMutation(obj: id); cdecl; external libname;
+  procedure objc_setEnumerationMutationHandler(handler: TEnumerationMutationHandler); cdecl; external libname;
+
 implementation
 
 type
diff --git a/rtl/inc/objcnf.inc b/rtl/inc/objcnf.inc
index ec4267753e..f469792456 100644
--- a/rtl/inc/objcnf.inc
+++ b/rtl/inc/objcnf.inc
@@ -164,6 +164,8 @@ type
     a: array[0..1000] of shortstring;
   end;
 
+  TEnumerationMutationHandler = procedure(obj: id); cdecl;
+
   ptrdiff_t = ptrint;
 
 { sending messages }
@@ -263,6 +265,10 @@ type
 
   function sel_isEqual(lhs:SEL; rhs:SEL):BOOL; cdecl; external libname;
 
+  { fast enumeration support (available on Mac OS X 10.5 and later) }
+  procedure objc_enumerationMutation(obj: id); cdecl; external libname;
+  procedure objc_setEnumerationMutationHandler(handler: TEnumerationMutationHandler); cdecl; external libname;
+
 implementation
 
 end.