FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

exp_dist.adb (Copy_Specification): For access parameters...

Browse source 
2006-02-13  Ed Schonberg  <schonberg@adacore.com>

	* exp_dist.adb (Copy_Specification): For access parameters, copy
	Null_Exclusion flag, which will have been set for stream subprograms
	in Ada2005 mode.

From-SVN: r111065
This commit is contained in:
Ed Schonberg 2006-02-15 10:39:18 +01:00 • committed by Arnaud Charlet
parent b0efe69eae
commit d48e258e71
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gcc/ada/exp_dist.adb
View file

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
@ -1880,7 +1880,7 @@ package body Exp_Dist is
For_RAS : Boolean := False;
begin
if not Present (Parameter_Specifications (Spec)) then
if No (Parameter_Specifications (Spec)) then
return New_List;
end if;
@ -2255,12 +2255,17 @@ package body Exp_Dist is
Root_Type (Current_Etype) = Root_Type (Object_Type));
Current_Type :=
Make_Access_Definition (Loc,
Subtype_Mark => New_Occurrence_Of (Stub_Type, Loc));
Subtype_Mark => New_Occurrence_Of (Stub_Type, Loc),
Null_Exclusion_Present =>
Null_Exclusion_Present (Current_Type));
else
Current_Type :=
Make_Access_Definition (Loc,
Subtype_Mark =>
New_Occurrence_Of (Current_Etype, Loc));
New_Occurrence_Of (Current_Etype, Loc),
Null_Exclusion_Present =>
Null_Exclusion_Present (Current_Type));
end if;
else