* PChar -> PAnsiChar

packages/cocoaint/src/appkit/NSApplication.inc

@@ -683,7 +683,7 @@ type
 {$endif}
 
 {$ifdef FUNCTIONS}
-function NSApplicationMain(argc: cint; argv: PPChar { variable size array of PChar }): cint; cdecl; external;
+function NSApplicationMain(argc: cint; argv: PPAnsiChar { variable size array of PAnsiChar }): cint; cdecl; external;
 function NSApplicationLoad: ObjCBOOL; cdecl; external;
 function NSShowsServicesMenuItem(itemName: NSString): ObjCBOOL; cdecl; external;
 function NSSetShowsServicesMenuItem(itemName: NSString; enabled: ObjCBOOL): NSInteger; cdecl; external;

packages/cocoaint/src/appkit/NSBezierPath.inc

@@ -85,7 +85,7 @@ type
     class procedure strokeRect (rect: NSRect); message 'strokeRect:';
     class procedure clipRect (rect: NSRect); message 'clipRect:';
     class procedure strokeLineFromPoint_toPoint (point1: NSPoint; point2: NSPoint); message 'strokeLineFromPoint:toPoint:';
-    class procedure drawPackedGlyphs_atPoint (packedGlyphs: PChar; point: NSPoint); message 'drawPackedGlyphs:atPoint:';
+    class procedure drawPackedGlyphs_atPoint (packedGlyphs: PAnsiChar; point: NSPoint); message 'drawPackedGlyphs:atPoint:';
     class procedure setDefaultMiterLimit (limit: CGFloat); message 'setDefaultMiterLimit:';
     class function defaultMiterLimit: CGFloat; message 'defaultMiterLimit';
     class procedure setDefaultFlatness (flatness: CGFloat); message 'setDefaultFlatness:';
@@ -144,7 +144,7 @@ type
     procedure appendBezierPathWithArcFromPoint_toPoint_radius (point1: NSPoint; point2: NSPoint; radius: CGFloat); message 'appendBezierPathWithArcFromPoint:toPoint:radius:';
     procedure appendBezierPathWithGlyph_inFont (glyph: NSGlyph; font: NSFont); message 'appendBezierPathWithGlyph:inFont:';
     procedure appendBezierPathWithGlyphs_count_inFont (glyphs: NSGlyphPtr; count: NSInteger; font: NSFont); message 'appendBezierPathWithGlyphs:count:inFont:';
-    procedure appendBezierPathWithPackedGlyphs (packedGlyphs: PChar); message 'appendBezierPathWithPackedGlyphs:';
+    procedure appendBezierPathWithPackedGlyphs (packedGlyphs: PAnsiChar); message 'appendBezierPathWithPackedGlyphs:';
     procedure appendBezierPathWithRoundedRect_xRadius_yRadius (rect: NSRect; xRadius: CGFloat; yRadius: CGFloat); message 'appendBezierPathWithRoundedRect:xRadius:yRadius:'; { available in 10_5 }
     function containsPoint (point: NSPoint): ObjCBOOL; message 'containsPoint:';
 

packages/cocoaint/src/appkit/NSBitmapImageRep.inc

@@ -107,15 +107,15 @@ type
     _properties: id;
   public
     function initWithFocusedViewRect (rect: NSRect): instancetype; message 'initWithFocusedViewRect:';
-    function initWithBitmapDataPlanes_pixelsWide_pixelsHigh_bitsPerSample_samplesPerPixel_hasAlpha_isPlanar_colorSpaceName_bytesPerRow_bitsPerPixel (planes: PChar; width: NSInteger; height: NSInteger; bps: NSInteger; spp: NSInteger; alpha: ObjCBOOL; isPlanar: ObjCBOOL; colorSpaceName_: NSString; rBytes: NSInteger; pBits: NSInteger): instancetype; message 'initWithBitmapDataPlanes:pixelsWide:pixelsHigh:bitsPerSample:samplesPerPixel:hasAlpha:isPlanar:colorSpaceName:bytesPerRow:bitsPerPixel:';
-    function initWithBitmapDataPlanes_pixelsWide_pixelsHigh_bitsPerSample_samplesPerPixel_hasAlpha_isPlanar_colorSpaceName_bitmapFormat_bytesPerRow_bitsPerPixel (planes: PChar; width: NSInteger; height: NSInteger; bps: NSInteger; spp: NSInteger; alpha: ObjCBOOL; isPlanar: ObjCBOOL; colorSpaceName_: NSString; bitmapFormat: NSBitmapFormat; rBytes: NSInteger; pBits: NSInteger): instancetype; message 'initWithBitmapDataPlanes:pixelsWide:pixelsHigh:bitsPerSample:samplesPerPixel:hasAlpha:isPlanar:colorSpaceName:bitmapFormat:bytesPerRow:bitsPerPixel:';
+    function initWithBitmapDataPlanes_pixelsWide_pixelsHigh_bitsPerSample_samplesPerPixel_hasAlpha_isPlanar_colorSpaceName_bytesPerRow_bitsPerPixel (planes: PAnsiChar; width: NSInteger; height: NSInteger; bps: NSInteger; spp: NSInteger; alpha: ObjCBOOL; isPlanar: ObjCBOOL; colorSpaceName_: NSString; rBytes: NSInteger; pBits: NSInteger): instancetype; message 'initWithBitmapDataPlanes:pixelsWide:pixelsHigh:bitsPerSample:samplesPerPixel:hasAlpha:isPlanar:colorSpaceName:bytesPerRow:bitsPerPixel:';
+    function initWithBitmapDataPlanes_pixelsWide_pixelsHigh_bitsPerSample_samplesPerPixel_hasAlpha_isPlanar_colorSpaceName_bitmapFormat_bytesPerRow_bitsPerPixel (planes: PAnsiChar; width: NSInteger; height: NSInteger; bps: NSInteger; spp: NSInteger; alpha: ObjCBOOL; isPlanar: ObjCBOOL; colorSpaceName_: NSString; bitmapFormat: NSBitmapFormat; rBytes: NSInteger; pBits: NSInteger): instancetype; message 'initWithBitmapDataPlanes:pixelsWide:pixelsHigh:bitsPerSample:samplesPerPixel:hasAlpha:isPlanar:colorSpaceName:bitmapFormat:bytesPerRow:bitsPerPixel:';
     function initWithCGImage (cgImage: CGImageRef): instancetype; message 'initWithCGImage:'; { available in 10_5 }
     function initWithCIImage (ciImage_: CIImage): instancetype; message 'initWithCIImage:'; { available in 10_5 }
     class function imageRepsWithData (data: NSData): NSArray; message 'imageRepsWithData:';
     class function imageRepWithData (data: NSData): instancetype; message 'imageRepWithData:';
     function initWithData (data: NSData): instancetype; message 'initWithData:';
-    function bitmapData: PChar; message 'bitmapData';
-    procedure getBitmapDataPlanes (data: PChar); message 'getBitmapDataPlanes:';
+    function bitmapData: PAnsiChar; message 'bitmapData';
+    procedure getBitmapDataPlanes (data: PAnsiChar); message 'getBitmapDataPlanes:';
     function isPlanar: ObjCBOOL; message 'isPlanar';
     function samplesPerPixel: NSInteger; message 'samplesPerPixel';
     function bitsPerPixel: NSInteger; message 'bitsPerPixel';

packages/cocoaint/src/appkit/NSFont.inc

@@ -130,7 +130,7 @@ type
 {$endif}
 
 {$ifdef FUNCTIONS}
-function NSConvertGlyphsToPackedGlyphs(glBuf: NSGlyphPtr; count: NSInteger; packing: NSMultibyteGlyphPacking; packedGlyphs: PChar): NSInteger; cdecl; external;
+function NSConvertGlyphsToPackedGlyphs(glBuf: NSGlyphPtr; count: NSInteger; packing: NSMultibyteGlyphPacking; packedGlyphs: PAnsiChar): NSInteger; cdecl; external;
 {$endif}
 
 {$ifdef EXTERNAL_SYMBOLS}

packages/cocoaint/src/appkit/NSGraphics.inc

