gcc/testsuite/objc.dg/stret-2.m

   1 /* Test for handling of struct-returning methods
   2    for the Mac OS X ("NeXT") runtime (which uses specialized entry
   3    points).  */
   4 /* Contributed by Ziemowit Laski <zlaski@apple.com>.  */
   5 /* { dg-do compile { target *-*-darwin* } } */
   6
   7 #include <objc/Object.h>
   8
   9 struct astruct {
  10   float a, b;
  11 } glob = { 1.0, 2.0 };
  12
  13 struct bstruct {
  14   float a, b, c, d, e, f;
  15 } globb = { 1, 2, 3, 4, 5, 6 };
  16
  17 @interface foo : Object
  18 - (struct astruct) stret;
  19 - (struct bstruct) stretb;
  20 @end
  21
  22 @implementation foo : Object
  23 - (struct astruct) stret { return glob; }
  24 - (struct bstruct) stretb { return globb; }
  25 @end
  26
  27 @interface bar: foo
  28 - (struct astruct) stret;
  29 - (struct bstruct) stretb;
  30 @end
  31
  32 @implementation bar
  33 - (struct astruct) stret { return [super stret]; }
  34 - (struct bstruct) stretb { return [super stretb]; }
  35 @end
  36
  37 struct astruct afunc(foo *foo_obj) {
  38   return [foo_obj stret];
  39 }
  40
  41 /* { dg-final { scan-assembler "objc_msgSend_stret" } } */
  42 /* { dg-final { scan-assembler "objc_msgSendSuper_stret" } } */
  43
  44 /* { dg-final { scan-assembler-not "objc_msgSend\[^_S\]" } } */
  45 /* { dg-final { scan-assembler-not "objc_msgSendSuper\[^_\]" } } */
  46