diff options
| author | hainque <hainque@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-22 09:04:02 +0000 |
|---|---|---|
| committer | hainque <hainque@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-22 09:04:02 +0000 |
| commit | b476dd1b58ec8bd758352d3d347eb5a5ef6b54bd (patch) | |
| tree | e2861fcb2cc356e766b8388ac9f4fee7a7cfa879 | |
| parent | b948ae2fb33bbb8b6f07e0b5a9ca9c0659a9b3b3 (diff) | |
| download | ppe42-gcc-b476dd1b58ec8bd758352d3d347eb5a5ef6b54bd.tar.gz ppe42-gcc-b476dd1b58ec8bd758352d3d347eb5a5ef6b54bd.zip | |
2007-11-22 Olivier Hainque <hainque@adacore.com>
* trans.c (gnat_to_gnu) <case N_Free_Statement>: Reformat lines
to fit in 80 columns.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130343 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/trans.c | 24 |
2 files changed, 19 insertions, 10 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index dc164f685f5..67e71057299 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2007-11-22 Olivier Hainque <hainque@adacore.com> + + * trans.c (gnat_to_gnu) <case N_Free_Statement>: Reformat lines + to fit in 80 columns. + 2007-11-21 Aurelien Jarno <aurelien@aurel32.net> * s-osinte-kfreebsd-gnu.ads (To_Target_Priority): New function. diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index df6ab75bf04..04fe61bc0b9 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -4635,25 +4635,29 @@ gnat_to_gnu (Node_Id gnat_node) initial allocator's return value, which has been stored just in front of the block we have. */ - if (No (Procedure_To_Call (gnat_node)) && align > default_allocator_alignment + if (No (Procedure_To_Call (gnat_node)) + && align > default_allocator_alignment && ! TYPE_FAT_OR_THIN_POINTER_P (gnu_ptr_type)) { /* We set GNU_PTR as * (void **)((void *)GNU_PTR - (void *)sizeof(void *)) - in two steps: */ + in two steps: */ - /* GNU_PTR (void *) = (void *)GNU_PTR - (void *)sizeof (void *)) */ + /* GNU_PTR (void *) + = (void *)GNU_PTR - (void *)sizeof (void *)) */ gnu_ptr - = build_binary_op (MINUS_EXPR, ptr_void_type_node, - convert (ptr_void_type_node, gnu_ptr), - convert (ptr_void_type_node, - TYPE_SIZE_UNIT (ptr_void_type_node))); + = build_binary_op + (MINUS_EXPR, ptr_void_type_node, + convert (ptr_void_type_node, gnu_ptr), + convert (ptr_void_type_node, + TYPE_SIZE_UNIT (ptr_void_type_node))); /* GNU_PTR (void *) = *(void **)GNU_PTR */ gnu_ptr - = build_unary_op (INDIRECT_REF, NULL_TREE, - convert (build_pointer_type (ptr_void_type_node), - gnu_ptr)); + = build_unary_op + (INDIRECT_REF, NULL_TREE, + convert (build_pointer_type (ptr_void_type_node), + gnu_ptr)); } gnu_result = build_call_alloc_dealloc (gnu_ptr, gnu_obj_size, align, |
