diff options
| author | Richard Guenther <rguenther@suse.de> | 2005-12-16 09:16:12 +0000 |
|---|---|---|
| committer | Richard Biener <rguenth@gcc.gnu.org> | 2005-12-16 09:16:12 +0000 |
| commit | 488ce07ba2af2b5d6175511025539989afd317a2 (patch) | |
| tree | 4a55c902f62046bb86afef26740e4f24ad3820c3 /gcc/fortran/trans-stmt.c | |
| parent | 52c6b0b7dcd73fac95b1cd07b7fe4a0bc1935233 (diff) | |
| download | gcc-488ce07ba2af2b5d6175511025539989afd317a2.zip gcc-488ce07ba2af2b5d6175511025539989afd317a2.tar.gz gcc-488ce07ba2af2b5d6175511025539989afd317a2.tar.bz2 | |
(gfc_conv_descriptor_data_addr): Use build_fold_addr_expr where appropriate.
2005-12-16 Richard Guenther <rguenther@suse.de>
(gfc_conv_descriptor_data_addr): Use build_fold_addr_expr where
appropriate.
(gfc_trans_allocate_array_storage): Likewise.
(gfc_trans_array_constructor_value): Likewise.
(gfc_conv_array_data): Likewise.
(gfc_conv_expr_descriptor): Likewise.
(gfc_conv_array_parameter): Likewise.
(gfc_conv_variable): Likewise.
(gfc_conv_function_val): Likewise.
(gfc_conv_function_call): Likewise.
(gfc_conv_expr_reference): Likewise.
(gfc_conv_intrinsic_ctime): Likewise.
(gfc_conv_intrinsic_fdate): Likewise.
(gfc_conv_intrinsic_ttynam): Likewise.
(gfc_conv_intrinsic_si_kind): Likewise.
(gfc_conv_intrinsic_trim): Likewise.
(set_parameter_ref): Likewise.
(gfc_convert_array_to_string): Likewise.
(gfc_trans_open): Likewise.
(gfc_trans_close): Likewise.
(build_filepos): Likewise.
(gfc_trans_inquire): Likewise.
(nml_get_addr_expr): Likewise.
(transfer_namelist_element): Likewise.
(build_dt): Likewise.
(gfc_trans_dt_end): Likewise.
(transfer_array_component): Likewise.
(transfer_expr): Likewise.
(transfer_array_desc): Likewise.
(gfc_trans_transfer): Likewise.
(gfc_trans_allocate): Likewise.
(gfc_trans_deallocate): Likewise.
From-SVN: r108633
Diffstat (limited to 'gcc/fortran/trans-stmt.c')
| -rw-r--r-- | gcc/fortran/trans-stmt.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index f0fefdc..fbaa1a5 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -3135,7 +3135,7 @@ gfc_trans_allocate (gfc_code * code) tree gfc_int4_type_node = gfc_get_int_type (4); stat = gfc_create_var (gfc_int4_type_node, "stat"); - pstat = gfc_build_addr_expr (NULL, stat); + pstat = build_fold_addr_expr (stat); error_label = gfc_build_label_decl (NULL_TREE); TREE_USED (error_label) = 1; @@ -3253,11 +3253,11 @@ gfc_trans_deallocate (gfc_code * code) /* Variable used with the library call. */ stat = gfc_create_var (gfc_int4_type_node, "stat"); - pstat = gfc_build_addr_expr (NULL, stat); + pstat = build_fold_addr_expr (stat); /* Running total of possible deallocation failures. */ astat = gfc_create_var (gfc_int4_type_node, "astat"); - apstat = gfc_build_addr_expr (NULL, astat); + apstat = build_fold_addr_expr (astat); /* Initialize astat to 0. */ gfc_add_modify_expr (&block, astat, build_int_cst (TREE_TYPE (astat), 0)); |