From f3b57ab07947fb2cd07b0abebdfca7784875bc1a Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Sun, 21 Jun 2009 15:19:57 +0200 Subject: [multiple changes] 2009-06-21 Thomas Quinot * exp_ch3.adb, exp_prag.adb, exp_util.adb, exp_util.ads, freeze.adb, sem_ch13.adb, sem_elab.adb (Exp_Prag.Expand_Pragma_Import_Or_Interface): Factor out code to new subprogram... (Exp_Util.Find_Init_Call): New shared routine to find the init proc call for a default initialized variable. (Freeze.Check_Address_Clause): Do not reset Has_Delayed_Freeze on an entity that has an associated freeze node. (Sem_Ch13.Analyze_Attribute_Definition_Clause, case Address): If there is an init call for the object, defer it to the object freeze point. (Check_Elab_Call.Find_Init_Call): Rename to Check_Init_Call, to avoid name clash with new subprogram introduced in Exp_Util. 2009-06-21 Robert Dewar * einfo.ads: Minor reformatting From-SVN: r148764 --- gcc/ada/sem_elab.adb | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'gcc/ada/sem_elab.adb') diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb index 3406599..60a0732 100644 --- a/gcc/ada/sem_elab.adb +++ b/gcc/ada/sem_elab.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1997-2008, Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2009, 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- -- @@ -1460,18 +1460,18 @@ package body Sem_Elab is Process_Init_Proc : declare Unit_Decl : constant Node_Id := Unit_Declaration_Node (Ent); - function Find_Init_Call (Nod : Node_Id) return Traverse_Result; + function Check_Init_Call (Nod : Node_Id) return Traverse_Result; -- Find subprogram calls within body of Init_Proc for Traverse -- instantiation below. - procedure Traverse_Body is new Traverse_Proc (Find_Init_Call); + procedure Traverse_Body is new Traverse_Proc (Check_Init_Call); -- Traversal procedure to find all calls with body of Init_Proc - -------------------- - -- Find_Init_Call -- - -------------------- + --------------------- + -- Check_Init_Call -- + --------------------- - function Find_Init_Call (Nod : Node_Id) return Traverse_Result is + function Check_Init_Call (Nod : Node_Id) return Traverse_Result is Func : Entity_Id; begin @@ -1491,7 +1491,7 @@ package body Sem_Elab is else return OK; end if; - end Find_Init_Call; + end Check_Init_Call; -- Start of processing for Process_Init_Proc -- cgit v1.1