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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [fixed-point/] [allconv.c] - Blame information for rev 858

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

Line No. Rev Author Line
1 689 jeremybenn 
/* { dg-do compile } */
2 
/* { dg-options "-std=gnu99" } */
3 
 
4 
/* C99 6.3 Conversions.
5 
 
6 
   Check if all conversions are ok.  */
7 
 
8 
#define CONV(TYPE, NAME) \
9 
        float NAME ## _to_SF (TYPE a) { return a; } \
10 
        float Sat ## NAME ## _to_SF (_Sat TYPE a) { return a; } \
11 
        double NAME ## _to_DF (TYPE a) { return a; } \
12 
        double Sat ## NAME ## _to_DF (_Sat TYPE a) { return a; } \
13 
        TYPE SF_to_ ## NAME (float a) { return a; } \
14 
        _Sat TYPE SF_to_Sat ## NAME (float a) { return a; } \
15 
        TYPE DF_to_ ## NAME (double a) { return a; } \
16 
        _Sat TYPE DF_to_Sat ## NAME (double a) { return a; } \
17 
        signed char NAME ## _to_schar (TYPE a) { return a; } \
18 
        signed char Sat ## NAME ## _to_schar (_Sat TYPE a) { return a; } \
19 
        unsigned char NAME ## _to_uchar (TYPE a) { return a; } \
20 
        unsigned char Sat ## NAME ## _to_uchar (_Sat TYPE a) { return a; } \
21 
        short NAME ## _to_short (TYPE a) { return a; } \
22 
        short _Sat ## NAME ## _to_short (_Sat TYPE a) { return a; } \
23 
        unsigned short NAME ## _to_ushort (TYPE a) { return a; } \
24 
        unsigned short _Sat ## NAME ## _to_ushort (_Sat TYPE a) { return a; } \
25 
        int NAME ## _to_int (TYPE a) { return a; } \
26 
        int _Sat ## NAME ## _to_int (_Sat TYPE a) { return a; } \
27 
        unsigned int NAME ## _to_uint (TYPE a) { return a; } \
28 
        unsigned int _Sat ## NAME ## _to_uint (_Sat TYPE a) { return a; } \
29 
        long NAME ## _to_long (TYPE a) { return a; } \
30 
        unsigned long NAME ## _to_ulong (TYPE a) { return a; } \
31 
        long _Sat ## NAME ## _to_long (TYPE a) { return a; } \
32 
        unsigned long _Sat ## NAME ## _to_ulong (TYPE a) { return a; } \
33 
        long long NAME ## _to_longlong (TYPE a) { return a; } \
34 
        long long _Sat ## NAME ## _to_longlong (TYPE a) { return a; } \
35 
        unsigned long long NAME ## _to_ulonglong (TYPE a) { return a; } \
36 
        unsigned long long _Sat ## NAME ## _to_ulonglong (TYPE a) { return a; } \
37 
        TYPE schar_to_ ## NAME (signed char a) { return a; } \
38 
        _Sat TYPE schar_to_Sat ## NAME (signed char a) { return a; } \
39 
        TYPE uchar_to_ ## NAME (unsigned char a) { return a; } \
40 
        _Sat TYPE uchar_to_Sat ## NAME (unsigned char a) { return a; } \
41 
        TYPE short_to_ ## NAME (short a) { return a; } \
42 
        TYPE ushort_to_ ## NAME (unsigned short a) { return a; } \
43 
        TYPE int_to_ ## NAME (int a) { return a; } \
44 
        TYPE uint_to_ ## NAME (unsigned int a) { return a; } \
45 
        TYPE long_to_ ## NAME (long a) { return a; } \
46 
        TYPE ulong_to_ ## NAME (unsigned long a) { return a; } \
47 
        TYPE longlong_to_ ## NAME (long long a) { return a; } \
48 
        TYPE ulonglong_to_ ## NAME (unsigned long long a) { return a; } \
49 
        _Sat TYPE short_to_Sat ## NAME (short a) { return a; } \
50 
        _Sat TYPE ushort_to_Sat ## NAME (unsigned short a) { return a; } \
51 
        _Sat TYPE int_to_Sat ## NAME (int a) { return a; } \
52 
        _Sat TYPE uint_to_Sat ## NAME (unsigned int a) { return a; } \
53 
        _Sat TYPE long_to_Sat ## NAME (long a) { return a; } \
54 
        _Sat TYPE ulong_to_Sat ## NAME (unsigned long a) { return a; } \
