* rtl changes part of r15460

git-svn-id: trunk@15462 -

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

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.