From 7c4d75bfb59458d913c10a3b561b72f85c53dc71 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 12 Jun 2012 12:36:09 +0200 Subject: [PATCH] [multiple changes] 2012-06-12 Ed Schonberg * sem_ch12.adb: Small adjustment. 2012-06-12 Vincent Celier * 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 --- gcc/ada/ChangeLog | 12 ++++++++++++ gcc/ada/sem_ch12.adb | 2 +- gcc/ada/vms_cmds.ads | 3 ++- gcc/ada/vms_conv.adb | 12 +++++++++++- gcc/ada/vms_data.ads | 7 +++++++ 5 files changed, 33 insertions(+), 3 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6da4ac62251..ad0181a27eb 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,15 @@ +2012-06-12 Ed Schonberg + + * sem_ch12.adb: Small adjustment. + +2012-06-12 Vincent Celier + + * 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 * sem_ch3.adb (Analyze_Subtype_Declaration): if an incomplete diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 4bb7cee6a1d..159c6e76ca1 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -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 diff --git a/gcc/ada/vms_cmds.ads b/gcc/ada/vms_cmds.ads index 66c401506d0..d61e3eddf31 100644 --- a/gcc/ada/vms_cmds.ads +++ b/gcc/ada/vms_cmds.ads @@ -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; diff --git a/gcc/ada/vms_conv.adb b/gcc/ada/vms_conv.adb index 5cde2a2e160..a499b9dd2d6 100644 --- a/gcc/ada/vms_conv.adb +++ b/gcc/ada/vms_conv.adb @@ -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"), diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads index e438f843670..01525b76d4b 100644 --- a/gcc/ada/vms_data.ads +++ b/gcc/ada/vms_data.ads @@ -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 -- ---------------------------- -- 2.30.2