X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=gcc%2Ftestsuite%2Fobjc%2Fexecute%2FIMP.m;fp=gcc%2Ftestsuite%2Fobjc%2Fexecute%2FIMP.m;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=979aebb0158ff3d2b463dc4672d6548b55c7addf;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git

diff --git a/gcc/testsuite/objc/execute/IMP.m b/gcc/testsuite/objc/execute/IMP.m
deleted file mode 100644
index 979aebb0..00000000
--- a/gcc/testsuite/objc/execute/IMP.m
+++ /dev/null
@@ -1,39 +0,0 @@
-/* Contributed by Nicola Pero - Fri Mar  9 19:39:15 CET 2001 */
-#include <objc/objc.h>
-#include <objc/objc-api.h>
-
-/* Test getting and calling the IMP of a method */
-
-@interface TestClass
-{
-  Class isa;
-}
-- (int) next: (int)a;
-@end
-
-@implementation TestClass
-- (int) next: (int)a
-{
-  return a + 1;
-}
-@end
-
-
-int main (void)
-{
-  Class class;
-  SEL selector;
-  int (* imp) (id, SEL, int);
-  
-  class = objc_get_class ("TestClass");
-  selector = @selector (next:);
-  imp = (int (*)(id, SEL, int))method_get_imp 
-    (class_get_class_method (class, selector));
-  
-  if (imp (class, selector, 5) != 6)
-    {
-      abort ();
-    }
-
-  return 0;
-}