48 #define	Sall(object) (object)  argument
49 #define	Ssign(object) Bitfield_extract( 0,  1,object)  argument
50 #define	Ssignedsign(object) Bitfield_signed_extract( 0,  1,object)  argument
51 #define	Sexponent(object) Bitfield_extract( 1,  8,object)  argument
52 #define	Smantissa(object) Bitfield_mask( 9, 23,object)  argument
53 #define	Ssignaling(object) Bitfield_extract( 9,  1,object)  argument
54 #define	Ssignalingnan(object) Bitfield_extract( 1,  9,object)  argument
55 #define	Shigh2mantissa(object) Bitfield_extract( 9,  2,object)  argument
56 #define	Sexponentmantissa(object) Bitfield_mask( 1, 31,object)  argument
57 #define	Ssignexponent(object) Bitfield_extract( 0,  9,object)  argument
58 #define	Shidden(object) Bitfield_extract( 8,  1,object)  argument
59 #define	Shiddenoverflow(object) Bitfield_extract( 7,  1,object)  argument
60 #define	Shiddenhigh7mantissa(object) Bitfield_extract( 8,  8,object)  argument
61 #define	Shiddenhigh3mantissa(object) Bitfield_extract( 8,  4,object)  argument
62 #define	Slow(object) Bitfield_mask( 31,  1,object)  argument
63 #define	Slow4(object) Bitfield_mask( 28,  4,object)  argument
64 #define	Slow31(object) Bitfield_mask( 1, 31,object)  argument
65 #define	Shigh31(object) Bitfield_extract( 0, 31,object)  argument
66 #define	Ssignedhigh31(object) Bitfield_signed_extract( 0, 31,object)  argument
67 #define	Shigh4(object) Bitfield_extract( 0,  4,object)  argument
68 #define	Sbit24(object) Bitfield_extract( 24,  1,object)  argument
69 #define	Sbit28(object) Bitfield_extract( 28,  1,object)  argument
70 #define	Sbit29(object) Bitfield_extract( 29,  1,object)  argument
71 #define	Sbit30(object) Bitfield_extract( 30,  1,object)  argument
72 #define	Sbit31(object) Bitfield_mask( 31,  1,object)  argument
74 #define Deposit_ssign(object,value) Bitfield_deposit(value,0,1,object)  argument
75 #define Deposit_sexponent(object,value) Bitfield_deposit(value,1,8,object)  argument
76 #define Deposit_smantissa(object,value) Bitfield_deposit(value,9,23,object)  argument
77 #define Deposit_shigh2mantissa(object,value) Bitfield_deposit(value,9,2,object)  argument
78 #define Deposit_sexponentmantissa(object,value) \  argument
79     Bitfield_deposit(value,1,31,object)
80 #define Deposit_ssignexponent(object,value) Bitfield_deposit(value,0,9,object)  argument
81 #define Deposit_slow(object,value) Bitfield_deposit(value,31,1,object)  argument
82 #define Deposit_shigh4(object,value) Bitfield_deposit(value,0,4,object)  argument
84 #define	Is_ssign(object) Bitfield_mask( 0,  1,object)  argument
85 #define	Is_ssignaling(object) Bitfield_mask( 9,  1,object)  argument
86 #define	Is_shidden(object) Bitfield_mask( 8,  1,object)  argument
87 #define	Is_shiddenoverflow(object) Bitfield_mask( 7,  1,object)  argument
88 #define	Is_slow(object) Bitfield_mask( 31,  1,object)  argument
89 #define	Is_sbit24(object) Bitfield_mask( 24,  1,object)  argument
90 #define	Is_sbit28(object) Bitfield_mask( 28,  1,object)  argument
91 #define	Is_sbit29(object) Bitfield_mask( 29,  1,object)  argument
92 #define	Is_sbit30(object) Bitfield_mask( 30,  1,object)  argument
93 #define	Is_sbit31(object) Bitfield_mask( 31,  1,object)  argument
105 #define Dallp1(object) (object)  argument
106 #define Dsign(object) Bitfield_extract( 0,  1,object)  argument
107 #define Dsignedsign(object) Bitfield_signed_extract( 0,  1,object)  argument
108 #define Dexponent(object) Bitfield_extract( 1,  11,object)  argument
109 #define Dmantissap1(object) Bitfield_mask( 12, 20,object)  argument
110 #define Dsignaling(object) Bitfield_extract( 12,  1,object)  argument
111 #define Dsignalingnan(object) Bitfield_extract( 1,  12,object)  argument
112 #define Dhigh2mantissa(object) Bitfield_extract( 12,  2,object)  argument
113 #define Dexponentmantissap1(object) Bitfield_mask( 1, 31,object)  argument
114 #define Dsignexponent(object) Bitfield_extract( 0, 12,object)  argument
115 #define Dhidden(object) Bitfield_extract( 11,  1,object)  argument
116 #define Dhiddenoverflow(object) Bitfield_extract( 10,  1,object)  argument
117 #define Dhiddenhigh7mantissa(object) Bitfield_extract( 11,  8,object)  argument
118 #define Dhiddenhigh3mantissa(object) Bitfield_extract( 11,  4,object)  argument
119 #define Dlowp1(object) Bitfield_mask( 31,  1,object)  argument
120 #define Dlow31p1(object) Bitfield_mask( 1, 31,object)  argument
121 #define Dhighp1(object) Bitfield_extract( 0,  1,object)  argument
122 #define Dhigh4p1(object) Bitfield_extract( 0,  4,object)  argument
123 #define Dhigh31p1(object) Bitfield_extract( 0, 31,object)  argument
124 #define Dsignedhigh31p1(object) Bitfield_signed_extract( 0, 31,object)  argument
125 #define Dbit3p1(object) Bitfield_extract( 3,  1,object)  argument
127 #define Deposit_dsign(object,value) Bitfield_deposit(value,0,1,object)  argument
128 #define Deposit_dexponent(object,value) Bitfield_deposit(value,1,11,object)  argument
129 #define Deposit_dmantissap1(object,value) Bitfield_deposit(value,12,20,object)  argument
130 #define Deposit_dhigh2mantissa(object,value) Bitfield_deposit(value,12,2,object)  argument
131 #define Deposit_dexponentmantissap1(object,value) \  argument
132     Bitfield_deposit(value,1,31,object)
133 #define Deposit_dsignexponent(object,value) Bitfield_deposit(value,0,12,object)  argument
134 #define Deposit_dlowp1(object,value) Bitfield_deposit(value,31,1,object)  argument
135 #define Deposit_dhigh4p1(object,value) Bitfield_deposit(value,0,4,object)  argument
137 #define Is_dsign(object) Bitfield_mask( 0,  1,object)  argument
138 #define Is_dsignaling(object) Bitfield_mask( 12,  1,object)  argument
139 #define Is_dhidden(object) Bitfield_mask( 11,  1,object)  argument
140 #define Is_dhiddenoverflow(object) Bitfield_mask( 10,  1,object)  argument
141 #define Is_dlowp1(object) Bitfield_mask( 31,  1,object)  argument
142 #define Is_dhighp1(object) Bitfield_mask( 0,  1,object)  argument
143 #define Is_dbit3p1(object) Bitfield_mask( 3,  1,object)  argument
145 #define Dallp2(object) (object)  argument
146 #define Dmantissap2(object) (object)  argument
147 #define Dlowp2(object) Bitfield_mask( 31,  1,object)  argument
148 #define Dlow4p2(object) Bitfield_mask( 28,  4,object)  argument
149 #define Dlow31p2(object) Bitfield_mask( 1, 31,object)  argument
150 #define Dhighp2(object) Bitfield_extract( 0,  1,object)  argument
151 #define Dhigh31p2(object) Bitfield_extract( 0, 31,object)  argument
152 #define Dbit2p2(object) Bitfield_extract( 2,  1,object)  argument
153 #define Dbit3p2(object) Bitfield_extract( 3,  1,object)  argument
154 #define Dbit21p2(object) Bitfield_extract( 21,  1,object)  argument
155 #define Dbit28p2(object) Bitfield_extract( 28,  1,object)  argument
156 #define Dbit29p2(object) Bitfield_extract( 29,  1,object)  argument
157 #define Dbit30p2(object) Bitfield_extract( 30,  1,object)  argument
158 #define Dbit31p2(object) Bitfield_mask( 31,  1,object)  argument
160 #define Deposit_dlowp2(object,value) Bitfield_deposit(value,31,1,object)  argument
162 #define Is_dlowp2(object) Bitfield_mask( 31,  1,object)  argument
163 #define Is_dhighp2(object) Bitfield_mask( 0,  1,object)  argument
164 #define Is_dbit2p2(object) Bitfield_mask( 2,  1,object)  argument
165 #define Is_dbit3p2(object) Bitfield_mask( 3,  1,object)  argument
166 #define Is_dbit21p2(object) Bitfield_mask( 21,  1,object)  argument
167 #define Is_dbit28p2(object) Bitfield_mask( 28,  1,object)  argument
168 #define Is_dbit29p2(object) Bitfield_mask( 29,  1,object)  argument
169 #define Is_dbit30p2(object) Bitfield_mask( 30,  1,object)  argument
170 #define Is_dbit31p2(object) Bitfield_mask( 31,  1,object)  argument
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)