Commit 1fa4dfc6 by Olivier Hainque Committed by Olivier Hainque

trans.c (gnat_to_gnu): Reformat lines to fit in 80 columns.

2007-11-22  Olivier Hainque  <hainque@adacore.com>

        * trans.c (gnat_to_gnu) <case N_Free_Statement>: Reformat lines
        to fit in 80 columns.

From-SVN: r130343
parent d26d1cea
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.
......@@ -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,
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment