stor-layout.c (layout_type, [...]): Set TREE_UNSIGNED unless TYPE_MIN_VALUE is negative.

 * stor-layout.c (layout_type, case BOOLEAN_TYPE):
 Set TREE_UNSIGNED unless TYPE_MIN_VALUE is negative.

From-SVN: r6808

diff --git a/gcc/stor-layout.c b/gcc/stor-layout.c
index b09f320..9c51c70 100644 (file)
--- a/gcc/stor-layout.c
+++ b/gcc/stor-layout.c
@@ -880,12 +880,15 @@ layout_type (type)
        }
       break;
 
-    /* Pascal types */
+    /* Pascal and Chill types */
     case BOOLEAN_TYPE:          /* store one byte/boolean for now. */
       TYPE_MODE (type) = QImode;
       TYPE_SIZE (type) = size_int (GET_MODE_BITSIZE (TYPE_MODE (type)));
       TYPE_PRECISION (type) = 1;
       TYPE_ALIGN (type) = GET_MODE_ALIGNMENT (TYPE_MODE (type));
+      if (TREE_CODE (TYPE_MIN_VALUE (type)) == INTEGER_CST
+         && tree_int_cst_sgn (TYPE_MIN_VALUE (type)) >= 0)
+       TREE_UNSIGNED (type) = 1;
       break;
 
     case CHAR_TYPE: