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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [compat/] [scalar-return-1_y.c] - Blame information for rev 689

Details | Compare with Previous | View Log


#include <stdarg.h>
 
#include "compat-common.h"
 
#define T(NAME, TYPE, INITVAL)                                  \
extern TYPE g01##NAME, g02##NAME, g03##NAME, g04##NAME;         \
extern TYPE g05##NAME, g06##NAME, g07##NAME, g08##NAME;         \
extern TYPE g09##NAME, g10##NAME, g11##NAME, g12##NAME;         \
extern TYPE g13##NAME, g14##NAME, g15##NAME, g16##NAME;         \
                                                                \
extern void check##NAME (TYPE x, TYPE v);                       \
                                                                \
void                                                            \
init##NAME (TYPE *p, TYPE v)                                    \
{                                                               \
  *p = v + INITVAL;                                             \
}                                                               \
                                                                \
void                                                            \
checkg##NAME (void)                                             \
{                                                               \
  check##NAME (g01##NAME,  1+INITVAL);                          \
  check##NAME (g02##NAME,  2+INITVAL);                          \
  check##NAME (g03##NAME,  3+INITVAL);                          \
  check##NAME (g04##NAME,  4+INITVAL);                          \
  check##NAME (g05##NAME,  5+INITVAL);                          \
  check##NAME (g06##NAME,  6+INITVAL);                          \
  check##NAME (g07##NAME,  7+INITVAL);                          \
  check##NAME (g08##NAME,  8+INITVAL);                          \
  check##NAME (g09##NAME,  9+INITVAL);                          \
  check##NAME (g10##NAME, 10+INITVAL);                          \
  check##NAME (g11##NAME, 11+INITVAL);                          \
  check##NAME (g12##NAME, 12+INITVAL);                          \
  check##NAME (g13##NAME, 13+INITVAL);                          \
  check##NAME (g14##NAME, 14+INITVAL);                          \
  check##NAME (g15##NAME, 15+INITVAL);                          \
  check##NAME (g16##NAME, 16+INITVAL);                          \
}                                                               \
                                                                \
TYPE                                                            \
test0##NAME (void)                                              \
{                                                               \
  return g01##NAME;                                             \
}                                                               \
                                                                \
TYPE                                                            \
test1##NAME (TYPE x01)                                          \
{                                                               \
  return x01;                                                   \
}                                                               \
                                                                \
TYPE                                                            \
testva##NAME (int n, ...)                                       \
{                                                               \
  int i;                                                        \
  TYPE rslt;                                                    \
  va_list ap;                                                   \
  va_start (ap, n);                                             \
  for (i = 0; i < n; i++)                                        \
    rslt = va_arg (ap, TYPE);                                   \
  va_end (ap);                                                  \
  return rslt;                                                  \
}
 
T(ui, unsigned int, 51)
T(si, int, (-55))
T(ul, unsigned long, 61)
T(sl, long, (-66))
T(ull, unsigned long long, 71)
T(sll, long long, (-77))
T(d, double, 91.0)
T(ld, long double, 92.0)

Line No.	Rev	Author	Line
1	689	jeremybenn	`#include <stdarg.h>`
2
3			`#include "compat-common.h"`
4
5			`#define T(NAME, TYPE, INITVAL) \`
6			`extern TYPE g01##NAME, g02##NAME, g03##NAME, g04##NAME; \`
7			`extern TYPE g05##NAME, g06##NAME, g07##NAME, g08##NAME; \`
8			`extern TYPE g09##NAME, g10##NAME, g11##NAME, g12##NAME; \`
9			`extern TYPE g13##NAME, g14##NAME, g15##NAME, g16##NAME; \`
10			`\`
11			`extern void check##NAME (TYPE x, TYPE v); \`
12			`\`
13			`void \`
14			`init##NAME (TYPE *p, TYPE v) \`
15			`{ \`
16			`*p = v + INITVAL; \`
17			`} \`
18			`\`
19			`void \`
20			`checkg##NAME (void) \`
21			`{ \`
22			`check##NAME (g01##NAME, 1+INITVAL); \`
23			`check##NAME (g02##NAME, 2+INITVAL); \`
24			`check##NAME (g03##NAME, 3+INITVAL); \`
25			`check##NAME (g04##NAME, 4+INITVAL); \`
26			`check##NAME (g05##NAME, 5+INITVAL); \`
27			`check##NAME (g06##NAME, 6+INITVAL); \`
28			`check##NAME (g07##NAME, 7+INITVAL); \`
29			`check##NAME (g08##NAME, 8+INITVAL); \`
30			`check##NAME (g09##NAME, 9+INITVAL); \`
31			`check##NAME (g10##NAME, 10+INITVAL); \`
32			`check##NAME (g11##NAME, 11+INITVAL); \`
33			`check##NAME (g12##NAME, 12+INITVAL); \`
34			`check##NAME (g13##NAME, 13+INITVAL); \`
35			`check##NAME (g14##NAME, 14+INITVAL); \`
36			`check##NAME (g15##NAME, 15+INITVAL); \`
37			`check##NAME (g16##NAME, 16+INITVAL); \`
38			`} \`
39			`\`
40			`TYPE \`
41			`test0##NAME (void) \`
42			`{ \`
43			`return g01##NAME; \`
44			`} \`
45			`\`
46			`TYPE \`
47			`test1##NAME (TYPE x01) \`
48			`{ \`
49			`return x01; \`
50			`} \`
51			`\`
52			`TYPE \`
53			`testva##NAME (int n, ...) \`
54			`{ \`
55			`int i; \`
56			`TYPE rslt; \`
57			`va_list ap; \`
58			`va_start (ap, n); \`
59			`for (i = 0; i < n; i++) \`
60			`rslt = va_arg (ap, TYPE); \`
61			`va_end (ap); \`
62			`return rslt; \`
63			`}`
64
65			`T(ui, unsigned int, 51)`
66			`T(si, int, (-55))`
67			`T(ul, unsigned long, 61)`
68			`T(sl, long, (-66))`
69			`T(ull, unsigned long long, 71)`
70			`T(sll, long long, (-77))`
71			`T(d, double, 91.0)`
72			`T(ld, long double, 92.0)`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [compat/] [scalar-return-1_y.c] - Blame information for rev 689