[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>
|
2012-06-12 Ed Schonberg <schonberg@adacore.com>
|
||||||
|
|
||||||
* sem_ch3.adb (Analyze_Subtype_Declaration): if an incomplete
|
* sem_ch3.adb (Analyze_Subtype_Declaration): if an incomplete
|
||||||
|
|
|
@ -9457,7 +9457,7 @@ package body Sem_Ch12 is
|
||||||
Freeze_Before (Instantiation_Node, Etype (F));
|
Freeze_Before (Instantiation_Node, Etype (F));
|
||||||
|
|
||||||
if Is_Incomplete_Or_Private_Type (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))
|
and then not Is_Generic_Type (Etype (F))
|
||||||
then
|
then
|
||||||
Error_Msg_NE
|
Error_Msg_NE
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- S p e c --
|
-- 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 --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
@ -47,6 +47,7 @@ package VMS_Cmds is
|
||||||
Shared,
|
Shared,
|
||||||
Stack,
|
Stack,
|
||||||
Stub,
|
Stub,
|
||||||
|
Test,
|
||||||
Xref,
|
Xref,
|
||||||
Undefined);
|
Undefined);
|
||||||
end VMS_Cmds;
|
end VMS_Cmds;
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- 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 --
|
-- 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- --
|
-- 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),
|
Params => new Parameter_Array'(1 => File, 2 => Optional_File),
|
||||||
Defext => " "),
|
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 =>
|
Xref =>
|
||||||
(Cname => new S'("XREF"),
|
(Cname => new S'("XREF"),
|
||||||
Usage => new S'("GNAT XREF filespec[,...] /qualifiers"),
|
Usage => new S'("GNAT XREF filespec[,...] /qualifiers"),
|
||||||
|
|
|
@ -7166,6 +7166,13 @@ package VMS_Data is
|
||||||
S_Sync_Warnoff 'Access,
|
S_Sync_Warnoff 'Access,
|
||||||
S_Sync_Output 'Access);
|
S_Sync_Output 'Access);
|
||||||
|
|
||||||
|
----------------------------
|
||||||
|
-- Switches for GNAT TEST --
|
||||||
|
----------------------------
|
||||||
|
|
||||||
|
Test_Switches : aliased constant Switches :=
|
||||||
|
(1 .. 0 => null);
|
||||||
|
|
||||||
----------------------------
|
----------------------------
|
||||||
-- Switches for GNAT XREF --
|
-- Switches for GNAT XREF --
|
||||||
----------------------------
|
----------------------------
|
||||||
|
|
Loading…
Reference in New Issue