/* Check if array arguments of ObjC methods are decayed to pointer types
|
/* Check if array arguments of ObjC methods are decayed to pointer types
|
in a proper fashion:
|
in a proper fashion:
|
(1) The _encodings_ for the array arguments should remain to be '[4i]' and
|
(1) The _encodings_ for the array arguments should remain to be '[4i]' and
|
such, since this has been the case since at least gcc 3.3.
|
such, since this has been the case since at least gcc 3.3.
|
(2) However, when building the static C functions out of ObjC method signatures,
|
(2) However, when building the static C functions out of ObjC method signatures,
|
we need to decay the arrays into pointers (as C does).
|
we need to decay the arrays into pointers (as C does).
|
(3) If array size is not known (e.g., 'int a[]'), then the type shall be
|
(3) If array size is not known (e.g., 'int a[]'), then the type shall be
|
encoded as a pointer. */
|
encoded as a pointer. */
|
|
|
/* Contributed by Alexander Malmberg */
|
/* Contributed by Alexander Malmberg */
|
|
|
#include
|
#include
|
#include
|
#include
|
#include
|
#include
|
#define CHECK_IF(expr) if(!(expr)) abort()
|
#define CHECK_IF(expr) if(!(expr)) abort()
|
|
|
#ifdef __NEXT_RUNTIME__
|
#ifdef __NEXT_RUNTIME__
|
#define METHOD Method
|
#define METHOD Method
|
#define OBJC_GETCLASS objc_getClass
|
#define OBJC_GETCLASS objc_getClass
|
#define CLASS_GETINSTANCEMETHOD class_getInstanceMethod
|
#define CLASS_GETINSTANCEMETHOD class_getInstanceMethod
|
#else
|
#else
|
#include
|
#include
|
#define METHOD Method_t
|
#define METHOD Method_t
|
#define OBJC_GETCLASS objc_get_class
|
#define OBJC_GETCLASS objc_get_class
|
#define CLASS_GETINSTANCEMETHOD class_get_instance_method
|
#define CLASS_GETINSTANCEMETHOD class_get_instance_method
|
#endif
|
#endif
|
|
|
@interface Test : Object
|
@interface Test : Object
|
{ float j; }
|
{ float j; }
|
-(void) test2: (int [5])a with: (int [])b;
|
-(void) test2: (int [5])a with: (int [])b;
|
-(id) test3: (Test **)b; /* { dg-warning "previous declaration of .\\-\\(id\\)test3:\\(Test \\*\\*\\)b." } */
|
-(id) test3: (Test **)b; /* { dg-warning "previous declaration of .\\-\\(id\\)test3:\\(Test \\*\\*\\)b." } */
|
@end
|
@end
|
|
|
@implementation Test
|
@implementation Test
|
-(void) test2: (int [5])a with: (int [])b
|
-(void) test2: (int [5])a with: (int [])b
|
{
|
{
|
a[3] = *b;
|
a[3] = *b;
|
}
|
}
|
-(void) test3: (Test [3][4])b { /* { dg-warning "conflicting types for .\\-\\(void\\)test3:\\(Test \\\[3\\\]\\\[4\\\]\\)b." } */
|
-(void) test3: (Test [3][4])b { /* { dg-warning "conflicting types for .\\-\\(void\\)test3:\\(Test \\\[3\\\]\\\[4\\\]\\)b." } */
|
}
|
}
|
@end
|
@end
|
|
|
int bb[6] = { 0, 1, 2, 3, 4, 5 };
|
int bb[6] = { 0, 1, 2, 3, 4, 5 };
|
int *b = bb;
|
int *b = bb;
|
Test *cc[4];
|
Test *cc[4];
|
Test **c = cc;
|
Test **c = cc;
|
|
|
int offs1, offs2, offs3, offs4, offs5, offs6;
|
int offs1, offs2, offs3, offs4, offs5, offs6;
|
|
|
int main(int argc, char **argv)
|
int main(int argc, char **argv)
|
{
|
{
|
Class testClass = OBJC_GETCLASS("Test");
|
Class testClass = OBJC_GETCLASS("Test");
|
METHOD meth;
|
METHOD meth;
|
|
|
cc[0] = [Test new];
|
cc[0] = [Test new];
|
CHECK_IF (bb[3] == 3);
|
CHECK_IF (bb[3] == 3);
|
[*c test2: b with: bb + 4];
|
[*c test2: b with: bb + 4];
|
CHECK_IF (bb[3] == 4);
|
CHECK_IF (bb[3] == 4);
|
bb[3] = 0;
|
bb[3] = 0;
|
[*c test2: bb with: bb + 5];
|
[*c test2: bb with: bb + 5];
|
CHECK_IF (bb[3] == 5);
|
CHECK_IF (bb[3] == 5);
|
|
|
meth = CLASS_GETINSTANCEMETHOD(testClass, @selector(test2:with:));
|
meth = CLASS_GETINSTANCEMETHOD(testClass, @selector(test2:with:));
|
offs1 = offs2 = offs3 = offs4 = offs5 = offs6 = -1;
|
offs1 = offs2 = offs3 = offs4 = offs5 = offs6 = -1;
|
sscanf(meth->method_types, "v%d@%d:%d[%di]%d^i%d", &offs1, &offs2, &offs3,
|
sscanf(meth->method_types, "v%d@%d:%d[%di]%d^i%d", &offs1, &offs2, &offs3,
|
&offs4, &offs5, &offs6);
|
&offs4, &offs5, &offs6);
|
CHECK_IF (!offs2 && offs4 == 5 && offs3 > 0);
|
CHECK_IF (!offs2 && offs4 == 5 && offs3 > 0);
|
CHECK_IF (offs5 == 2 * offs3 && offs6 == 3 * offs3 && offs1 == 4 * offs3);
|
CHECK_IF (offs5 == 2 * offs3 && offs6 == 3 * offs3 && offs1 == 4 * offs3);
|
|
|
meth = CLASS_GETINSTANCEMETHOD(testClass, @selector(test3:));
|
meth = CLASS_GETINSTANCEMETHOD(testClass, @selector(test3:));
|
offs1 = offs2 = offs3 = offs4 = offs5 = offs6 = -1;
|
offs1 = offs2 = offs3 = offs4 = offs5 = offs6 = -1;
|
sscanf(meth->method_types, "v%d@%d:%d[%d[%d{Test=#f}]]%d", &offs1, &offs2, &offs3,
|
sscanf(meth->method_types, "v%d@%d:%d[%d[%d{Test=#f}]]%d", &offs1, &offs2, &offs3,
|
&offs4, &offs5, &offs6);
|
&offs4, &offs5, &offs6);
|
CHECK_IF (!offs2 && offs4 == 3 && offs5 == 4 && offs3 > 0);
|
CHECK_IF (!offs2 && offs4 == 3 && offs5 == 4 && offs3 > 0);
|
CHECK_IF (offs6 == 2 * offs3 && offs1 == 3 * offs3);
|
CHECK_IF (offs6 == 2 * offs3 && offs1 == 3 * offs3);
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
