gcc/testsuite/objc/execute/bycopy-3.m

   1 /*
   2  * Contributed by Nicola Pero <nicola@brainstorm.co.uk>
   3  * Wed Feb 28 12:27:03 CET 2001
   4  */
   5
   6 /*
   7  * This test contains some no-op code which is needed to keep it
   8  * compile on broken gcc 3.x.  Anyway, the no-op code does not
   9  * interfere with what we are testing, which is that the `bycopy'
  10  * keyword generates the _F_BYCOPY qualifier for the return type.  */
  11
  12 extern void exit (int) __attribute__ ((noreturn));
  13 extern int printf (const char *, ...);
  14
  15 #include <objc/Protocol.h>
  16
  17 #ifndef __NEXT_RUNTIME__
  18 #include <objc/encoding.h>
  19 #endif
  20
  21 @protocol MyProtocol
  22 + (bycopy id<MyProtocol>) bycopyMethod;
  23 @end
  24
  25 /* This no-op class to keep it compile under broken gcc 3.x */
  26 @interface MyObject : Object <MyProtocol>
  27 #ifdef __OBJC2__
  28 + (id) initialize;
  29 + (id) alloc;
  30 + new;
  31 - init;
  32 #endif
  33 @end
  34
  35 @implementation MyObject
  36 + (bycopy id<MyProtocol>) bycopyMethod
  37 {
  38   return [MyObject alloc];
  39 }
  40 #ifdef __OBJC2__
  41 + initialize {return self;}
  42 + alloc { return class_createInstance (self, 0);}
  43 + new { return [[self alloc] init]; }
  44 - init {return self;}
  45 #endif
  46 @end
  47
  48 /* The following header, together with the implementation included below,
  49    emulate functionality provided by the GNU runtime but not available from
  50    the NeXT runtime.  */
  51 #include "../../objc-obj-c++-shared/objc-test-suite-next-encode-assist.h"
  52
  53 int main (void)
  54 {
  55   struct objc_method_description *method;
  56   const char *method_types;
  57   unsigned qualifiers;
  58   Protocol *protocol;
  59   /* This no-op command is needed to keep the test compile on broken
  60      gcc 3.x */
  61   MyObject *object = [MyObject bycopyMethod];
  62
  63   /* Get the protocol object */
  64   protocol = @protocol (MyProtocol);
  65
  66   /* Ask to the protocol for the description of the method bycopyMethod */
  67   method = [protocol descriptionForClassMethod: @selector (bycopyMethod)];
  68   if (method == NULL)
  69     {
  70       printf ("Could not find method bycopyMethod in protocol!\n");
  71       exit (1);
  72     }
  73
  74   /* Get the method types for the method - which encode return type,
  75      arguments etc. */
  76   method_types = method->types;
  77
  78   /* Get the qualifiers for the return type */
  79   qualifiers = objc_get_type_qualifiers (method_types);
  80
  81   /* If _F_BYCOPY is not there, the compiler is broken */
  82   if (! (qualifiers & _F_BYCOPY))
  83     {
  84       printf ("Failed - selector does not contain _F_BYCOPY qualifier!\n");
  85       exit (1);
  86     }
  87
  88   /* Else, happy end */
  89   return 0;
  90 }
  91
  92 #ifdef __NEXT_RUNTIME__
  93 unsigned
  94 objc_get_type_qualifiers (const char *type)
  95 {
  96   unsigned res = 0;
  97   BOOL flag = YES;
  98
  99   while (flag)
 100     switch (*type++)
 101       {
 102       case _C_CONST:    res |= _F_CONST; break;
 103       case _C_IN:       res |= _F_IN; break;
 104       case _C_INOUT:    res |= _F_INOUT; break;
 105       case _C_OUT:      res |= _F_OUT; break;
 106       case _C_BYCOPY:   res |= _F_BYCOPY; break;
 107       case _C_BYREF:  res |= _F_BYREF; break;
 108       case _C_ONEWAY:   res |= _F_ONEWAY; break;
 109       case _C_GCINVISIBLE: res |= _F_GCINVISIBLE; break;
 110       default: flag = NO;
 111     }
 112
 113   return res;
 114 }
 115 #endif