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

[multiple changes] 

2012-06-12  Ed Schonberg  <schonberg@adacore.com>

	* sem_ch12.adb: Small adjustment.

2012-06-12  Vincent Celier  <celier@adacore.com>

	* vms_cmds.ads (Command_Type): New enumeration value Test
	* vms_conv.adb (Initialize): Add component at index Test in
	Command_List
	* vms_data.ads (Test_Switches): New global variable for the
	switches of gnattest, currently empty.

From-SVN: r188443
This commit is contained in:
Arnaud Charlet 2012-06-12 12:36:09 +02:00
parent 967e927f1b
commit 7c4d75bfb5
5 changed files with 33 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/ada/ChangeLog
View File

@ -1,3 +1,15 @@
2012-06-12 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb: Small adjustment.
2012-06-12 Vincent Celier <celier@adacore.com>
* vms_cmds.ads (Command_Type): New enumeration value Test
* vms_conv.adb (Initialize): Add component at index Test in
Command_List
* vms_data.ads (Test_Switches): New global variable for the
switches of gnattest, currently empty.
2012-06-12 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Analyze_Subtype_Declaration): if an incomplete

2
gcc/ada/sem_ch12.adb
View File

@ -9457,7 +9457,7 @@ package body Sem_Ch12 is
Freeze_Before (Instantiation_Node, Etype (F));
if Is_Incomplete_Or_Private_Type (Etype (F))
and then No (Full_View (Etype (F)))
and then No (Underlying_Type (Etype (F)))
and then not Is_Generic_Type (Etype (F))
then
Error_Msg_NE

3
gcc/ada/vms_cmds.ads
View File

@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2010, Free Software Foundation, Inc. --
-- Copyright (C) 2010-2012, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -47,6 +47,7 @@ package VMS_Cmds is
Shared,
Stack,
Stub,
Test,
Xref,
Undefined);
end VMS_Cmds;

12
gcc/ada/vms_conv.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1996-2011, Free Software Foundation, Inc. --
-- Copyright (C) 1996-2012, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -546,6 +546,16 @@ package body VMS_Conv is
Params => new Parameter_Array'(1 => File, 2 => Optional_File),
Defext => " "),
Test =>
(Cname => new S'("TEST"),
Usage => new S'("GNAT TEST file(s) /qualifiers"),
VMS_Only => False,
Unixcmd => new S'("gnattest"),
Unixsws => null,
Switches => Make_Switches'Access,
Params => new Parameter_Array'(1 => Unlimited_Files),
Defext => " "),
Xref =>
(Cname => new S'("XREF"),
Usage => new S'("GNAT XREF filespec[,...] /qualifiers"),

7
gcc/ada/vms_data.ads
View File

@ -7166,6 +7166,13 @@ package VMS_Data is
S_Sync_Warnoff 'Access,
S_Sync_Output 'Access);
----------------------------
-- Switches for GNAT TEST --
----------------------------
Test_Switches : aliased constant Switches :=
(1 .. 0 => null);
----------------------------
-- Switches for GNAT XREF --
----------------------------