OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [objc/] [execute/] [object_is_class.m] - Blame information for rev 702

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 702 jeremybenn
/* Contributed by Nicola Pero - Tue Jul  3 10:55:21 BST 2001 */
2
 
3
#include "../../objc-obj-c++-shared/runtime.h"
4
#include "../../objc-obj-c++-shared/TestsuiteObject.m"
5
 
6
/* This test demonstrate a failure in object_is_class which was fixed */
7
 
8
/* Create a class whose instance variables mirror the struct used for
9
   Class structures in the runtime ... yes we're feeling evil today */
10
@interface EvilClass : TestsuiteObject
11
{
12
  Class super_class;
13
  const char* name;
14
  long version;
15
  unsigned long info;
16
}
17
@end
18
 
19
@implementation EvilClass
20
- (id) init
21
{
22
  self = [super init];
23
  /* The following one is used in the runtime to mark classes */
24
  info = 0x1L;
25
  return self;
26
}
27
@end
28
 
29
int main (void)
30
{
31
  /* Create an object of our EvilClass */
32
  EvilClass *evilObject = [EvilClass new];
33
 
34
  /* Now check that the object is not a class object */
35
  if (class_isMetaClass (object_getClass (evilObject)))
36
    {
37
      printf ("object_is_class failed\n");
38
      abort ();
39
    }
40
 
41
  return 0;
42
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.