Chill testsuite problems...

Thu Sep  3 15:32:03 1998  Dave Brolley  <brolley@cygnus.com>
	* typeck.c (layout_chill_range_type): set TYPE_SIZE_UNIT.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@22207 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ch/ChangeLog b/gcc/ch/ChangeLog
index ff42469..99b7e17 100644 (file)
--- a/gcc/ch/ChangeLog
+++ b/gcc/ch/ChangeLog
@@ -1,3 +1,7 @@
+Thu Sep  3 15:32:03 1998  Dave Brolley  <brolley@cygnus.com>
+
+       * typeck.c (layout_chill_range_type): set TYPE_SIZE_UNIT.
+
 Wed Sep 02 09:25:29 1998  Nick Clifton  <nickc@cygnus.com>
 
        * lex.c (check_newline):  Change how HANDLE_PRAGMA is called.

diff --git a/gcc/ch/typeck.c b/gcc/ch/typeck.c
index 5f97494..72cff6d 100644 (file)
--- a/gcc/ch/typeck.c
+++ b/gcc/ch/typeck.c
@@ -2692,6 +2692,7 @@ layout_chill_range_type (rangetype, must_be_const)
   TYPE_PRECISION (rangetype) = TYPE_PRECISION (type);
   TYPE_MODE (rangetype) = TYPE_MODE (type);
   TYPE_SIZE (rangetype) = TYPE_SIZE (type);
+  TYPE_SIZE_UNIT (rangetype) = TYPE_SIZE_UNIT (type);
   TYPE_ALIGN (rangetype) = TYPE_ALIGN (type);
   TREE_UNSIGNED (rangetype) = TREE_UNSIGNED (type);
   CH_NOVELTY (rangetype) = CH_NOVELTY (type);