2011-11-23 Thomas Quinot <quinot@adacore.com>

	* exp_imgv.adb: Minor reformatting.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@181663 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ecf8e6a..543411e 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+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

diff --git a/gcc/ada/exp_imgv.adb b/gcc/ada/exp_imgv.adb
index b819a36..c8529ce 100644 (file)
--- 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.