diff options
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index a872743..ace09de 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -33,7 +33,7 @@ gfc_get_expr (void) { gfc_expr *e; - e = gfc_getmem (sizeof (gfc_expr)); + e = XCNEW (gfc_expr); gfc_clear_ts (&e->ts); e->shape = NULL; e->ref = NULL; @@ -414,7 +414,7 @@ gfc_copy_expr (gfc_expr *p) /* Copy target representation, if it exists. */ if (p->representation.string) { - c = gfc_getmem (p->representation.length + 1); + c = XCNEWVEC (char, p->representation.length + 1); q->representation.string = c; memcpy (c, p->representation.string, (p->representation.length + 1)); } |