paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 01:11:29 +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; GLsizei = integer;
GLbitfield = integer; GLbitfield = integer;
objc_protocol = protocol; objc_protocol = protocol;
idpointer = ^id;
{ Variable argument list - disabled for Pascal } { Variable argument list - disabled for Pascal }
type type

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

@ -17,9 +17,9 @@
type type
NSFastEnumerationState = record NSFastEnumerationState = record
state: culong; state: culong;
itemsPtr: id; itemsPtr: idpointer;
mutationsPtr: culong; mutationsPtr: pculong;
extra: culong; extra: array[0..5-1] of culong;
end; end;
@ -71,7 +71,7 @@ type
{ NSFastEnumeration Protocol } { NSFastEnumeration Protocol }
NSFastEnumerationProtocol = objcprotocol 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'; end; external name 'NSFastEnumeration';
{$endif} {$endif}
{$endif} {$endif}