diff options
| author | joel <joel@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-02-13 19:04:53 +0000 |
|---|---|---|
| committer | joel <joel@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-02-13 19:04:53 +0000 |
| commit | dc99166ac0686d4bb2a65633d6852eecf8a2386e (patch) | |
| tree | 14647ee8187ad1d1a148b61d285e6fbfb10bbb54 /gcc/ada/s-osinte-rtems.ads | |
| parent | aaa12b63435f29ac5f821d3b40875f72bf9ef507 (diff) | |
| download | gcc-dc99166ac0686d4bb2a65633d6852eecf8a2386e.tar.gz | |
2008-02-11 Joel Sherrill <joel.sherrill@oarcorp.com>
PR ada/35143
* env.c: Add __rtems__ to if defined.
* s-osinte-rtems.adb: Add To_Target_Priority. Fix formatting.
* s-osinte-rtems.ads: Add To_Target_Priority prototype and
PTHREAD_SCOPE_PROCESS/PTHREAD_SCOPE_SYSTEM constants. Add
pragma Convention as required.
* gsocket.h: Make compile in and out of RTS.
* Makefile.in: Add system-rtems.ads. Build DEC extensions.
Use g-soccon-rtems.ads.
* g-soccon-rtems.ads, system-rtems.ads: New files.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@132294 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-osinte-rtems.ads')
| -rw-r--r-- | gcc/ada/s-osinte-rtems.ads | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gcc/ada/s-osinte-rtems.ads b/gcc/ada/s-osinte-rtems.ads index 561e8973ef3..268eb43ac21 100644 --- a/gcc/ada/s-osinte-rtems.ads +++ b/gcc/ada/s-osinte-rtems.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1997-2003 Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2008 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -194,6 +194,10 @@ package System.OS_Interface is SCHED_RR : constant := 2; SCHED_OTHER : constant := 0; + function To_Target_Priority + (Prio : System.Any_Priority) return Interfaces.C.int; + -- Maps System.Any_Priority to a POSIX priority + ------------- -- Process -- ------------- @@ -222,6 +226,7 @@ package System.OS_Interface is type Thread_Body is access function (arg : System.Address) return System.Address; + pragma Convention (C, Thread_Body); type pthread_t is private; subtype Thread_Id is pthread_t; @@ -237,6 +242,9 @@ package System.OS_Interface is PTHREAD_CREATE_DETACHED : constant := 0; + PTHREAD_SCOPE_PROCESS : constant := 0; + PTHREAD_SCOPE_SYSTEM : constant := 1; + ----------- -- Stack -- ----------- @@ -460,6 +468,7 @@ package System.OS_Interface is pragma Import (C, pthread_getspecific, "pthread_getspecific"); type destructor_pointer is access procedure (arg : System.Address); + pragma Convention (C, destructor_pointer); function pthread_key_create (key : access pthread_key_t; |