c-decl.c, [...]: Revert bitfield patch.

	* c-decl.c, tree.c, tree.h, objc/objc-act.c: Revert bitfield
	patch.
	* gcc.dg/bitfld-1.c: Update.
	* gcc.dg/bitfld-2.c: Update.
	* gcc.c-torture/execute/bitfld-1.x: New.

From-SVN: r49420

gcc/ChangeLog

+2002-02-02  Neil Booth  <neil@daikokuya.demon.co.uk>
+
+	* c-decl.c, tree.c, tree.h, objc/objc-act.c: Revert bitfield
+	patch.
+
 2002-02-02  Jakub Jelinek  <jakub@redhat.com>
 
 	* config/i386/i386.h (CPP_CPUCOMMON_SPEC): Add missing | separators.

gcc/objc/objc-act.c

@@ -2393,6 +2393,13 @@ objc_copy_list (list, head)
   while (list)
     {
       tail = copy_node (list);
+
+      /* The following statement fixes a bug when inheriting instance
+	 variables that are declared to be bitfields. finish_struct
+	 expects to find the width of the bitfield in DECL_INITIAL.  */
+      if (DECL_BIT_FIELD (tail) && DECL_INITIAL (tail) == 0)
+	DECL_INITIAL (tail) = DECL_SIZE (tail);
+
       newlist = chainon (newlist, tail);
       list = TREE_CHAIN (list);
     }

gcc/testsuite/ChangeLog

+2002-02-02  Neil Booth  <neil@daikokuya.demon.co.uk>
+
+	* gcc.dg/bitfld-1.c: Update.
+	* gcc.dg/bitfld-2.c: Update.
+	* gcc.c-torture/execute/bitfld-1.x: New.
+
 2002-02-02  Jakub Jelinek  <jakub@redhat.com>
 
 	* gcc.c-torture/execute/20020201-1.c: New test.

gcc/testsuite/gcc.c-torture/execute/bitfld-1.x

+set torture_execute_xfail "*-*-*"
+return 0

gcc/testsuite/gcc.dg/bitfld-1.c

@@ -22,7 +22,7 @@ struct bf1
   unsigned int : 5;
   double e: 1;			/* { dg-error "invalid type" } */
   float f: 1;			/* { dg-error "invalid type" } */
-  unsigned long g: 5;		/* { dg-warning "GCC extension" } */
+  unsigned long g: 5;		/* { dg-warning "GCC extension|ISO C" } */
   ui h: 5;
   enum foo i: 2;		/* { dg-error "narrower" } */
   enum foo j: 3;

gcc/testsuite/gcc.dg/bitfld-2.c

@@ -11,13 +11,13 @@ struct bf
   int b: 2;
 };
 
-struct bf p = {4, 0};		/* { dg-warning "truncated" } */
-struct bf q = {0, 2};		/* { dg-warning "overflow" } */
+struct bf p = {4, 0};		/* { dg-warning "truncated" "" { xfail *-*-* } } */
+struct bf q = {0, 2};		/* { dg-warning "overflow" "" { xfail *-*-* } } */
 struct bf r = {3, -2};		/* { dg-bogus "(truncated|overflow)" } */
 
 void foo ()
 {
-  p.a = 4, p.b = 0;		/* { dg-warning "truncated" } */
-  q.a = 0, q.b = 2;		/* { dg-warning "overflow" } */
+  p.a = 4, p.b = 0;		/* { dg-warning "truncated" "" { xfail *-*-* } } */
+  q.a = 0, q.b = 2;		/* { dg-warning "overflow" "" { xfail *-*-* } } */
   r.a = 3, r.b = -2;		/* { dg-bogus "(truncated|overflow)" } */
 }

gcc/tree.c

@@ -3758,29 +3758,6 @@ build_index_type (maxval)
     return itype;
 }
 
-/* Builds a signed or unsigned integer type of precision PRECISION.
-   Used for C bitfields whose precision does not match that of
-   built-in target types.  */
-tree
-build_nonstandard_integer_type (precision, unsignedp)
-     unsigned int precision;
-     int unsignedp;
-{
-  tree itype = make_node (INTEGER_TYPE);
-
-  TYPE_PRECISION (itype) = precision;
-
-  if (unsignedp)
-    fixup_unsigned_type (itype);
-  else
-    fixup_signed_type (itype);
-
-  if (host_integerp (TYPE_MAX_VALUE (itype), 1))
-    return type_hash_canon (tree_low_cst (TYPE_MAX_VALUE (itype), 1), itype);
-
-  return itype;
-}
-
 /* Create a range of some discrete type TYPE (an INTEGER_TYPE,
    ENUMERAL_TYPE, BOOLEAN_TYPE, or CHAR_TYPE), with
    low bound LOWVAL and high bound HIGHVAL.

gcc/tree.h

@@ -2862,7 +2862,6 @@ extern tree getdecls				PARAMS ((void));
 /* Function to return the chain of structure tags in the current scope level.  */
 extern tree gettags				PARAMS ((void));
 
-extern tree build_nonstandard_integer_type	PARAMS ((unsigned int, int));
 extern tree build_range_type PARAMS ((tree, tree, tree));
 
 /* In alias.c */