diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-01 12:31:32 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-01 12:31:32 +0000 |
| commit | 928c11f3f3955eb7f678dacf029346164e568c4d (patch) | |
| tree | 410c132ed7df4a60c4416343f473a35779582288 /gcc/ada/mlib-tgt-vms_common.ads | |
| parent | 76005733664154625d8b06359dd6da8aabed4b6c (diff) | |
| download | gcc-928c11f3f3955eb7f678dacf029346164e568c4d.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177021 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/mlib-tgt-vms_common.ads')
| -rw-r--r-- | gcc/ada/mlib-tgt-vms_common.ads | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/mlib-tgt-vms_common.ads b/gcc/ada/mlib-tgt-vms_common.ads index 8429b773123..cdba6134ee9 100644 --- a/gcc/ada/mlib-tgt-vms_common.ads +++ b/gcc/ada/mlib-tgt-vms_common.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2007-2008, Free Software Foundation, Inc. -- +-- Copyright (C) 2007-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- -- @@ -27,4 +27,9 @@ package MLib.Tgt.VMS_Common is pragma Elaborate_Body; + + function Init_Proc_Name (Library_Name : String) return String; + -- Returns, in upper case, Library_Name & "INIT", except when Library_Name + -- is "ada" (case insensitive), returns "ADA_INIT". + end MLib.Tgt.VMS_Common; |