gcclibs/libdecnumber/decimal64.c

76 decimal64FromNumber (decimal64 * d64, const decNumber * dn, decContext * set)
106   DEC_clear (d64);		/* clean the target */
117 	      decDensePackCoeff (dn, d64->bytes, sizeof (d64->bytes), 0);
124       d64->bytes[0] = top;
144       d64->bytes[0] = (uByte) (comb << 2);
146       decimal64SetExpCon (d64, exp);
161       decDensePackCoeff (dn, d64->bytes, sizeof (d64->bytes), pad);
164       msd = ((unsigned) d64->bytes[1] >> 2) & 0x0f;
165       d64->bytes[1] &= 0x03;
171       d64->bytes[0] = (uByte) (comb << 2);
173       decimal64SetExpCon (d64, exp);
177     decimal64SetSign (d64, 1);
181   /*decimal64Show(d64); */
182   return d64;
187 /*   d64 is the source decimal64                                      */
192 decimal64ToNumber (const decimal64 * d64, decNumber * dn)
196   uInt top = d64->bytes[0] & 0x7f;	/* top byte, less sign bit */
199   if (decimal64Sign (d64))
227       dn->exponent = exp + decimal64ExpCon (d64) - DECIMAL64_Bias;	/* remove bias */
239 	  wk = *d64;		/* take a copy */
244 	  d64 = &wk;		/* use the work copy */
246       decDenseUnpackCoeff (d64->bytes, sizeof (d64->bytes), dn, bunches, odd);
255 /*   decimal64ToString(d64, string);                                  */
256 /*   decimal64ToEngString(d64, string);                               */
258 /*  d64 is the decimal64 format number to convert                     */
266 decimal64ToString (const decimal64 * d64, char *string)
269   decimal64ToNumber (d64, &dn);
275 decimal64ToEngString (const decimal64 * d64, char *string)
278   decimal64ToNumber (d64, &dn);
320 /*   d64 -- the number to show                                        */
324 decimal64Show (const decimal64 * d64)
331       sprintf (&buf[j], "%02x", d64->bytes[i]);
335 	  decimal64Sign (d64), decimal64Comb (d64), decimal64ExpCon (d64));