paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 00:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* rtl changes part of r15460

Browse Source 
git-svn-id: trunk@15462 -
This commit is contained in:
Jonas Maebe 2010-06-21 09:26:08 +00:00
parent 835899524b
commit 6308630e3e
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/objc1.inc
View File

@ -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

6
rtl/inc/objcnf.inc
View File

@ -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.