diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-04-05 14:57:42 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-04-05 14:57:42 +0000 |
commit | d24d7e81b6a309d113bc69412592c363733bc095 (patch) | |
tree | 2d91f19f11f8b38d7d3f5b5cf90649006ce6ddb8 /gcc/ada/tbuild.adb | |
parent | 66d12a6c0042f50195e3775da6684f7455019f15 (diff) | |
download | gcc-d24d7e81b6a309d113bc69412592c363733bc095.tar.gz |
2004-04-05 Vincent Celier <celier@gnat.com>
* adaint.h, adaint.c: Add function __gnat_named_file_length
* impunit.adb: Add Ada.Directories to the list
* Makefile.in: Add VMS and Windows versions of
Ada.Directories.Validity package body.
* Makefile.rtl: Add a-direct and a-dirval
* mlib-tgt.ads: Minor comment update.
* a-dirval.ads, a-dirval.adb, 5vdirval.adb, 5wdirval.adb,
a-direct.ads, a-direct.adb: New files.
2004-04-05 Vincent Celier <celier@gnat.com>
PR ada/13620
* make.adb (Scan_Make_Arg): Pass any -fxxx switches to gnatlink, not
just to the compiler.
2004-04-05 Robert Dewar <dewar@gnat.com>
* a-except.adb (Exception_Name_Simple): Make sure lower bound of
returned string is 1.
* ali-util.adb: Use proper specific form for Warnings (Off, entity)
* eval_fat.ads: Minor reformatting
* g-curexc.ads: Document that lower bound of returned string values
is always one.
* gnatlink.adb: Add ??? comment for previous change
(need to document why this is VMS specific)
* s-stoele.ads: Minor reformatting
* tbuild.ads: Minor reformatting throughout (new function specs)
* par-ch10.adb (P_Context_Clause): Handle comma instead of semicolon
after WITH.
* scng.adb: Minor reformatting
2004-04-05 Geert Bosch <bosch@gnat.com>
* eval_fat.adb (Machine): Remove unnecessary suppression of warning.
(Leading_Part): Still perform truncation to machine number if the
specified radix_digits is greater or equal to machine_mantissa.
2004-04-05 Javier Miranda <miranda@gnat.com>
* par-ch3.adb: Complete documentation of previous change
Correct wrong syntax documentation of the OBJECT_DECLARATION rule
(aliased must appear before constant).
* par-ch4.adb: Complete documentation of previous change.
* par-ch6.adb: Complete documentation of previous change.
* sinfo.ads: Fix typo in commment.
2004-04-05 Ed Schonberg <schonberg@gnat.com>
* sem_ch3.adb (Inherit_Components): If derived type is private and has
stored discriminants, use its discriminants to constrain parent type,
as is done for non-private derived record types.
* sem_ch4.adb (Remove_Abstract_Operations): New subprogram to implement
Ada 2005 AI-310: an abstract non-dispatching operation is not a
candidate interpretation in an overloaded call.
* tbuild.adb (Unchecked_Convert_To): Preserve conversion node if
expression is Null and target type is not an access type (e.g. a
non-private address type).
2004-04-05 Thomas Quinot <quinot@act-europe.fr>
* exp_ch6.adb (Rewrite_Function_Call): When rewriting an assignment
statement whose right-hand side is an inlined call, save a copy of the
original assignment subtree to preserve enough consistency for
Analyze_Assignment to proceed.
* sem_ch5.adb (Analyze_Assignment): Remove a costly copy of the
complete assignment subtree which is now unnecessary, as the expansion
of inlined call has been improved to preserve a consistent assignment
tree. Note_Possible_Modification must be called only
after checks have been applied, or else unnecessary checks will
be generated.
* sem_util.adb (Note_Possible_Modification): Reorganise the handling
of explicit dereferences that do not Come_From_Source:
- be selective on cases where we must go back to the dereferenced
pointer (an assignment to an implicit dereference must not be
recorded as modifying the pointer);
- do not rely on Original_Node being present (Analyze_Assignment
calls Note_Possible_Modification on a copied tree).
* sem_warn.adb (Check_References): When an unset reference to a pointer
that is never assigned is encountered, prefer '<pointer> may be null'
warning over '<pointer> is never assigned a value'.
2004-04-05 Ramon Fernandez <fernandez@gnat.com>
* tracebak.c: Change STOP_FRAME in ppc vxworks to be compliant with
the ABI.
2004-04-05 Olivier Hainque <hainque@act-europe.fr>
* 5gmastop.adb (Pop_Frame): Comment out the pragma Linker_Option for
libexc. We currently don't reference anything in this library and
linking it in triggers linker warnings we don't want to see.
* init.c: Update comments.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@80431 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/tbuild.adb')
-rw-r--r-- | gcc/ada/tbuild.adb | 67 |
1 files changed, 24 insertions, 43 deletions
diff --git a/gcc/ada/tbuild.adb b/gcc/ada/tbuild.adb index 00131e7c06b..60242a5e8c2 100644 --- a/gcc/ada/tbuild.adb +++ b/gcc/ada/tbuild.adb @@ -113,7 +113,6 @@ package body Tbuild is procedure Discard_List (L : List_Id) is pragma Warnings (Off, L); - begin null; end Discard_List; @@ -124,7 +123,6 @@ package body Tbuild is procedure Discard_Node (N : Node_Or_Entity_Id) is pragma Warnings (Off, N); - begin null; end Discard_Node; @@ -157,10 +155,9 @@ package body Tbuild is -------------------- function Make_DT_Access - (Loc : Source_Ptr; - Rec : Node_Id; - Typ : Entity_Id) - return Node_Id + (Loc : Source_Ptr; + Rec : Node_Id; + Typ : Entity_Id) return Node_Id is Full_Type : Entity_Id := Typ; @@ -183,10 +180,9 @@ package body Tbuild is ----------------------- function Make_DT_Component - (Loc : Source_Ptr; - Typ : Entity_Id; - I : Positive) - return Node_Id + (Loc : Source_Ptr; + Typ : Entity_Id; + I : Positive) return Node_Id is X : Node_Id; Full_Type : Entity_Id := Typ; @@ -215,8 +211,7 @@ package body Tbuild is Condition : Node_Id; Then_Statements : List_Id; Elsif_Parts : List_Id := No_List; - Else_Statements : List_Id := No_List) - return Node_Id + Else_Statements : List_Id := No_List) return Node_Id is begin Check_Restriction (No_Implicit_Conditionals, Node); @@ -234,8 +229,7 @@ package body Tbuild is function Make_Implicit_Label_Declaration (Loc : Source_Ptr; Defining_Identifier : Node_Id; - Label_Construct : Node_Id) - return Node_Id + Label_Construct : Node_Id) return Node_Id is N : constant Node_Id := Make_Implicit_Label_Declaration (Loc, Defining_Identifier); @@ -255,8 +249,7 @@ package body Tbuild is Identifier : Node_Id := Empty; Iteration_Scheme : Node_Id := Empty; Has_Created_Identifier : Boolean := False; - End_Label : Node_Id := Empty) - return Node_Id + End_Label : Node_Id := Empty) return Node_Id is begin Check_Restriction (No_Implicit_Loops, Node); @@ -281,8 +274,7 @@ package body Tbuild is function Make_Integer_Literal (Loc : Source_Ptr; - Intval : Int) - return Node_Id + Intval : Int) return Node_Id is begin return Make_Integer_Literal (Loc, UI_From_Int (Intval)); @@ -295,8 +287,7 @@ package body Tbuild is function Make_Raise_Constraint_Error (Sloc : Source_Ptr; Condition : Node_Id := Empty; - Reason : RT_Exception_Code) - return Node_Id + Reason : RT_Exception_Code) return Node_Id is begin pragma Assert (Reason in RT_CE_Exceptions); @@ -314,8 +305,7 @@ package body Tbuild is function Make_Raise_Program_Error (Sloc : Source_Ptr; Condition : Node_Id := Empty; - Reason : RT_Exception_Code) - return Node_Id + Reason : RT_Exception_Code) return Node_Id is begin pragma Assert (Reason in RT_PE_Exceptions); @@ -333,8 +323,7 @@ package body Tbuild is function Make_Raise_Storage_Error (Sloc : Source_Ptr; Condition : Node_Id := Empty; - Reason : RT_Exception_Code) - return Node_Id + Reason : RT_Exception_Code) return Node_Id is begin pragma Assert (Reason in RT_SE_Exceptions); @@ -360,8 +349,7 @@ package body Tbuild is function Make_Unsuppress_Block (Loc : Source_Ptr; Check : Name_Id; - Stmts : List_Id) - return Node_Id + Stmts : List_Id) return Node_Id is begin return @@ -403,8 +391,7 @@ package body Tbuild is (Related_Id : Name_Id; Suffix : Character := ' '; Suffix_Index : Int := 0; - Prefix : Character := ' ') - return Name_Id + Prefix : Character := ' ') return Name_Id is begin Get_Name_String (Related_Id); @@ -441,8 +428,7 @@ package body Tbuild is (Related_Id : Name_Id; Suffix : String; Suffix_Index : Int := 0; - Prefix : Character := ' ') - return Name_Id + Prefix : Character := ' ') return Name_Id is begin Get_Name_String (Related_Id); @@ -476,8 +462,7 @@ package body Tbuild is function New_External_Name (Suffix : Character; - Suffix_Index : Nat) - return Name_Id + Suffix_Index : Nat) return Name_Id is begin Name_Buffer (1) := Suffix; @@ -505,8 +490,7 @@ package body Tbuild is function New_Occurrence_Of (Def_Id : Entity_Id; - Loc : Source_Ptr) - return Node_Id + Loc : Source_Ptr) return Node_Id is Occurrence : Node_Id; @@ -530,8 +514,7 @@ package body Tbuild is function New_Reference_To (Def_Id : Entity_Id; - Loc : Source_Ptr) - return Node_Id + Loc : Source_Ptr) return Node_Id is Occurrence : Node_Id; @@ -548,8 +531,7 @@ package body Tbuild is function New_Suffixed_Name (Related_Id : Name_Id; - Suffix : String) - return Name_Id + Suffix : String) return Name_Id is begin Get_Name_String (Related_Id); @@ -566,7 +548,6 @@ package body Tbuild is function OK_Convert_To (Typ : Entity_Id; Expr : Node_Id) return Node_Id is Result : Node_Id; - begin Result := Make_Type_Conversion (Sloc (Expr), @@ -583,8 +564,7 @@ package body Tbuild is function Unchecked_Convert_To (Typ : Entity_Id; - Expr : Node_Id) - return Node_Id + Expr : Node_Id) return Node_Id is Loc : constant Source_Ptr := Sloc (Expr); Result : Node_Id; @@ -607,8 +587,9 @@ package body Tbuild is then Result := Relocate_Node (Expr); - elsif Nkind (Expr) = N_Null then - + elsif Nkind (Expr) = N_Null + and then Is_Access_Type (Typ) + then -- No need for a conversion Result := Relocate_Node (Expr); |