gcclibs/libdecnumber/decimal32.c

76 decimal32FromNumber (decimal32 * d32, const decNumber * dn, decContext * set)
106   DEC_clear (d32);		/* clean the target */
117 	      decDensePackCoeff (dn, d32->bytes, sizeof (d32->bytes), 0);
124       d32->bytes[0] = top;
144       d32->bytes[0] = (uByte) (comb << 2);
146       decimal32SetExpCon (d32, exp);
162       decDensePackCoeff (dn, d32->bytes, sizeof (d32->bytes), pad);
165       msd = ((unsigned) d32->bytes[1] >> 4);
166       d32->bytes[1] &= 0x0f;
172       d32->bytes[0] = (uByte) (comb << 2);
174       decimal32SetExpCon (d32, exp);
178     decimal32SetSign (d32, 1);
182   /*decimal32Show(d32); */
183   return d32;
188 /*   d32 is the source decimal32                                      */
193 decimal32ToNumber (const decimal32 * d32, decNumber * dn)
197   uInt top = d32->bytes[0] & 0x7f;	/* top byte, less sign bit */
200   if (decimal32Sign (d32))
228       dn->exponent = exp + decimal32ExpCon (d32) - DECIMAL32_Bias;	/* remove bias */
240 	  wk = *d32;		/* take a copy */
245 	  d32 = &wk;		/* use the work copy */
247       decDenseUnpackCoeff (d32->bytes, sizeof (d32->bytes), dn, bunches, odd);
256 /*   decimal32ToString(d32, string);                                  */
257 /*   decimal32ToEngString(d32, string);                               */
259 /*  d32 is the decimal32 format number to convert                     */
267 decimal32ToString (const decimal32 * d32, char *string)
270   decimal32ToNumber (d32, &dn);
276 decimal32ToEngString (const decimal32 * d32, char *string)
279   decimal32ToNumber (d32, &dn);
320 /*   d32 -- the number to show                                        */
324 decimal32Show (const decimal32 * d32)
331       sprintf (&buf[j], "%02x", d32->bytes[i]);
335 	  decimal32Sign (d32), decimal32Comb (d32), decimal32ExpCon (d32));