parisc/math-emu/float.h

48 #define	Sall(object) (object)
49 #define	Ssign(object) Bitfield_extract( 0,  1,object)
50 #define	Ssignedsign(object) Bitfield_signed_extract( 0,  1,object)
51 #define	Sexponent(object) Bitfield_extract( 1,  8,object)
52 #define	Smantissa(object) Bitfield_mask( 9, 23,object)
53 #define	Ssignaling(object) Bitfield_extract( 9,  1,object)
54 #define	Ssignalingnan(object) Bitfield_extract( 1,  9,object)
55 #define	Shigh2mantissa(object) Bitfield_extract( 9,  2,object)
56 #define	Sexponentmantissa(object) Bitfield_mask( 1, 31,object)
57 #define	Ssignexponent(object) Bitfield_extract( 0,  9,object)
58 #define	Shidden(object) Bitfield_extract( 8,  1,object)
59 #define	Shiddenoverflow(object) Bitfield_extract( 7,  1,object)
60 #define	Shiddenhigh7mantissa(object) Bitfield_extract( 8,  8,object)
61 #define	Shiddenhigh3mantissa(object) Bitfield_extract( 8,  4,object)
62 #define	Slow(object) Bitfield_mask( 31,  1,object)
63 #define	Slow4(object) Bitfield_mask( 28,  4,object)
64 #define	Slow31(object) Bitfield_mask( 1, 31,object)
65 #define	Shigh31(object) Bitfield_extract( 0, 31,object)
66 #define	Ssignedhigh31(object) Bitfield_signed_extract( 0, 31,object)
67 #define	Shigh4(object) Bitfield_extract( 0,  4,object)
68 #define	Sbit24(object) Bitfield_extract( 24,  1,object)
69 #define	Sbit28(object) Bitfield_extract( 28,  1,object)
70 #define	Sbit29(object) Bitfield_extract( 29,  1,object)
71 #define	Sbit30(object) Bitfield_extract( 30,  1,object)
72 #define	Sbit31(object) Bitfield_mask( 31,  1,object)
74 #define Deposit_ssign(object,value) Bitfield_deposit(value,0,1,object)
75 #define Deposit_sexponent(object,value) Bitfield_deposit(value,1,8,object)
76 #define Deposit_smantissa(object,value) Bitfield_deposit(value,9,23,object)
77 #define Deposit_shigh2mantissa(object,value) Bitfield_deposit(value,9,2,object)
78 #define Deposit_sexponentmantissa(object,value) \
79     Bitfield_deposit(value,1,31,object)
80 #define Deposit_ssignexponent(object,value) Bitfield_deposit(value,0,9,object)
81 #define Deposit_slow(object,value) Bitfield_deposit(value,31,1,object)
82 #define Deposit_shigh4(object,value) Bitfield_deposit(value,0,4,object)
84 #define	Is_ssign(object) Bitfield_mask( 0,  1,object)
85 #define	Is_ssignaling(object) Bitfield_mask( 9,  1,object)
86 #define	Is_shidden(object) Bitfield_mask( 8,  1,object)
87 #define	Is_shiddenoverflow(object) Bitfield_mask( 7,  1,object)
88 #define	Is_slow(object) Bitfield_mask( 31,  1,object)
89 #define	Is_sbit24(object) Bitfield_mask( 24,  1,object)
90 #define	Is_sbit28(object) Bitfield_mask( 28,  1,object)
91 #define	Is_sbit29(object) Bitfield_mask( 29,  1,object)
92 #define	Is_sbit30(object) Bitfield_mask( 30,  1,object)
93 #define	Is_sbit31(object) Bitfield_mask( 31,  1,object)
105 #define Dallp1(object) (object)
106 #define Dsign(object) Bitfield_extract( 0,  1,object)
107 #define Dsignedsign(object) Bitfield_signed_extract( 0,  1,object)
108 #define Dexponent(object) Bitfield_extract( 1,  11,object)
109 #define Dmantissap1(object) Bitfield_mask( 12, 20,object)
110 #define Dsignaling(object) Bitfield_extract( 12,  1,object)
111 #define Dsignalingnan(object) Bitfield_extract( 1,  12,object)
112 #define Dhigh2mantissa(object) Bitfield_extract( 12,  2,object)
113 #define Dexponentmantissap1(object) Bitfield_mask( 1, 31,object)
114 #define Dsignexponent(object) Bitfield_extract( 0, 12,object)
115 #define Dhidden(object) Bitfield_extract( 11,  1,object)
116 #define Dhiddenoverflow(object) Bitfield_extract( 10,  1,object)
117 #define Dhiddenhigh7mantissa(object) Bitfield_extract( 11,  8,object)
118 #define Dhiddenhigh3mantissa(object) Bitfield_extract( 11,  4,object)
119 #define Dlowp1(object) Bitfield_mask( 31,  1,object)
120 #define Dlow31p1(object) Bitfield_mask( 1, 31,object)
121 #define Dhighp1(object) Bitfield_extract( 0,  1,object)
122 #define Dhigh4p1(object) Bitfield_extract( 0,  4,object)
123 #define Dhigh31p1(object) Bitfield_extract( 0, 31,object)
124 #define Dsignedhigh31p1(object) Bitfield_signed_extract( 0, 31,object)
125 #define Dbit3p1(object) Bitfield_extract( 3,  1,object)
127 #define Deposit_dsign(object,value) Bitfield_deposit(value,0,1,object)
128 #define Deposit_dexponent(object,value) Bitfield_deposit(value,1,11,object)
129 #define Deposit_dmantissap1(object,value) Bitfield_deposit(value,12,20,object)
130 #define Deposit_dhigh2mantissa(object,value) Bitfield_deposit(value,12,2,object)
131 #define Deposit_dexponentmantissap1(object,value) \
132     Bitfield_deposit(value,1,31,object)
133 #define Deposit_dsignexponent(object,value) Bitfield_deposit(value,0,12,object)
134 #define Deposit_dlowp1(object,value) Bitfield_deposit(value,31,1,object)
135 #define Deposit_dhigh4p1(object,value) Bitfield_deposit(value,0,4,object)
137 #define Is_dsign(object) Bitfield_mask( 0,  1,object)
138 #define Is_dsignaling(object) Bitfield_mask( 12,  1,object)
139 #define Is_dhidden(object) Bitfield_mask( 11,  1,object)
140 #define Is_dhiddenoverflow(object) Bitfield_mask( 10,  1,object)
141 #define Is_dlowp1(object) Bitfield_mask( 31,  1,object)
142 #define Is_dhighp1(object) Bitfield_mask( 0,  1,object)
143 #define Is_dbit3p1(object) Bitfield_mask( 3,  1,object)
145 #define Dallp2(object) (object)
146 #define Dmantissap2(object) (object)
147 #define Dlowp2(object) Bitfield_mask( 31,  1,object)
148 #define Dlow4p2(object) Bitfield_mask( 28,  4,object)
149 #define Dlow31p2(object) Bitfield_mask( 1, 31,object)
150 #define Dhighp2(object) Bitfield_extract( 0,  1,object)
151 #define Dhigh31p2(object) Bitfield_extract( 0, 31,object)
152 #define Dbit2p2(object) Bitfield_extract( 2,  1,object)
153 #define Dbit3p2(object) Bitfield_extract( 3,  1,object)
154 #define Dbit21p2(object) Bitfield_extract( 21,  1,object)
155 #define Dbit28p2(object) Bitfield_extract( 28,  1,object)
156 #define Dbit29p2(object) Bitfield_extract( 29,  1,object)
157 #define Dbit30p2(object) Bitfield_extract( 30,  1,object)
158 #define Dbit31p2(object) Bitfield_mask( 31,  1,object)
160 #define Deposit_dlowp2(object,value) Bitfield_deposit(value,31,1,object)
162 #define Is_dlowp2(object) Bitfield_mask( 31,  1,object)
163 #define Is_dhighp2(object) Bitfield_mask( 0,  1,object)
164 #define Is_dbit2p2(object) Bitfield_mask( 2,  1,object)
165 #define Is_dbit3p2(object) Bitfield_mask( 3,  1,object)
166 #define Is_dbit21p2(object) Bitfield_mask( 21,  1,object)
167 #define Is_dbit28p2(object) Bitfield_mask( 28,  1,object)
168 #define Is_dbit29p2(object) Bitfield_mask( 29,  1,object)
169 #define Is_dbit30p2(object) Bitfield_mask( 30,  1,object)
170 #define Is_dbit31p2(object) Bitfield_mask( 31,  1,object)
251 #define Extall(object) (object)
252 #define Extsign(object) Bitfield_extract( 0,  1,object)
253 #define Exthigh31(object) Bitfield_extract( 0, 31,object)
254 #define Extlow31(object) Bitfield_extract( 1, 31,object)
255 #define Extlow(object) Bitfield_extract( 31,  1,object)
261 #define Sextallp1(object) (object)
262 #define Sextallp2(object) (object)
263 #define Sextlowp1(object) Bitfield_extract( 31,  1,object)
264 #define Sexthighp2(object) Bitfield_extract( 0,  1,object)
265 #define Sextlow31p2(object) Bitfield_extract( 1, 31,object)
266 #define Sexthiddenoverflow(object) Bitfield_extract( 4,  1,object)
267 #define Is_sexthiddenoverflow(object) Bitfield_mask( 4,  1,object)
273 #define Dextallp1(object) (object)
274 #define Dextallp2(object) (object)
275 #define Dextallp3(object) (object)
276 #define Dextallp4(object) (object)
277 #define Dextlowp2(object) Bitfield_extract( 31,  1,object)
278 #define Dexthighp3(object) Bitfield_extract( 0,  1,object)
279 #define Dextlow31p3(object) Bitfield_extract( 1, 31,object)
280 #define Dexthiddenoverflow(object) Bitfield_extract( 10,  1,object)
281 #define Is_dexthiddenoverflow(object) Bitfield_mask( 10,  1,object)
282 #define Deposit_dextlowp4(object,value) Bitfield_deposit(value,31,1,object)
410 #define Cbit(object) Bitfield_extract( 5, 1,object)
411 #define Tbit(object) Bitfield_extract( 25, 1,object)
412 #define Roundingmode(object) Bitfield_extract( 21, 2,object)
413 #define Invalidtrap(object) Bitfield_extract( 27, 1,object)
414 #define Divisionbyzerotrap(object) Bitfield_extract( 28, 1,object)
415 #define Overflowtrap(object) Bitfield_extract( 29, 1,object)
416 #define Underflowtrap(object) Bitfield_extract( 30, 1,object)
417 #define Inexacttrap(object) Bitfield_extract( 31, 1,object)
418 #define Invalidflag(object) Bitfield_extract( 0, 1,object)
419 #define Divisionbyzeroflag(object) Bitfield_extract( 1, 1,object)
420 #define Overflowflag(object) Bitfield_extract( 2, 1,object)
421 #define Underflowflag(object) Bitfield_extract( 3, 1,object)
422 #define Inexactflag(object) Bitfield_extract( 4, 1,object)
423 #define Allflags(object) Bitfield_extract( 0, 5,object)
455 #define Allexception(object) (object)
456 #define Exceptiontype(object) Bitfield_extract( 0, 6,object)
457 #define Instructionfield(object) Bitfield_mask( 6,26,object)
458 #define Parmfield(object) Bitfield_extract( 23, 3,object)
459 #define Rabit(object) Bitfield_extract( 24, 1,object)
460 #define Ibit(object) Bitfield_extract( 25, 1,object)
462 #define Set_exceptiontype(object,value) Bitfield_deposit(value, 0, 6,object)
463 #define Set_parmfield(object,value) Bitfield_deposit(value, 23, 3,object)
464 #define Set_exceptiontype_and_instr_field(exception,instruction,object) \
465     object = exception << 26 | instruction
474 #define Greaterthanbit(object) Bitfield_extract( 27, 1,object)
475 #define Lessthanbit(object) Bitfield_extract( 28, 1,object)
476 #define Equalbit(object) Bitfield_extract( 29, 1,object)
477 #define Unorderedbit(object) Bitfield_extract( 30, 1,object)
478 #define Exceptionbit(object) Bitfield_extract( 31, 1,object)