80 	int64_t val;  in xdr_double()  local
86 		val = BE_64(*i64p);  in xdr_double()
87 		return (XDR_PUTBYTES(xdrs, (char *)&val, sizeof (val)));  in xdr_double()
140 	int32_t val;  in xdr_float()  local
146 			val = 0;  in xdr_float()
147 			return (XDR_PUTINT32(xdrs, &val));  in xdr_float()
165 		val = neg;  in xdr_float()
166 		val = val << 8;		/* for the exponent */  in xdr_float()
167 		val += 127 + exp;	/* 127 is the bias */  in xdr_float()
168 		val = val << 23;	/* for the mantissa */  in xdr_float()
169 		val += (int32_t)((f - 1) * 8388608);	/* 2 ^ 23 */  in xdr_float()
170 		return (XDR_PUTINT32(xdrs, &val));  in xdr_float()
183 		if (!XDR_GETINT32(xdrs, (int32_t *)&val))  in xdr_float()
185 		neg = val & 0x80000000;  in xdr_float()
186 		exp = (val & 0x7f800000) >> 23;  in xdr_float()
188 		f = (val & 0x007fffff) * 0.00000011920928955078125;  in xdr_float()
228 	int32_t val[2];  in xdr_double()  local
234 			val[0] = 0;  in xdr_double()
235 			val[1] = 0;  in xdr_double()
236 			lp = val;  in xdr_double()
256 		val[0] = (neg << 11);	/* for the exponent */  in xdr_double()
257 		val[0] += 1023 + exp;	/* 1023 is the bias */  in xdr_double()
258 		val[0] = val[0] << 20;	/* for the mantissa */  in xdr_double()
259 		val[0] += (int32_t)((d - 1) * 1048576);	/* 2 ^ 20 */  in xdr_double()
260 		val[1] += (uint32_t)((((d - 1) * 1048576) - val[0]) *  in xdr_double()
262 		lp = val;  in xdr_double()
277 		lp = val;  in xdr_double()
280 		neg = val[0] & 0x80000000;  in xdr_double()
281 		exp = (val[0] & 0x7ff00000) >> 20;  in xdr_double()
283 		d = (val[0] & 0x000fffff) * 0.00000095367431640625;  in xdr_double()
285 		d += (val[1] * 0.0000000000000002220446049250313);  in xdr_double()