paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 16:33:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed "fast enumeration" types and methods

Browse Source 
git-svn-id: trunk@15458 -
This commit is contained in:
Jonas Maebe 2010-06-20 12:06:55 +00:00
parent 95bc0374de
commit 293d51a277
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/cocoaint/src/UndefinedTypes.inc
View File

@ -20,6 +20,7 @@ type
GLsizei = integer;
GLbitfield = integer;
objc_protocol = protocol;
idpointer = ^id;
{ Variable argument list - disabled for Pascal }
type

8
packages/cocoaint/src/foundation/NSEnumerator.inc
View File

@ -17,9 +17,9 @@
type
NSFastEnumerationState = record
state: culong;
itemsPtr: id;
mutationsPtr: culong;
extra: culong;
itemsPtr: idpointer;
mutationsPtr: pculong;
extra: array[0..5-1] of culong;
end;
@ -71,7 +71,7 @@ type
{ NSFastEnumeration Protocol }
NSFastEnumerationProtocol = objcprotocol
function countByEnumeratingWithState_objects_count(state: NSFastEnumerationStatePointer; stackbuf: id; len: NSUInteger): NSUInteger; message 'countByEnumeratingWithState:objects:count:';
function countByEnumeratingWithState_objects_count(state: NSFastEnumerationStatePointer; stackbuf: idpointer; len: NSUInteger): NSUInteger; message 'countByEnumeratingWithState:objects:count:';
end; external name 'NSFastEnumeration';
{$endif}
{$endif}