blob: c46d7f40d33cd1eb3c0023b4af3edece740d2182 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
/* { dg-do compile } */
__extension__ typedef __UINTPTR_TYPE__ uintptr_t;
typedef struct TypHeader {
struct TypHeader * * ptr;
unsigned char type;
} * TypHandle;
extern TypHandle (* EvTab[81]) ( TypHandle hd );
TypHandle FunApplyRel ( TypHandle hdCall )
{
TypHandle hdApp;
TypHandle * ptApp;
long lp;
long lc;
hdApp = ((uintptr_t)(((TypHandle*)((hdCall)->ptr))[1])&1 ?
(((TypHandle*)((hdCall)->ptr))[1]) : (*
EvTab[(((uintptr_t)(((TypHandle*)((hdCall)->ptr))[1]) & 1) ? 1 :
((((TypHandle*)((hdCall)->ptr))[1])->type))])((((TypHandle*)((hdCall)->ptr))[1])));
ptApp = ((TypHandle*)((hdApp)->ptr));
ptApp[1] = ((TypHandle) (uintptr_t) (((long)(lp) << 2) + 1));
ptApp[2] = ((TypHandle) (uintptr_t) (((long)(lc) << 2) + 1));
}
/* { dg-final { cleanup-tree-dump "vect" } } */
|
