From bc6e33a3876d732c010d252462a44dedb248657a Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Wed, 23 Nov 2011 13:19:56 +0000 Subject: [PATCH] exp_imgv.adb: Minor reformatting. 2011-11-23 Thomas Quinot * exp_imgv.adb: Minor reformatting. From-SVN: r181663 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/exp_imgv.adb | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index ecf8e6a..543411e 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2011-11-23 Thomas Quinot + + * exp_imgv.adb: Minor reformatting. + 2011-11-23 Robert Dewar * 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 --- 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. -- 2.7.4