summaryrefslogtreecommitdiff
path: root/gcc/ada/sem_elab.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-06-21 13:19:57 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-06-21 13:19:57 +0000
commit51ad5ad2cd723707b9d1bd0a95dee9d4a94e3b07 (patch)
treef10817861720e5be575f1049ddbaf8826f62e83b /gcc/ada/sem_elab.adb
parent6d081ca682d17682b70f7ba62ef64659f27d12ff (diff)
downloadgcc-51ad5ad2cd723707b9d1bd0a95dee9d4a94e3b07.tar.gz
2009-06-21 Thomas Quinot <quinot@adacore.com>
* 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 <dewar@adacore.com> * einfo.ads: Minor reformatting git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148764 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_elab.adb')
-rw-r--r--gcc/ada/sem_elab.adb16
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb
index 34065991103..60a07322dc4 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