diff options
| author | Richard Henderson <rth@gcc.gnu.org> | 2005-06-12 23:18:15 -0700 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2005-06-12 23:18:15 -0700 |
| commit | 4c73896d18e03c31a811c941082a6ed94605a905 (patch) | |
| tree | 33ec9baebc91f457ac91d8a14ac4a7044925dbfe /gcc/fortran/trans-array.h | |
| parent | 9204496d6524abc0c2e55152ebc2ad6698006301 (diff) | |
| download | gcc-4c73896d18e03c31a811c941082a6ed94605a905.zip gcc-4c73896d18e03c31a811c941082a6ed94605a905.tar.gz gcc-4c73896d18e03c31a811c941082a6ed94605a905.tar.bz2 | |
trans-array.c (gfc_conv_descriptor_data_get): Rename from gfc_conv_descriptor_data.
* trans-array.c (gfc_conv_descriptor_data_get): Rename from
gfc_conv_descriptor_data. Cast the result to the DATAPTR type.
(gfc_conv_descriptor_data_set, gfc_conv_descriptor_data_addr): New.
(gfc_trans_allocate_array_storage): Use them.
(gfc_array_allocate, gfc_array_deallocate): Likewise.
(gfc_trans_dummy_array_bias, gfc_conv_expr_descriptor): Likewise.
(gfc_trans_deferred_array): Likewise.
* trans-expr.c (gfc_conv_function_call): Likewise.
(gfc_trans_subcomponent_assign): Likewise.
(gfc_trans_pointer_assignment): Likewise.
* trans-intrinsic.c (gfc_conv_allocated): Likewise.
* trans-types.c (gfc_array_descriptor_base): New.
(gfc_get_element_type): Use GFC_TYPE_ARRAY_DATAPTR_TYPE.
(gfc_get_array_descriptor_base): Break out from ...
(gfc_get_array_type_bounds): ... here. Create type variants.
* trans-array.h (gfc_conv_descriptor_data_get): Declare.
(gfc_conv_descriptor_data_set, gfc_conv_descriptor_data_addr): Declare.
From-SVN: r100872
Diffstat (limited to 'gcc/fortran/trans-array.h')
| -rw-r--r-- | gcc/fortran/trans-array.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/fortran/trans-array.h b/gcc/fortran/trans-array.h index 95a69f3..377411c 100644 --- a/gcc/fortran/trans-array.h +++ b/gcc/fortran/trans-array.h @@ -96,7 +96,9 @@ tree gfc_conv_array_lbound (tree, int); tree gfc_conv_array_ubound (tree, int); /* Build expressions for accessing components of an array descriptor. */ -tree gfc_conv_descriptor_data (tree); +tree gfc_conv_descriptor_data_get (tree); +void gfc_conv_descriptor_data_set (stmtblock_t *, tree, tree); +tree gfc_conv_descriptor_data_addr (tree); tree gfc_conv_descriptor_offset (tree); tree gfc_conv_descriptor_dtype (tree); tree gfc_conv_descriptor_stride (tree, tree); |