blob: af5b1a5c5cdc52fdc7af9aeab44f67028ac12c16 (
plain)
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
|
$NetBSD: patch-al,v 1.1 2005/10/20 17:43:29 wiz Exp $
--- posix-signals.adb.orig 2002-10-24 02:03:52.000000000 -0600
+++ posix-signals.adb
@@ -236,13 +236,6 @@ package body POSIX.Signals is
-- Global Data --
------------------
- Last_Unblocker : array (Signal) of Task_ID :=
- (others => Null_Task);
- pragma Volatile_Components (Last_Unblocker);
- -- Holds the ID of the last Task which Unblocked this Interrupt.
- -- It contains Null_Task if no tasks have ever requested the
- -- Unblocking operation or the Interrupt is currently Blocked.
-
type Signal_Bit_Vector is array (Signal) of Boolean;
-- Reserved_Signal is the union of the following sets of
@@ -941,7 +934,7 @@ package body POSIX.Signals is
function Get_Data (Info : Signal_Info) return Signal_Data is
begin
- return To_Signal_Data (Info.si_value);
+ return To_Signal_Data (Info.si_sigval);
end Get_Data;
----------------
@@ -952,7 +945,7 @@ package body POSIX.Signals is
(Info : in out Signal_Info;
Data : in Signal_Data) is
begin
- Info.si_value := To_sigval (Data);
+ Info.si_sigval := To_sigval (Data);
end Set_Data;
-----------------------
|