aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gcc.c-torture/compile/20000224-1.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/testsuite/gcc.c-torture/compile/20000224-1.c')
-rw-r--r--gcc/testsuite/gcc.c-torture/compile/20000224-1.c41
1 files changed, 0 insertions, 41 deletions
diff --git a/gcc/testsuite/gcc.c-torture/compile/20000224-1.c b/gcc/testsuite/gcc.c-torture/compile/20000224-1.c
deleted file mode 100644
index 1c72b6accab..00000000000
--- a/gcc/testsuite/gcc.c-torture/compile/20000224-1.c
+++ /dev/null
@@ -1,41 +0,0 @@
-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);
- }
-}