gcclibs/libdecnumber/decimal128.c

76 decimal128FromNumber (decimal128 * d128, const decNumber * dn, decContext * set)
106   DEC_clear (d128);		/* clean the target */
117 	      decDensePackCoeff (dn, d128->bytes, sizeof (d128->bytes), 0);
124       d128->bytes[0] = top;
144       d128->bytes[0] = (uByte) (comb << 2);
146       decimal128SetExpCon (d128, exp);
162       decDensePackCoeff (dn, d128->bytes, sizeof (d128->bytes), pad);
165       msd = ((unsigned) d128->bytes[1] << 2) & 0x0c;	/* top 2 bits */
166       msd |= ((unsigned) d128->bytes[2] >> 6);	/* low 2 bits */
167       d128->bytes[1] &= 0xfc;
168       d128->bytes[2] &= 0x3f;
175       d128->bytes[0] = (uByte) (comb << 2);
177       decimal128SetExpCon (d128, exp);
181     decimal128SetSign (d128, 1);
185   /* decimal128Show(d128); */
186   return d128;
191 /*   d128 is the source decimal128                                    */
196 decimal128ToNumber (const decimal128 * d128, decNumber * dn)
200   uInt top = d128->bytes[0] & 0x7f;	/* top byte, less sign bit */
203   if (decimal128Sign (d128))
231       dn->exponent = exp + decimal128ExpCon (d128) - DECIMAL128_Bias;	/* remove bias */
243 	  wk = *d128;		/* take a copy */
250 	  d128 = &wk;		/* use the work copy */
252       decDenseUnpackCoeff (d128->bytes, sizeof (d128->bytes), dn, bunches,
264 /*   decimal128ToString(d128, string);                                */
265 /*   decimal128ToEngString(d128, string);                             */
267 /*  d128 is the decimal128 format number to convert                   */
275 decimal128ToString (const decimal128 * d128, char *string)
278   decimal128ToNumber (d128, &dn);
284 decimal128ToEngString (const decimal128 * d128, char *string)
287   decimal128ToNumber (d128, &dn);
329 /*   d128 -- the number to show                                       */
333 decimal128Show (const decimal128 * d128)
340       sprintf (&buf[j], "%02x", d128->bytes[i]);
344 	  decimal128Sign (d128), decimal128Comb (d128),
345 	  decimal128ExpCon (d128));