2009-10-16 Joel Sherrill <joel.sherrill@oarcorp.com>

	* s-osinte-rtems.ads: Add mutex type to pthread_mutexattr_t
	* s-stchop-rtems.adb: Correct binding to rtems_stack_checker_is_blown.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@152900 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 5ca33c8..2e65233 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2009-10-16  Joel Sherrill <joel.sherrill@oarcorp.com>
+
+       * s-osinte-rtems.ads: Add mutex type to pthread_mutexattr_t
+       * s-stchop-rtems.adb: Correct binding to rtems_stack_checker_is_blown.
+
 2009-10-13  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 
        * env.c [__alpha__ && __osf__] (AES_SOURCE): Define.

diff --git a/gcc/ada/s-osinte-rtems.ads b/gcc/ada/s-osinte-rtems.ads
index 5e3d919..70e4a27 100644 (file)
--- a/gcc/ada/s-osinte-rtems.ads
+++ b/gcc/ada/s-osinte-rtems.ads
@@ -625,6 +625,7 @@ private
       process_shared  : int;
       prio_ceiling    : int;
       protocol        : int;
+      mutex_type      : int;
       recursive       : int;
    end record;
    pragma Convention (C, pthread_mutexattr_t);

diff --git a/gcc/ada/s-stchop-rtems.adb b/gcc/ada/s-stchop-rtems.adb
index 615950e..ac0cfd0 100644 (file)
--- a/gcc/ada/s-stchop-rtems.adb
+++ b/gcc/ada/s-stchop-rtems.adb
@@ -80,8 +80,9 @@ package body System.Stack_Checking.Operations is
    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");