git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

exp_imgv.adb: Minor reformatting. 

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

	* exp_imgv.adb: Minor reformatting.

From-SVN: r181663
This commit is contained in:
Thomas Quinot 2011-11-23 13:19:56 +00:00 committed by Arnaud Charlet
parent 2d6b25ed11
commit bc6e33a387
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -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> 2011-11-23 Robert Dewar <dewar@adacore.com>
* sem_ch9.adb (Analyze_Entry_Declaration): Check for entry * sem_ch9.adb (Analyze_Entry_Declaration): Check for entry

2
gcc/ada/exp_imgv.adb
View File

@ -245,7 +245,7 @@ package body Exp_Imgv is
-- Snn (1 .. Pnn) then occurs as in the other cases. A special case 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: -- 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 -- So that the result is a space followed by the decimal value for the
-- position of the enumeration value in the enumeration type. -- position of the enumeration value in the enumeration type.