OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

sem_ch3.adb, [...]: Minor reformatting. 

2011-11-21  Robert Dewar  <dewar@adacore.com>

	* sem_ch3.adb, s-taprop-vms.adb, opt.ads: Minor reformatting.

From-SVN: r181569
This commit is contained in:
Robert Dewar 2011-11-21 12:01:11 +00:00 committed by Arnaud Charlet
parent be482a8c83
commit d673c5c5bd
4 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,3 +1,7 @@
2011-11-21 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, s-taprop-vms.adb, opt.ads: Minor reformatting.
2011-11-21 Robert Dewar <dewar@adacore.com>
* sinput.ads: Minor comment fix.

3
gcc/ada/opt.ads
View File

@ -1830,6 +1830,9 @@ package Opt is
-- this flag, see package Expander. Indeed this flag might more logically
-- be in the spec of Expander, but it is referenced by Errout, and it
-- really seems wrong for Errout to depend on Expander.
--
-- Note: for many purposes, it is more appropriate to test the flag
-- Full_Expander_Active, which also checks that Alfa mode is not active.
Static_Dispatch_Tables : Boolean := True;
-- This flag indicates if the backend supports generation of statically

6
gcc/ada/s-taprop-vms.adb
View File

@ -809,6 +809,12 @@ package body System.Task_Primitives.Operations is
(Attributes'Access, PTHREAD_EXPLICIT_SCHED);
pragma Assert (Result = 0);
-- Note: the use of Unrestricted_Access in the following call is needed
-- because otherwise we have an error of getting a access-to-volatile
-- value which points to a non-volatile object. But in this case it is
-- safe to do this, since we know we have no problems with aliasing and
-- Unrestricted_Access bypasses this check.
Result :=
pthread_create
(T.Common.LL.Thread'Unrestricted_Access,

8
gcc/ada/sem_ch3.adb
View File

@ -734,16 +734,16 @@ package body Sem_Ch3 is
Anon_Scope := Current_Scope;
-- A pathological case: function returning access functions that
-- return access functions, etc. Each anonymous access type created
-- return access functions, etc. Each anonymous access type created
-- is in the enclosing scope of the outermost function.
declare
Par : Node_Id;
begin
Par := Related_Nod;
while Nkind_In (Par,
N_Access_Function_Definition,
N_Access_Definition)
while Nkind_In (Par, N_Access_Function_Definition,
N_Access_Definition)
loop
Par := Parent (Par);
end loop;