MatCat.OpenSource/8sa1-gcc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* utils2.c (build_allocator): Test for SIZE overflow in array case too

Browse Source 
From-SVN: r46653
This commit is contained in:
Richard Kenner 2001-10-30 21:27:26 +00:00 committed by Geert Bosch
parent de4bf6cb94
commit 5dece937ef
2 changed files with 9 additions and 0 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 @@
2001-10-30 Richard Kenner <kenner@gnat.com>
* utils2.c (build_allocator): Test for SIZE overflow in array case too
2001-10-30 Geert Bosch <bosch@gnat.com> 2001-10-30 Geert Bosch <bosch@gnat.com>
* ali-util.adb (Initialize_Checksum): Use out-mode instead of in out. * ali-util.adb (Initialize_Checksum): Use out-mode instead of in out.

5
gcc/ada/utils2.c
View File

@ -1855,6 +1855,11 @@ build_allocator (type, init, result_type, gnat_proc, gnat_pool)
&& contains_placeholder_p (size)) && contains_placeholder_p (size))
size = build (WITH_RECORD_EXPR, sizetype, size, init); size = build (WITH_RECORD_EXPR, sizetype, size, init);
/* If the size overflows, pass -1 so the allocator will raise
storage error. */
if (TREE_CODE (size) == INTEGER_CST && TREE_OVERFLOW (size))
size = ssize_int (-1);
storage = build_call_alloc_dealloc (NULL_TREE, size, storage = build_call_alloc_dealloc (NULL_TREE, size,
TYPE_ALIGN (storage_type), TYPE_ALIGN (storage_type),
gnat_proc, gnat_pool); gnat_proc, gnat_pool);