[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:
parent
967e927f1b
commit
7c4d75bfb5
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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;
|
||||
|
|
|
@ -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"),
|
||||
|
|
|
@ -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 --
|
||||
----------------------------
|
||||
|
|
Loading…
Reference in New Issue