X-Git-Url: https://oss.titaniummirror.com/gitweb/?a=blobdiff_plain;f=gcc%2Ftestsuite%2Fgcc.c-torture%2Fcompile%2F20000224-1.c;fp=gcc%2Ftestsuite%2Fgcc.c-torture%2Fcompile%2F20000224-1.c;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=1c72b6accabf2c663f231b1cc98acd995987b9e2;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git 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 1c72b6ac..00000000 --- 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); - } -}