summaryrefslogtreecommitdiff
path: root/gcc/ada/5rosinte.ads
diff options
context:
space:
mode:
authorjoel <joel@138bc75d-0d04-0410-961f-82ee72b054a4>2004-04-08 17:54:03 +0000
committerjoel <joel@138bc75d-0d04-0410-961f-82ee72b054a4>2004-04-08 17:54:03 +0000
commit2440d8dd25f6284415b1ed2e6cbd908748f0de79 (patch)
treeac68fae9acea022241c01614bfabb10c23c1bec3 /gcc/ada/5rosinte.ads
parent59fb70e4ea6b44469da6d32bb3e23cd684515546 (diff)
downloadgcc-2440d8dd25f6284415b1ed2e6cbd908748f0de79.tar.gz
2004-04-08 Joel Sherrill <joel@oarcorp.com>
PR ada/14538 * ada/5rosinte.adb: Remove fake mprotect() body. * ada/5rosinte.ads: Add SA_SIGINFO. * ada/5rtpopsp.adb: Rewrite to use new interface. * ada/init.c: Reorder so the simple single OS conditional __rtems__ is tested before more complex ones which mix UNIX and embedded systems in the conditional. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@80517 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/5rosinte.ads')
-rw-r--r--gcc/ada/5rosinte.ads4
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/5rosinte.ads b/gcc/ada/5rosinte.ads
index 710176c1222..c82ea1559ec 100644
--- a/gcc/ada/5rosinte.ads
+++ b/gcc/ada/5rosinte.ads
@@ -139,6 +139,8 @@ package System.OS_Interface is
pragma Convention (C, struct_sigaction);
type struct_sigaction_ptr is access all struct_sigaction;
+ SA_SIGINFO : constant := 16#02#;
+
SIG_BLOCK : constant := 1;
SIG_UNBLOCK : constant := 2;
SIG_SETMASK : constant := 3;
@@ -261,7 +263,7 @@ package System.OS_Interface is
PROT_OFF : constant := 0;
function mprotect (addr : Address; len : size_t; prot : int) return int;
- -- Do nothing on RTEMS.
+ pragma Import (C, mprotect);
-----------------------------------------
-- Nonstandard Thread Initialization --