@@ -153,7 +153,7 @@ procedure NSDrawWhiteBezel(aRect: NSRect; clipRect: NSRect); cdecl; external;
 procedure NSDrawButton(aRect: NSRect; clipRect: NSRect); cdecl; external;
 procedure NSEraseRect(aRect: NSRect); cdecl; external;
 function NSReadPixel(passedPoint: NSPoint): NSColor; cdecl; external;
-procedure NSDrawBitmap(rect: NSRect; width: NSInteger; height: NSInteger; bps: NSInteger; spp: NSInteger; bpp: NSInteger; bpr: NSInteger; isPlanar: ObjCBOOL; hasAlpha: ObjCBOOL; colorSpaceName: NSString; data: PChar { 5 element array of PChar }); cdecl; external;
+procedure NSDrawBitmap(rect: NSRect; width: NSInteger; height: NSInteger; bps: NSInteger; spp: NSInteger; bpp: NSInteger; bpr: NSInteger; isPlanar: ObjCBOOL; hasAlpha: ObjCBOOL; colorSpaceName: NSString; data: PAnsiChar { 5 element array of PAnsiChar }); cdecl; external;
 procedure NSHighlightRect(aRect: NSRect); cdecl; external; deprecated 'in 10_0, 10_0';
 procedure NSBeep; cdecl; external;
 function NSGetWindowServerMemory(context: NSInteger; virtualMemory: NSIntegerPtr; windowBackingMemory: NSIntegerPtr; windowDumpString: NSStringPtr): NSInteger; cdecl; external;

packages/cocoaint/src/appkit/NSLayoutManager.inc

@@ -118,7 +118,7 @@ type
     _firstTextView: NSTextView;
     _cachedRectArray: NSRectPtr;
     _cachedRectArrayCapacity: NSUInteger;
-    _glyphBuffer: PChar;
+    _glyphBuffer: PAnsiChar;
     _glyphBufferSize: NSUInteger;
     _cachedLocationNominalGlyphRange: NSRange;
     _cachedLocationGlyphIndex: NSUInteger;
@@ -201,7 +201,7 @@ type
     function glyphIndexForCharacterAtIndex (charIndex: NSUInteger): NSUInteger; message 'glyphIndexForCharacterAtIndex:'; { available in 10_5 }
     function intAttribute_forGlyphAtIndex (attributeTag: NSInteger; glyphIndex: NSUInteger): NSInteger; message 'intAttribute:forGlyphAtIndex:';
     function getGlyphsInRange_glyphs_characterIndexes_glyphInscriptions_elasticBits (glyphRange: NSRange; glyphBuffer: NSGlyphPtr; charIndexBuffer: NSUIntegerPtr; inscribeBuffer: NSGlyphInscriptionPtr; elasticBuffer: pObjCBOOL): NSUInteger; message 'getGlyphsInRange:glyphs:characterIndexes:glyphInscriptions:elasticBits:';
-    function getGlyphsInRange_glyphs_characterIndexes_glyphInscriptions_elasticBits_bidiLevels (glyphRange: NSRange; glyphBuffer: NSGlyphPtr; charIndexBuffer: NSUIntegerPtr; inscribeBuffer: NSGlyphInscriptionPtr; elasticBuffer: pObjCBOOL; bidiLevelBuffer: PChar): NSUInteger; message 'getGlyphsInRange:glyphs:characterIndexes:glyphInscriptions:elasticBits:bidiLevels:';
+    function getGlyphsInRange_glyphs_characterIndexes_glyphInscriptions_elasticBits_bidiLevels (glyphRange: NSRange; glyphBuffer: NSGlyphPtr; charIndexBuffer: NSUIntegerPtr; inscribeBuffer: NSGlyphInscriptionPtr; elasticBuffer: pObjCBOOL; bidiLevelBuffer: PAnsiChar): NSUInteger; message 'getGlyphsInRange:glyphs:characterIndexes:glyphInscriptions:elasticBits:bidiLevels:';
     function getGlyphs_range (glyphArray: NSGlyphPtr; glyphRange: NSRange): NSUInteger; message 'getGlyphs:range:';
     procedure setTextContainer_forGlyphRange (container: NSTextContainer; glyphRange: NSRange); message 'setTextContainer:forGlyphRange:';
     procedure setLineFragmentRect_forGlyphRange_usedRect (fragmentRect: NSRect; glyphRange: NSRange; usedRect: NSRect); message 'setLineFragmentRect:forGlyphRange:usedRect:';
@@ -278,7 +278,7 @@ type
     procedure drawBackgroundForGlyphRange_atPoint (glyphsToShow: NSRange; origin: NSPoint); message 'drawBackgroundForGlyphRange:atPoint:';
     procedure drawGlyphsForGlyphRange_atPoint (glyphsToShow: NSRange; origin: NSPoint); message 'drawGlyphsForGlyphRange:atPoint:';
     procedure showCGGlyphs_positions_count_font_matrix_attributes_inContext (glyphs: CGGlyphPtr; positions: NSPointPtr; glyphCount: NSUInteger; font: NSFont; textMatrix: NSAffineTransform; attributes: NSDictionary; graphicsContext: NSGraphicsContext); message 'showCGGlyphs:positions:count:font:matrix:attributes:inContext:'; { available in 10_7 }
-    procedure showPackedGlyphs_length_glyphRange_atPoint_font_color_printingAdjustment (glyphs: PChar; glyphLen: NSUInteger; glyphRange: NSRange; point: NSPoint; font: NSFont; color: NSColor; printingAdjustment: NSSize); message 'showPackedGlyphs:length:glyphRange:atPoint:font:color:printingAdjustment:'; deprecated 'in 10_0, 10_7';
+    procedure showPackedGlyphs_length_glyphRange_atPoint_font_color_printingAdjustment (glyphs: PAnsiChar; glyphLen: NSUInteger; glyphRange: NSRange; point: NSPoint; font: NSFont; color: NSColor; printingAdjustment: NSSize); message 'showPackedGlyphs:length:glyphRange:atPoint:font:color:printingAdjustment:'; deprecated 'in 10_0, 10_7';
     procedure showAttachmentCell_inRect_characterIndex (cell: NSCell; rect: NSRect; attachmentIndex: NSUInteger); message 'showAttachmentCell:inRect:characterIndex:';
     procedure fillBackgroundRectArray_count_forCharacterRange_color (rectArray: NSRectArray; rectCount: NSUInteger; charRange: NSRange; color: NSColor); message 'fillBackgroundRectArray:count:forCharacterRange:color:'; { available in 10_6 }
     procedure drawUnderlineForGlyphRange_underlineType_baselineOffset_lineFragmentRect_lineFragmentGlyphRange_containerOrigin (glyphRange: NSRange; underlineVal: NSInteger; baselineOffset: CGFloat; lineRect: NSRect; lineGlyphRange: NSRange; containerOrigin: NSPoint); message 'drawUnderlineForGlyphRange:underlineType:baselineOffset:lineFragmentRect:lineFragmentGlyphRange:containerOrigin:';

packages/cocoaint/src/appkit/NSMenuItem.inc

@@ -22,7 +22,7 @@ type
     _target: id;
     _action: SEL;
     _tag: NSInteger;
-    _keyEquivalentModifierMask: char;
+    _keyEquivalentModifierMask: AnsiChar;
     {$else}
     _keyEquivalentModifierMask_: NSUInteger;
     _userKEGenerationCount: NSInteger;

packages/cocoaint/src/appkit/NSOpenPanel.inc

@@ -11,7 +11,7 @@ type
 type
   NSOpenPanel = objcclass external (NSSavePanel)
   private
-    _reservedOpenPanel:array[0..3] of char;
+    _reservedOpenPanel:array[0..3] of AnsiChar;
     _privateOpenPanel: pointer;
   public
     class function openPanel: NSOpenPanel; message 'openPanel';

packages/cocoaint/src/appkit/NSPageLayout.inc

@@ -21,7 +21,7 @@ type
     {$if defined(__LP64__)}
     _reserved:array[0..3] of id;
     {$else}
-    _compatibilityPadding:array[0..155] of char;
+    _compatibilityPadding:array[0..155] of AnsiChar;
     {$endif}
   public
     class function pageLayout: NSPageLayout; message 'pageLayout';

