diff options
author | sam <sam@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-10-06 07:20:53 +0000 |
---|---|---|
committer | sam <sam@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-10-06 07:20:53 +0000 |
commit | 4bbbf12a0a687157743c07ce0aaccf7c2158e9cf (patch) | |
tree | 73d6d2c0ee6281bab9b079de10675e983b099fb2 /gcc/ada/a-rttiev.adb | |
parent | 3be875714a1ab9a50e6f189120685b5fa2506381 (diff) | |
download | gcc-4bbbf12a0a687157743c07ce0aaccf7c2158e9cf.tar.gz |
gcc/ada/
PR ada/41383
* a-rttiev.adb (Time_Of_Event): Return Time_First for unset event.
gcc/testsuite/
PR ada/41383
* gnat.dg/timer_cancel.adb: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@152487 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-rttiev.adb')
-rw-r--r-- | gcc/ada/a-rttiev.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/a-rttiev.adb b/gcc/ada/a-rttiev.adb index 2068c786850..55687ec8f6b 100644 --- a/gcc/ada/a-rttiev.adb +++ b/gcc/ada/a-rttiev.adb @@ -332,7 +332,13 @@ package body Ada.Real_Time.Timing_Events is function Time_Of_Event (Event : Timing_Event) return Time is begin - return Event.Timeout; + -- RM D.15(18/2): Time_First must be returned if the event is not set + + if Event.Handler = null then + return Time_First; + else + return Event.Timeout; + end if; end Time_Of_Event; -------------- |