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