diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-29 17:12:14 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-29 17:12:14 +0200 |
| commit | 094cf3330c711e995e3cd1e2cf6b81fd88b6b7b1 (patch) | |
| tree | 0680b62a28012eab69f36bdffeb5b8e66d9b4973 /gcc/ada/s-imgwiu.adb | |
| parent | 38564f81946e0a79b7a3da3459eb4e40442d0ee6 (diff) | |
| download | gcc-094cf3330c711e995e3cd1e2cf6b81fd88b6b7b1.zip gcc-094cf3330c711e995e3cd1e2cf6b81fd88b6b7b1.tar.gz gcc-094cf3330c711e995e3cd1e2cf6b81fd88b6b7b1.tar.bz2 | |
[multiple changes]
2014-07-29 Robert Dewar <dewar@adacore.com>
* sem_prag.adb (ip, rv): Prevent from being optimized away.
* gnatls.adb (gnatls): Set E_Fatal exit status if ali file not found.
* s-imgllb.adb, s-imgllw.adb, s-imgwiu.adb, s-imgbiu.adb: Minor
reformatting.
2014-07-29 Vincent Celier <celier@adacore.com>
* prj-pp.adb: Minor comment update.
* frontend.adb: If a target dependency info file has been read
through switch -gnateT= add it to the dependencies of the source
being compiled.
From-SVN: r213211
Diffstat (limited to 'gcc/ada/s-imgwiu.adb')
| -rw-r--r-- | gcc/ada/s-imgwiu.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/s-imgwiu.adb b/gcc/ada/s-imgwiu.adb index 62dd9c1..022f75c 100644 --- a/gcc/ada/s-imgwiu.adb +++ b/gcc/ada/s-imgwiu.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- -- -- -- GNAT 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- -- @@ -94,6 +94,10 @@ package body System.Img_WIU is procedure Set_Digits (T : Unsigned); -- Set digits of absolute value of T + ---------------- + -- Set_Digits -- + ---------------- + procedure Set_Digits (T : Unsigned) is begin if T >= 10 then |