Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.c-torture/compile/20000224-1.c @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
line wrap: on
line source
enum Lisp_Type { Lisp_Int ,Lisp_Record ,Lisp_Cons ,Lisp_String ,Lisp_Vector ,Lisp_Symbol ,Lisp_Char }; typedef union Lisp_Object { struct { enum Lisp_Type type: 3L ; unsigned long markbit: 1; unsigned long val: 32; } gu; long i; } Lisp_Object; extern int initialized; void init_device_faces (int *d) { if (initialized) { Lisp_Object tdevice; do { tdevice = (union Lisp_Object) { gu: { markbit: 0, type: Lisp_Record, val: ((unsigned long )d) } }; } while (0); call_critical_lisp_code (tdevice); } }