diff options
| author | aldyh <aldyh@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-12-05 17:26:05 +0000 |
|---|---|---|
| committer | aldyh <aldyh@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-12-05 17:26:05 +0000 |
| commit | 35cc02b5c80ac6738c1a3362a822e3d7e4d0c587 (patch) | |
| tree | 32d3ee1ddfcad180d619d756a84eeb0df779a6a2 /gcc/fortran/trans-array.h | |
| parent | fc297ba47e780c3659434d04f3c299b705154d5f (diff) | |
| download | ppe42-gcc-35cc02b5c80ac6738c1a3362a822e3d7e4d0c587.tar.gz ppe42-gcc-35cc02b5c80ac6738c1a3362a822e3d7e4d0c587.zip | |
Merge gimple-tuples-branch into mainline.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@119546 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-array.h')
| -rw-r--r-- | gcc/fortran/trans-array.h | 6 |
1 files changed, 5 insertions, 1 deletions
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); |
