From: Thomas Quinot <quinot@adacore.com>
Date: Wed, 23 Nov 2011 13:19:56 +0000 (+0000)
Subject: exp_imgv.adb: Minor reformatting.
X-Git-Tag: releases/gcc-4.7.0~1989
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=bc6e33a3876d732c010d252462a44dedb248657a;p=thirdparty%2Fgcc.git

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 ecf8e6a2c41f..543411e6960f 100644
--- 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 b819a36ebc20..c8529ce2a513 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.