diff options
Diffstat (limited to 'gcc/ada/s-taasde.adb')
-rw-r--r-- | gcc/ada/s-taasde.adb | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/gcc/ada/s-taasde.adb b/gcc/ada/s-taasde.adb index 4bbc43509da..e65b85f6919 100644 --- a/gcc/ada/s-taasde.adb +++ b/gcc/ada/s-taasde.adb @@ -1,12 +1,12 @@ ------------------------------------------------------------------------------ -- -- --- GNU ADA RUN-TIME LIBRARY (GNARL) COMPONENTS -- +-- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- -- -- -- S Y S T E M . T A S K I N G . A S Y N C _ D E L A Y S -- -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2004, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2005, 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- -- @@ -64,6 +64,9 @@ with System.OS_Primitives; with Ada.Task_Identification; -- used for Task_Id type +with System.Interrupt_Management.Operations; +-- used for Setup_Interrupt_Mask + with System.Parameters; -- used for Single_Lock -- Runtime_Traces @@ -324,6 +327,12 @@ package body System.Tasking.Async_Delays is begin Timer_Server_ID := STPO.Self; + -- Since this package may be elaborated before System.Interrupt, + -- we need to call Setup_Interrupt_Mask explicitly to ensure that + -- this task has the proper signal mask. + + Interrupt_Management.Operations.Setup_Interrupt_Mask; + -- Initialize the timer queue to empty, and make the wakeup time of the -- header node be larger than any real wakeup time we will ever use. |