Commit 9011d4bb by Joel Sherrill Committed by Laurent Guerby

re PR ada/19488 (RTEMS Ada RTS doesn't compile)

2005-01-27  Joel Sherrill <joel.sherrill@oarcorp.com>
	    Laurent GUERBY <laurent@guerby.net>

	PR ada/19488
	* 5rosinte.ads: Add No_Key constant.
        * 5rtpopsp.adb: Initialize ATCB_Key with No_Key and fix style.
        * gsocket.h: Do not include <sys/socket.h> with RTEMS either.

Co-Authored-By: Laurent GUERBY <laurent@guerby.net>

From-SVN: r94318
parent dad2a933
...@@ -233,6 +233,8 @@ package System.OS_Interface is ...@@ -233,6 +233,8 @@ package System.OS_Interface is
type pthread_condattr_t is limited private; type pthread_condattr_t is limited private;
type pthread_key_t is private; type pthread_key_t is private;
No_Key : constant pthread_key_t;
PTHREAD_CREATE_DETACHED : constant := 0; PTHREAD_CREATE_DETACHED : constant := 0;
----------- -----------
...@@ -524,4 +526,6 @@ private ...@@ -524,4 +526,6 @@ private
type pthread_key_t is new rtems_id; type pthread_key_t is new rtems_id;
No_Key : constant pthread_key_t := 0;
end System.OS_Interface; end System.OS_Interface;
...@@ -54,11 +54,11 @@ package body Specific is ...@@ -54,11 +54,11 @@ package body Specific is
-- Initialize -- -- Initialize --
---------------- ----------------
procedure Initialize (Environment_Task : Task_ID) is procedure Initialize (Environment_Task : Task_Id) is
pragma Warnings (Off, Environment_Task); pragma Warnings (Off, Environment_Task);
Result : Interfaces.C.int;
begin begin
ATCB_Key := No_Key;
RTEMS_Ada_Self := To_Address (Environment_Task); RTEMS_Ada_Self := To_Address (Environment_Task);
end Initialize; end Initialize;
...@@ -75,8 +75,7 @@ package body Specific is ...@@ -75,8 +75,7 @@ package body Specific is
-- Set -- -- Set --
--------- ---------
procedure Set (Self_Id : Task_ID) is procedure Set (Self_Id : Task_Id) is
Result : Interfaces.C.int;
begin begin
RTEMS_Ada_Self := To_Address (Self_Id); RTEMS_Ada_Self := To_Address (Self_Id);
end Set; end Set;
...@@ -98,7 +97,7 @@ package body Specific is ...@@ -98,7 +97,7 @@ package body Specific is
-- hierarchy, much like the existing implicitly created signal-server -- hierarchy, much like the existing implicitly created signal-server
-- tasks. -- tasks.
function Self return Task_ID is function Self return Task_Id is
Result : System.Address; Result : System.Address;
begin begin
......
2005-01-27 Joel Sherrill <joel.sherrill@oarcorp.com>
Laurent GUERBY <laurent@guerby.net>
PR ada/19488
* 5rosinte.ads: Add No_Key constant.
* 5rtpopsp.adb: Initialize ATCB_Key with No_Key and fix style.
* gsocket.h: Do not include <sys/socket.h> with RTEMS either.
2005-01-26 Laurent GUERBY <laurent@guerby.net> 2005-01-26 Laurent GUERBY <laurent@guerby.net>
PR ada/19414 PR ada/19414
......
...@@ -62,6 +62,6 @@ ...@@ -62,6 +62,6 @@
#include "system.h" #include "system.h"
#endif #endif
#if !(defined (VMS) || defined (__MINGW32__)) #if !(defined (VMS) || defined (__MINGW32__) || defined(__rtems__))
# include <sys/socket.h> # include <sys/socket.h>
#endif #endif
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment