diff options
| author | Tobias Burnus <burnus@net-b.de> | 2009-05-15 08:52:41 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2009-05-15 08:52:41 +0200 |
| commit | 602b85231dd432fdad1cdb814eec39d449a33d7f (patch) | |
| tree | bb58acd84e5324e34712e80a80cc5d4bccdea56f /gcc/fortran/misc.c | |
| parent | 675a72d643ceab289bc4adc0484cd90c2812caf5 (diff) | |
| download | gcc-602b85231dd432fdad1cdb814eec39d449a33d7f.zip gcc-602b85231dd432fdad1cdb814eec39d449a33d7f.tar.gz gcc-602b85231dd432fdad1cdb814eec39d449a33d7f.tar.bz2 | |
re PR fortran/39352 (gfortran.dg/vect/pr39318.f90 doesn't work on ia64)
2009-05-15 Tobias Burnus <burnus@net-b.de>
PR fortran/39352
* f95-lang.c: Add gfc_maybe_initialize_eh.
* gfortran.h: Add gfc_maybe_initialize_eh prototype.
* Make-lang.in: Add new .h dendencies for f95-lang.c
* openmp.c (resolve_omp_do): Call gfc_maybe_initialize_eh.
* misc.c (gfc_free): Avoid #define trickery for free.
From-SVN: r147559
Diffstat (limited to 'gcc/fortran/misc.c')
| -rw-r--r-- | gcc/fortran/misc.c | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/gcc/fortran/misc.c b/gcc/fortran/misc.c index 136b751..94d61c9 100644 --- a/gcc/fortran/misc.c +++ b/gcc/fortran/misc.c @@ -42,22 +42,15 @@ gfc_getmem (size_t n) } -/* gfortran.h defines free to something that triggers a syntax error, - but we need free() here. */ - -#define temp free -#undef free - void gfc_free (void *p) { + /* The parentheses around free are needed in order to call not + the redefined free of gfortran.h. */ if (p != NULL) - free (p); + (free) (p); } -#define free temp -#undef temp - /* Get terminal width. */ |