diff options
Diffstat (limited to 'gcc/fortran/trans-array.h')
| -rw-r--r-- | gcc/fortran/trans-array.h | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/gcc/fortran/trans-array.h b/gcc/fortran/trans-array.h index 2b644c7880b..18de51c8437 100644 --- a/gcc/fortran/trans-array.h +++ b/gcc/fortran/trans-array.h @@ -32,7 +32,8 @@ void gfc_set_loop_bounds_from_array_spec (gfc_interface_mapping *, /* Generate code to create a temporary array. */ tree gfc_trans_create_temp_array (stmtblock_t *, stmtblock_t *, gfc_loopinfo *, - gfc_ss_info *, tree, bool, bool, bool); + gfc_ss_info *, tree, bool, bool, bool, + locus *); /* Generate function entry code for allocation of compiler allocated array variables. */ @@ -88,7 +89,7 @@ void gfc_trans_scalarizing_loops (gfc_loopinfo *, stmtblock_t *); /* Mark the end of the main loop body and the start of the copying loop. */ void gfc_trans_scalarized_loop_boundary (gfc_loopinfo *, stmtblock_t *); /* Initialize the scalarization loop parameters. */ -void gfc_conv_loop_setup (gfc_loopinfo *); +void gfc_conv_loop_setup (gfc_loopinfo *, locus *); /* Resolve array assignment dependencies. */ void gfc_conv_resolve_dependencies (gfc_loopinfo *, gfc_ss *, gfc_ss *); /* Build a null array descriptor constructor. */ @@ -104,7 +105,8 @@ void gfc_conv_tmp_ref (gfc_se *); /* Evaluate an array expression. */ void gfc_conv_expr_descriptor (gfc_se *, gfc_expr *, gfc_ss *); /* Convert an array for passing as an actual function parameter. */ -void gfc_conv_array_parameter (gfc_se *, gfc_expr *, gfc_ss *, int); +void gfc_conv_array_parameter (gfc_se *, gfc_expr *, gfc_ss *, int, + const gfc_symbol *, const char *); /* Evaluate and transpose a matrix expression. */ void gfc_conv_array_transpose (gfc_se *, gfc_expr *); @@ -118,11 +120,7 @@ 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_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) +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); |