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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [bfin/] [frmul.c] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log


extern void abort (void);
extern void exit (int);
 
typedef short  __v2hi __attribute ((vector_size(4)));
typedef __v2hi fract2x16;
typedef short fract16;
 
#define GETVECT(HILO1,HILO2,IN1,IN2)                                    \
  __builtin_bfin_compose_2x16 ((HILO2) ? __builtin_bfin_extract_hi (IN1) : __builtin_bfin_extract_lo (IN1), \
                          (HILO1) ? __builtin_bfin_extract_hi (IN2) : __builtin_bfin_extract_lo (IN2))
#define DOTEST(IN1, IN2, HL1, HL2, HL3, HL4)                                    \
  __builtin_bfin_multr_fr2x16 (GETVECT (HL1, HL2, IN1, IN1), \
                          GETVECT (HL3, HL4, IN2, IN2))
 
#define FUNC(HL1, HL2, HL3, HL4) \
  fract2x16 foo ## HL1 ## HL2 ## HL3 ## HL4 (fract2x16 a, fract2x16 b)\
  { \
    return DOTEST(a, b, HL1, HL2, HL3, HL4);\
  }
 
FUNC (0, 0, 0, 0)
FUNC (1, 0, 0, 0)
FUNC (0, 1, 0, 0)
FUNC (1, 1, 0, 0)
FUNC (0, 0, 1, 0)
FUNC (1, 0, 1, 0)
FUNC (0, 1, 1, 0)
FUNC (1, 1, 1, 0)
FUNC (0, 0, 0, 1)
FUNC (1, 0, 0, 1)
FUNC (0, 1, 0, 1)
FUNC (1, 1, 0, 1)
FUNC (0, 0, 1, 1)
FUNC (1, 0, 1, 1)
FUNC (0, 1, 1, 1)
FUNC (1, 1, 1, 1)
 
#define RES1 0x1400
#define RES2 0x1e00
#define RES3 0x1c00
#define RES4 0x2a00
 
 
int main ()
{
  fract2x16 a, b, c;
  fract16 t1, t2;
  a = __builtin_bfin_compose_2x16 (0x3000, 0x2000);
  b = __builtin_bfin_compose_2x16 (0x7000, 0x5000);
 
  c = foo0000 (a, b);
  t1 = __builtin_bfin_extract_lo (c);
  t2 = __builtin_bfin_extract_hi (c);
  if (t1 != RES1 || t2 != RES1)
    abort ();
 
  c = foo1000 (a, b);
  t1 = __builtin_bfin_extract_lo (c);
  t2 = __builtin_bfin_extract_hi (c);
  if (t1 != RES2 || t2 != RES1)
    abort ();
 
  c = foo0100 (a, b);
  t1 = __builtin_bfin_extract_lo (c);
  t2 = __builtin_bfin_extract_hi (c);
  if (t1 != RES1 || t2 != RES2)
    abort ();
 
  c = foo1100 (a, b);
  t1 = __builtin_bfin_extract_lo (c);
  t2 = __builtin_bfin_extract_hi (c);
  if (t1 != RES2 || t2 != RES2)
    abort ();
 
  c = foo0010 (a, b);
  t1 = __builtin_bfin_extract_lo (c);
  t2 = __builtin_bfin_extract_hi (c);
  if (t1 != RES3 || t2 != RES1)
    abort ();
 
  c = foo1010 (a, b);
  t1 = __builtin_bfin_extract_lo (c);
  t2 = __builtin_bfin_extract_hi (c);
  if (t1 != RES4 || t2 != RES1)
    abort ();
 
  c = foo0110 (a, b);
  t1 = __builtin_bfin_extract_lo (c);
  t2 = __builtin_bfin_extract_hi (c);
  if (t1 != RES3 || t2 != RES2)
    abort ();
 
  c = foo1110 (a, b);
  t1 = __builtin_bfin_extract_lo (c);
  t2 = __builtin_bfin_extract_hi (c);
  if (t1 != RES4 || t2 != RES2)
    abort ();
 
  c = foo0001 (a, b);
  t1 = __builtin_bfin_extract_lo (c);
  t2 = __builtin_bfin_extract_hi (c);
  if (t1 != RES1 || t2 != RES3)
    abort ();
 
  c = foo1001 (a, b);
  t1 = __builtin_bfin_extract_lo (c);
  t2 = __builtin_bfin_extract_hi (c);
  if (t1 != RES2 || t2 != RES3)
    abort ();
 
  c = foo0101 (a, b);
  t1 = __builtin_bfin_extract_lo (c);
  t2 = __builtin_bfin_extract_hi (c);
  if (t1 != RES1 || t2 != RES4)
    abort ();
 
  c = foo1101 (a, b);
  t1 = __builtin_bfin_extract_lo (c);
  t2 = __builtin_bfin_extract_hi (c);
  if (t1 != RES2 || t2 != RES4)
    abort ();
 
  c = foo0011 (a, b);
  t1 = __builtin_bfin_extract_lo (c);
  t2 = __builtin_bfin_extract_hi (c);
  if (t1 != RES3 || t2 != RES3)
    abort ();
 
  c = foo1011 (a, b);
  t1 = __builtin_bfin_extract_lo (c);
  t2 = __builtin_bfin_extract_hi (c);
  if (t1 != RES4 || t2 != RES3)
    abort ();
 
  c = foo0111 (a, b);
  t1 = __builtin_bfin_extract_lo (c);
  t2 = __builtin_bfin_extract_hi (c);
  if (t1 != RES3 || t2 != RES4)
    abort ();
 
  c = foo1111 (a, b);
  t1 = __builtin_bfin_extract_lo (c);
  t2 = __builtin_bfin_extract_hi (c);
  if (t1 != RES4 || t2 != RES4)
    abort ();
 
  exit (0);
}
 

