modernc.org/ccgo/v3@v3.16.14/lib/testdata/gcc-9.1.0/gcc/testsuite/gcc.c-torture/compile/20000224-1.c (about)

     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  }