diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2011-04-19 20:42:51 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2011-04-19 20:42:51 +0300 |
| commit | 93acb62caabb343900fb68d3bd76dd36406a7ad4 (patch) | |
| tree | 8ec237a8fb4cca5124b47fb04acac619c6387e9a /gcc/fortran/resolve.c | |
| parent | 60bea929924f57c886ee5380d24bfe6640030d54 (diff) | |
| download | gcc-93acb62caabb343900fb68d3bd76dd36406a7ad4.zip gcc-93acb62caabb343900fb68d3bd76dd36406a7ad4.tar.gz gcc-93acb62caabb343900fb68d3bd76dd36406a7ad4.tar.bz2 | |
Replace gfc_getmem with XCNEW, XCNEWVEC or xcalloc
From-SVN: r172728
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 09cfe78..c101612 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -8598,7 +8598,7 @@ gfc_resolve_forall (gfc_code *code, gfc_namespace *ns, int forall_save) total_var = gfc_count_forall_iterators (code); /* Allocate VAR_EXPR with NUMBER_OF_FORALL_INDEX elements. */ - var_expr = (gfc_expr **) gfc_getmem (total_var * sizeof (gfc_expr *)); + var_expr = XCNEWVEC (gfc_expr *, total_var); } /* The information about FORALL iterator, including FORALL index start, end |