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

utils2.c (build_call_alloc_dealloc): Check no implicit task and protected object restrictions. 

2015-10-23  Tristan Gingold  <gingold@adacore.com>

	* gcc-interface/utils2.c (build_call_alloc_dealloc): Check no implicit
	task and protected object restrictions.

From-SVN: r229252
This commit is contained in:
Tristan Gingold 2015-10-23 13:01:23 +00:00 committed by Arnaud Charlet
parent 6f99dcec63
commit 9733088f6a
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2015-10-23 Tristan Gingold <gingold@adacore.com>
* gcc-interface/utils2.c (build_call_alloc_dealloc): Check no implicit
task and protected object restrictions.
2015-10-23 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch12.adb, exp_ch6.adb: Minor reformatting.

9
gcc/ada/gcc-interface/utils2.c
View File

@ -2329,8 +2329,13 @@ build_call_alloc_dealloc (tree gnu_obj, tree gnu_size, tree gnu_type,
/* Check that we aren't violating the associated restriction. */
if (!(Nkind (gnat_node) == N_Allocator && Comes_From_Source (gnat_node)))
Check_No_Implicit_Heap_Alloc (gnat_node);
{
Check_No_Implicit_Heap_Alloc (gnat_node);
if (Has_Task (Etype (gnat_node)))
Check_No_Implicit_Task_Alloc (gnat_node);
if (Has_Protected (Etype (gnat_node)))
Check_No_Implicit_Protected_Alloc (gnat_node);
}
return maybe_wrap_malloc (gnu_size, gnu_type, gnat_node);
}
}