diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:31:54 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:31:54 +0000 |
commit | 5910b3704b24a6d29d5f01e71284b0ae7eba8f54 (patch) | |
tree | 14eb42b222454b2b7f3b3060688e866bdb0b0127 /gcc/ada/clean.adb | |
parent | 626ab89ada824ff6c4ab3436972a1e9707f6f5ef (diff) | |
download | gcc-5910b3704b24a6d29d5f01e71284b0ae7eba8f54.tar.gz |
2006-02-13 Arnaud Charlet <charlet@adacore.com>
Robert Dewar <dewar@adacore.com>
* a-exexpr.adb, a-exexpr-gcc.adb
(Process_Raise_Exception): Removed, merged with Propagate_Exception.
(Propagate_Exception): Now take extra From_Signal_Handler parameter.
Remove code unused for exception propagation for the compiler itself
from a-except.adb and update to still share separate packages.
* a-except.ads, a-except.adb: Ditto.
Add comments that this version is now used only by the compiler and
other basic tools. The full version that includes the Ada 2005 stuff
is in separate files a-except-2005.ads/adb. The reason is that we do
not want to cause bootstrap problems with compilers not recognizing
Wide_Wide_String.
Add exception reason code PE_Implicit_Return
Add new exception reason code (Null Exception_Id)
* a-except-2005.adb, a-except-2005.ads: New files.
* s-wchcon.ads: (Get_WC_Encoding_Method): New function.
* s-wchcon.adb: New file.
* Makefile.in (LIBGNAT_SRCS): Add tb-gcc.c.
(traceback.o deps): Likewise.
(SPARC/Solaris): Accept sparc[64|v9]-sun-solaris.
Activate build of GMEM instrumentation library on VMS targets.
(gnatlib-sjlj, gnatlib-zcx): Pass EH_MECHANISM to make gnatlib.
Use a-except-2005.ads/adb for all run-time library builds unless
specified otherwise.
[VMS] (LIBGNAT_TARGET_PAIRS_AUX1,2): Rename s-parame-vms.ads to
s-parame-vms-alpha.ads and add s-parame-vms-ia64.ads.
Use s-parame.adb on all native platforms.
Use s-parame-vxworks.adb on all vxworks platforms.
Add env.c env.h in LIBGNAT_SRCS
Add env.o in LIBGNAT_OBJS
(GNATMAKE_OBJS): Remove ctrl_c.o object.
(LIBGNAT_TARGET_PAIRS for x86-vxworks): Use an specialized version of
s-osinte.adb, s-tpopsp.adb, and system.ads for the run time that
supports VxWorks 6 RTPs.
(EXTRA_GNATRTL_NONTASKING_OBJS for x86-vxworks): Remove the use of
i-vxworks and i-vxwoio from the run time that supports VxWorks 6 RTPs.
* types.h, types.ads (Terminate_Program): New exception
Add comment on modifying multiple versions of a-except.adb when the
table of exception reasons is modified.
Add exception reason code PE_Implicit_Return
Add new exception reason code (Null Exception_Id)
* clean.adb (Initialize): Get the target parameters before checking
if target is OpenVMS. Move the OpenVMS specific code here from package
body elaboration code.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111031 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/clean.adb')
-rw-r--r-- | gcc/ada/clean.adb | 34 |
1 files changed, 22 insertions, 12 deletions
diff --git a/gcc/ada/clean.adb b/gcc/ada/clean.adb index 5d8fc0d273d..08459060345 100644 --- a/gcc/ada/clean.adb +++ b/gcc/ada/clean.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2003-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 2003-2006, 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- -- @@ -26,7 +26,7 @@ with ALI; use ALI; with Csets; -with Gnatvsn; +with Gnatvsn; use Gnatvsn; with Makeutl; with MLib.Tgt; use MLib.Tgt; with Namet; use Namet; @@ -1288,8 +1288,11 @@ package body Clean is begin if not Copyright_Displayed then Copyright_Displayed := True; - Put_Line ("GNATCLEAN " & Gnatvsn.Gnat_Version_String - & " Copyright 2003-2005 Free Software Foundation, Inc."); + Put_Line + ("GNATCLEAN " & Gnatvsn.Gnat_Version_String + & " Copyright 2003-" + & Current_Year + & " Free Software Foundation, Inc."); end if; end Display_Copyright; @@ -1308,7 +1311,6 @@ package body Clean is procedure Extract_From_Q (Lib_File : out File_Name_Type) is Lib : constant File_Name_Type := Q.Table (Q_Front); - begin Q_Front := Q_Front + 1; Lib_File := Lib; @@ -1501,12 +1503,27 @@ package body Clean is if not Initialized then Initialized := True; + -- Get default search directories to locate system.ads when calling + -- Targparm.Get_Target_Parameters. + + Osint.Add_Default_Search_Dirs; + -- Initialize some packages Csets.Initialize; Namet.Initialize; Snames.Initialize; Prj.Initialize (Project_Tree); + + -- Check if the platform is VMS and, if it is, change some variables + + Targparm.Get_Target_Parameters; + + if OpenVMS_On_Target then + Debug_Suffix (Debug_Suffix'First) := '_'; + Repinfo_Suffix (Repinfo_Suffix'First) := '_'; + B_Start := new String'("b__"); + end if; end if; -- Reset global variables @@ -1897,11 +1914,4 @@ package body Clean is New_Line; end if; end Usage; - -begin - if OpenVMS_On_Target then - Debug_Suffix (Debug_Suffix'First) := '_'; - Repinfo_Suffix (Repinfo_Suffix'First) := '_'; - B_Start := new String'("b__"); - end if; end Clean; |