diff options
| -rw-r--r-- | gcc/f/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/f/Make-lang.in | 2 | ||||
| -rw-r--r-- | gcc/f/sta.c | 4 |
3 files changed, 7 insertions, 4 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 10a93ac36bc..0234eb4b80b 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +2004-02-24 Michael Matz <matz@suse.de> + + * Make-lang.in (sta.o-warn): Delete. + * sta.c (ffesta_save_): Don't break aliasing rules. + 2004-02-20 Kazu Hirata <kazu@cs.umass.edu> * Make-lang.in (g77spec.o): Depend on intl.h. diff --git a/gcc/f/Make-lang.in b/gcc/f/Make-lang.in index 04e46c710c2..052adfcaab9 100644 --- a/gcc/f/Make-lang.in +++ b/gcc/f/Make-lang.in @@ -91,8 +91,6 @@ F77_OBJS = f/bad.o f/bit.o f/bld.o f/com.o f/data.o f/equiv.o f/expr.o \ # Use loose warnings for this front end. f-warn = $(WERROR) -# type-punning warning -f/sta.o-warn = -Wno-error f771$(exeext): $(F77_OBJS) $(BACKEND) $(LIBDEPS) rm -f f771$(exeext) diff --git a/gcc/f/sta.c b/gcc/f/sta.c index 4b26d8cecd8..ee75fa88f60 100644 --- a/gcc/f/sta.c +++ b/gcc/f/sta.c @@ -335,7 +335,7 @@ ffesta_save_ (ffelexToken t) { /* No handler in this list, try exec list if not tried yet. */ if (ffesta_current_possible_ - == (ffestaPossible_) &ffesta_possible_nonexecs_) + == (ffestaPossible_) &ffesta_possible_nonexecs_.first) { ffesta_current_possible_ = ffesta_possible_execs_.first; ffesta_current_handler_ = ffesta_current_possible_->handler; @@ -379,7 +379,7 @@ ffesta_save_ (ffelexToken t) { if (possible->handler == NULL) { - if (possible == (ffestaPossible_) &ffesta_possible_nonexecs_) + if (possible == (ffestaPossible_) &ffesta_possible_nonexecs_.first) { possible = first_exec = ffesta_possible_execs_.first; continue; |