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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [libiberty/] [copysign.c] - Blame information for rev 26

Details | Compare with Previous | View Log


#include <ansidecl.h>
 
#ifdef __IEEE_BIG_ENDIAN
 
typedef union
{
  double value;
  struct
  {
    unsigned int sign : 1;
    unsigned int exponent: 11;
    unsigned int fraction0:4;
    unsigned int fraction1:16;
    unsigned int fraction2:16;
    unsigned int fraction3:16;
 
  } number;
  struct
  {
    unsigned int sign : 1;
    unsigned int exponent: 11;
    unsigned int quiet:1;
    unsigned int function0:3;
    unsigned int function1:16;
    unsigned int function2:16;
    unsigned int function3:16;
  } nan;
  struct
  {
    unsigned long msw;
    unsigned long lsw;
  } parts;
    long aslong[2];
} __ieee_double_shape_type;
 
#endif
 
#ifdef __IEEE_LITTLE_ENDIAN
 
typedef union
{
  double value;
  struct
  {
#ifdef __SMALL_BITFIELDS
    unsigned int fraction3:16;
    unsigned int fraction2:16;
    unsigned int fraction1:16;
    unsigned int fraction0: 4;
#else
    unsigned int fraction1:32;
    unsigned int fraction0:20;
#endif
    unsigned int exponent :11;
    unsigned int sign     : 1;
  } number;
  struct
  {
#ifdef __SMALL_BITFIELDS
    unsigned int function3:16;
    unsigned int function2:16;
    unsigned int function1:16;
    unsigned int function0:3;
#else
    unsigned int function1:32;
    unsigned int function0:19;
#endif
    unsigned int quiet:1;
    unsigned int exponent: 11;
    unsigned int sign : 1;
  } nan;
  struct
  {
    unsigned long lsw;
    unsigned long msw;
  } parts;
 
  long aslong[2];
 
} __ieee_double_shape_type;
 
#endif
 
#ifdef __IEEE_BIG_ENDIAN
typedef union
{
  float value;
  struct
  {
    unsigned int sign : 1;
    unsigned int exponent: 8;
    unsigned int fraction0: 7;
    unsigned int fraction1: 16;
  } number;
  struct
  {
    unsigned int sign:1;
    unsigned int exponent:8;
    unsigned int quiet:1;
    unsigned int function0:6;
    unsigned int function1:16;
  } nan;
  long p1;
 
} __ieee_float_shape_type;
#endif
 
#ifdef __IEEE_LITTLE_ENDIAN
typedef union
{
  float value;
  struct
  {
    unsigned int fraction0: 7;
    unsigned int fraction1: 16;
    unsigned int exponent: 8;
    unsigned int sign : 1;
  } number;
  struct
  {
    unsigned int function1:16;
    unsigned int function0:6;
    unsigned int quiet:1;
    unsigned int exponent:8;
    unsigned int sign:1;
  } nan;
  long p1;
 
} __ieee_float_shape_type;
#endif
 
#if defined(__IEEE_BIG_ENDIAN) || defined(__IEEE_LITTLE_ENDIAN)
 
double
copysign (double x, double y)
{
  __ieee_double_shape_type a,b;
  b.value = y;
  a.value = x;
  a.number.sign =b.number.sign;
  return a.value;
}
 
#else
 
double
copysign (double x, double y)
{
  if ((x < 0 && y > 0) || (x > 0 && y < 0))
    return -x;
  return x;
}
 
#endif

