diff options
| author | Thomas Quinot <quinot@adacore.com> | 2011-11-23 13:19:56 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-11-23 14:19:56 +0100 |
| commit | bc6e33a3876d732c010d252462a44dedb248657a (patch) | |
| tree | 8e61c4906459a04ff5d9bbf015ce57051e182a5b /gcc/ada/exp_imgv.adb | |
| parent | 2d6b25ed112219f0ed21f669104a8db9e5e7e1ec (diff) | |
| download | gcc-bc6e33a3876d732c010d252462a44dedb248657a.zip gcc-bc6e33a3876d732c010d252462a44dedb248657a.tar.gz gcc-bc6e33a3876d732c010d252462a44dedb248657a.tar.bz2 | |
exp_imgv.adb: Minor reformatting.
2011-11-23 Thomas Quinot <quinot@adacore.com>
* exp_imgv.adb: Minor reformatting.
From-SVN: r181663
Diffstat (limited to 'gcc/ada/exp_imgv.adb')
| -rw-r--r-- | gcc/ada/exp_imgv.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_imgv.adb b/gcc/ada/exp_imgv.adb index b819a36..c8529ce 100644 --- a/gcc/ada/exp_imgv.adb +++ b/gcc/ada/exp_imgv.adb @@ -245,7 +245,7 @@ package body Exp_Imgv is -- Snn (1 .. Pnn) then occurs as in the other cases. A special case is -- when pragma Discard_Names applies, in which case we replace expr by: - -- (rt'pos (expr))'Img + -- (rt'Pos (expr))'Img -- So that the result is a space followed by the decimal value for the -- position of the enumeration value in the enumeration type. |