55 
        _Sat TYPE longlong_to_Sat ## NAME (long long a) { return a; } \
56 
        _Sat TYPE ulonglong_to_Sat ## NAME (unsigned long long a) { return a; } \
57 
        TYPE SFR_to ## NAME (short _Fract a) { return a; } \
58 
        TYPE FR_to ## NAME (_Fract a) { return a; } \
59 
        TYPE LFR_to ## NAME (long _Fract a) { return a; } \
60 
        TYPE LLFR_to ## NAME (long long _Fract a) { return a; } \
61 
        TYPE USFR_to ## NAME (unsigned short _Fract a) { return a; } \
62 
        TYPE UFR_to ## NAME (unsigned _Fract a) { return a; } \
63 
        TYPE ULFR_to ## NAME (unsigned long _Fract a) { return a; } \
64 
        TYPE ULLFR_to ## NAME (unsigned long long _Fract a) { return a; } \
65 
        TYPE SAC_to ## NAME (short _Accum a) { return a; } \
66 
        TYPE AC_to ## NAME (_Accum a) { return a; } \
67 
        TYPE LAC_to ## NAME (long _Accum a) { return a; } \
68 
        TYPE LLAC_to ## NAME (long long _Accum a) { return a; } \
69 
        TYPE USAC_to ## NAME (unsigned short _Accum a) { return a; } \
70 
        TYPE UAC_to ## NAME (unsigned _Accum a) { return a; } \
71 
        TYPE ULAC_to ## NAME (unsigned long _Accum a) { return a; } \
72 
        TYPE ULLAC_to ## NAME (unsigned long long _Accum a) { return a; } \
73 
        TYPE SATSFR_to ## NAME (_Sat short _Fract a) { return a; } \
74 
        TYPE SATFR_to ## NAME (_Sat _Fract a) { return a; } \
75 
        TYPE SATLFR_to ## NAME (_Sat long _Fract a) { return a; } \
76 
        TYPE SATLLFR_to ## NAME (_Sat long long _Fract a) { return a; } \
77 
        TYPE SATUSFR_to ## NAME (_Sat unsigned short _Fract a) { return a; } \
78 
        TYPE SATUFR_to ## NAME (_Sat unsigned _Fract a) { return a; } \
79 
        TYPE SATULFR_to ## NAME (_Sat unsigned long _Fract a) { return a; } \
80 
        TYPE SATULLFR_to ## NAME (_Sat unsigned long long _Fract a) { return a; } \
81 
        TYPE SATSAC_to ## NAME (_Sat short _Accum a) { return a; } \
82 
        TYPE SATAC_to ## NAME (_Sat _Accum a) { return a; } \
83 
        TYPE SATLAC_to ## NAME (_Sat long _Accum a) { return a; } \
84 
        TYPE SATLLAC_to ## NAME (_Sat long long _Accum a) { return a; } \
85 
        TYPE SATUSAC_to ## NAME (_Sat unsigned short _Accum a) { return a; } \
86 
        TYPE SATUAC_to ## NAME (_Sat unsigned _Accum a) { return a; } \
87 
        TYPE SATULAC_to ## NAME (_Sat unsigned long _Accum a) { return a; } \
88 
        TYPE SATULLAC_to ## NAME (_Sat unsigned long long _Accum a) { return a; } \
89 
        _Sat TYPE SFR_to_SAT ## NAME (short _Fract a) { return a; } \
90 
        _Sat TYPE FR_to_SAT ## NAME (_Fract a) { return a; } \
91 
        _Sat TYPE LFR_to_SAT ## NAME (long _Fract a) { return a; } \
92 
        _Sat TYPE LLFR_to_SAT ## NAME (long long _Fract a) { return a; } \
93 
        _Sat TYPE USFR_to_SAT ## NAME (unsigned short _Fract a) { return a; } \
94 
        _Sat TYPE UFR_to_SAT ## NAME (unsigned _Fract a) { return a; } \
95 
        _Sat TYPE ULFR_to_SAT ## NAME (unsigned long _Fract a) { return a; } \
96 
        _Sat TYPE ULLFR_to_SAT ## NAME (unsigned long long _Fract a) { return a; } \
97 
        _Sat TYPE SAC_to_SAT ## NAME (short _Accum a) { return a; } \
98 
        _Sat TYPE AC_to_SAT ## NAME (_Accum a) { return a; } \
99 
        _Sat TYPE LAC_to_SAT ## NAME (long _Accum a) { return a; } \
