hppa/spmath/float.h

29 #define	Sall(object) (object)
30 #define	Ssign(object) Bitfield_extract( 0,  1,object)
31 #define	Ssignedsign(object) Bitfield_signed_extract( 0,  1,object)
32 #define	Sexponent(object) Bitfield_extract( 1,  8,object)
33 #define	Smantissa(object) Bitfield_mask( 9, 23,object)
34 #define	Ssignaling(object) Bitfield_extract( 9,  1,object)
35 #define	Ssignalingnan(object) Bitfield_extract( 1,  9,object)
36 #define	Shigh2mantissa(object) Bitfield_extract( 9,  2,object)
37 #define	Sexponentmantissa(object) Bitfield_mask( 1, 31,object)
38 #define	Ssignexponent(object) Bitfield_extract( 0,  9,object)
39 #define	Shidden(object) Bitfield_extract( 8,  1,object)
40 #define	Shiddenoverflow(object) Bitfield_extract( 7,  1,object)
41 #define	Shiddenhigh7mantissa(object) Bitfield_extract( 8,  8,object)
42 #define	Shiddenhigh3mantissa(object) Bitfield_extract( 8,  4,object)
43 #define	Slow(object) Bitfield_mask( 31,  1,object)
44 #define	Slow4(object) Bitfield_mask( 28,  4,object)
45 #define	Slow31(object) Bitfield_mask( 1, 31,object)
46 #define	Shigh31(object) Bitfield_extract( 0, 31,object)
47 #define	Ssignedhigh31(object) Bitfield_signed_extract( 0, 31,object)
48 #define	Shigh4(object) Bitfield_extract( 0,  4,object)
49 #define	Sbit24(object) Bitfield_extract( 24,  1,object)
50 #define	Sbit28(object) Bitfield_extract( 28,  1,object)
51 #define	Sbit29(object) Bitfield_extract( 29,  1,object)
52 #define	Sbit30(object) Bitfield_extract( 30,  1,object)
53 #define	Sbit31(object) Bitfield_mask( 31,  1,object)
55 #define Deposit_ssign(object,value) Bitfield_deposit(value,0,1,object)
56 #define Deposit_sexponent(object,value) Bitfield_deposit(value,1,8,object)
57 #define Deposit_smantissa(object,value) Bitfield_deposit(value,9,23,object)
58 #define Deposit_shigh2mantissa(object,value) Bitfield_deposit(value,9,2,object)
59 #define Deposit_sexponentmantissa(object,value) \
60     Bitfield_deposit(value,1,31,object)
61 #define Deposit_ssignexponent(object,value) Bitfield_deposit(value,0,9,object)
62 #define Deposit_slow(object,value) Bitfield_deposit(value,31,1,object)
63 #define Deposit_shigh4(object,value) Bitfield_deposit(value,0,4,object)
65 #define	Is_ssign(object) Bitfield_mask( 0,  1,object)
66 #define	Is_ssignaling(object) Bitfield_mask( 9,  1,object)
67 #define	Is_shidden(object) Bitfield_mask( 8,  1,object)
68 #define	Is_shiddenoverflow(object) Bitfield_mask( 7,  1,object)
69 #define	Is_slow(object) Bitfield_mask( 31,  1,object)
70 #define	Is_sbit24(object) Bitfield_mask( 24,  1,object)
71 #define	Is_sbit28(object) Bitfield_mask( 28,  1,object)
72 #define	Is_sbit29(object) Bitfield_mask( 29,  1,object)
73 #define	Is_sbit30(object) Bitfield_mask( 30,  1,object)
74 #define	Is_sbit31(object) Bitfield_mask( 31,  1,object)
86 #define Dallp1(object) (object)
87 #define Dsign(object) Bitfield_extract( 0,  1,object)
88 #define Dsignedsign(object) Bitfield_signed_extract( 0,  1,object)
89 #define Dexponent(object) Bitfield_extract( 1,  11,object)
90 #define Dmantissap1(object) Bitfield_mask( 12, 20,object)
91 #define Dsignaling(object) Bitfield_extract( 12,  1,object)
92 #define Dsignalingnan(object) Bitfield_extract( 1,  12,object)
93 #define Dhigh2mantissa(object) Bitfield_extract( 12,  2,object)
94 #define Dexponentmantissap1(object) Bitfield_mask( 1, 31,object)
95 #define Dsignexponent(object) Bitfield_extract( 0, 12,object)
96 #define Dhidden(object) Bitfield_extract( 11,  1,object)
97 #define Dhiddenoverflow(object) Bitfield_extract( 10,  1,object)
98 #define Dhiddenhigh7mantissa(object) Bitfield_extract( 11,  8,object)
99 #define Dhiddenhigh3mantissa(object) Bitfield_extract( 11,  4,object)
100 #define Dlowp1(object) Bitfield_mask( 31,  1,object)
101 #define Dlow31p1(object) Bitfield_mask( 1, 31,object)
102 #define Dhighp1(object) Bitfield_extract( 0,  1,object)
103 #define Dhigh4p1(object) Bitfield_extract( 0,  4,object)
104 #define Dhigh31p1(object) Bitfield_extract( 0, 31,object)
105 #define Dsignedhigh31p1(object) Bitfield_signed_extract( 0, 31,object)
106 #define Dbit3p1(object) Bitfield_extract( 3,  1,object)
108 #define Deposit_dsign(object,value) Bitfield_deposit(value,0,1,object)
109 #define Deposit_dexponent(object,value) Bitfield_deposit(value,1,11,object)
110 #define Deposit_dmantissap1(object,value) Bitfield_deposit(value,12,20,object)
111 #define Deposit_dhigh2mantissa(object,value) Bitfield_deposit(value,12,2,object)
112 #define Deposit_dexponentmantissap1(object,value) \
113     Bitfield_deposit(value,1,31,object)
114 #define Deposit_dsignexponent(object,value) Bitfield_deposit(value,0,12,object)
115 #define Deposit_dlowp1(object,value) Bitfield_deposit(value,31,1,object)
116 #define Deposit_dhigh4p1(object,value) Bitfield_deposit(value,0,4,object)
118 #define Is_dsign(object) Bitfield_mask( 0,  1,object)
119 #define Is_dsignaling(object) Bitfield_mask( 12,  1,object)
120 #define Is_dhidden(object) Bitfield_mask( 11,  1,object)
121 #define Is_dhiddenoverflow(object) Bitfield_mask( 10,  1,object)
122 #define Is_dlowp1(object) Bitfield_mask( 31,  1,object)
123 #define Is_dhighp1(object) Bitfield_mask( 0,  1,object)
124 #define Is_dbit3p1(object) Bitfield_mask( 3,  1,object)
126 #define Dallp2(object) (object)
127 #define Dmantissap2(object) (object)
128 #define Dlowp2(object) Bitfield_mask( 31,  1,object)
129 #define Dlow4p2(object) Bitfield_mask( 28,  4,object)
130 #define Dlow31p2(object) Bitfield_mask( 1, 31,object)
131 #define Dhighp2(object) Bitfield_extract( 0,  1,object)
132 #define Dhigh31p2(object) Bitfield_extract( 0, 31,object)
133 #define Dbit2p2(object) Bitfield_extract( 2,  1,object)
134 #define Dbit3p2(object) Bitfield_extract( 3,  1,object)
135 #define Dbit21p2(object) Bitfield_extract( 21,  1,object)
136 #define Dbit28p2(object) Bitfield_extract( 28,  1,object)
137 #define Dbit29p2(object) Bitfield_extract( 29,  1,object)
138 #define Dbit30p2(object) Bitfield_extract( 30,  1,object)
139 #define Dbit31p2(object) Bitfield_mask( 31,  1,object)
141 #define Deposit_dlowp2(object,value) Bitfield_deposit(value,31,1,object)
143 #define Is_dlowp2(object) Bitfield_mask( 31,  1,object)
144 #define Is_dhighp2(object) Bitfield_mask( 0,  1,object)
145 #define Is_dbit2p2(object) Bitfield_mask( 2,  1,object)
146 #define Is_dbit3p2(object) Bitfield_mask( 3,  1,object)
147 #define Is_dbit21p2(object) Bitfield_mask( 21,  1,object)
148 #define Is_dbit28p2(object) Bitfield_mask( 28,  1,object)
149 #define Is_dbit29p2(object) Bitfield_mask( 29,  1,object)
150 #define Is_dbit30p2(object) Bitfield_mask( 30,  1,object)
151 #define Is_dbit31p2(object) Bitfield_mask( 31,  1,object)
232 #define Extall(object) (object)
233 #define Extsign(object) Bitfield_extract( 0,  1,object)
234 #define Exthigh31(object) Bitfield_extract( 0, 31,object)
235 #define Extlow31(object) Bitfield_extract( 1, 31,object)
236 #define Extlow(object) Bitfield_extract( 31,  1,object)
344 #define Cbit(object) Bitfield_extract( 5, 1,object)
345 #define Tbit(object) Bitfield_extract( 25, 1,object)
346 #define Roundingmode(object) Bitfield_extract( 21, 2,object)
347 #define Invalidtrap(object) Bitfield_extract( 27, 1,object)
348 #define Divisionbyzerotrap(object) Bitfield_extract( 28, 1,object)
349 #define Overflowtrap(object) Bitfield_extract( 29, 1,object)
350 #define Underflowtrap(object) Bitfield_extract( 30, 1,object)
351 #define Inexacttrap(object) Bitfield_extract( 31, 1,object)
352 #define Invalidflag(object) Bitfield_extract( 0, 1,object)
353 #define Divisionbyzeroflag(object) Bitfield_extract( 1, 1,object)
354 #define Overflowflag(object) Bitfield_extract( 2, 1,object)
355 #define Underflowflag(object) Bitfield_extract( 3, 1,object)
356 #define Inexactflag(object) Bitfield_extract( 4, 1,object)
357 #define Allflags(object) Bitfield_extract( 0, 5,object)
383 #define Allexception(object) (object)
384 #define Exceptiontype(object) Bitfield_extract( 0, 6,object)
385 #define Instructionfield(object) Bitfield_mask( 6,26,object)
386 #define Parmfield(object) Bitfield_extract( 23, 3,object)
387 #define Rabit(object) Bitfield_extract( 24, 1,object)
388 #define Ibit(object) Bitfield_extract( 25, 1,object)
390 #define Set_exceptiontype(object,value) Bitfield_deposit(value, 0, 6,object)
391 #define Set_parmfield(object,value) Bitfield_deposit(value, 23, 3,object)
392 #define Set_exceptiontype_and_instr_field(exception,instruction,object) \
393     object = ((exception) << 26) | (instruction)
402 #define Allexception(object) (object)
403 #define Greaterthanbit(object) Bitfield_extract( 27, 1,object)
404 #define Lessthanbit(object) Bitfield_extract( 28, 1,object)
405 #define Equalbit(object) Bitfield_extract( 29, 1,object)
406 #define Unorderedbit(object) Bitfield_extract( 30, 1,object)
407 #define Exceptionbit(object) Bitfield_extract( 31, 1,object)