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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [g++.dg/] [compat/] [decimal/] [return_y.h] - Blame information for rev 779

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

Line No. Rev Author Line
1 301 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 
extern void                                                     \
14 
init##NAME (TYPE *p, TYPE v)                                    \
15 
{                                                               \
16 
  *p = v + INITVAL;                                             \
17 
}                                                               \
18 
                                                                \
19 
extern 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 
extern TYPE                                                     \
41 
test0##NAME (void)                                              \
42 
{                                                               \
43 
  return g01##NAME;                                             \
44 
}                                                               \
45 
                                                                \
46 
extern TYPE                                                     \
47 
test1##NAME (TYPE x01)                                          \
48 
{                                                               \
49 
  return x01;                                                   \
50 
}                                                               \
51 
                                                                \
52 
extern 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(d32, dec32, (dec32)1.5)
66 
T(d64, dec64, (dec64)2.5)
67 
T(d128, dec128, (dec128)3.5)

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.