exp_imgv.adb: Minor reformatting.

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

	* exp_imgv.adb: Minor reformatting.

From-SVN: r181663

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ecf8e6a2c41fad03f21021ef6c19ecc18821cfd4..543411e6960f733451c2e4c61857a2bb08f04b60 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 b819a36ebc20806f8eda5fc00254cbce12413262..c8529ce2a51376ea370aeb2b82500ad16df302d1 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.