gcc/testsuite/gcc.c-torture/compile/20000224-1.c

   1 enum Lisp_Type
   2 {
   3   Lisp_Int
   4   ,Lisp_Record
   5   ,Lisp_Cons
   6   ,Lisp_String
   7   ,Lisp_Vector
   8   ,Lisp_Symbol
   9   ,Lisp_Char
  10 };
  11 typedef
  12 union Lisp_Object
  13   {
  14     struct
  15       {
  16         enum Lisp_Type type: 3L ;
  17         unsigned long  markbit: 1;
  18         unsigned long  val: 32;
  19       } gu;
  20     long  i;
  21   }
  22 Lisp_Object;
  23 extern int initialized;
  24 void
  25 init_device_faces (int *d)
  26 {
  27   if (initialized)
  28     {
  29       Lisp_Object tdevice;
  30       do {
  31           tdevice = (union Lisp_Object)
  32                         { gu:
  33                           { markbit: 0,
  34                             type: Lisp_Record,
  35                             val: ((unsigned long )d)
  36                           }
  37                         };
  38       } while (0);
  39       call_critical_lisp_code (tdevice);
  40     }
  41 }