diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-20 12:59:41 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-20 12:59:41 +0000 |
| commit | 93ca8030e91199ffe5141459c47c314bea0771de (patch) | |
| tree | 408a2be574a4dc26e53aadb2d77e4d3fa9138c04 /gcc/ada/a-caldel-vms.adb | |
| parent | c2fcca8ad0076f15b7d6025df00332faca67385e (diff) | |
| download | gcc-93ca8030e91199ffe5141459c47c314bea0771de.tar.gz | |
* s-taspri-vxworks.ads (Task_Address, Task_Address_Size): New
type/constant.
* g-socthi-vxworks.ads: Update to latest socket changes.
* a-caldel-vms.adb: Resync with a-caldel spec.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135652 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-caldel-vms.adb')
| -rw-r--r-- | gcc/ada/a-caldel-vms.adb | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/gcc/ada/a-caldel-vms.adb b/gcc/ada/a-caldel-vms.adb index ed52533d081..b60bc8b5cb1 100644 --- a/gcc/ada/a-caldel-vms.adb +++ b/gcc/ada/a-caldel-vms.adb @@ -44,6 +44,13 @@ package body Ada.Calendar.Delays is use type TSL.Timed_Delay_Call; + ----------------------- + -- Local Subprograms -- + ----------------------- + + procedure Timed_Delay_NT (Time : Duration; Mode : Integer); + -- Timed delay procedure used when no tasking is active + --------------- -- Delay_For -- --------------- @@ -76,8 +83,6 @@ package body Ada.Calendar.Delays is -- Timed_Delay_NT -- -------------------- - procedure Timed_Delay_NT (Time : Duration; Mode : Integer); - procedure Timed_Delay_NT (Time : Duration; Mode : Integer) is begin OSP.Timed_Delay (Time, Mode); @@ -85,9 +90,8 @@ package body Ada.Calendar.Delays is begin -- Set up the Timed_Delay soft link to the non tasking version if it has - -- not been already set. - -- If tasking is present, Timed_Delay has already set this soft link, or - -- this will be overridden during the elaboration of + -- not been already set. If tasking is present, Timed_Delay has already set + -- this soft link, or this will be overridden during the elaboration of -- System.Tasking.Initialization if TSL.Timed_Delay = null then |