58 #define	Sall(object) (object)  argument
59 #define	Ssign(object) Bitfield_extract( 0,  1,object)  argument
60 #define	Ssignedsign(object) Bitfield_signed_extract( 0,  1,object)  argument
61 #define	Sexponent(object) Bitfield_extract( 1,  8,object)  argument
62 #define	Smantissa(object) Bitfield_mask( 9, 23,object)  argument
63 #define	Ssignaling(object) Bitfield_extract( 9,  1,object)  argument
64 #define	Ssignalingnan(object) Bitfield_extract( 1,  9,object)  argument
65 #define	Shigh2mantissa(object) Bitfield_extract( 9,  2,object)  argument
66 #define	Sexponentmantissa(object) Bitfield_mask( 1, 31,object)  argument
67 #define	Ssignexponent(object) Bitfield_extract( 0,  9,object)  argument
68 #define	Shidden(object) Bitfield_extract( 8,  1,object)  argument
69 #define	Shiddenoverflow(object) Bitfield_extract( 7,  1,object)  argument
70 #define	Shiddenhigh7mantissa(object) Bitfield_extract( 8,  8,object)  argument
71 #define	Shiddenhigh3mantissa(object) Bitfield_extract( 8,  4,object)  argument
72 #define	Slow(object) Bitfield_mask( 31,  1,object)  argument
73 #define	Slow4(object) Bitfield_mask( 28,  4,object)  argument
74 #define	Slow31(object) Bitfield_mask( 1, 31,object)  argument
75 #define	Shigh31(object) Bitfield_extract( 0, 31,object)  argument
76 #define	Ssignedhigh31(object) Bitfield_signed_extract( 0, 31,object)  argument
77 #define	Shigh4(object) Bitfield_extract( 0,  4,object)  argument
78 #define	Sbit24(object) Bitfield_extract( 24,  1,object)  argument
79 #define	Sbit28(object) Bitfield_extract( 28,  1,object)  argument
80 #define	Sbit29(object) Bitfield_extract( 29,  1,object)  argument
81 #define	Sbit30(object) Bitfield_extract( 30,  1,object)  argument
82 #define	Sbit31(object) Bitfield_mask( 31,  1,object)  argument
84 #define Deposit_ssign(object,value) Bitfield_deposit(value,0,1,object)  argument
85 #define Deposit_sexponent(object,value) Bitfield_deposit(value,1,8,object)  argument
86 #define Deposit_smantissa(object,value) Bitfield_deposit(value,9,23,object)  argument
87 #define Deposit_shigh2mantissa(object,value) Bitfield_deposit(value,9,2,object)  argument
88 #define Deposit_sexponentmantissa(object,value) \  argument
90 #define Deposit_ssignexponent(object,value) Bitfield_deposit(value,0,9,object)  argument
91 #define Deposit_slow(object,value) Bitfield_deposit(value,31,1,object)  argument
92 #define Deposit_shigh4(object,value) Bitfield_deposit(value,0,4,object)  argument
94 #define	Is_ssign(object) Bitfield_mask( 0,  1,object)  argument
95 #define	Is_ssignaling(object) Bitfield_mask( 9,  1,object)  argument
96 #define	Is_shidden(object) Bitfield_mask( 8,  1,object)  argument
97 #define	Is_shiddenoverflow(object) Bitfield_mask( 7,  1,object)  argument
98 #define	Is_slow(object) Bitfield_mask( 31,  1,object)  argument
99 #define	Is_sbit24(object) Bitfield_mask( 24,  1,object)  argument
100 #define	Is_sbit28(object) Bitfield_mask( 28,  1,object)  argument
101 #define	Is_sbit29(object) Bitfield_mask( 29,  1,object)  argument
102 #define	Is_sbit30(object) Bitfield_mask( 30,  1,object)  argument
103 #define	Is_sbit31(object) Bitfield_mask( 31,  1,object)  argument
115 #define Dallp1(object) (object)  argument
116 #define Dsign(object) Bitfield_extract( 0,  1,object)  argument
117 #define Dsignedsign(object) Bitfield_signed_extract( 0,  1,object)  argument
118 #define Dexponent(object) Bitfield_extract( 1,  11,object)  argument
119 #define Dmantissap1(object) Bitfield_mask( 12, 20,object)  argument
120 #define Dsignaling(object) Bitfield_extract( 12,  1,object)  argument
121 #define Dsignalingnan(object) Bitfield_extract( 1,  12,object)  argument
122 #define Dhigh2mantissa(object) Bitfield_extract( 12,  2,object)  argument
123 #define Dexponentmantissap1(object) Bitfield_mask( 1, 31,object)  argument
124 #define Dsignexponent(object) Bitfield_extract( 0, 12,object)  argument
125 #define Dhidden(object) Bitfield_extract( 11,  1,object)  argument
126 #define Dhiddenoverflow(object) Bitfield_extract( 10,  1,object)  argument
127 #define Dhiddenhigh7mantissa(object) Bitfield_extract( 11,  8,object)  argument
128 #define Dhiddenhigh3mantissa(object) Bitfield_extract( 11,  4,object)  argument
129 #define Dlowp1(object) Bitfield_mask( 31,  1,object)  argument
130 #define Dlow31p1(object) Bitfield_mask( 1, 31,object)  argument
131 #define Dhighp1(object) Bitfield_extract( 0,  1,object)  argument
132 #define Dhigh4p1(object) Bitfield_extract( 0,  4,object)  argument
133 #define Dhigh31p1(object) Bitfield_extract( 0, 31,object)  argument
134 #define Dsignedhigh31p1(object) Bitfield_signed_extract( 0, 31,object)  argument
135 #define Dbit3p1(object) Bitfield_extract( 3,  1,object)  argument
137 #define Deposit_dsign(object,value) Bitfield_deposit(value,0,1,object)  argument
138 #define Deposit_dexponent(object,value) Bitfield_deposit(value,1,11,object)  argument
139 #define Deposit_dmantissap1(object,value) Bitfield_deposit(value,12,20,object)  argument
140 #define Deposit_dhigh2mantissa(object,value) Bitfield_deposit(value,12,2,object)  argument
141 #define Deposit_dexponentmantissap1(object,value) \  argument
143 #define Deposit_dsignexponent(object,value) Bitfield_deposit(value,0,12,object)  argument
144 #define Deposit_dlowp1(object,value) Bitfield_deposit(value,31,1,object)  argument
145 #define Deposit_dhigh4p1(object,value) Bitfield_deposit(value,0,4,object)  argument
147 #define Is_dsign(object) Bitfield_mask( 0,  1,object)  argument
148 #define Is_dsignaling(object) Bitfield_mask( 12,  1,object)  argument
149 #define Is_dhidden(object) Bitfield_mask( 11,  1,object)  argument
150 #define Is_dhiddenoverflow(object) Bitfield_mask( 10,  1,object)  argument
151 #define Is_dlowp1(object) Bitfield_mask( 31,  1,object)  argument
152 #define Is_dhighp1(object) Bitfield_mask( 0,  1,object)  argument
153 #define Is_dbit3p1(object) Bitfield_mask( 3,  1,object)  argument
155 #define Dallp2(object) (object)  argument
156 #define Dmantissap2(object) (object)  argument
157 #define Dlowp2(object) Bitfield_mask( 31,  1,object)  argument
158 #define Dlow4p2(object) Bitfield_mask( 28,  4,object)  argument
159 #define Dlow31p2(object) Bitfield_mask( 1, 31,object)  argument
160 #define Dhighp2(object) Bitfield_extract( 0,  1,object)  argument
161 #define Dhigh31p2(object) Bitfield_extract( 0, 31,object)  argument
162 #define Dbit2p2(object) Bitfield_extract( 2,  1,object)  argument
163 #define Dbit3p2(object) Bitfield_extract( 3,  1,object)  argument
164 #define Dbit21p2(object) Bitfield_extract( 21,  1,object)  argument
165 #define Dbit28p2(object) Bitfield_extract( 28,  1,object)  argument
166 #define Dbit29p2(object) Bitfield_extract( 29,  1,object)  argument
167 #define Dbit30p2(object) Bitfield_extract( 30,  1,object)  argument
168 #define Dbit31p2(object) Bitfield_mask( 31,  1,object)  argument
170 #define Deposit_dlowp2(object,value) Bitfield_deposit(value,31,1,object)  argument
172 #define Is_dlowp2(object) Bitfield_mask( 31,  1,object)  argument
173 #define Is_dhighp2(object) Bitfield_mask( 0,  1,object)  argument
174 #define Is_dbit2p2(object) Bitfield_mask( 2,  1,object)  argument
175 #define Is_dbit3p2(object) Bitfield_mask( 3,  1,object)  argument
176 #define Is_dbit21p2(object) Bitfield_mask( 21,  1,object)  argument
177 #define Is_dbit28p2(object) Bitfield_mask( 28,  1,object)  argument
178 #define Is_dbit29p2(object) Bitfield_mask( 29,  1,object)  argument
179 #define Is_dbit30p2(object) Bitfield_mask( 30,  1,object)  argument
180 #define Is_dbit31p2(object) Bitfield_mask( 31,  1,object)  argument
261 #define Extall(object) (object)  argument
262 #define Extsign(object) Bitfield_extract( 0,  1,object)  argument
263 #define Exthigh31(object) Bitfield_extract( 0, 31,object)  argument
264 #define Extlow31(object) Bitfield_extract( 1, 31,object)  argument
265 #define Extlow(object) Bitfield_extract( 31,  1,object)  argument
371 #define Cbit(object) Bitfield_extract( 5, 1,object)  argument
372 #define Tbit(object) Bitfield_extract( 25, 1,object)  argument
373 #define Roundingmode(object) Bitfield_extract( 21, 2,object)  argument
374 #define Invalidtrap(object) Bitfield_extract( 27, 1,object)  argument
375 #define Divisionbyzerotrap(object) Bitfield_extract( 28, 1,object)  argument
376 #define Overflowtrap(object) Bitfield_extract( 29, 1,object)  argument
377 #define Underflowtrap(object) Bitfield_extract( 30, 1,object)  argument
378 #define Inexacttrap(object) Bitfield_extract( 31, 1,object)  argument
379 #define Invalidflag(object) Bitfield_extract( 0, 1,object)  argument
380 #define Divisionbyzeroflag(object) Bitfield_extract( 1, 1,object)  argument
381 #define Overflowflag(object) Bitfield_extract( 2, 1,object)  argument
382 #define Underflowflag(object) Bitfield_extract( 3, 1,object)  argument
383 #define Inexactflag(object) Bitfield_extract( 4, 1,object)  argument
384 #define Allflags(object) Bitfield_extract( 0, 5,object)  argument
410 #define Allexception(object) (object)  argument
411 #define Exceptiontype(object) Bitfield_extract( 0, 6,object)  argument
412 #define Instructionfield(object) Bitfield_mask( 6,26,object)  argument
413 #define Parmfield(object) Bitfield_extract( 23, 3,object)  argument
414 #define Rabit(object) Bitfield_extract( 24, 1,object)  argument
415 #define Ibit(object) Bitfield_extract( 25, 1,object)  argument
417 #define Set_exceptiontype(object,value) Bitfield_deposit(value, 0, 6,object)  argument
418 #define Set_parmfield(object,value) Bitfield_deposit(value, 23, 3,object)  argument
419 #define Set_exceptiontype_and_instr_field(exception,instruction,object) \  argument
429 #define Allexception(object) (object)  argument
430 #define Greaterthanbit(object) Bitfield_extract( 27, 1,object)  argument
431 #define Lessthanbit(object) Bitfield_extract( 28, 1,object)  argument
432 #define Equalbit(object) Bitfield_extract( 29, 1,object)  argument
433 #define Unorderedbit(object) Bitfield_extract( 30, 1,object)  argument
434 #define Exceptionbit(object) Bitfield_extract( 31, 1,object)  argument