diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 12:17:53 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 12:17:53 +0000 |
| commit | dffd0a90b889a398f1ebdf22558d592248439ec8 (patch) | |
| tree | 85a56e9c3d5c1469ea1e28e6aab324892ec6a178 /gcc/ada/gnatcmd.adb | |
| parent | 4c4697b81e7b74186ae92bbffd6f2b9af05d8f86 (diff) | |
| download | gcc-dffd0a90b889a398f1ebdf22558d592248439ec8.tar.gz | |
2009-07-13 Emmanuel Briot <briot@adacore.com>
* prj-err.adb (Error_Msg): One more case where a message should be
considered as a warning.
* gnatcmd.adb (GNATCmd): Fix previous change, which negated a test.
2009-07-13 Thomas Quinot <quinot@adacore.com>
* exp_dist.adb (Expand_All_Calls_Remote_Subprogram_Call): Analyze
calling stubs in the (library level) scope of the RCI locator, where it
is attached, not in the caller's scope.
2009-07-13 Javier Miranda <miranda@adacore.com>
* sem_ch3.adb (Analyze_Object_Declaration): In case of class-wide
interface object declarations we delay the generation of the equivalent
record type declarations until its expansion because there are cases in
which they are not required.
* sem_util.adb (Implements_Interface): Add missing support for subtypes.
* sem_disp.adb (Check_Controlling_Formals): Minor code cleanup plus
addition of assertion.
* exp_util.adb (Expand_Subtype_From_Expr): Renamings of class-wide
interface types require no equivalent constrained type declarations
because the expanded code only references the tag component associated
with the interface.
(Find_Interface_Tag): Improve management of interfaces that are
ancestors of tagged types.
* exp_ch3.adb (Expand_N_Object_Declaration): Improve the expansion of
class-wide object declarations to add missing support to statically
displace the pointer to the object to reference the tag component
associated with the interface.
* exp_disp.adb (Make_Tags) Avoid generation of internally generated
auxiliary types associated with user-defined dispatching calls if the
type has no user-defined primitives.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149574 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index fabf31ecaca..c3ec70c241a 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -2117,16 +2117,16 @@ begin end if; end loop; - -- If the naming scheme of the project file is not standard, - -- and if the file name ends with the spec suffix, then - -- indicate to gnatstub the name of the body file with - -- a -o switch. + -- If the project file naming scheme is not standard, and if + -- the file name ends with the spec suffix, then indicate to + -- gnatstub the name of the body file with a -o switch. - if Is_Standard_GNAT_Naming (Lang.Config.Naming_Data) then + if not Is_Standard_GNAT_Naming (Lang.Config.Naming_Data) then if File_Index /= 0 then declare Spec : constant String := - Base_Name (Last_Switches.Table (File_Index).all); + Base_Name + (Last_Switches.Table (File_Index).all); Last : Natural := Spec'Last; begin @@ -2193,8 +2193,7 @@ begin end if; -- For gnat check, -rules and the following switches need to be the - -- last options. So, we move all these switches to table - -- Rules_Switches. + -- last options, so move all these switches to table Rules_Switches. if The_Command = Check then declare |