diff options
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 287a2a2..1e31653 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -421,7 +421,7 @@ free_expr0 (gfc_expr *e) break; case BT_CHARACTER: - gfc_free (e->value.character.string); + free (e->value.character.string); break; case BT_COMPLEX: @@ -434,7 +434,7 @@ free_expr0 (gfc_expr *e) /* Free the representation. */ if (e->representation.string) - gfc_free (e->representation.string); + free (e->representation.string); break; @@ -463,7 +463,7 @@ free_expr0 (gfc_expr *e) break; case EXPR_SUBSTRING: - gfc_free (e->value.character.string); + free (e->value.character.string); break; case EXPR_NULL: @@ -479,7 +479,7 @@ free_expr0 (gfc_expr *e) for (n = 0; n < e->rank; n++) mpz_clear (e->shape[n]); - gfc_free (e->shape); + free (e->shape); } gfc_free_ref_list (e->ref); @@ -496,7 +496,7 @@ gfc_free_expr (gfc_expr *e) if (e == NULL) return; free_expr0 (e); - gfc_free (e); + free (e); } @@ -511,7 +511,7 @@ gfc_free_actual_arglist (gfc_actual_arglist *a1) { a2 = a1->next; gfc_free_expr (a1->expr); - gfc_free (a1); + free (a1); a1 = a2; } } @@ -579,7 +579,7 @@ gfc_free_ref_list (gfc_ref *p) break; } - gfc_free (p); + free (p); } } @@ -591,7 +591,7 @@ gfc_replace_expr (gfc_expr *dest, gfc_expr *src) { free_expr0 (dest); *dest = *src; - gfc_free (src); + free (src); } @@ -640,7 +640,7 @@ gfc_copy_ref (gfc_ref *src) case REF_ARRAY: ar = gfc_copy_array_ref (&src->u.ar); dest->u.ar = *ar; - gfc_free (ar); + free (ar); break; case REF_COMPONENT: @@ -1566,7 +1566,7 @@ find_substring_ref (gfc_expr *p, gfc_expr **newp) return FAILURE; *newp = gfc_copy_expr (p); - gfc_free ((*newp)->value.character.string); + free ((*newp)->value.character.string); end = (int) mpz_get_ui (p->ref->u.ss.end->value.integer); start = (int) mpz_get_ui (p->ref->u.ss.start->value.integer); @@ -1840,7 +1840,7 @@ gfc_simplify_expr (gfc_expr *p, int type) memcpy (s, p->value.character.string + start, (end - start) * sizeof (gfc_char_t)); s[end - start + 1] = '\0'; /* TODO: C-style string. */ - gfc_free (p->value.character.string); + free (p->value.character.string); p->value.character.string = s; p->value.character.length = end - start; p->ts.u.cl = gfc_new_charlen (gfc_current_ns, NULL); @@ -3594,7 +3594,7 @@ gfc_check_assign_symbol (gfc_symbol *sym, gfc_expr *rvalue) else r = gfc_check_assign (&lvalue, rvalue, 1); - gfc_free (lvalue.symtree); + free (lvalue.symtree); if (r == FAILURE) return r; |