diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-16 21:59:37 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-16 21:59:37 +0000 |
| commit | f02619cd8b13846942322fadd2c0325c6aa2cbb8 (patch) | |
| tree | 48699d95fe9545c34c0a8e358520cb9ee0375776 /gcc/fortran/trans.h | |
| parent | 7dc9211e0e8977d8c5a5b8f4dc226ac0a5187bda (diff) | |
| download | gcc-f02619cd8b13846942322fadd2c0325c6aa2cbb8.tar.gz | |
2010-10-16 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk rev 165564
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@165565 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans.h')
| -rw-r--r-- | gcc/fortran/trans.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index b3c6032d03e..d4c54c0e37b 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -342,6 +342,7 @@ tree gfc_string_to_single_character (tree len, tree str, int kind); /* Find the decl containing the auxiliary variables for assigned variables. */ void gfc_conv_label_variable (gfc_se * se, gfc_expr * expr); /* If the value is not constant, Create a temporary and copy the value. */ +tree gfc_evaluate_now_loc (location_t, tree, stmtblock_t *); tree gfc_evaluate_now (tree, stmtblock_t *); /* Find the appropriate variant of a math intrinsic. */ @@ -398,6 +399,7 @@ void gfc_add_expr_to_block (stmtblock_t *, tree); /* Add a block to the end of a block. */ void gfc_add_block_to_block (stmtblock_t *, stmtblock_t *); /* Add a MODIFY_EXPR to a block. */ +void gfc_add_modify_loc (location_t, stmtblock_t *, tree, tree); void gfc_add_modify (stmtblock_t *, tree, tree); /* Initialize a statement block. */ @@ -504,7 +506,6 @@ bool get_array_ctor_strlen (stmtblock_t *, gfc_constructor_base, tree *); /* Generate a runtime error call. */ tree gfc_trans_runtime_error (bool, locus*, const char*, ...); -tree gfc_trans_runtime_error_vararg (bool, locus*, const char*, va_list); /* Generate a runtime warning/error check. */ void gfc_trans_runtime_check (bool, bool, tree, stmtblock_t *, locus *, |