exp_imgv.adb: Minor reformatting.

2011-11-23 Thomas Quinot <quinot@adacore.com> * exp_imgv.adb: Minor reformatting. From-SVN: r181663

exp_imgv.adb: Minor reformatting.
2011-11-23 Thomas Quinot <quinot@adacore.com> * exp_imgv.adb: Minor reformatting. From-SVN: r181663
bc6e33a3 · Thomas Quinot · Arnaud Charlet · 2d6b25ed · bc6e33a3 · bc6e33a3
Commit bc6e33a3 authored Nov 23, 2011 by Thomas Quinot Committed by Arnaud Charlet Nov 23, 2011
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletions

gcc/ada/ChangeLog
+4 -0

gcc/ada/exp_imgv.adb
+1 -1

No files found.
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
+2011-11-23  Thomas Quinot  <quinot@adacore.com>
+
+	* exp_imgv.adb: Minor reformatting.
+
 2011-11-23  Robert Dewar  <dewar@adacore.com>

 	* sem_ch9.adb (Analyze_Entry_Declaration): Check for entry

--- 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.