From cf428c6cdd5b5d0454a13bca01295dce0eb5b6f3 Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 24 Nov 2003 14:27:57 +0000 Subject: 2003-11-24 Jose Ruiz * Makefile.in: Use 5zintman.ads for VxWorks targets. This file avoid confusion between signals and interrupts. * 5zintman.ads: New File. * 5zintman.adb: Replace Exception_Interrupts by Exception_Signals, and add exception signals to the set of unmasked signals. * 5ztaprop.adb: Use Abort_Task_Signal instead of Abort_Task_Interrupt to avoid confusion between signals and interrupts. Add to Unblocked_Signal_Mask the set of signals that are in Keep_Unmasked. * 7sinmaop.adb: Adding a check to see whether the Interrupt_ID we want to unmask is in the range of Keep_Unmasked (in procedure Interrupt_Self_Process). The reason is that the index type of the Keep_Unmasked array is not always Interrupt_ID; it may be a subtype of Interrupt_ID. 2003-11-24 Gary Dismukes * exp_util.adb: (Remove_Side_Effects): Condition constantness of object created for a an unchecked type conversion on the constantness of the expression to ensure the correct value for 'Constrained when passing components of view-converted class-wide objects. 2003-11-24 Robert Dewar * par-load.adb (Load): Improve handling of misspelled and missing units Removes several cases of compilation abandoned messages * lib.adb: (Remove_Unit): New procedure * lib.ads: (Remove_Unit): New procedure * lib-load.adb: Minor reformatting 2003-11-24 Vincent Celier * make.adb: (Gnatmake, Initialize): Call Usage instead of Makeusg directly (Marking_Label): Label to mark processed source files. Incremented for each executable. (Gnatmake): Increase Marking_Labet for each executable (Is_Marked): Compare against marking label (Mark): Mark with marking label 2003-11-24 Jerome Guitton * s-thread.ads: Move the declaration of the TSD for System.Threads to System.Soft_Links. Add some comments. * Makefile.in: Added target pair for s-thread.adb for cert runtime. (rts-cert): build a single relocatable object for the run-time lib. Fix perms. 2003-11-24 Vasiliy Fofanov * Make-lang.in: Use gnatls rather than gcc to obtain the location of GNAT RTL for crosstools build. 2003-11-24 Sergey Rybin * opt.adb (Tree_Write): Gnat_Version_String is now a function, so we can not use it as before (that is, as a variable) when dumping it into the tree file. Add a local variable to store the result of this function and to be used as the string to be written into the tree. * scn.adb (Initialize_Scanner): Add comments explaining the recent changes. * sinput.adb (Source_First, Source_Last): In case of Internal_Source_File, replace returning attributes of Internal_Source_Ptr (which is wrong) with returning attributes of Internal_Source. 2003-11-24 Ed Schonberg * sem_ch3.adb: (New_Concatenation_Op): Proper name for New_Binary_Operator, only used for implicit concatenation operators. Code cleanup. * sem_elab.adb: (Check_Elab_Call): Set No_Elaboration_Check appropriately on calls in task bodies that are in the scope of a Suppress pragma. (Check_A Call): Use the flag to prevent spurious elaboration checks. * sinfo.ads, sinfo.adb: New flag No_Elaboration_Check on function/procedure calls, to properly suppress checks on calls in task bodies that are within a local suppress pragma. * exp_ch4.adb: (Expand_Concatenate_Other): Use the proper integer type for the expression for the upper bound, to avoid universal_integer computations when possible. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@73874 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/make.adb | 50 ++++++++++++++++++++++++++++++++++++-------------- 1 file changed, 36 insertions(+), 14 deletions(-) (limited to 'gcc/ada/make.adb') diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index 5d2a9ce6ba7..1a58a82a1ae 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -24,12 +24,6 @@ -- -- ------------------------------------------------------------------------------ -with Ada.Exceptions; use Ada.Exceptions; -with Ada.Command_Line; use Ada.Command_Line; - -with GNAT.Directory_Operations; use GNAT.Directory_Operations; -with GNAT.Case_Util; use GNAT.Case_Util; - with ALI; use ALI; with ALI.Util; use ALI.Util; with Csets; @@ -65,6 +59,12 @@ with System.HTable; with Targparm; with Tempdir; +with Ada.Exceptions; use Ada.Exceptions; +with Ada.Command_Line; use Ada.Command_Line; + +with GNAT.Directory_Operations; use GNAT.Directory_Operations; +with GNAT.Case_Util; use GNAT.Case_Util; + package body Make is use ASCII; @@ -480,6 +480,9 @@ package body Make is -- Marking Routines -- ---------------------- + Marking_Label : Byte := 1; + -- Value to mark the source files + procedure Mark (Source_File : File_Name_Type); -- Mark Source_File. Marking is used to signal that Source_File has -- already been inserted in the Q. @@ -2233,7 +2236,9 @@ package body Make is ------------- function Compile - (S : Name_Id; L : Name_Id; Args : Argument_List) return Process_Id + (S : Name_Id; + L : Name_Id; + Args : Argument_List) return Process_Id is Comp_Args : Argument_List (Args'First .. Args'Last + 8); Comp_Next : Integer := Args'First; @@ -3692,7 +3697,7 @@ package body Make is else -- Output usage information if no files to compile - Makeusg; + Usage; Exit_Program (E_Fatal); end if; end if; @@ -4228,6 +4233,18 @@ package body Make is Multiple_Main_Loop : for N_File in 1 .. Osint.Number_Of_Files loop + -- Increase the marking label to be sure to check sources + -- for all executables. + + Marking_Label := Marking_Label + 1; + + -- Make sure it is not 0, which is the default value for + -- a file that has never been marked. + + if Marking_Label = 0 then + Marking_Label := 1; + end if; + -- First, find the executable name and path Executable := No_File; @@ -5573,7 +5590,7 @@ package body Make is end loop Scan_Args; if Usage_Requested then - Makeusg; + Usage; end if; -- Test for trailing -P switch @@ -5695,6 +5712,10 @@ package body Make is Make_Failed (Exception_Message (Err)); end; end if; + + -- Set the marking label to a value that is not zero + + Marking_Label := 1; end Initialize; ----------------------------------- @@ -5707,10 +5728,11 @@ package body Make is Into_Q : Boolean) is Put_In_Q : Boolean := Into_Q; - Unit : Com.Unit_Data; - Sfile : Name_Id; + Unit : Com.Unit_Data; + Sfile : Name_Id; + Extending : constant Boolean := - Projects.Table (The_Project).Extends /= No_Project; + Projects.Table (The_Project).Extends /= No_Project; function Check_Project (P : Project_Id) return Boolean; -- Returns True if P is The_Project or a project extended by @@ -6044,7 +6066,7 @@ package body Make is function Is_Marked (Source_File : File_Name_Type) return Boolean is begin - return Get_Name_Table_Byte (Source_File) /= 0; + return Get_Name_Table_Byte (Source_File) = Marking_Label; end Is_Marked; ---------- @@ -6228,7 +6250,7 @@ package body Make is procedure Mark (Source_File : File_Name_Type) is begin - Set_Name_Table_Byte (Source_File, 1); + Set_Name_Table_Byte (Source_File, Marking_Label); end Mark; -------------------- -- cgit v1.2.1