objc-gc-3.m   [plain text]

/* APPLE LOCAL file ObjC GC */
/* A run-time test for insertion of write barriers. */
/* { dg-do run { target *-*-darwin* } } */
/* { dg-options "-fnext-runtime -fobjc-gc" } */

#include <objc/objc.h>
#include <stdio.h>
#include <stdlib.h>

// callouts to these are generated with cc -fobjc-gc

int IvarAssigns;

id objc_assign_ivar(id value, id dest, unsigned int offset) {
    id *slot = (id*) ((char *)dest + offset);

    ++IvarAssigns;
    return (*slot = value);
}

// The test case elements;
@class NSObject;

@interface Foo  {
@public
// assignments to any/all of these fields should generate objc_assign_ivar
    Foo *obj[20];
    short idx[5];
}
@end

int testIvars() {
    Foo *foo = (Foo *)calloc(1,sizeof(Foo)); // don't call in ObjC
    int counter = 0, errors = 0;
    #define ASSIGNTEST(expr, global) expr = foo; if (!global) { printf(# expr " is busted\n"); ++errors; }  global = 0;

    ASSIGNTEST(foo->obj[5], IvarAssigns)		// objc_assign_ivar
    ASSIGNTEST(foo->obj[++counter], IvarAssigns)	// objc_assign_ivar
    foo->idx[++counter] = 15;
    ASSIGNTEST(foo->obj[foo->idx[2]], IvarAssigns)	// objc_assign_ivar

    if (foo->obj[5] != foo || foo->obj[1] != foo || foo->obj[15] != foo) 
      abort();
 
    return errors;
}

@implementation Foo
@end

int main(int argc, char *argv[]) {
    return testIvars();
}