diff options
author | Kaveh R. Ghazi <ghazi@caip.rutgers.edu> | 2008-06-20 06:03:16 +0000 |
---|---|---|
committer | Kaveh Ghazi <ghazi@gcc.gnu.org> | 2008-06-20 06:03:16 +0000 |
commit | ece3f6639db4f74c38080858ff7629695635c284 (patch) | |
tree | e527f2cb222809ccd66862b763928d39fe46824c /gcc/fortran/io.c | |
parent | 2d31e498bf5baf0ad8f3cc1dcea8a1f8a042b2cb (diff) | |
download | gcc-ece3f6639db4f74c38080858ff7629695635c284.zip gcc-ece3f6639db4f74c38080858ff7629695635c284.tar.gz gcc-ece3f6639db4f74c38080858ff7629695635c284.tar.bz2 |
arith.c (hollerith2representation): Fix for -Wc++-compat.
* arith.c (hollerith2representation): Fix for -Wc++-compat.
* array.c (gfc_get_constructor): Likewise.
* decl.c (gfc_get_data_variable, gfc_get_data_value, gfc_get_data,
create_enum_history, gfc_match_final_decl): Likewise.
* error.c (error_char): Likewise.
* expr.c (gfc_get_expr, gfc_copy_expr): Likewise.
* gfortran.h (gfc_get_charlen, gfc_get_array_spec,
gfc_get_component, gfc_get_formal_arglist, gfc_get_actual_arglist,
gfc_get_namelist, gfc_get_omp_clauses, gfc_get_interface,
gfc_get_common_head, gfc_get_dt_list, gfc_get_array_ref,
gfc_get_ref, gfc_get_equiv, gfc_get_case, gfc_get_iterator,
gfc_get_alloc, gfc_get_wide_string): Likewise.
* interface.c (count_types_test): Likewise.
* intrinsic.c (add_char_conversions, gfc_intrinsic_init_1):
Likewise.
* io.c (gfc_match_open, gfc_match_close, match_filepos, match_io,
gfc_match_inquire, gfc_match_wait): Likewise.
* match.c (gfc_match, match_forall_iterator): Likewise.
* module.c (gfc_get_pointer_info, gfc_get_use_rename, add_fixup,
add_true_name, parse_string, write_atom, quote_string,
mio_symtree_ref, mio_gmp_real, write_common_0): Likewise.
* options.c (gfc_post_options): Likewise.
* primary.c (match_integer_constant, match_hollerith_constant,
match_boz_constant, match_real_constant,
gfc_get_structure_ctor_component, gfc_match_structure_constructor): Likewise.
* scanner.c (gfc_widechar_to_char, add_path_to_list,
add_file_change, load_line, get_file, preprocessor_line,
load_file, unescape_filename, gfc_read_orig_filename): Likewise.
* simplify.c (gfc_simplify_ibits, gfc_simplify_ishft,
gfc_simplify_ishftc): Likewise.
* symbol.c (gfc_get_st_label, gfc_get_namespace, gfc_new_symtree,
gfc_get_uop, gfc_new_symbol, save_symbol_data, gfc_get_gsymbol):
Likewise.
* target-memory.c (gfc_target_interpret_expr): Likewise.
* trans-const.c (gfc_build_wide_string_const): Likewise.
* trans-expr.c (gfc_add_interface_mapping): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_conversion,
gfc_conv_intrinsic_int, gfc_conv_intrinsic_lib_function,
gfc_conv_intrinsic_cmplx, gfc_conv_intrinsic_ctime,
gfc_conv_intrinsic_fdate, gfc_conv_intrinsic_ttynam,
gfc_conv_intrinsic_minmax, gfc_conv_intrinsic_minmax_char,
gfc_conv_intrinsic_ishftc, gfc_conv_intrinsic_index_scan_verify,
gfc_conv_intrinsic_merge, gfc_conv_intrinsic_trim): Likewise.
* trans.c (gfc_get_backend_locus): Likewise.
* trans.h (gfc_get_ss): Likewise.
From-SVN: r136982
Diffstat (limited to 'gcc/fortran/io.c')
-rw-r--r-- | gcc/fortran/io.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 9b417c2..3494e8e 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -1537,7 +1537,7 @@ gfc_match_open (void) if (m == MATCH_NO) return m; - open = gfc_getmem (sizeof (gfc_open)); + open = XCNEW (gfc_open); m = match_open_element (open); @@ -1927,7 +1927,7 @@ gfc_match_close (void) if (m == MATCH_NO) return m; - close = gfc_getmem (sizeof (gfc_close)); + close = XCNEW (gfc_close); m = match_close_element (close); @@ -2053,7 +2053,7 @@ match_filepos (gfc_statement st, gfc_exec_op op) gfc_filepos *fp; match m; - fp = gfc_getmem (sizeof (gfc_filepos)); + fp = XCNEW (gfc_filepos); if (gfc_match_char ('(') == MATCH_NO) { @@ -3218,7 +3218,7 @@ match_io (io_kind k) where = gfc_current_locus; comma_flag = 0; - current_dt = dt = gfc_getmem (sizeof (gfc_dt)); + current_dt = dt = XCNEW (gfc_dt); m = gfc_match_char ('('); if (m == MATCH_NO) { @@ -3569,7 +3569,7 @@ gfc_match_inquire (void) if (m == MATCH_NO) return m; - inquire = gfc_getmem (sizeof (gfc_inquire)); + inquire = XCNEW (gfc_inquire); loc = gfc_current_locus; @@ -3790,7 +3790,7 @@ gfc_match_wait (void) if (m == MATCH_NO) return m; - wait = gfc_getmem (sizeof (gfc_wait)); + wait = XCNEW (gfc_wait); loc = gfc_current_locus; |