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/sem_ch3.adb | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'gcc/ada/sem_ch3.adb') diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index afdb50ff235..b798fd51538 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -548,9 +548,9 @@ package body Sem_Ch3 is -- Create new modular type. Verify that modulus is in bounds and is -- a power of two (implementation restriction). - procedure New_Binary_Operator (Op_Name : Name_Id; Typ : Entity_Id); + procedure New_Concatenation_Op (Typ : Entity_Id); -- Create an abbreviated declaration for an operator in order to - -- materialize minimally operators on derived types. + -- materialize concatenation on array types. procedure Ordinary_Fixed_Point_Type_Declaration (T : Entity_Id; @@ -2865,7 +2865,7 @@ package body Sem_Ch3 is if Number_Dimensions (T) = 1 and then not Is_Packed_Array_Type (T) then - New_Binary_Operator (Name_Op_Concat, T); + New_Concatenation_Op (T); end if; -- In the case of an unconstrained array the parser has already @@ -3068,7 +3068,7 @@ package body Sem_Ch3 is and then not Is_Derived_Type (Parent_Type) and then not Is_Package (Scope (Base_Type (Parent_Type))) then - New_Binary_Operator (Name_Op_Concat, Derived_Type); + New_Concatenation_Op (Derived_Type); end if; end Build_Derived_Array_Type; @@ -10945,11 +10945,11 @@ package body Sem_Ch3 is end Modular_Type_Declaration; - ------------------------- - -- New_Binary_Operator -- - ------------------------- + -------------------------- + -- New_Concatenation_Op -- + -------------------------- - procedure New_Binary_Operator (Op_Name : Name_Id; Typ : Entity_Id) is + procedure New_Concatenation_Op (Typ : Entity_Id) is Loc : constant Source_Ptr := Sloc (Typ); Op : Entity_Id; @@ -10971,26 +10971,26 @@ package body Sem_Ch3 is return Formal; end Make_Op_Formal; - -- Start of processing for New_Binary_Operator + -- Start of processing for New_Concatenation_Op begin - Op := Make_Defining_Operator_Symbol (Loc, Op_Name); + Op := Make_Defining_Operator_Symbol (Loc, Name_Op_Concat); Set_Ekind (Op, E_Operator); Set_Scope (Op, Current_Scope); Set_Etype (Op, Typ); - Set_Homonym (Op, Get_Name_Entity_Id (Op_Name)); + Set_Homonym (Op, Get_Name_Entity_Id (Name_Op_Concat)); Set_Is_Immediately_Visible (Op); Set_Is_Intrinsic_Subprogram (Op); Set_Has_Completion (Op); Append_Entity (Op, Current_Scope); - Set_Name_Entity_Id (Op_Name, Op); + Set_Name_Entity_Id (Name_Op_Concat, Op); Append_Entity (Make_Op_Formal (Typ, Op), Op); Append_Entity (Make_Op_Formal (Typ, Op), Op); - end New_Binary_Operator; + end New_Concatenation_Op; ------------------------------------------- -- Ordinary_Fixed_Point_Type_Declaration -- -- cgit v1.2.1