diff options
| author | Tobias Burnus <burnus@gcc.gnu.org> | 2014-08-30 20:47:40 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2014-08-30 20:47:40 +0200 |
| commit | 2c69df3ba0b68d3f42d18a4b23576dd0c0eca752 (patch) | |
| tree | 47f7417fc9f987bebd005478d98ab05f0adf6bd4 /gcc/fortran/trans.h | |
| parent | e284dec53b47987924dfaaec965c2e6c20defe66 (diff) | |
| download | gcc-2c69df3ba0b68d3f42d18a4b23576dd0c0eca752.zip gcc-2c69df3ba0b68d3f42d18a4b23576dd0c0eca752.tar.gz gcc-2c69df3ba0b68d3f42d18a4b23576dd0c0eca752.tar.bz2 | |
trans.h (gfc_caf_get_image_index, [...]): New prototypes.
2014-08-30 Tobias Burnus <burnus@net-b.de>
* trans.h (gfc_caf_get_image_index,
gfc_get_caf_token_offset): New prototypes.
* trans-expr.c (gfc_caf_get_image_index): Moved from
trans-intrinsic.c and renamed.
(gfc_get_caf_token_offset) Ditto; support offset = NULL
with early return.
* trans-intrinsic.c (get_caf_token_offset, caf_get_image_index):
Moved to trans-expr.
(gfc_conv_intrinsic_caf_get, conv_caf_send,
conv_intrinsic_atomic_op, conv_intrinsic_atomic_ref,
conv_intrinsic_atomic_cas): Update callers.
From-SVN: r214758
Diffstat (limited to 'gcc/fortran/trans.h')
| -rw-r--r-- | gcc/fortran/trans.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index 4703704..70c794b 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -420,6 +420,8 @@ tree gfc_conv_scalar_to_descriptor (gfc_se *, tree, symbol_attribute); void gfc_conv_scalar_char_value (gfc_symbol *sym, gfc_se *se, gfc_expr **expr); tree gfc_string_to_single_character (tree len, tree str, int kind); tree gfc_get_tree_for_caf_expr (gfc_expr *); +void gfc_get_caf_token_offset (tree *, tree *, tree, tree, gfc_expr *); +tree gfc_caf_get_image_index (stmtblock_t *, gfc_expr *, tree); /* Find the decl containing the auxiliary variables for assigned variables. */ void gfc_conv_label_variable (gfc_se * se, gfc_expr * expr); |