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

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 10a93ac..0234eb4 100644 (file)
--- 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 04e46c7..052adfc 100644 (file)
--- 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 4b26d8c..ee75fa8 100644 (file)
--- 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;