diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-04-24 07:09:22 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-04-24 07:09:22 +0000 |
| commit | 6f61bd412437337e11b367edfb0b8f48ba70f94c (patch) | |
| tree | 0ab8f62695943723e2cff3e7a6ef5922b0016e03 /gcc/ada/gcc-interface/gigi.h | |
| parent | 0d858698b6741132801b03c09901c56cd78e5083 (diff) | |
| download | gcc-6f61bd412437337e11b367edfb0b8f48ba70f94c.zip gcc-6f61bd412437337e11b367edfb0b8f48ba70f94c.tar.gz gcc-6f61bd412437337e11b367edfb0b8f48ba70f94c.tar.bz2 | |
gigi.h (build_call_alloc_dealloc): Update comment.
* gcc-interface/gigi.h (build_call_alloc_dealloc): Update comment.
* gcc-interface/decl.c (gnat_to_gnu_entity) <object>: Pass correct
arguments to build_allocator.
* gcc-interface/utils2.c (build_call_alloc_dealloc): Update comment.
Remove code handling special allocator and assert its uselessness.
From-SVN: r146671
Diffstat (limited to 'gcc/ada/gcc-interface/gigi.h')
| -rw-r--r-- | gcc/ada/gcc-interface/gigi.h | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h index 1dca8c9..fb183bf 100644 --- a/gcc/ada/gcc-interface/gigi.h +++ b/gcc/ada/gcc-interface/gigi.h @@ -815,9 +815,11 @@ extern tree build_component_ref (tree record_variable, tree component, If GNU_OBJ is nonzero, it is an object to deallocate. Otherwise, generate an allocator. - GNU_SIZE is the size of the object and ALIGN is the alignment. - GNAT_PROC, if present is a procedure to call and GNAT_POOL is the - storage pool to use. If not preset, malloc and free will be used. */ + GNU_SIZE is the size of the object in bytes and ALIGN is the alignment + in bits. GNAT_PROC, if present, is a procedure to call and GNAT_POOL + is the storage pool to use. If not present, malloc and free are used. + GNAT_NODE is used to provide an error location for restriction violation + messages. */ extern tree build_call_alloc_dealloc (tree gnu_obj, tree gnu_size, unsigned align, Entity_Id gnat_proc, Entity_Id gnat_pool, Node_Id gnat_node); @@ -825,9 +827,10 @@ extern tree build_call_alloc_dealloc (tree gnu_obj, tree gnu_size, /* Build a GCC tree to correspond to allocating an object of TYPE whose initial value if INIT, if INIT is nonzero. Convert the expression to RESULT_TYPE, which must be some type of pointer. Return the tree. + GNAT_PROC and GNAT_POOL optionally give the procedure to call and the storage pool to use. GNAT_NODE is used to provide an error - location for restriction violations messages. If IGNORE_INIT_TYPE is + location for restriction violation messages. If IGNORE_INIT_TYPE is true, ignore the type of INIT for the purpose of determining the size; this will cause the maximum size to be allocated if TYPE is of self-referential size. */ |