diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-17 10:07:53 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-17 10:07:53 +0000 |
| commit | 46eb69332c219e14627045d980a4f477b8d99390 (patch) | |
| tree | 78b8c08b9aee1c03704dc2114f549be155153994 /gcc/ada/tbuild.adb | |
| parent | 67278d605ddd4afb9b6225ebfa8ddc51688e2f97 (diff) | |
| download | gcc-46eb69332c219e14627045d980a4f477b8d99390.tar.gz | |
2010-06-17 Robert Dewar <dewar@adacore.com>
* checks.adb, exp_aggr.adb, exp_atag.adb, exp_attr.adb, exp_ch11.adb,
exp_ch3.adb, exp_ch4.adb: Minor code reorganization.
Use Make_Temporary.
* tbuild.ads, tbuild.adb (Make_Temporary): Clean up, use Entity_Id
instead of Node_Id.
(Make_Temporary): Add more extensive documentation
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160893 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/tbuild.adb')
| -rw-r--r-- | gcc/ada/tbuild.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/tbuild.adb b/gcc/ada/tbuild.adb index 3da3c611198..133613d9870 100644 --- a/gcc/ada/tbuild.adb +++ b/gcc/ada/tbuild.adb @@ -442,9 +442,9 @@ package body Tbuild is function Make_Temporary (Loc : Source_Ptr; Id : Character; - Related_Node : Node_Id := Empty) return Node_Id + Related_Node : Node_Id := Empty) return Entity_Id is - Temp : constant Node_Id := + Temp : constant Entity_Id := Make_Defining_Identifier (Loc, Chars => New_Internal_Name (Id)); begin |