From 5910b3704b24a6d29d5f01e71284b0ae7eba8f54 Mon Sep 17 00:00:00 2001 From: charlet Date: Wed, 15 Feb 2006 09:31:54 +0000 Subject: 2006-02-13 Arnaud Charlet Robert Dewar * 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 --- gcc/ada/clean.adb | 34 ++++++++++++++++++++++------------ 1 file changed, 22 insertions(+), 12 deletions(-) (limited to 'gcc/ada/clean.adb') 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; -- cgit v1.2.1