packages/cocoaint/src/appkit/NSPrintPanel.inc

@@ -63,7 +63,7 @@ type
     {$if defined(__LP64__)}
     _reserved:array[0..1] of id;
     {$else}
-    _compatibilityPadding:array[0..191] of char;
+    _compatibilityPadding:array[0..191] of AnsiChar;
     {$endif}
   public
     class function printPanel: NSPrintPanel; message 'printPanel';

packages/cocoaint/src/appkit/NSPrinter.inc

@@ -31,7 +31,7 @@ type
     {$if defined(__LP64__)}
     _reserved:array[0..2] of id;
     {$else}
-    _compatibilityPadding:array[0..19] of char;
+    _compatibilityPadding:array[0..19] of AnsiChar;
     {$endif}
   public
     class function printerNames: NSArray; message 'printerNames';

packages/cocoaint/src/appkit/NSSavePanel.inc

@@ -92,7 +92,7 @@ type
         1: (data: bitpacked record
           _unused: 0..1;
           {$if  not defined(__LP64__)}
-          _reserved:array[0..3] of char;
+          _reserved:array[0..3] of AnsiChar;
           {$endif}
         end;
       );

packages/cocoaint/src/appkit/NSSimpleHorizontalTypesetter.inc

@@ -141,10 +141,10 @@ type
           reserved: 0..((1 shl 23)-1);
         );
       end;
-    glyphBidiLevelCache: PChar;
-    curBidiLevel: char;
-    previousBidiLevel: char;
-    _reservedChars:array[0..1] of char;
+    glyphBidiLevelCache: PAnsiChar;
+    curBidiLevel: AnsiChar;
+    previousBidiLevel: AnsiChar;
+    _reservedChars:array[0..1] of AnsiChar;
     _reserved2:array[0..5] of cuint;
   public
     class function sharedInstance: id; message 'sharedInstance';

packages/cocoaint/src/appkit/NSTypesetter.inc

@@ -68,7 +68,7 @@ type
     procedure setHardInvalidation_forGlyphRange (flag: ObjCBOOL; glyphRange: NSRange); message 'setHardInvalidation:forGlyphRange:';
     procedure layoutGlyphsInLayoutManager_startingAtGlyphIndex_maxNumberOfLineFragments_nextGlyphIndex (layoutManager_: NSLayoutManager; startGlyphIndex: NSUInteger; maxNumLines: NSUInteger; nextGlyph: NSUIntegerPtr); message 'layoutGlyphsInLayoutManager:startingAtGlyphIndex:maxNumberOfLineFragments:nextGlyphIndex:';
     function layoutCharactersInRange_forLayoutManager_maximumNumberOfLineFragments (characterRange: NSRange; layoutManager_: NSLayoutManager; maxNumLines: NSUInteger): NSRange; message 'layoutCharactersInRange:forLayoutManager:maximumNumberOfLineFragments:'; { available in 10_5 }
-    class function printingAdjustmentInLayoutManager_forNominallySpacedGlyphRange_packedGlyphs_count (layoutMgr: NSLayoutManager; nominallySpacedGlyphsRange: NSRange; packedGlyphs: PChar; packedGlyphsCount: NSUInteger): NSSize; message 'printingAdjustmentInLayoutManager:forNominallySpacedGlyphRange:packedGlyphs:count:';
+    class function printingAdjustmentInLayoutManager_forNominallySpacedGlyphRange_packedGlyphs_count (layoutMgr: NSLayoutManager; nominallySpacedGlyphsRange: NSRange; packedGlyphs: PAnsiChar; packedGlyphsCount: NSUInteger): NSSize; message 'printingAdjustmentInLayoutManager:forNominallySpacedGlyphRange:packedGlyphs:count:';
     function baselineOffsetInLayoutManager_glyphIndex (layoutMgr: NSLayoutManager; glyphIndex: NSUInteger): CGFloat; message 'baselineOffsetInLayoutManager:glyphIndex:';
     class function sharedSystemTypesetter: id; message 'sharedSystemTypesetter';
     class function sharedSystemTypesetterForBehavior (theBehavior: NSTypesetterBehavior): id; message 'sharedSystemTypesetterForBehavior:';
@@ -90,7 +90,7 @@ type
   NSTypesetter_NSGlyphStorageInterface = objccategory external name 'NSGlyphStorageInterface' (NSTypesetter)
     function characterRangeForGlyphRange_actualGlyphRange (glyphRange: NSRange; actualGlyphRange: NSRangePointer): NSRange; message 'characterRangeForGlyphRange:actualGlyphRange:';
     function glyphRangeForCharacterRange_actualCharacterRange (charRange: NSRange; actualCharRange: NSRangePointer): NSRange; message 'glyphRangeForCharacterRange:actualCharacterRange:';
-    function getGlyphsInRange_glyphs_characterIndexes_glyphInscriptions_elasticBits_bidiLevels (glyphsRange: NSRange; glyphBuffer: NSGlyphPtr; charIndexBuffer: NSUIntegerPtr; inscribeBuffer: NSGlyphInscriptionPtr; elasticBuffer: pObjCBOOL; bidiLevelBuffer: PChar): NSUInteger; message 'getGlyphsInRange:glyphs:characterIndexes:glyphInscriptions:elasticBits:bidiLevels:';
+    function getGlyphsInRange_glyphs_characterIndexes_glyphInscriptions_elasticBits_bidiLevels (glyphsRange: NSRange; glyphBuffer: NSGlyphPtr; charIndexBuffer: NSUIntegerPtr; inscribeBuffer: NSGlyphInscriptionPtr; elasticBuffer: pObjCBOOL; bidiLevelBuffer: PAnsiChar): NSUInteger; message 'getGlyphsInRange:glyphs:characterIndexes:glyphInscriptions:elasticBits:bidiLevels:';
     procedure getLineFragmentRect_usedRect_remainingRect_forStartingGlyphAtIndex_proposedRect_lineSpacing_paragraphSpacingBefore_paragraphSpacingAfter (lineFragmentRect: NSRectPointer; lineFragmentUsedRect: NSRectPointer; remainingRect: NSRectPointer; startingGlyphIndex: NSUInteger; proposedRect: NSRect; lineSpacing: CGFloat; paragraphSpacingBefore: CGFloat; paragraphSpacingAfter: CGFloat); message 'getLineFragmentRect:usedRect:remainingRect:forStartingGlyphAtIndex:proposedRect:lineSpacing:paragraphSpacingBefore:paragraphSpacingAfter:';
     procedure setLineFragmentRect_forGlyphRange_usedRect_baselineOffset (fragmentRect: NSRect; glyphRange: NSRange; usedRect: NSRect; baselineOffset: CGFloat); message 'setLineFragmentRect:forGlyphRange:usedRect:baselineOffset:';
     procedure substituteGlyphsInRange_withGlyphs (glyphRange: NSRange; glyphs: NSGlyphPtr); message 'substituteGlyphsInRange:withGlyphs:';

packages/cocoaint/src/appkit/NSWindow.inc

@@ -152,10 +152,10 @@ type
     _level: cint;
     _backgroundColor: NSColor;
     _borderView: id;
-    _postingDisabled: char;
-    _styleMask: char;
-    _flushDisabled: char;
-    _reservedWindow1: char;
+    _postingDisabled: AnsiChar;
+    _styleMask: AnsiChar;
+    _flushDisabled: AnsiChar;
+    _reservedWindow1: AnsiChar;
     _cursorRects: pointer;
     _trectTable: pointer;
     _miniIcon: NSImage;

packages/cocoaint/src/coremedia/CMBlockBuffer.inc

