From e1cb83c58069ad5b04dcd161564d159562dd8f25 Mon Sep 17 00:00:00 2001 From: Toon Moene Date: Wed, 24 Oct 2001 22:32:34 +0200 Subject: [PATCH] com.c (ffecom_check_size_overflow_): Only check for TREE_OVERFLOW. 2001-10-24 Toon Moene * com.c (ffecom_check_size_overflow_): Only check for TREE_OVERFLOW. From-SVN: r46473 --- gcc/f/ChangeLog | 4 ++++ gcc/f/com.c | 3 +-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index b0fa255dc9c..e1e4f83c42c 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,7 @@ +2001-10-24 Toon Moene + + * com.c (ffecom_check_size_overflow_): Only check for TREE_OVERFLOW. + Tue Oct 23 14:01:27 2001 Richard Kenner * com.c (LANG_HOOKS_GET_ALIAS_SET): New macro. diff --git a/gcc/f/com.c b/gcc/f/com.c index ccff61a9d68..a5df6f7db2d 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -2266,8 +2266,7 @@ ffecom_check_size_overflow_ (ffesymbol s, tree type, bool dummy) return type; if ((tree_int_cst_sgn (TYPE_SIZE (type)) < 0) - || (!dummy && (((TREE_INT_CST_HIGH (TYPE_SIZE (type)) != 0)) - || TREE_OVERFLOW (TYPE_SIZE (type))))) + || (!dummy && TREE_OVERFLOW (TYPE_SIZE (type)))) { ffebad_start (FFEBAD_ARRAY_LARGE); ffebad_string (ffesymbol_text (s)); -- 2.30.2