URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [20000224-1.c] - Diff between revs 149 and 154

Rev 149	Rev 154
`enum Lisp_Type`	`enum Lisp_Type`
`{`	`{`
`Lisp_Int`	`Lisp_Int`
`,Lisp_Record`	`,Lisp_Record`
`,Lisp_Cons`	`,Lisp_Cons`
`,Lisp_String`	`,Lisp_String`
`,Lisp_Vector`	`,Lisp_Vector`
`,Lisp_Symbol`	`,Lisp_Symbol`
`,Lisp_Char`	`,Lisp_Char`
`};`	`};`
`typedef`	`typedef`
`union Lisp_Object`	`union Lisp_Object`
`{`	`{`
`struct`	`struct`
`{`	`{`
`enum Lisp_Type type: 3L ;`	`enum Lisp_Type type: 3L ;`
`unsigned long markbit: 1;`	`unsigned long markbit: 1;`
`unsigned long val: 32;`	`unsigned long val: 32;`
`} gu;`	`} gu;`
`long i;`	`long i;`
`}`	`}`
`Lisp_Object;`	`Lisp_Object;`
`extern int initialized;`	`extern int initialized;`
`void`	`void`
`init_device_faces (int *d)`	`init_device_faces (int *d)`
`{`	`{`
`if (initialized)`	`if (initialized)`
`{`	`{`
`Lisp_Object tdevice;`	`Lisp_Object tdevice;`
`do {`	`do {`
`tdevice = (union Lisp_Object)`	`tdevice = (union Lisp_Object)`
`{ gu:`	`{ gu:`
`{ markbit: 0,`	`{ markbit: 0,`
`type: Lisp_Record,`	`type: Lisp_Record,`
`val: ((unsigned long )d)`	`val: ((unsigned long )d)`
`}`	`}`
`};`	`};`
`} while (0);`	`} while (0);`
`call_critical_lisp_code (tdevice);`	`call_critical_lisp_code (tdevice);`
`}`	`}`
`}`	`}`