1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
Description: Adapt to gnat-8 renamings.
Author: Nicolas Boulenguez <nicolas@debian.org>
--- a/libsrc/posix-unsafe_process_primitives.adb
+++ b/libsrc/posix-unsafe_process_primitives.adb
@@ -39,6 +39,7 @@
with POSIX.C,
POSIX.Implementation,
System,
+ System.Secondary_Stack,
System.Soft_Links,
Unchecked_Conversion;
@@ -89,8 +90,8 @@
Result : pid_t;
package SSL renames System.Soft_Links;
-- save local values of soft-link data
- NT_Sec_Stack_Addr : constant System.Address :=
- SSL.Get_Sec_Stack_Addr.all;
+ NT_Sec_Stack_Addr : constant System.Secondary_Stack.SS_Stack_Ptr :=
+ SSL.Get_Sec_Stack.all;
NT_Jmpbuf_Address : constant System.Address :=
SSL.Get_Jmpbuf_Address.all;
begin
@@ -106,10 +107,10 @@
SSL.Unlock_Task := SSL.Task_Unlock_NT'Access;
SSL.Get_Jmpbuf_Address := SSL.Get_Jmpbuf_Address_NT'Access;
SSL.Set_Jmpbuf_Address := SSL.Set_Jmpbuf_Address_NT'Access;
- SSL.Get_Sec_Stack_Addr := SSL.Get_Sec_Stack_Addr_NT'Access;
- SSL.Set_Sec_Stack_Addr := SSL.Set_Sec_Stack_Addr_NT'Access;
+ SSL.Get_Sec_Stack := SSL.Get_Sec_Stack_NT'Access;
+ SSL.Set_Sec_Stack := SSL.Set_Sec_Stack_NT'Access;
-- reset global data to saved local values for this thread
- SSL.Set_Sec_Stack_Addr (NT_Sec_Stack_Addr);
+ SSL.Set_Sec_Stack (NT_Sec_Stack_Addr);
SSL.Set_Jmpbuf_Address (NT_Jmpbuf_Address);
end if;
return To_Process_ID (Result);
|
