Commit bc6e33a3 by Thomas Quinot Committed by Arnaud Charlet

exp_imgv.adb: Minor reformatting.

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

	* exp_imgv.adb: Minor reformatting.

From-SVN: r181663
parent 2d6b25ed
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
......
......@@ -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.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment