From 07beea0df36b29ef9acb27111eac0b0e92e181a5 Mon Sep 17 00:00:00 2001 From: Aldy Hernandez Date: Tue, 5 Dec 2006 17:26:05 +0000 Subject: Merge gimple-tuples-branch into mainline. From-SVN: r119546 --- gcc/fortran/trans-array.h | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'gcc/fortran/trans-array.h') diff --git a/gcc/fortran/trans-array.h b/gcc/fortran/trans-array.h index 3374c4ceac9..38ad123624b 100644 --- a/gcc/fortran/trans-array.h +++ b/gcc/fortran/trans-array.h @@ -118,7 +118,11 @@ tree gfc_conv_array_ubound (tree, int); /* Build expressions for accessing components of an array descriptor. */ tree gfc_conv_descriptor_data_get (tree); -void gfc_conv_descriptor_data_set (stmtblock_t *, tree, tree); +void gfc_conv_descriptor_data_set_internal (stmtblock_t *, tree, tree, bool); +#define gfc_conv_descriptor_data_set(BLOCK, T1, T2) \ + gfc_conv_descriptor_data_set_internal ((BLOCK), (T1), (T2), false) +#define gfc_conv_descriptor_data_set_tuples(BLOCK, T1, T2) \ + gfc_conv_descriptor_data_set_internal ((BLOCK), (T1), (T2), true) tree gfc_conv_descriptor_data_addr (tree); tree gfc_conv_descriptor_offset (tree); tree gfc_conv_descriptor_dtype (tree); -- cgit v1.2.1