From 293d51a27715b36fe91687c57a1d614dc9e5a4df Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 20 Jun 2010 12:06:55 +0000
Subject: [PATCH]   * fixed "fast enumeration" types and methods

git-svn-id: trunk@15458 -
---
 packages/cocoaint/src/UndefinedTypes.inc          | 1 +
 packages/cocoaint/src/foundation/NSEnumerator.inc | 8 ++++----
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/packages/cocoaint/src/UndefinedTypes.inc b/packages/cocoaint/src/UndefinedTypes.inc
index a88b2e6c6b..03bea6a613 100644
--- a/packages/cocoaint/src/UndefinedTypes.inc
+++ b/packages/cocoaint/src/UndefinedTypes.inc
@@ -20,6 +20,7 @@ type
   GLsizei = integer;
   GLbitfield = integer;
   objc_protocol = protocol;
+  idpointer = ^id;
 
 { Variable argument list - disabled for Pascal }
 type
diff --git a/packages/cocoaint/src/foundation/NSEnumerator.inc b/packages/cocoaint/src/foundation/NSEnumerator.inc
index fb4bb9660d..35b139646d 100644
--- a/packages/cocoaint/src/foundation/NSEnumerator.inc
+++ b/packages/cocoaint/src/foundation/NSEnumerator.inc
@@ -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}