diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-06-12 12:36:09 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-06-12 12:36:09 +0200 |
| commit | 7c4d75bfb59458d913c10a3b561b72f85c53dc71 (patch) | |
| tree | 331148910b132282cc68eebf963966894eecd353 /gcc | |
| parent | 967e927f1b8c1971e4bad6b3327ca984cb18083f (diff) | |
| download | gcc-7c4d75bfb59458d913c10a3b561b72f85c53dc71.zip gcc-7c4d75bfb59458d913c10a3b561b72f85c53dc71.tar.gz gcc-7c4d75bfb59458d913c10a3b561b72f85c53dc71.tar.bz2 | |
[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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 12 | ||||
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/vms_cmds.ads | 3 | ||||
| -rw-r--r-- | gcc/ada/vms_conv.adb | 12 | ||||
| -rw-r--r-- | gcc/ada/vms_data.ads | 7 |
5 files changed, 33 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6da4ac6..ad0181a 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,17 @@ 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 type is tagged, so is a subtype of it. * sem_ch12.adb (Validate_Actual_Subprogram): implement AI05-0296, diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 4bb7cee..159c6e7 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 66c4015..d61e3ed 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 5cde2a2..a499b9d 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 e438f84..01525b7 100644 --- a/gcc/ada/vms_data.ads +++ b/gcc/ada/vms_data.ads @@ -7167,6 +7167,13 @@ package VMS_Data is S_Sync_Output 'Access); ---------------------------- + -- Switches for GNAT TEST -- + ---------------------------- + + Test_Switches : aliased constant Switches := + (1 .. 0 => null); + + ---------------------------- -- Switches for GNAT XREF -- ---------------------------- |