Line No.	Rev	Author	Line
1	26	jlechner	`#include <ansidecl.h>`
2
3			`#ifdef __IEEE_BIG_ENDIAN`
4
5			`typedef union`
6			`{`
7			`double value;`
8			`struct`
9			`{`
10			`unsigned int sign : 1;`
11			`unsigned int exponent: 11;`
12			`unsigned int fraction0:4;`
13			`unsigned int fraction1:16;`
14			`unsigned int fraction2:16;`
15			`unsigned int fraction3:16;`
16
17			`} number;`
18			`struct`
19			`{`
20			`unsigned int sign : 1;`
21			`unsigned int exponent: 11;`
22			`unsigned int quiet:1;`
23			`unsigned int function0:3;`
24			`unsigned int function1:16;`
25			`unsigned int function2:16;`
26			`unsigned int function3:16;`
27			`} nan;`
28			`struct`
29			`{`
30			`unsigned long msw;`
31			`unsigned long lsw;`
32			`} parts;`
33			`long aslong[2];`
34			`} __ieee_double_shape_type;`
35
36			`#endif`
37
38			`#ifdef __IEEE_LITTLE_ENDIAN`
39
40			`typedef union`
41			`{`
42			`double value;`
43			`struct`
44			`{`
45			`#ifdef __SMALL_BITFIELDS`
46			`unsigned int fraction3:16;`
47			`unsigned int fraction2:16;`
48			`unsigned int fraction1:16;`
49			`unsigned int fraction0: 4;`
50			`#else`
51			`unsigned int fraction1:32;`
52			`unsigned int fraction0:20;`
53			`#endif`
54			`unsigned int exponent :11;`
55			`unsigned int sign : 1;`
56			`} number;`
57			`struct`
58			`{`
59			`#ifdef __SMALL_BITFIELDS`
60			`unsigned int function3:16;`
61			`unsigned int function2:16;`
62			`unsigned int function1:16;`
63			`unsigned int function0:3;`
64			`#else`
65			`unsigned int function1:32;`
66			`unsigned int function0:19;`
67			`#endif`
68			`unsigned int quiet:1;`
69			`unsigned int exponent: 11;`
70			`unsigned int sign : 1;`
71			`} nan;`
72			`struct`
73			`{`
74			`unsigned long lsw;`
75			`unsigned long msw;`
76			`} parts;`
77
78			`long aslong[2];`
79
80			`} __ieee_double_shape_type;`
81
82			`#endif`
83
84			`#ifdef __IEEE_BIG_ENDIAN`
85			`typedef union`
86			`{`
87			`float value;`
88			`struct`
89			`{`
90			`unsigned int sign : 1;`
91			`unsigned int exponent: 8;`
92			`unsigned int fraction0: 7;`
93			`unsigned int fraction1: 16;`
94			`} number;`
95			`struct`
96			`{`
97			`unsigned int sign:1;`
98			`unsigned int exponent:8;`
99			`unsigned int quiet:1;`
100			`unsigned int function0:6;`
101			`unsigned int function1:16;`
102			`} nan;`
103			`long p1;`
104
105			`} __ieee_float_shape_type;`
106			`#endif`
107
108			`#ifdef __IEEE_LITTLE_ENDIAN`
109			`typedef union`
110			`{`
111			`float value;`
112			`struct`
113			`{`
114			`unsigned int fraction0: 7;`
115			`unsigned int fraction1: 16;`
116			`unsigned int exponent: 8;`
117			`unsigned int sign : 1;`
118			`} number;`
119			`struct`
120			`{`
121			`unsigned int function1:16;`
122			`unsigned int function0:6;`
123			`unsigned int quiet:1;`
124			`unsigned int exponent:8;`
125			`unsigned int sign:1;`
126			`} nan;`
127			`long p1;`
128
129			`} __ieee_float_shape_type;`
130			`#endif`
131
132			`#if defined(__IEEE_BIG_ENDIAN) \|\| defined(__IEEE_LITTLE_ENDIAN)`
133
134			`double`
135			`copysign (double x, double y)`
136			`{`
137			`__ieee_double_shape_type a,b;`
138			`b.value = y;`
139			`a.value = x;`
140			`a.number.sign =b.number.sign;`
141			`return a.value;`
142			`}`
143
144			`#else`
145
146			`double`
147			`copysign (double x, double y)`
148			`{`
149			`if ((x < 0 && y > 0) \|\| (x > 0 && y < 0))`
150			`return -x;`
151			`return x;`
152			`}`
153
154			`#endif`

Browse

Tools

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [libiberty/] [copysign.c] - Blame information for rev 26