@@ -48,11 +48,11 @@ function CMBlockBufferGetTypeID: CFTypeID; cdecl; external; { available starting
 function CMBlockBufferAppendMemoryBlock(theBuffer: CMBlockBufferRef; memoryBlock: pointer; blockLength: size_t; blockAllocator: CFAllocatorRef; customBlockSource: CMBlockBufferCustomBlockSourcePtr; offsetToData: size_t; dataLength: size_t; flags: CMBlockBufferFlags): OSStatus; cdecl; external; { available starting in __MAC_10_7,__IPHONE_4_0 }
 function CMBlockBufferAppendBufferReference(theBuffer: CMBlockBufferRef; targetBBuf: CMBlockBufferRef; offsetToData: size_t; dataLength: size_t; flags: CMBlockBufferFlags): OSStatus; cdecl; external; { available starting in __MAC_10_7,__IPHONE_4_0 }
 function CMBlockBufferAssureBlockMemory(theBuffer: CMBlockBufferRef): OSStatus; cdecl; external;
-function CMBlockBufferAccessDataBytes(theBuffer: CMBlockBufferRef; offset: size_t; length: size_t; temporaryBlock: pointer; returnedPointer: PChar): OSStatus; cdecl; external; { available starting in __MAC_10_7,__IPHONE_4_0 }
+function CMBlockBufferAccessDataBytes(theBuffer: CMBlockBufferRef; offset: size_t; length: size_t; temporaryBlock: pointer; returnedPointer: PAnsiChar): OSStatus; cdecl; external; { available starting in __MAC_10_7,__IPHONE_4_0 }
 function CMBlockBufferCopyDataBytes(theSourceBuffer: CMBlockBufferRef; offsetToData: size_t; dataLength: size_t; destination: pointer): OSStatus; cdecl; external; { available starting in __MAC_10_7,__IPHONE_4_0 }
 function CMBlockBufferReplaceDataBytes(sourceBytes: pointer; destinationBuffer: CMBlockBufferRef; offsetIntoDestination: size_t; dataLength: size_t): OSStatus; cdecl; external; { available starting in __MAC_10_7,__IPHONE_4_0 }
-function CMBlockBufferFillDataBytes(fillByte: char; destinationBuffer: CMBlockBufferRef; offsetIntoDestination: size_t; dataLength: size_t): OSStatus; cdecl; external; { available starting in __MAC_10_7,__IPHONE_4_0 }
-function CMBlockBufferGetDataPointer(theBuffer: CMBlockBufferRef; offset: size_t; lengthAtOffset: size_tPtr; totalLength: size_tPtr; dataPointer: PChar): OSStatus; cdecl; external; { available starting in __MAC_10_7,__IPHONE_4_0 }
+function CMBlockBufferFillDataBytes(fillByte: AnsiChar; destinationBuffer: CMBlockBufferRef; offsetIntoDestination: size_t; dataLength: size_t): OSStatus; cdecl; external; { available starting in __MAC_10_7,__IPHONE_4_0 }
+function CMBlockBufferGetDataPointer(theBuffer: CMBlockBufferRef; offset: size_t; lengthAtOffset: size_tPtr; totalLength: size_tPtr; dataPointer: PAnsiChar): OSStatus; cdecl; external; { available starting in __MAC_10_7,__IPHONE_4_0 }
 function CMBlockBufferGetDataLength(theBuffer: CMBlockBufferRef): size_t; cdecl; external; { available starting in __MAC_10_7,__IPHONE_4_0 }
 function CMBlockBufferIsRangeContiguous(theBuffer: CMBlockBufferRef; offset: size_t; length: size_t): Boolean; cdecl; external; { available starting in __MAC_10_7,__IPHONE_4_0 }
 function CMBlockBufferIsEmpty(theBuffer: CMBlockBufferRef): Boolean; cdecl; external; { available starting in __MAC_10_7,__IPHONE_4_0 }

packages/cocoaint/src/foundation/InlineFunctions.inc

@@ -1,6 +1,6 @@
 
 {$ifdef INTERFACE}
-function NSSTR (inString: PChar): NSString; overload;
+function NSSTR (inString: PAnsiChar): NSString; overload;
 function NSSTR (inString: string): NSString; overload;
 function NSMakeRange (loc: NSUInteger; len: NSUInteger): NSRange;
 function NSMaxRange (range: NSRange): NSUInteger;
@@ -156,7 +156,7 @@ begin
   result.height := aSize.height;
 end;
 
-function NSSTR (inString: PChar): NSString;
+function NSSTR (inString: PAnsiChar): NSString;
 begin
   result := NSString(CFSTR(inString));
 end;

packages/cocoaint/src/foundation/NSAppleEventDescriptor.inc

@@ -13,7 +13,7 @@ type
   private
     _desc: AEDesc;
     _hasValidDesc: ObjCBOOL;
-    _padding:array[0..2] of char;
+    _padding:array[0..2] of AnsiChar;
   public
     class function nullDescriptor: NSAppleEventDescriptor; message 'nullDescriptor';
     class function descriptorWithDescriptorType_bytes_length (descriptorType: DescType; bytes: pointer; byteCount: NSUInteger): NSAppleEventDescriptor; message 'descriptorWithDescriptorType:bytes:length:';

packages/cocoaint/src/foundation/NSAppleEventManager.inc

@@ -24,7 +24,7 @@ type
   NSAppleEventManager = objcclass external (NSObject)
   private
     _isPreparedForDispatch: ObjCBOOL;
-    _padding:array[0..2] of char;
+    _padding:array[0..2] of AnsiChar;
   public
     class function sharedAppleEventManager: NSAppleEventManager; message 'sharedAppleEventManager';
     procedure setEventHandler_andSelector_forEventClass_andEventID (handler: id; handleEventSelector: SEL; eventClass: AEEventClass; eventID: AEEventID); message 'setEventHandler:andSelector:forEventClass:andEventID:';

packages/cocoaint/src/foundation/NSArchiver.inc

@@ -38,10 +38,10 @@ type
     cursor: NSUInteger;
     objectZone_: NSZonePtr;
     systemVersion: NSUInteger;
-    streamerVersion: char;
-    swap: char;
-    unused1: char;
-    unused2: char;
+    streamerVersion: AnsiChar;
+    swap: AnsiChar;
+    unused1: AnsiChar;
+    unused2: AnsiChar;
     pointerTable: pointer;
     stringTable: pointer;
     classVersions: id;

packages/cocoaint/src/foundation/NSByteCountFormatter.inc

@@ -41,7 +41,7 @@ type
   NSByteCountFormatter = objcclass external (NSFormatter)
   private
     _allowedUnits: cuint;
-    _countStyle: char;
+    _countStyle: AnsiChar;
     _allowsNonnumericFormatting, _includesUnit, _includesCount, _includesActualByteCount, _adaptive, _zeroPadsFractionDigits: ObjCBOOL;
     _formattingContext: cint;
     _reserved:array[0..4] of cint;

packages/cocoaint/src/foundation/NSCoder.inc

@@ -17,9 +17,9 @@ type
 type
   NSCoder = objcclass external (NSObject)
   public
-    procedure encodeValueOfObjCType_at (type_: PChar; addr: pointer); message 'encodeValueOfObjCType:at:';
+    procedure encodeValueOfObjCType_at (type_: PAnsiChar; addr: pointer); message 'encodeValueOfObjCType:at:';
     procedure encodeDataObject (data: NSData); message 'encodeDataObject:';
-    procedure decodeValueOfObjCType_at (type_: PChar; data: pointer); message 'decodeValueOfObjCType:at:';
+    procedure decodeValueOfObjCType_at (type_: PAnsiChar; data: pointer); message 'decodeValueOfObjCType:at:';
     function decodeDataObject: NSData; message 'decodeDataObject';
     function versionForClassName (className: NSString): NSInteger; message 'versionForClassName:';
   end;
@@ -32,12 +32,12 @@ type
     procedure encodeBycopyObject (anObject: id); message 'encodeBycopyObject:';
     procedure encodeByrefObject (anObject: id); message 'encodeByrefObject:';
     procedure encodeConditionalObject (object_: id); message 'encodeConditionalObject:';
-    procedure encodeValuesOfObjCTypes (types: PChar); varargs; message 'encodeValuesOfObjCTypes:';
-    procedure encodeArrayOfObjCType_count_at (type_: PChar; count: NSUInteger; array_: pointer); message 'encodeArrayOfObjCType:count:at:';
+    procedure encodeValuesOfObjCTypes (types: PAnsiChar); varargs; message 'encodeValuesOfObjCTypes:';
+    procedure encodeArrayOfObjCType_count_at (type_: PAnsiChar; count: NSUInteger; array_: pointer); message 'encodeArrayOfObjCType:count:at:';
     procedure encodeBytes_length (byteaddr: pointer; length: NSUInteger); message 'encodeBytes:length:';
     function decodeObject: id; message 'decodeObject';
-    procedure decodeValuesOfObjCTypes (types: PChar); varargs; message 'decodeValuesOfObjCTypes:';
-    procedure decodeArrayOfObjCType_count_at (itemType: PChar; count: NSUInteger; array_: pointer); message 'decodeArrayOfObjCType:count:at:';
+    procedure decodeValuesOfObjCTypes (types: PAnsiChar); varargs; message 'decodeValuesOfObjCTypes:';
+    procedure decodeArrayOfObjCType_count_at (itemType: PAnsiChar; count: NSUInteger; array_: pointer); message 'decodeArrayOfObjCType:count:at:';
     function decodeBytesWithReturnedLength (lengthp: NSUIntegerPtr): pointer; message 'decodeBytesWithReturnedLength:';
     {$if (defined(TARGET_OS_MAC) and not (defined(TARGET_OS_EMBEDDED) or defined(TARGET_OS_IPHONE)))}
     procedure encodePropertyList (aPropertyList: id); message 'encodePropertyList:';

packages/cocoaint/src/foundation/NSConnection.inc

@@ -21,9 +21,9 @@ type
     waitCount: cint32;
     delayedRL: id;
     statistics: id;
-    isDead: char;
-    isValid: char;
-    wantsInvalid: char;
+    isDead: AnsiChar;
+    isValid: AnsiChar;
+    wantsInvalid: AnsiChar;
     _anonStruct_NSConnection0: record
       case byte of
         0: (anonBitField_NSConnection0: cuint);

packages/cocoaint/src/foundation/NSDecimalNumber.inc

@@ -78,7 +78,7 @@ type
     function compare (decimalNumber: NSNumber): NSComparisonResult; message 'compare:';
     class procedure setDefaultBehavior (behavior: NSDecimalNumberBehaviorsProtocol); message 'setDefaultBehavior:';
     class function defaultBehavior: NSDecimalNumberBehaviorsProtocol; message 'defaultBehavior';
-    function objCType: PChar; message 'objCType';
+    function objCType: PAnsiChar; message 'objCType';
     function doubleValue: double; message 'doubleValue';
   end;
 

packages/cocoaint/src/foundation/NSFileManager.inc

@@ -120,8 +120,8 @@ type
     function subpathsAtPath (path: NSString): NSArray; message 'subpathsAtPath:';
     function contentsAtPath (path: NSString): NSData; message 'contentsAtPath:';
     function createFileAtPath_contents_attributes (path: NSString; data: NSData; attr: NSDictionary): ObjCBOOL; message 'createFileAtPath:contents:attributes:';
-    function fileSystemRepresentationWithPath (path: NSString): PChar; message 'fileSystemRepresentationWithPath:';
-    function stringWithFileSystemRepresentation_length (str: PChar; len: NSUInteger): NSString; message 'stringWithFileSystemRepresentation:length:';
+    function fileSystemRepresentationWithPath (path: NSString): PAnsiChar; message 'fileSystemRepresentationWithPath:';
+    function stringWithFileSystemRepresentation_length (str: PAnsiChar; len: NSUInteger): NSString; message 'stringWithFileSystemRepresentation:length:';
     function replaceItemAtURL_withItemAtURL_backupItemName_options_resultingItemURL_error (originalItemURL: NSURL; newItemURL: NSURL; backupItemName: NSString; options: NSFileManagerItemReplacementOptions; resultingURL: NSURLPtr; error: NSErrorPtr): ObjCBOOL; message 'replaceItemAtURL:withItemAtURL:backupItemName:options:resultingItemURL:error:'; { available in 10_6, 4_0 }
     function setUbiquitous_itemAtURL_destinationURL_error (flag: ObjCBOOL; url: NSURL; destinationURL: NSURL; error: NSErrorPtr): ObjCBOOL; message 'setUbiquitous:itemAtURL:destinationURL:error:'; { available in 10_7, 5_0 }
     function isUbiquitousItemAtURL (url: NSURL): ObjCBOOL; message 'isUbiquitousItemAtURL:'; { available in 10_7, 5_0 }

packages/cocoaint/src/foundation/NSInvocation.inc

@@ -63,7 +63,7 @@ type
     type_: NSInteger deprecated 'in 10_0, 10_5, 2_0, 2_0';
     value: record
       case longint of
-        0: (charValue: char);
+        0: (charValue: AnsiChar);
         1: (shortValue: cshort);
         2: (longValue: clong);
         3: (longlongValue: clonglong);
@@ -74,7 +74,7 @@ type
         8: (objectValue: id);
         9: (pointerValue: pointer);
         10: (structLocation: pointer);
-        11: (cStringLocation: PChar);
+        11: (cStringLocation: PAnsiChar);
     end;
   end;
 type

packages/cocoaint/src/foundation/NSMethodSignature.inc

@@ -14,12 +14,12 @@ type
     _private: pointer;
     _reserved:array[0..5] of pointer;
   public
-    class function signatureWithObjCTypes (types: PChar): NSMethodSignature; message 'signatureWithObjCTypes:';
+    class function signatureWithObjCTypes (types: PAnsiChar): NSMethodSignature; message 'signatureWithObjCTypes:';
     function numberOfArguments: NSUInteger; message 'numberOfArguments';
-    function getArgumentTypeAtIndex (idx: NSUInteger): PChar; message 'getArgumentTypeAtIndex:';
+    function getArgumentTypeAtIndex (idx: NSUInteger): PAnsiChar; message 'getArgumentTypeAtIndex:';
     function frameLength: NSUInteger; message 'frameLength';
     function isOneway: ObjCBOOL; message 'isOneway';
-    function methodReturnType: PChar; message 'methodReturnType';
+    function methodReturnType: PAnsiChar; message 'methodReturnType';
     function methodReturnLength: NSUInteger; message 'methodReturnLength';
   end;
 {$endif}

packages/cocoaint/src/foundation/NSObjCRuntime.inc

@@ -145,7 +145,7 @@ function NSStringFromClass(aClass: pobjc_class): NSString; cdecl; external;
 function NSClassFromString(aClassName: NSString): pobjc_class; cdecl; external;
 function NSStringFromProtocol(proto: Protocol): NSString; cdecl; external; { available in 10_5, 2_0 }
 function NSProtocolFromString(namestr: NSString): Protocol; cdecl; external; { available in 10_5, 2_0 }
-function NSGetSizeAndAlignment(typePtr: PChar; sizep: NSUIntegerPtr; alignp: NSUIntegerPtr): PChar; cdecl; external;
+function NSGetSizeAndAlignment(typePtr: PAnsiChar; sizep: NSUIntegerPtr; alignp: NSUIntegerPtr): PAnsiChar; cdecl; external;
 procedure NSLog(format: NSString); varargs; cdecl; external;
 procedure NSLogv(format: NSString; args: va_list); cdecl; external;
 {$endif}

packages/cocoaint/src/foundation/NSPathUtilities.inc

@@ -19,8 +19,8 @@ type
     function stringByResolvingSymlinksInPath: NSString; message 'stringByResolvingSymlinksInPath';
     function stringsByAppendingPaths (paths: NSArray): NSArray; message 'stringsByAppendingPaths:';
     function completePathIntoString_caseSensitive_matchesIntoArray_filterTypes (outputName: NSStringPtr; flag: ObjCBOOL; outputArray: NSArrayPtr; filterTypes: NSArray): NSUInteger; message 'completePathIntoString:caseSensitive:matchesIntoArray:filterTypes:';
-    function fileSystemRepresentation: PChar; message 'fileSystemRepresentation';
-    function getFileSystemRepresentation_maxLength (cname: PChar; max: NSUInteger): ObjCBOOL; message 'getFileSystemRepresentation:maxLength:';
+    function fileSystemRepresentation: PAnsiChar; message 'fileSystemRepresentation';
+    function getFileSystemRepresentation_maxLength (cname: PAnsiChar; max: NSUInteger): ObjCBOOL; message 'getFileSystemRepresentation:maxLength:';
   end;
 
 type

packages/cocoaint/src/foundation/NSScriptObjectSpecifiers.inc

@@ -68,7 +68,7 @@ type
     _containerClassDescription: NSScriptClassDescription;
     _containerIsObjectBeingTested: ObjCBOOL;
     _containerIsRangeContainerObject: ObjCBOOL;
-    _padding:array[0..1] of char;
+    _padding:array[0..1] of AnsiChar;
     _descriptor: NSAppleEventDescriptor;
     _error: NSInteger;
   public

packages/cocoaint/src/foundation/NSScriptSuiteRegistry.inc

@@ -14,7 +14,7 @@ type
     _isLoadingSDEFFiles: ObjCBOOL;
     _isLoadingSecurityOverride: ObjCBOOL;
     _hasLoadedIntrinsics: ObjCBOOL;
-    _reserved1:array[0..0] of char;
+    _reserved1:array[0..0] of AnsiChar;
     _seenBundles: NSMutableSet;
     _suiteDescriptionsBeingCollected: NSMutableArray;
     _classDescriptionNeedingRegistration: NSScriptClassDescription;

packages/cocoaint/src/foundation/NSString.inc

@@ -174,8 +174,8 @@ type
     function dataUsingEncoding_allowLossyConversion (encoding: NSStringEncoding; lossy: ObjCBOOL): NSData; message 'dataUsingEncoding:allowLossyConversion:';
     function dataUsingEncoding (encoding: NSStringEncoding): NSData; message 'dataUsingEncoding:';
     function canBeConvertedToEncoding (encoding: NSStringEncoding): ObjCBOOL; message 'canBeConvertedToEncoding:';
-    function cStringUsingEncoding (encoding: NSStringEncoding): PChar; message 'cStringUsingEncoding:';
-    function getCString_maxLength_encoding (buffer: PChar; maxBufferCount: NSUInteger; encoding: NSStringEncoding): ObjCBOOL; message 'getCString:maxLength:encoding:';
+    function cStringUsingEncoding (encoding: NSStringEncoding): PAnsiChar; message 'cStringUsingEncoding:';
+    function getCString_maxLength_encoding (buffer: PAnsiChar; maxBufferCount: NSUInteger; encoding: NSStringEncoding): ObjCBOOL; message 'getCString:maxLength:encoding:';
     function getBytes_maxLength_usedLength_encoding_options_range_remainingRange (buffer: pointer; maxBufferCount: NSUInteger; usedBufferCount: NSUIntegerPtr; encoding: NSStringEncoding; options: NSStringEncodingConversionOptions; range: NSRange; leftover: NSRangePointer): ObjCBOOL; message 'getBytes:maxLength:usedLength:encoding:options:range:remainingRange:';
     function maximumLengthOfBytesUsingEncoding (enc: NSStringEncoding): NSUInteger; message 'maximumLengthOfBytesUsingEncoding:';
     function lengthOfBytesUsingEncoding (enc: NSStringEncoding): NSUInteger; message 'lengthOfBytesUsingEncoding:';
@@ -187,13 +187,13 @@ type
     function stringByReplacingOccurrencesOfString_withString_options_range (target: NSString; replacement: NSString; options: NSStringCompareOptions; searchRange: NSRange): NSString; message 'stringByReplacingOccurrencesOfString:withString:options:range:'; { available in 10_5, 2_0 }
     function stringByReplacingOccurrencesOfString_withString (target: NSString; replacement: NSString): NSString; message 'stringByReplacingOccurrencesOfString:withString:'; { available in 10_5, 2_0 }
     function stringByReplacingCharactersInRange_withString (range: NSRange; replacement: NSString): NSString; message 'stringByReplacingCharactersInRange:withString:'; { available in 10_5, 2_0 }
-    function UTF8String: PChar; message 'UTF8String';
+    function UTF8String: PAnsiChar; message 'UTF8String';
     class function defaultCStringEncoding: NSStringEncoding; message 'defaultCStringEncoding';
     class function availableStringEncodings: NSStringEncodingPtr; message 'availableStringEncodings';
     class function localizedNameOfStringEncoding (encoding: NSStringEncoding): NSString; message 'localizedNameOfStringEncoding:';
     function initWithCharactersNoCopy_length_freeWhenDone (characters: unicharPtr; length_: NSUInteger; freeBuffer: ObjCBOOL): instancetype; message 'initWithCharactersNoCopy:length:freeWhenDone:';
     function initWithCharacters_length (characters: unicharPtr; length_: NSUInteger): instancetype; message 'initWithCharacters:length:';
-    function initWithUTF8String (nullTerminatedCString: PChar): instancetype; message 'initWithUTF8String:';
+    function initWithUTF8String (nullTerminatedCString: PAnsiChar): instancetype; message 'initWithUTF8String:';
     function initWithString (aString: NSString): instancetype; message 'initWithString:';
     function initWithFormat (format: NSString): instancetype; varargs; message 'initWithFormat:';
     function initWithFormat_arguments (format: NSString; argList: va_list): instancetype; message 'initWithFormat:arguments:';
@@ -205,11 +205,11 @@ type
     class function string_: instancetype; message 'string';
     class function stringWithString (string__: NSString): instancetype; message 'stringWithString:';
     class function stringWithCharacters_length (characters: unicharPtr; length_: NSUInteger): instancetype; message 'stringWithCharacters:length:';
-    class function stringWithUTF8String (nullTerminatedCString: PChar): instancetype; message 'stringWithUTF8String:';
+    class function stringWithUTF8String (nullTerminatedCString: PAnsiChar): instancetype; message 'stringWithUTF8String:';
     class function stringWithFormat (format: NSString): instancetype; varargs; message 'stringWithFormat:';
     class function localizedStringWithFormat (format: NSString): instancetype; varargs; message 'localizedStringWithFormat:';
-    function initWithCString_encoding (nullTerminatedCString: PChar; encoding: NSStringEncoding): instancetype; message 'initWithCString:encoding:';
-    class function stringWithCString_encoding (cString: PChar; enc: NSStringEncoding): instancetype; message 'stringWithCString:encoding:';
+    function initWithCString_encoding (nullTerminatedCString: PAnsiChar; encoding: NSStringEncoding): instancetype; message 'initWithCString:encoding:';
+    class function stringWithCString_encoding (cString: PAnsiChar; enc: NSStringEncoding): instancetype; message 'stringWithCString:encoding:';
     function initWithContentsOfURL_encoding_error (url: NSURL; enc: NSStringEncoding; error: NSErrorPtr): instancetype; message 'initWithContentsOfURL:encoding:error:';
     function initWithContentsOfFile_encoding_error (path: NSString; enc: NSStringEncoding; error: NSErrorPtr): instancetype; message 'initWithContentsOfFile:encoding:error:';
     class function stringWithContentsOfURL_encoding_error (url: NSURL; enc: NSStringEncoding; error: NSErrorPtr): instancetype; message 'stringWithContentsOfURL:encoding:error:';
@@ -269,23 +269,23 @@ type
 
 type
   NSStringDeprecated = objccategory external (NSString)
-    function cString: PChar; message 'cString'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
-    function lossyCString: PChar; message 'lossyCString'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
+    function cString: PAnsiChar; message 'cString'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
+    function lossyCString: PAnsiChar; message 'lossyCString'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
     function cStringLength: NSUInteger; message 'cStringLength'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
-    procedure getCString (bytes: PChar); message 'getCString:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
-    procedure getCString_maxLength (bytes: PChar; maxLength: NSUInteger); message 'getCString:maxLength:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
-    procedure getCString_maxLength_range_remainingRange (bytes: PChar; maxLength: NSUInteger; aRange: NSRange; leftoverRange: NSRangePointer); message 'getCString:maxLength:range:remainingRange:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
+    procedure getCString (bytes: PAnsiChar); message 'getCString:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
+    procedure getCString_maxLength (bytes: PAnsiChar; maxLength: NSUInteger); message 'getCString:maxLength:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
+    procedure getCString_maxLength_range_remainingRange (bytes: PAnsiChar; maxLength: NSUInteger; aRange: NSRange; leftoverRange: NSRangePointer); message 'getCString:maxLength:range:remainingRange:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
     function writeToFile_atomically (path: NSString; useAuxiliaryFile: ObjCBOOL): ObjCBOOL; message 'writeToFile:atomically:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
     function writeToURL_atomically (url: NSURL; atomically: ObjCBOOL): ObjCBOOL; message 'writeToURL:atomically:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
     function initWithContentsOfFile (path: NSString): id; message 'initWithContentsOfFile:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
     function initWithContentsOfURL (url: NSURL): id; message 'initWithContentsOfURL:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
     class function stringWithContentsOfFile (path: NSString): id; message 'stringWithContentsOfFile:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
     class function stringWithContentsOfURL (url: NSURL): id; message 'stringWithContentsOfURL:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
-    function initWithCStringNoCopy_length_freeWhenDone (bytes: PChar; length_: NSUInteger; freeBuffer: ObjCBOOL): id; message 'initWithCStringNoCopy:length:freeWhenDone:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
-    function initWithCString_length (bytes: PChar; length_: NSUInteger): id; message 'initWithCString:length:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
-    function initWithCString (bytes: PChar): id; message 'initWithCString:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
-    class function stringWithCString_length (bytes: PChar; length_: NSUInteger): id; message 'stringWithCString:length:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
-    class function stringWithCString (bytes: PChar): id; message 'stringWithCString:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
+    function initWithCStringNoCopy_length_freeWhenDone (bytes: PAnsiChar; length_: NSUInteger; freeBuffer: ObjCBOOL): id; message 'initWithCStringNoCopy:length:freeWhenDone:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
+    function initWithCString_length (bytes: PAnsiChar; length_: NSUInteger): id; message 'initWithCString:length:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
+    function initWithCString (bytes: PAnsiChar): id; message 'initWithCString:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
+    class function stringWithCString_length (bytes: PAnsiChar; length_: NSUInteger): id; message 'stringWithCString:length:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
+    class function stringWithCString (bytes: PAnsiChar): id; message 'stringWithCString:'; deprecated 'in 10_0, 10_4, 2_0, 2_0';
     procedure getCharacters (buffer: unicharPtr); message 'getCharacters:';
   end;
 {$endif}
@@ -305,7 +305,7 @@ const
 type
   NSSimpleCString = objcclass external (NSString)
   private
-    bytes: PChar;
+    bytes: PAnsiChar;
     numBytes: cint;
     {$if defined(__LP64__)}
     _unused: cint;

packages/cocoaint/src/foundation/NSURL.inc

@@ -56,8 +56,8 @@ type
     function initFileURLWithPath (path: NSString): instancetype; message 'initFileURLWithPath:'; { NS_DESIGNATED_INITIALIZER }
     class function fileURLWithPath_isDirectory (path: NSString; isDir: ObjCBOOL): NSURL; message 'fileURLWithPath:isDirectory:'; { available in 10_5, 2_0 }
     class function fileURLWithPath (path: NSString): NSURL; message 'fileURLWithPath:';
-    function initFileURLWithFileSystemRepresentation_isDirectory_relativeToURL (path: PChar; isDir: ObjCBOOL; baseURL: NSURL): instancetype; message 'initFileURLWithFileSystemRepresentation:isDirectory:relativeToURL:'; { available in 10_9, 7_0 }
-    class function fileURLWithFileSystemRepresentation_isDirectory_relativeToURL (path: PChar; isDir: ObjCBOOL; baseURL: NSURL): NSURL; message 'fileURLWithFileSystemRepresentation:isDirectory:relativeToURL:'; { available in 10_9, 7_0 }
+    function initFileURLWithFileSystemRepresentation_isDirectory_relativeToURL (path: PAnsiChar; isDir: ObjCBOOL; baseURL: NSURL): instancetype; message 'initFileURLWithFileSystemRepresentation:isDirectory:relativeToURL:'; { available in 10_9, 7_0 }
+    class function fileURLWithFileSystemRepresentation_isDirectory_relativeToURL (path: PAnsiChar; isDir: ObjCBOOL; baseURL: NSURL): NSURL; message 'fileURLWithFileSystemRepresentation:isDirectory:relativeToURL:'; { available in 10_9, 7_0 }
     function initWithString (URLString: NSString): instancetype; message 'initWithString:';
     function initWithString_relativeToURL (URLString: NSString; baseURL: NSURL): instancetype; message 'initWithString:relativeToURL:'; { NS_DESIGNATED_INITIALIZER }
     class function URLWithString (URLString: NSString): instancetype; message 'URLWithString:';
@@ -77,8 +77,8 @@ type
     function parameterString: NSString; message 'parameterString';
     function query: NSString; message 'query';
     function relativePath: NSString; message 'relativePath';
-    function getFileSystemRepresentation_maxLength (buffer: PChar; maxBufferLength: NSUInteger): ObjCBOOL; message 'getFileSystemRepresentation:maxLength:'; { available in 10_9, 7_0 }
-    function fileSystemRepresentation: PChar; message 'fileSystemRepresentation';
+    function getFileSystemRepresentation_maxLength (buffer: PAnsiChar; maxBufferLength: NSUInteger): ObjCBOOL; message 'getFileSystemRepresentation:maxLength:'; { available in 10_9, 7_0 }
+    function fileSystemRepresentation: PAnsiChar; message 'fileSystemRepresentation';
     function isFileURL: ObjCBOOL; message 'isFileURL';
     function standardizedURL: NSURL; message 'standardizedURL';
     function checkResourceIsReachableAndReturnError (error: NSErrorPtr): ObjCBOOL; message 'checkResourceIsReachableAndReturnError:'; { available in 10_6, 4_0 }

packages/cocoaint/src/foundation/NSValue.inc

@@ -13,8 +13,8 @@ type
   NSValue = objcclass external (NSObject, NSCopyingProtocol, NSSecureCodingProtocol)
   public
     procedure getValue (value: pointer); message 'getValue:';
-    function objCType: PChar; message 'objCType';
-    function initWithBytes_objCType (value: pointer; type_: PChar): instancetype; message 'initWithBytes:objCType:'; { NS_DESIGNATED_INITIALIZER }
+    function objCType: PAnsiChar; message 'objCType';
+    function initWithBytes_objCType (value: pointer; type_: PAnsiChar): instancetype; message 'initWithBytes:objCType:'; { NS_DESIGNATED_INITIALIZER }
     function initWithCoder (aDecoder: NSCoder): instancetype; message 'initWithCoder:'; { NS_DESIGNATED_INITIALIZER }
 
     { Adopted protocols }
@@ -26,8 +26,8 @@ type
 
 type
   NSValueCreation = objccategory external (NSValue)
-    class function valueWithBytes_objCType (value: pointer; type_: PChar): NSValue; message 'valueWithBytes:objCType:';
-    class function value_withObjCType (value: pointer; type_: PChar): NSValue; message 'value:withObjCType:';
+    class function valueWithBytes_objCType (value: pointer; type_: PAnsiChar): NSValue; message 'valueWithBytes:objCType:';
+    class function value_withObjCType (value: pointer; type_: PAnsiChar): NSValue; message 'value:withObjCType:';
   end;
 
 type
@@ -44,8 +44,8 @@ type
   NSNumber = objcclass external (NSValue)
   public
     function initWithCoder (aDecoder: NSCoder): instancetype; message 'initWithCoder:'; { NS_DESIGNATED_INITIALIZER }
-    function initWithChar (value: char): NSNumber; message 'initWithChar:'; { NS_DESIGNATED_INITIALIZER }
-    function initWithUnsignedChar (value: char): NSNumber; message 'initWithUnsignedChar:'; { NS_DESIGNATED_INITIALIZER }
+    function initWithChar (value: AnsiChar): NSNumber; message 'initWithChar:'; { NS_DESIGNATED_INITIALIZER }
+    function initWithUnsignedChar (value: AnsiChar): NSNumber; message 'initWithUnsignedChar:'; { NS_DESIGNATED_INITIALIZER }
     function initWithShort (value: cshort): NSNumber; message 'initWithShort:'; { NS_DESIGNATED_INITIALIZER }
     function initWithUnsignedShort (value: cushort): NSNumber; message 'initWithUnsignedShort:'; { NS_DESIGNATED_INITIALIZER }
     function initWithInt (value: cint): NSNumber; message 'initWithInt:'; { NS_DESIGNATED_INITIALIZER }
@@ -59,8 +59,8 @@ type
     function initWithBool (value: ObjCBOOL): NSNumber; message 'initWithBool:'; { NS_DESIGNATED_INITIALIZER }
     function initWithInteger (value: NSInteger): NSNumber; message 'initWithInteger:'; { available in 10_5, 2_0 }
     function initWithUnsignedInteger (value: NSUInteger): NSNumber; message 'initWithUnsignedInteger:'; { available in 10_5, 2_0 }
-    function charValue: char; message 'charValue';
-    function unsignedCharValue: char; message 'unsignedCharValue';
+    function charValue: AnsiChar; message 'charValue';
+    function unsignedCharValue: AnsiChar; message 'unsignedCharValue';
     function shortValue: cshort; message 'shortValue';
     function unsignedShortValue: cushort; message 'unsignedShortValue';
     function intValue: cint; message 'intValue';
@@ -83,8 +83,8 @@ type
 
 type
   NSNumberCreation = objccategory external (NSNumber)
-    class function numberWithChar (value: char): NSNumber; message 'numberWithChar:';
-    class function numberWithUnsignedChar (value: char): NSNumber; message 'numberWithUnsignedChar:';
+    class function numberWithChar (value: AnsiChar): NSNumber; message 'numberWithChar:';
+    class function numberWithUnsignedChar (value: AnsiChar): NSNumber; message 'numberWithUnsignedChar:';
     class function numberWithShort (value: cshort): NSNumber; message 'numberWithShort:';
     class function numberWithUnsignedShort (value: cushort): NSNumber; message 'numberWithUnsignedShort:';
     class function numberWithInt (value: cint): NSNumber; message 'numberWithInt:';

packages/cocoaint/src/glkit/UndefinedTypes.inc

@@ -1,3 +1,3 @@
 type
-	GLchar = char;
+	GLchar = AnsiChar;
 	GLcharPtr = ^GLchar;

packages/cocoaint/src/imagecapturecore/ICScannerFunctionalUnits.inc

@@ -258,9 +258,9 @@ type
     function acceptsThresholdForBlackAndWhiteScanning: ObjCBOOL; message 'acceptsThresholdForBlackAndWhiteScanning';
     procedure setUsesThresholdForBlackAndWhiteScanning(newValue: ObjCBOOL); message 'setUsesThresholdForBlackAndWhiteScanning:';
     function usesThresholdForBlackAndWhiteScanning: ObjCBOOL; message 'usesThresholdForBlackAndWhiteScanning';
-    function defaultThresholdForBlackAndWhiteScanning: char; message 'defaultThresholdForBlackAndWhiteScanning';
-    procedure setThresholdForBlackAndWhiteScanning(newValue: char); message 'setThresholdForBlackAndWhiteScanning:';
-    function thresholdForBlackAndWhiteScanning: char; message 'thresholdForBlackAndWhiteScanning';
+    function defaultThresholdForBlackAndWhiteScanning: AnsiChar; message 'defaultThresholdForBlackAndWhiteScanning';
+    procedure setThresholdForBlackAndWhiteScanning(newValue: AnsiChar); message 'setThresholdForBlackAndWhiteScanning:';
+    function thresholdForBlackAndWhiteScanning: AnsiChar; message 'thresholdForBlackAndWhiteScanning';
     function state: ICScannerFunctionalUnitState; message 'state';
     function scanInProgress: ObjCBOOL; message 'scanInProgress';
     function scanProgressPercentDone: CGFloat; message 'scanProgressPercentDone';

packages/cocoaint/src/iobluetooth/Bluetooth.inc

@@ -1280,8 +1280,8 @@ type
     productID: cuint32;
     vendorID: cuint32;
     type_: cuint32;
-    productName:array[0..(kInfoStringMaxLength)-1] of char;
-    vendorName:array[0..(kInfoStringMaxLength)-1] of char;
+    productName:array[0..(kInfoStringMaxLength)-1] of AnsiChar;
+    vendorName:array[0..(kInfoStringMaxLength)-1] of AnsiChar;
     totalDataBytesSent: cuint64;
     totalSCOBytesSent: cuint64;
     totalDataBytesReceived: cuint64;

packages/cocoaint/src/iobluetooth/IOBluetoothUserLib.inc

@@ -15,7 +15,7 @@ type
 {$endif}
 
 {$ifdef FUNCTIONS}
-function IOBluetoothGetObjectIDFromArguments(argc: cint; argv: PPChar { variable size array of PChar }): IOBluetoothObjectID; cdecl; external; deprecated 'in 10.6 and later';
+function IOBluetoothGetObjectIDFromArguments(argc: cint; argv: PPAnsiChar { variable size array of PAnsiChar }): IOBluetoothObjectID; cdecl; external; deprecated 'in 10.6 and later';
 {$endif}
 
 {$ifdef TYPES}

packages/cocoaint/src/iobluetooth/IOBluetoothUtilities.inc

@@ -20,10 +20,10 @@ function IOBluetoothLaunchHandsFreeAgent(deviceAddressString: CFStringRef): Bool
 
 {$endif}
 {$ifdef FUNCTIONS}
-function IOBluetoothPackData(ioBuffer: pointer; inFormat: PChar): clong; cdecl; external;
-function IOBluetoothPackDataList(ioBuffer: pointer; inFormat: PChar; inArgs: va_list): clong; cdecl; external;
-function IOBluetoothUnpackData(inBufferSize: ByteCount; inBuffer: pointer; inFormat: PChar): clong; cdecl; external;
-function IOBluetoothUnpackDataList(inBufferSize: ByteCount; inBuffer: pointer; inFormat: PChar; inArgs: va_list): clong; cdecl; external;
-function IOBluetoothFindNumberOfRegistryEntriesOfClassName(deviceType: PChar): clong; cdecl; external;
+function IOBluetoothPackData(ioBuffer: pointer; inFormat: PAnsiChar): clong; cdecl; external;
+function IOBluetoothPackDataList(ioBuffer: pointer; inFormat: PAnsiChar; inArgs: va_list): clong; cdecl; external;
+function IOBluetoothUnpackData(inBufferSize: ByteCount; inBuffer: pointer; inFormat: PAnsiChar): clong; cdecl; external;
+function IOBluetoothUnpackDataList(inBufferSize: ByteCount; inBuffer: pointer; inFormat: PAnsiChar; inArgs: va_list): clong; cdecl; external;
+function IOBluetoothFindNumberOfRegistryEntriesOfClassName(deviceType: PAnsiChar): clong; cdecl; external;
 {$endif}
 

packages/cocoaint/src/webkit/WebScriptObject.inc

@@ -20,8 +20,8 @@ type
   WebScripting = objccategory external (NSObject)
     class function webScriptNameForSelector (selector: SEL): NSString; message 'webScriptNameForSelector:'; { available in 10_4 }
     class function isSelectorExcludedFromWebScript (selector: SEL): ObjCBOOL; message 'isSelectorExcludedFromWebScript:'; { available in 10_4 }
-    class function webScriptNameForKey (name: PChar): NSString; message 'webScriptNameForKey:'; { available in 10_4 }
-    class function isKeyExcludedFromWebScript (name: PChar): ObjCBOOL; message 'isKeyExcludedFromWebScript:'; { available in 10_4 }
+    class function webScriptNameForKey (name: PAnsiChar): NSString; message 'webScriptNameForKey:'; { available in 10_4 }
+    class function isKeyExcludedFromWebScript (name: PAnsiChar): ObjCBOOL; message 'isKeyExcludedFromWebScript:'; { available in 10_4 }
     function invokeUndefinedMethodFromWebScript_withArguments (name: NSString; arguments: NSArray): id; message 'invokeUndefinedMethodFromWebScript:withArguments:'; { available in 10_4 }
     function invokeDefaultMethodWithArguments (arguments: NSArray): id; message 'invokeDefaultMethodWithArguments:'; { available in 10_4 }
     procedure finalizeForWebScript; message 'finalizeForWebScript'; { available in 10_4 }