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

exp_ch4.adb (Expand_Allocator_Expression): add check if null exclusion indicator is present

Browse Source 
2008-08-08  Ed Schonberg  <schonberg@adacore.com>

	* exp_ch4.adb (Expand_Allocator_Expression): add check if null
	exclusion indicator is present

From-SVN: r138870
This commit is contained in:
Arnaud Charlet 2008-08-08 14:22:51 +02:00
parent 11f746c63b
commit 51e4c4b9dc
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gcc/ada/ChangeLog
View File

@ -1,3 +1,20 @@
2008-08-08 Ed Schonberg <schonberg@adacore.com>
* exp_ch4.adb (Expand_Allocator_Expression): add check if null
exclusion indicator is present
2008-08-08 Robert Dewar <dewar@adacore.com>
* g-comlin.adb: Minor code reorganization
Minor reformatting
* g-comlin.ads: Minor reformatting
* s-fileio.adb: Minor reformatting
* sem_attr.adb: Minor code reorganization (use Nkind_In)
Minor reformatting
2008-08-06 Samuel Tardieu <sam@rfc1149.net>
* gcc-interface/Make-lang.in: Use GCC_FOR_TARGET when dealing

5
gcc/ada/exp_ch4.adb
View File

@ -944,6 +944,11 @@ package body Exp_Ch4 is
Rewrite (N, New_Reference_To (Temp, Loc));
Analyze_And_Resolve (N, PtrT);
elsif Is_Access_Type (T)
and then Can_Never_Be_Null (T)
then
Install_Null_Excluding_Check (Exp);
elsif Is_Access_Type (DesigT)
and then Nkind (Exp) = N_Allocator
and then Nkind (Expression (Exp)) /= N_Qualified_Expression