100 
        _Sat TYPE LLAC_to_SAT ## NAME (long long _Accum a) { return a; } \
101 
        _Sat TYPE USAC_to_SAT ## NAME (unsigned short _Accum a) { return a; } \
102 
        _Sat TYPE UAC_to_SAT ## NAME (unsigned _Accum a) { return a; } \
103 
        _Sat TYPE ULAC_to_SAT ## NAME (unsigned long _Accum a) { return a; } \
104 
        _Sat TYPE ULLAC_to_SAT ## NAME (unsigned long long _Accum a) { return a; } \
105 
        _Sat TYPE SATSFR_to_SAT ## NAME (_Sat short _Fract a) { return a; } \
106 
        _Sat TYPE SATFR_to_SAT ## NAME (_Sat _Fract a) { return a; } \
107 
        _Sat TYPE SATLFR_to_SAT ## NAME (_Sat long _Fract a) { return a; } \
108 
        _Sat TYPE SATLLFR_to_SAT ## NAME (_Sat long long _Fract a) { return a; } \
109 
        _Sat TYPE SATUSFR_to_SAT ## NAME (_Sat unsigned short _Fract a) { return a; } \
110 
        _Sat TYPE SATUFR_to_SAT ## NAME (_Sat unsigned _Fract a) { return a; } \
111 
        _Sat TYPE SATULFR_to_SAT ## NAME (_Sat unsigned long _Fract a) { return a; } \
112 
        _Sat TYPE SATULLFR_to_SAT ## NAME (_Sat unsigned long long _Fract a) { return a; } \
113 
        _Sat TYPE SATSAC_to_SAT ## NAME (_Sat short _Accum a) { return a; } \
114 
        _Sat TYPE SATAC_to_SAT ## NAME (_Sat _Accum a) { return a; } \
115 
        _Sat TYPE SATLAC_to_SAT ## NAME (_Sat long _Accum a) { return a; } \
116 
        _Sat TYPE SATLLAC_to_SAT ## NAME (_Sat long long _Accum a) { return a; } \
117 
        _Sat TYPE SATUSAC_to_SAT ## NAME (_Sat unsigned short _Accum a) { return a; } \
118 
        _Sat TYPE SATUAC_to_SAT ## NAME (_Sat unsigned _Accum a) { return a; } \
119 
        _Sat TYPE SATULAC_to_SAT ## NAME (_Sat unsigned long _Accum a) { return a; } \
120 
        _Sat TYPE SATULLAC_to_SAT ## NAME (_Sat unsigned long long _Accum a) { return a; } \
121 
        _Complex int NAME ## _to_CI (TYPE a) { return a; } \
122 
        _Complex unsigned int NAME ## _to_CUI (TYPE a) { return a; } \
123 
        _Complex float NAME ## _to_CF (TYPE a) { return a; } \
124 
        _Complex double NAME ## _to_CD (TYPE a) { return a; } \
125 
        TYPE CI_to_ ## NAME (_Complex int a) { return a; } \
126 
        TYPE CUI_to_ ## NAME (_Complex unsigned int a) { return a; } \
127 
        TYPE CF_to_ ## NAME (_Complex float a) { return a; } \
128 
        TYPE CD_to_ ## NAME (_Complex double a) { return a; } \
129 
        _Sat TYPE CI_to_SAT ## NAME (_Complex int a) { return a; } \
130 
        _Sat TYPE CUI_to_SAT ## NAME (_Complex unsigned int a) { return a; } \
131 
        _Sat TYPE CF_to_SAT ## NAME (_Complex float a) { return a; } \
132 
        _Sat TYPE CD_to_SAT ## NAME (_Complex double a) { return a; }
133 
 
134 
CONV(short _Fract, sf);
135 
CONV(_Fract, f);
136 
CONV(long _Fract, lf);
137 
CONV(long long _Fract, llf);
138 
CONV(unsigned short _Fract, usf);
139 
CONV(unsigned _Fract, uf);
140 
CONV(unsigned long _Fract, ulf);
141 
CONV(unsigned long long _Fract, ullf);
142 
 
143 
CONV(short _Accum, sk);
144 
CONV(_Accum, k);
145 
CONV(long _Accum, lk);
146 
CONV(long long _Accum, llk);
147 
CONV(unsigned short _Accum, usk);
148 
CONV(unsigned _Accum, uk);
149 
CONV(unsigned long _Accum, ulk);
150 
CONV(unsigned long long _Accum, ullk);

powered by: WebSVN 2.1.0

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