aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/s-stchop-rtems.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/s-stchop-rtems.adb')
-rw-r--r--gcc/ada/s-stchop-rtems.adb5
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/s-stchop-rtems.adb b/gcc/ada/s-stchop-rtems.adb
index 615950e7fee..ac0cfd0f489 100644
--- 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");