view gcc/testsuite/objc.dg/foreach-1.m @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 04ced10e8804
children
line wrap: on
line source

/* Test basic Objective-C foreach syntax.  This tests iterations that
   do nothing.
*/
/* { dg-do run } */
/* { dg-skip-if "No NeXT fast enum. pre-Darwin9" { *-*-darwin[5-8]* } { "-fnext-runtime" } { "" } } */
/* { dg-xfail-run-if "Needs OBJC2 ABI" { *-*-darwin* && { lp64 && { ! objc2 } } } { "-fnext-runtime" } { "" } } */
/* { dg-options "-Wall" } */

#include "../objc-obj-c++-shared/TestsuiteObject.m"

extern void abort (void);
/*
struct __objcFastEnumerationState
{
  unsigned long state;
  id            *itemsPtr;
  unsigned long *mutationsPtr;
  unsigned long extra[5];
};
*/
@interface TestsuiteObject (NSFastEnumeration)
- (unsigned long)countByEnumeratingWithState: (struct __objcFastEnumerationState *)state
                                     objects:(id *)stackbuf 
                                       count:(unsigned int)len;
@end

int main (void)
{
  int test_variable = 0;
  int counter = 0;
  id array = nil;
  id object = nil;

  /* Test that 'for (object in array)' is recognized and that nothing
     happens if array is nil.  */
  for (object in array)
    test_variable = 8;

  if (test_variable == 8)
    abort ();

  if (object != nil)
    abort ();

  /* Test that if nothing is done, object is set to nil.  */
  object = [TestsuiteObject new];

  for (object in array)
    ;

  if (object != nil)
    abort ();

  /* Test that you can reference 'object' inside the body.  */
  for (object in array)
    object = nil;

  if (object != nil)
    abort ();

  /* Test that 'for (id element in array) is recognized (and works).  */
  for (id element in array)
    test_variable = 8;

  if (test_variable == 8)
    abort ();

  /* Test that you can reference 'object' inside the body.  */
  for (id element in array)
    element = nil;

  /* Test that C for loops still work.  */
  test_variable = 0;

  for (counter = 0; counter < 4; counter++)
    test_variable++;

  if (test_variable != 4)
    abort ();

  return 0;
}