diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-29 15:12:14 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-29 15:12:14 +0000 |
| commit | 1859a56034ddedc41f013d3b75a2f274efc56d3b (patch) | |
| tree | 0680b62a28012eab69f36bdffeb5b8e66d9b4973 /gcc/ada/s-imgllb.adb | |
| parent | 5461b023c056cfd8f845a067739bf0a8f3acb69c (diff) | |
| download | gcc-1859a56034ddedc41f013d3b75a2f274efc56d3b.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213211 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-imgllb.adb')
| -rw-r--r-- | gcc/ada/s-imgllb.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/s-imgllb.adb b/gcc/ada/s-imgllb.adb index 2ab1e4d76ad..3f0da252883 100644 --- a/gcc/ada/s-imgllb.adb +++ b/gcc/ada/s-imgllb.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- -- @@ -102,6 +102,10 @@ package body System.Img_LLB is procedure Set_Digits (T : Long_Long_Unsigned); -- Set digits of absolute value of T + ---------------- + -- Set_Digits -- + ---------------- + procedure Set_Digits (T : Long_Long_Unsigned) is begin if T >= BU then |