From: Per Bothner <bothner@gcc.gnu.org>
Date: Fri, 18 Mar 1994 05:33:36 +0000 (-0800)
Subject: stor-layout.c (layout_type, [...]): Set TREE_UNSIGNED unless TYPE_MIN_VALUE is negative.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a6458cef6332ab9f9fdcc5b372eab480ef1d23d2;p=gcc.git

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 b09f320e966..9c51c700ea8 100644
--- 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: