]> oss.titaniummirror.com Git - msp430-gcc.git/blobdiff - gcc/testsuite/gcc.c-torture/compile/20000224-1.c
Imported gcc-4.4.3
[msp430-gcc.git] / gcc / testsuite / gcc.c-torture / compile / 20000224-1.c
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 (file)
index 1c72b6a..0000000
+++ /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);
-    }
-}