source: rtems/contrib/crossrpms/patches/gcc-ada-4.4.2-rtems4.10-20091201.diff @ 7ce45d4

gcc/ada/s-osinte-rtems.ads

@@ -625 +625 @@
       process_shared  : int;
       prio_ceiling    : int;
       protocol        : int;
+      mutex_type      : int;
       recursive       : int;
    end record;
    pragma Convention (C, pthread_mutexattr_t);

gcc/ada/s-stchop-rtems.adb

@@ -80 +80 @@
    is
       pragma Unreferenced (Stack_Address);
 
-      --  RTEMS has a routine to check this.  So use it.
-      function rtems_stack_checker_is_blown return Interfaces.C.int;
+      --  RTEMS has a routine to check if the stack is blown.
+      --  It returns a C99 bool.
+      function rtems_stack_checker_is_blown return Interfaces.C.unsigned_char;
       pragma Import (C,
          rtems_stack_checker_is_blown, "rtems_stack_checker_is_blown");