From 6357e162e858166f0671d29efd283d312e9081f4 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 20 May 2008 13:00:35 +0000 Subject: Minor reformatting. Update comments. From-SVN: r135653 --- gcc/ada/ChangeLog | 3 +++ gcc/ada/exp_ch9.ads | 20 +++++++++----------- gcc/ada/inline.adb | 2 +- gcc/ada/sem_ch8.ads | 4 ++-- 4 files changed, 15 insertions(+), 14 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index bf7dbf7..4100b9b 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -7,6 +7,9 @@ * a-caldel-vms.adb: Resync with a-caldel spec. + * exp_ch9.ads, sem_ch8.ads, inline.adb: Minor reformatting. + Update comments. + 2008-05-17 Eric Botcazou * trans.c (gnat_to_gnu) : Account diff --git a/gcc/ada/exp_ch9.ads b/gcc/ada/exp_ch9.ads index 2628e15..0e9715d 100644 --- a/gcc/ada/exp_ch9.ads +++ b/gcc/ada/exp_ch9.ads @@ -158,17 +158,15 @@ package Exp_Ch9 is function Convert_Concurrent (N : Node_Id; - Typ : Entity_Id) - return Node_Id; - -- N is an expression of type Typ. If the type is not a concurrent - -- type then it is returned unchanged. If it is a task or protected - -- reference, Convert_Concurrent creates an unchecked conversion node - -- from this expression to the corresponding concurrent record type - -- value. We need this in any situation where the concurrent type is - -- used, because the actual concurrent object is an object of the - -- corresponding concurrent type, and manipulations on the concurrent - -- object actually manipulate the corresponding object of the record - -- type. + Typ : Entity_Id) return Node_Id; + -- N is an expression of type Typ. If the type is not a concurrent type + -- then it is returned unchanged. If it is a task or protected reference, + -- Convert_Concurrent creates an unchecked conversion node from this + -- expression to the corresponding concurrent record type value. We need + -- this in any situation where the concurrent type is used, because the + -- actual concurrent object is an object of the corresponding concurrent + -- type, and manipulations on the concurrent object actually manipulate the + -- corresponding object of the record type. function Entry_Index_Expression (Sloc : Source_Ptr; diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index 3aa16de..332994e 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, 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- -- diff --git a/gcc/ada/sem_ch8.ads b/gcc/ada/sem_ch8.ads index 45fb07b..0d17cd1 100644 --- a/gcc/ada/sem_ch8.ads +++ b/gcc/ada/sem_ch8.ads @@ -77,8 +77,8 @@ package Sem_Ch8 is procedure Find_Direct_Name (N : Node_Id); -- Given a direct name (Identifier or Operator_Symbol), this routine scans -- the homonym chain for the name searching for corresponding visible - -- entities to find the referenced entity (or in the case of overloading), - -- entities. On return, the Entity and Etype fields are set. In the + -- entities to find the referenced entity (or in the case of overloading, + -- entities). On return, the Entity and Etype fields are set. In the -- non-overloaded case, these are the correct final entries. In the -- overloaded case, Is_Overloaded is set, Etype and Entity refer to an -- arbitrary element of the overloads set, and an appropriate list of -- cgit v1.1