diff options
Diffstat (limited to 'gcc/ada/libgnarl/s-osinte__linux.ads')
| -rw-r--r-- | gcc/ada/libgnarl/s-osinte__linux.ads | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gcc/ada/libgnarl/s-osinte__linux.ads b/gcc/ada/libgnarl/s-osinte__linux.ads index e95925b..f7af00b 100644 --- a/gcc/ada/libgnarl/s-osinte__linux.ads +++ b/gcc/ada/libgnarl/s-osinte__linux.ads @@ -278,9 +278,9 @@ package System.OS_Interface is PR_GET_NAME : constant := 16; function prctl - (option : int; - arg2, arg3, arg4, arg5 : unsigned_long := 0) return int; - pragma Import (C, prctl); + (option : int; + arg : unsigned_long) return int; + pragma Import (C_Variadic_1, prctl, "prctl"); ------------- -- Threads -- @@ -314,6 +314,8 @@ package System.OS_Interface is -- Stack -- ----------- + subtype char_array is Interfaces.C.char_array; + type stack_t is record ss_sp : System.Address; ss_flags : int; @@ -326,13 +328,13 @@ package System.OS_Interface is oss : access stack_t) return int; pragma Import (C, sigaltstack, "sigaltstack"); - Alternate_Stack : aliased System.Address; - pragma Import (C, Alternate_Stack, "__gnat_alternate_stack"); - -- The alternate signal stack for stack overflows - Alternate_Stack_Size : constant := 16 * 1024; -- This must be in keeping with init.c:__gnat_alternate_stack + Alternate_Stack : aliased char_array (1 .. Alternate_Stack_Size); + pragma Import (C, Alternate_Stack, "__gnat_alternate_stack"); + -- The alternate signal stack for stack overflows + function Get_Stack_Base (thread : pthread_t) return Address; pragma Inline (Get_Stack_Base); -- This is a dummy procedure to share some GNULLI files @@ -634,8 +636,6 @@ private type pid_t is new int; - subtype char_array is Interfaces.C.char_array; - type pthread_attr_t is record Data : char_array (1 .. OS_Constants.PTHREAD_ATTR_SIZE); end record; |