From a6458cef6332ab9f9fdcc5b372eab480ef1d23d2 Mon Sep 17 00:00:00 2001 From: Per Bothner Date: Thu, 17 Mar 1994 21:33:36 -0800 Subject: [PATCH] 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 --- gcc/stor-layout.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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: -- 2.30.2