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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
/* { dg-do compile } */
/* { dg-options "-mgp64 -O" } */
#define TEST(ID, TYPE1, TYPE2) \
union u##ID { \
TYPE1 m1[sizeof (TYPE2) / sizeof (TYPE1)]; \
TYPE2 m2; \
}; \
\
/* The MIPS16 versions of the shifts we need are too \
expensive. */ \
TYPE1 __attribute__((nomips16)) \
f##ID (TYPE2 x, union u##ID *u) \
{ \
u->m2 = x; \
return (u->m1[0] \
+ u->m1[sizeof (TYPE2) / sizeof (TYPE1) - 1]); \
} \
\
TYPE1 __attribute__((nomips16)) \
g##ID (union u##ID *u) \
{ \
u->m2 = 0; \
return (u->m1[0] | u->m1[1]); \
}
TEST (1, unsigned int, unsigned long long);
TEST (2, int, long long);
TEST (3, unsigned short, unsigned long long);
TEST (4, short, long long);
TEST (5, unsigned char, unsigned long long);
TEST (6, signed char, long long);
TEST (7, unsigned short, unsigned int);
TEST (8, short, int);
TEST (9, unsigned char, unsigned int);
TEST (10, signed char, int);
TEST (11, unsigned char, unsigned short);
TEST (12, signed char, short);
/* { dg-final { scan-assembler-not "\tlh\t" } } */
/* { dg-final { scan-assembler-not "\tlhu\t" } } */
/* { dg-final { scan-assembler-not "\tlw\t" } } */
/* { dg-final { scan-assembler-not "\tlwu\t" } } */
/* { dg-final { scan-assembler-not "\tlb\t" } } */
/* { dg-final { scan-assembler-not "\tlbu\t" } } */
|
