# diff -uiEwB -x "*.a" -x "*.o" -x "*.ali" /CarbonAda/usr/local/Bindings/Frameworks/ /usr/local/Bindings/Frameworks/
--- /CarbonAda/usr/local/Bindings/Frameworks/applicationservices-qd-quickdraw.ads     2004-11-21 04:22:37.000000000 +0100
+++ /usr/local/Bindings/Frameworks/applicationservices-qd-quickdraw.ads 2009-07-13 23:12:29.000000000 +0200
@@ -3446,7 +3446,7 @@
    -- *    Mac OS X :        in version 10.0 and later
    --
    function Random
-     return UInt16;
+     return SInt16;
    pragma Import (C, Random, "Random");
--- /CarbonAda/usr/local/Bindings/Frameworks/carbon-hitoolbox-macwindows.ads  2004-11-21 04:22:37.000000000 +0100
+++ /usr/local/Bindings/Frameworks/carbon-hitoolbox-macwindows.ads      2007-08-02 22:42:01.000000000 +0200
@@ -623,7 +623,7 @@
     --$IFC NOT OPAQUE_TOOLBOX_STRUCTS 
 
     type WindowRecord; 
-    type WindowPeek is access WindowRecord; 
+    type WindowPeek is access all WindowRecord; 
     type WindowRecord is 
        record 
           Port : GrafPort;  
--- /CarbonAda/usr/local/Bindings/Frameworks/corefoundation-cfbase.ads        2004-11-21 04:22:37.000000000 +0100
+++ /usr/local/Bindings/Frameworks/corefoundation-cfbase.ads    2007-01-20 10:39:15.000000000 +0100
@@ -311,7 +311,7 @@
 
     function CFAllocatorReallocate (
           Allocator : Cfallocatorref; 
-          Ptr       : Void_Ptr;       
+          aPtr       : Void_Ptr;       
           Newsize   : CFIndex;        
           Hint      : CFOptionFlags   ) 
       return Ptr; 
--- /CarbonAda/usr/local/Bindings/Frameworks/coreservices-carboncore-files.ads        2004-11-21 04:22:38.000000000 +0100
+++ /usr/local/Bindings/Frameworks/coreservices-carboncore-files.ads    2009-07-14 20:41:12.000000000 +0200
@@ -447,9 +447,11 @@
     type GetVolParmsInfoBufferPtr is access Getvolparmsinfobuffer;
 
     type ParamBlockRec;
-    type ParmBlkPtr is access ParamBlockRec;
+    type ParmBlkPtr is access all ParamBlockRec;
     type IOCompletionProcPtr is access procedure
     (Paramblock : ParmBlkPtr);
--- /CarbonAda/usr/local/Bindings/Frameworks/coreservices-carboncore-mactypes.ads     2004-11-21 04:22:38.000000000 +0100
+++ /usr/local/Bindings/Frameworks/coreservices-carboncore-mactypes.ads 2007-08-04 18:59:12.000000000 +0200
@@ -257,7 +257,7 @@
     --        Size            The number of bytes in a block (signed for historical reasons)
     --
     --********************************************************************************
-    type Ptr is access SInt8; 
+    type Ptr is access all SInt8; 
     function Convert is new
         Unchecked_Conversion(System.Address, Ptr);
     Nulptr : Ptr := Convert (System.Null_Address);  
@@ -485,7 +485,7 @@
 
     subtype Strfilename is Str255;
 
-    type Stringptr is access Str255; 
+    type Stringptr is access all Str255; 
     type Stringhandle is access Stringptr; 
     subtype ConstStringPtr is  Stringptr;
     subtype CStringPtr is  Ptr;