diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-29 16:11:16 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-29 16:11:16 +0000 |
| commit | cb5e147f296a479c67382d8e46abce0c00f82d6d (patch) | |
| tree | 9093ddae4abb2b9415e682ed1702037074a0c767 /gcc/ada/s-taprop-tru64.adb | |
| parent | abb91f0ba1e7b43d41e0b5f6668249d13556303f (diff) | |
| download | gcc-cb5e147f296a479c67382d8e46abce0c00f82d6d.tar.gz | |
2005-03-29 Robert Dewar <dewar@adacore.com>
* sem_res.adb (Resolve_Real_Literal): Generate warning if static
fixed-point expression has value that is not a multiple of the Small
value.
* opt.ads (Warn_On_Bad_Fixed_Value): New flag
* s-taprop-tru64.adb (RT_Resolution): Return an integer number of
nanoseconds.
* ug_words: Add entry for [NO_]BAD_FIXED_VALUES for -gnatwb/-gnatwB
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97165 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-taprop-tru64.adb')
| -rw-r--r-- | gcc/ada/s-taprop-tru64.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/s-taprop-tru64.adb b/gcc/ada/s-taprop-tru64.adb index 6667899fed9..9a0bba98c9c 100644 --- a/gcc/ada/s-taprop-tru64.adb +++ b/gcc/ada/s-taprop-tru64.adb @@ -612,7 +612,11 @@ package body System.Task_Primitives.Operations is function RT_Resolution return Duration is begin - return 1.0 / 1024.0; -- Clock on DEC Alpha ticks at 1024 Hz + -- Returned value must be an integral multiple of Duration'Small (1 ns) + -- The following is the best approximation of 1/1024. The clock on the + -- DEC Alpha ticks at 1024 Hz. + + return 0.000_976_563; end RT_Resolution; ------------ |