OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[multiple changes]

Browse Source 
2011-11-23  Pascal Obry  <obry@adacore.com>

	* impunit.adb: Add g-exptty and g-tty units.

2011-11-23  Robert Dewar  <dewar@adacore.com>

	* exp_imgv.adb: Minor code reorganization (use Make_Temporary).

From-SVN: r181656
This commit is contained in:
Arnaud Charlet 2011-11-23 11:58:14 +01:00
parent 95160516ff
commit 3d0c15cf4f
3 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/ada/ChangeLog
View File

@ -1,3 +1,11 @@
2011-11-23 Pascal Obry <obry@adacore.com>
* impunit.adb: Add g-exptty and g-tty units.
2011-11-23 Robert Dewar <dewar@adacore.com>
* exp_imgv.adb: Minor code reorganization (use Make_Temporary).
2011-11-23 Robert Dewar <dewar@adacore.com>
* exp_util.adb, par-ch6.adb, sem_res.adb, par-util.adb: Minor
@ -7,6 +15,7 @@
* sem_ch13.adb (Analyze_Aspect_Specifications): Place error on
line of precondition/ postcondition/invariant.
2011-11-23 Pascal Obry <obry@adacore.com>
* g-exptty.ads, g-exptty.adb, g-tty.ads, g-tty.adb,

5
gcc/ada/exp_imgv.adb
View File

@ -1191,10 +1191,7 @@ package body Exp_Imgv is
if Discard_Names (Rtyp) then
declare
Tnn : constant Entity_Id :=
Make_Defining_Identifier (Loc,
Chars => New_Internal_Name ('T'));
Tnn : constant Entity_Id := Make_Temporary (Loc, 'T');
Cexpr : Node_Id;
P : Int;
M : Int;

2
gcc/ada/impunit.adb
View File

@ -270,6 +270,7 @@ package body Impunit is
("g-except", F), -- GNAT.Exceptions
("g-exctra", F), -- GNAT.Exception_Traces
("g-expect", F), -- GNAT.Expect
("g-exptty", F), -- GNAT.Expect.TTY
("g-flocon", F), -- GNAT.Float_Control
("g-heasor", F), -- GNAT.Heap_Sort
("g-hesora", F), -- GNAT.Heap_Sort_A
@ -318,6 +319,7 @@ package body Impunit is
("g-timsta", F), -- GNAT.Time_Stamp
("g-traceb", F), -- GNAT.Traceback
("g-trasym", F), -- GNAT.Traceback.Symbolic
("g-tty ", F), -- GNAT.TTY
("g-utf_32", F), -- GNAT.UTF_32
("g-u3spch", F), -- GNAT.UTF_32_Spelling_Checker
("g-wispch", F), -- GNAT.Wide_Spelling_Checker