diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-01 14:31:32 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-01 14:31:32 +0200 |
| commit | c228a0698654628c25704330a123c58c4a5380b4 (patch) | |
| tree | 410c132ed7df4a60c4416343f473a35779582288 /gcc/ada/mlib-tgt-specific-vms-alpha.adb | |
| parent | b6193c94eb443c680cc828266fc93b654d28d250 (diff) | |
| download | gcc-c228a0698654628c25704330a123c58c4a5380b4.zip gcc-c228a0698654628c25704330a123c58c4a5380b4.tar.gz gcc-c228a0698654628c25704330a123c58c4a5380b4.tar.bz2 | |
[multiple changes]
2011-08-01 Robert Dewar <dewar@adacore.com>
* aspects.ads, aspects.adb (Aspect_Names): Moved from body to spec.
* par-ch13.adb (P_Aspect_Specifications): Check misspelled aspect name.
* par.adb: Add with for Namet.Sp.
* par-tchk.adb: Minor reformatting.
2011-08-01 Vincent Celier <celier@adacore.com>
* mlib-tgt-specific-vms-alpha.adb, mlib-tgt-specific-vms-ia64.adb
(Build_Dynamic_Library): Use new function Init_Proc_Name to get the name
of the init procedure of a SAL.
* mlib-tgt-vms_common.ads, mlib-tgt-vms_common.adb (Init_Proc_Name):
New procedure.
2011-08-01 Thomas Quinot <quinot@adacore.com>
* exp_ch4.adb, s-tasini.ads, sem_attr.adb, s-soflin.ads: Minor
reformatting.
2011-08-01 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
* adaint.c (__gnat_file_time_name_attr): Get rid of warning.
2011-08-01 Thomas Quinot <quinot@adacore.com>
* sem_util.adb, sem_util.ads (Has_Overriding_Initialize): Make function
conformant with its spec (return True only for types that have
an overriding Initialize primitive operation that prevents them from
having preelaborable initialization).
* sem_cat.adb (Validate_Object_Declaration): Fix test for preelaborable
initialization for controlled types in Ada 2005 or later mode.
From-SVN: r177021
Diffstat (limited to 'gcc/ada/mlib-tgt-specific-vms-alpha.adb')
| -rw-r--r-- | gcc/ada/mlib-tgt-specific-vms-alpha.adb | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/gcc/ada/mlib-tgt-specific-vms-alpha.adb b/gcc/ada/mlib-tgt-specific-vms-alpha.adb index c9ffa0d..c8e248b 100644 --- a/gcc/ada/mlib-tgt-specific-vms-alpha.adb +++ b/gcc/ada/mlib-tgt-specific-vms-alpha.adb @@ -7,7 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2003-2008, Free Software Foundation, Inc. -- +-- Copyright (C) 2003-2010, 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- -- @@ -31,9 +31,7 @@ with Ada.Characters.Handling; use Ada.Characters.Handling; with MLib.Fil; with MLib.Utl; -with MLib.Tgt.VMS_Common; -pragma Warnings (Off, MLib.Tgt.VMS_Common); --- MLib.Tgt.VMS_Common is with'ed only for elaboration purposes +with MLib.Tgt.VMS_Common; use MLib.Tgt.VMS_Common; with Opt; use Opt; with Output; use Output; @@ -251,7 +249,7 @@ package body MLib.Tgt.Specific is declare Macro_File_Name : constant String := Lib_Filename & "__init.asm"; Macro_File : File_Descriptor; - Init_Proc : String := Lib_Filename & "INIT"; + Init_Proc : constant String := Init_Proc_Name (Lib_Filename); Popen_Result : System.Address; Pclose_Result : Integer; Len : Natural; @@ -266,8 +264,6 @@ package body MLib.Tgt.Specific is -- The mode for the invocation of Popen begin - To_Upper (Init_Proc); - if Verbose_Mode then Write_Str ("Creating auto-init assembly file """); Write_Str (Macro_File_Name); |