Line No.	Rev	Author	Line
1	691	jeremybenn	`extern void abort (void);`
2			`extern void exit (int);`
3
4			`typedef short __v2hi __attribute ((vector_size(4)));`
5			`typedef __v2hi fract2x16;`
6			`typedef short fract16;`
7
8			`#define GETVECT(HILO1,HILO2,IN1,IN2) \`
9			`__builtin_bfin_compose_2x16 ((HILO2) ? __builtin_bfin_extract_hi (IN1) : __builtin_bfin_extract_lo (IN1), \`
10			`(HILO1) ? __builtin_bfin_extract_hi (IN2) : __builtin_bfin_extract_lo (IN2))`
11			`#define DOTEST(IN1, IN2, HL1, HL2, HL3, HL4) \`
12			`__builtin_bfin_multr_fr2x16 (GETVECT (HL1, HL2, IN1, IN1), \`
13			`GETVECT (HL3, HL4, IN2, IN2))`
14
15			`#define FUNC(HL1, HL2, HL3, HL4) \`
16			`fract2x16 foo ## HL1 ## HL2 ## HL3 ## HL4 (fract2x16 a, fract2x16 b)\`
17			`{ \`
18			`return DOTEST(a, b, HL1, HL2, HL3, HL4);\`
19			`}`
20
21			`FUNC (0, 0, 0, 0)`
22			`FUNC (1, 0, 0, 0)`
23			`FUNC (0, 1, 0, 0)`
24			`FUNC (1, 1, 0, 0)`
25			`FUNC (0, 0, 1, 0)`
26			`FUNC (1, 0, 1, 0)`
27			`FUNC (0, 1, 1, 0)`
28			`FUNC (1, 1, 1, 0)`
29			`FUNC (0, 0, 0, 1)`
30			`FUNC (1, 0, 0, 1)`
31			`FUNC (0, 1, 0, 1)`
32			`FUNC (1, 1, 0, 1)`
33			`FUNC (0, 0, 1, 1)`
34			`FUNC (1, 0, 1, 1)`
35			`FUNC (0, 1, 1, 1)`
36			`FUNC (1, 1, 1, 1)`
37
38			`#define RES1 0x1400`
39			`#define RES2 0x1e00`
40			`#define RES3 0x1c00`
41			`#define RES4 0x2a00`
42
43
44			`int main ()`
45			`{`
46			`fract2x16 a, b, c;`
47			`fract16 t1, t2;`
48			`a = __builtin_bfin_compose_2x16 (0x3000, 0x2000);`
49			`b = __builtin_bfin_compose_2x16 (0x7000, 0x5000);`
50
51			`c = foo0000 (a, b);`
52			`t1 = __builtin_bfin_extract_lo (c);`
53			`t2 = __builtin_bfin_extract_hi (c);`
54			`if (t1 != RES1 \|\| t2 != RES1)`
55			`abort ();`
56
57			`c = foo1000 (a, b);`
58			`t1 = __builtin_bfin_extract_lo (c);`
59			`t2 = __builtin_bfin_extract_hi (c);`
60			`if (t1 != RES2 \|\| t2 != RES1)`
61			`abort ();`
62
63			`c = foo0100 (a, b);`
64			`t1 = __builtin_bfin_extract_lo (c);`
65			`t2 = __builtin_bfin_extract_hi (c);`
66			`if (t1 != RES1 \|\| t2 != RES2)`
67			`abort ();`
68
69			`c = foo1100 (a, b);`
70			`t1 = __builtin_bfin_extract_lo (c);`
71			`t2 = __builtin_bfin_extract_hi (c);`
72			`if (t1 != RES2 \|\| t2 != RES2)`
73			`abort ();`
74
75			`c = foo0010 (a, b);`
76			`t1 = __builtin_bfin_extract_lo (c);`
77			`t2 = __builtin_bfin_extract_hi (c);`
78			`if (t1 != RES3 \|\| t2 != RES1)`
79			`abort ();`
80
81			`c = foo1010 (a, b);`
82			`t1 = __builtin_bfin_extract_lo (c);`
83			`t2 = __builtin_bfin_extract_hi (c);`
84			`if (t1 != RES4 \|\| t2 != RES1)`
85			`abort ();`
86
87			`c = foo0110 (a, b);`
88			`t1 = __builtin_bfin_extract_lo (c);`
89			`t2 = __builtin_bfin_extract_hi (c);`
90			`if (t1 != RES3 \|\| t2 != RES2)`
91			`abort ();`
92
93			`c = foo1110 (a, b);`
94			`t1 = __builtin_bfin_extract_lo (c);`
95			`t2 = __builtin_bfin_extract_hi (c);`
96			`if (t1 != RES4 \|\| t2 != RES2)`
97			`abort ();`
98
99			`c = foo0001 (a, b);`
100			`t1 = __builtin_bfin_extract_lo (c);`
101			`t2 = __builtin_bfin_extract_hi (c);`
102			`if (t1 != RES1 \|\| t2 != RES3)`
103			`abort ();`
104
105			`c = foo1001 (a, b);`
106			`t1 = __builtin_bfin_extract_lo (c);`
107			`t2 = __builtin_bfin_extract_hi (c);`
108			`if (t1 != RES2 \|\| t2 != RES3)`
109			`abort ();`
110
111			`c = foo0101 (a, b);`
112			`t1 = __builtin_bfin_extract_lo (c);`
113			`t2 = __builtin_bfin_extract_hi (c);`
114			`if (t1 != RES1 \|\| t2 != RES4)`
115			`abort ();`
116
117			`c = foo1101 (a, b);`
118			`t1 = __builtin_bfin_extract_lo (c);`
119			`t2 = __builtin_bfin_extract_hi (c);`
120			`if (t1 != RES2 \|\| t2 != RES4)`
121			`abort ();`
122
123			`c = foo0011 (a, b);`
124			`t1 = __builtin_bfin_extract_lo (c);`
125			`t2 = __builtin_bfin_extract_hi (c);`
126			`if (t1 != RES3 \|\| t2 != RES3)`
127			`abort ();`
128
129			`c = foo1011 (a, b);`
130			`t1 = __builtin_bfin_extract_lo (c);`
131			`t2 = __builtin_bfin_extract_hi (c);`
132			`if (t1 != RES4 \|\| t2 != RES3)`
133			`abort ();`
134
135			`c = foo0111 (a, b);`
136			`t1 = __builtin_bfin_extract_lo (c);`
137			`t2 = __builtin_bfin_extract_hi (c);`
138			`if (t1 != RES3 \|\| t2 != RES4)`
139			`abort ();`
140
141			`c = foo1111 (a, b);`
142			`t1 = __builtin_bfin_extract_lo (c);`
143			`t2 = __builtin_bfin_extract_hi (c);`
144			`if (t1 != RES4 \|\| t2 != RES4)`
145			`abort ();`
146
147			`exit (0);`
148			`}`
149

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [bfin/] [frmul.c] - Blame information for rev 801