r335 | jonas | 2012-02-11 17:22:41 +0100 (Sat, 11 Feb 2012) | 3 lines

Changed paths:
   M /trunk/MPPInterfaces/Files.pas

  * fixed DirIDType declaration (unsigned -> signed)
  * fixed last parameter of FSOpenFork() (SInt16 -> FSIORefNum)

git-svn-id: trunk@20312 -

packages/univint/src/Files.pas

@@ -197,8 +197,8 @@ type
 	ConstHFSUniStr255Param = ^HFSUniStr255;
 
 type
-	DirIDTypePtr = UInt32Ptr;
-	DirIDType = UInt32;
+	DirIDTypePtr = ^DirIDType;
+	DirIDType = SInt32;
 
 {
     File Permissions
@@ -3543,7 +3543,7 @@ procedure PBIterateForksAsync( var paramBlock: FSForkIOParam ); external name '_
  *    CarbonLib:        in CarbonLib 1.0 and later
  *    Non-Carbon CFM:   in InterfaceLib 9.0 and later
  }
-function FSOpenFork( const (*var*) ref: FSRef; forkNameLength: UniCharCount; forkName: UniCharPtr; permissions: SInt8; var forkRefNum: SInt16 ): OSErr; external name '_FSOpenFork';
+function FSOpenFork( const (*var*) ref: FSRef; forkNameLength: UniCharCount; forkName: UniCharPtr; permissions: SInt8; var forkRefNum: FSIORefNum ): OSErr; external name '_FSOpenFork';
 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *)