From 2d3a667a4132e0eab3e1fd205e6c3bd81956ae85 Mon Sep 17 00:00:00 2001 From: Michael Matz Date: Tue, 24 Feb 2004 16:07:29 +0000 Subject: [PATCH] Make-lang.in (sta.o-warn): Delete. * Make-lang.in (sta.o-warn): Delete. * sta.c (ffesta_save_): Don't break aliasing rules. From-SVN: r78368 --- gcc/f/ChangeLog | 5 +++++ gcc/f/Make-lang.in | 2 -- gcc/f/sta.c | 4 ++-- 3 files changed, 7 insertions(+), 4 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 10a93ac36bcd..0234eb4b80b3 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +2004-02-24 Michael Matz + + * Make-lang.in (sta.o-warn): Delete. + * sta.c (ffesta_save_): Don't break aliasing rules. + 2004-02-20 Kazu Hirata * Make-lang.in (g77spec.o): Depend on intl.h. diff --git a/gcc/f/Make-lang.in b/gcc/f/Make-lang.in index 04e46c710c25..052adfcaab9e 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 4b26d8cecd8c..ee75fa88f608 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;