Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.c-torture/compile/20000224-1.c @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
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); } }