diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-17 10:09:55 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-17 10:09:55 +0000 |
| commit | e2c9a0153d4c7bde3f380ec853788b7147684da0 (patch) | |
| tree | 413a1ca4724e02b6fd1f64e1fe14e1d496bbffa8 /gcc/ada/a-caldel-vms.adb | |
| parent | 447e605f4566b27ff6da22c7dca9671073f49508 (diff) | |
| download | gcc-e2c9a0153d4c7bde3f380ec853788b7147684da0.tar.gz | |
2009-08-17 Robert Dewar <dewar@adacore.com>
* a-caldel-vms.adb, a-calend-vms.adb, a-calfor.adb, a-cdlili.adb,
a-chahan.adb, a-cidlli.adb, a-coinve.adb, a-comlin.adb: Minor code
reorganization (use conditional expressions).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150834 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-caldel-vms.adb')
| -rw-r--r-- | gcc/ada/a-caldel-vms.adb | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/gcc/ada/a-caldel-vms.adb b/gcc/ada/a-caldel-vms.adb index 8b7715744d6..128918a9ac6 100644 --- a/gcc/ada/a-caldel-vms.adb +++ b/gcc/ada/a-caldel-vms.adb @@ -7,7 +7,7 @@ -- B o d y -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2008, AdaCore -- +-- Copyright (C) 1995-2009, AdaCore -- -- -- -- 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- -- @@ -79,15 +79,10 @@ package body Ada.Calendar.Delays is -- A value distant enough to emulate "end of time" but which does not -- cause overflow. - Safe_T : Time; + Safe_T : constant Time := + (if T > Safe_Ada_High then Safe_Ada_High else T); begin - if T > Safe_Ada_High then - Safe_T := Safe_Ada_High; - else - Safe_T := T; - end if; - return OSP.To_Duration (OSP.OS_Time (Safe_T), OSP.Absolute_Calendar); end To_Duration; |