treetree.c (tree_lang_type_for_mode): Return NULL_TREE for all non scalar integer...

2005-02-13  James A. Morrison  <phython@gcc.gnu.org>

       * treetree.c (tree_lang_type_for_mode): Return NULL_TREE for all non
       scalar integer types.

From-SVN: r94986

diff --git a/gcc/treelang/ChangeLog b/gcc/treelang/ChangeLog
index 35d4710d1c7cfac77d12135edb187081f87e400c..adfae134819d0c6c223a4232ef1fa1fa6343eb6c 100644 (file)
--- a/gcc/treelang/ChangeLog
+++ b/gcc/treelang/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-13  James A. Morrison  <phython@gcc.gnu.org>
+
+       * treetree.c (tree_lang_type_for_mode): Return NULL_TREE for all non
+       scalar integer types.
+
 2005-02-09  Richard Henderson  <rth@redhat.com>
 
        * treetree.c (treelang_init_decl_processing): Call

diff --git a/gcc/treelang/treetree.c b/gcc/treelang/treetree.c
index 54dcb46fd1cef568e4c47ebc788af8df354f40a2..546969225d6f56d7ae24af845a419d32267b110a 100644 (file)
--- a/gcc/treelang/treetree.c
+++ b/gcc/treelang/treetree.c
@@ -5,7 +5,7 @@
    you are in the right place.
 
    Copyright (C) 1988, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
-   1999, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
+   1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
 
    This code is based on toy.c written by Richard Kenner.
 
@@ -893,7 +893,10 @@ tree_lang_type_for_size (unsigned precision, int unsignedp)
 static tree
 tree_lang_type_for_mode (enum machine_mode mode, int unsignedp)
 {
-  return tree_lang_type_for_size (GET_MODE_BITSIZE (mode), unsignedp);
+  if (SCALAR_INT_MODE_P (mode))
+    return tree_lang_type_for_size (GET_MODE_BITSIZE (mode), unsignedp);
+  else
+    return NULL_TREE;
 }
 
 /* Return the unsigned version of a TYPE_NODE, a scalar type.  */