URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-dev/] [fsf-gcc-snapshot-1-mar-12/] [or1k-gcc/] [gcc/] [testsuite/] [objc/] [execute/] [object_is_meta_class.m] - Rev 783
Compare with Previous | Blame | View Log
/* Contributed by Nicola Pero - Tue Jul 3 10:55:21 BST 2001 */ #include "../../objc-obj-c++-shared/runtime.h" #include "../../objc-obj-c++-shared/TestsuiteObject.m" /* This test demonstrate a failure in object_is_meta_class which was fixed */ @interface EvilClass : TestsuiteObject { Class super_class; const char* name; long version; unsigned long info; } @end @implementation EvilClass - (id) init { self = [super init]; /* The following one is used in the runtime to mark meta classes */ info = 0x2L; return self; } @end int main (void) { /* Create an object of our EvilClass */ EvilClass *evilObject = [EvilClass new]; /* Now check that the object is not a meta class object */ if (class_isMetaClass (object_getClass (evilObject)) && class_isMetaClass (evilObject)) { printf ("object_is_meta_class failed\n"); abort (); } return 0; }