diff options
Diffstat (limited to 'gcc/ch/inout.c')
| -rw-r--r-- | gcc/ch/inout.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ch/inout.c b/gcc/ch/inout.c index c9af8160bd6..bac22b41250 100644 --- a/gcc/ch/inout.c +++ b/gcc/ch/inout.c @@ -1,5 +1,5 @@ /* Implement I/O-related actions for CHILL. - Copyright (C) 1992, 93, 1994 Free Software Foundation, Inc. + Copyright (C) 1992, 93, 1994, 1998, 1999 Free Software Foundation, Inc. This file is part of GNU CC. @@ -15,7 +15,8 @@ You should have received a copy of the GNU General Public License along with GNU CC; see the file COPYING. If not, write to - the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ + the Free Software Foundation, 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ #include "config.h" #include "system.h" @@ -2221,7 +2222,6 @@ void init_text_location (decl, type) tree type; { tree indexmode = text_indexmode (type); - tree textlength = text_length (type); unsigned long accessflags = 0; unsigned long textflags = IO_TEXTLOCATION; tree lowindex = integer_zero_node; @@ -3314,7 +3314,7 @@ process_io_list (exprlist, iolist_addr, iolist_length, iolist_rtx, do_read, } else if (TREE_CODE (item_type) == BOOLEAN_TYPE) { - tree to_assign; + tree to_assign = NULL_TREE; if (do_read && readonly) { @@ -3834,7 +3834,7 @@ check_exprlist (code, exprlist, argnum, repetition) int argnum; unsigned long repetition; { - tree expr, type, result; + tree expr, type, result = NULL_TREE; while (repetition--) { |