contrib/gcc/dfp.c

63 decimal_from_decnumber (REAL_VALUE_TYPE *r, decNumber *dn, decContext *context)
68   if (decNumberIsZero (dn))
70   if (decNumberIsNaN (dn))
72   if (decNumberIsInfinite (dn))
76   if (decNumberIsNegative (dn))
86   decimal128FromNumber ((decimal128 *) r->sig, dn, context);
94   decNumber dn;
99   decNumberFromString (&dn, (char *) s, &set);
104   decimal_from_decnumber (r, &dn, &set);
110 decimal_to_decnumber (const REAL_VALUE_TYPE *r, decNumber *dn)
119       decNumberZero (dn);
122       decNumberFromString (dn, (char *)"Infinity", &set);
126         decNumberFromString (dn, (char *)"snan", &set);
128         decNumberFromString (dn, (char *)"nan", &set);
132       decimal128ToNumber ((decimal128 *) r->sig, dn);
139   if (r->sign != decNumberIsNegative (dn))
140     dn->bits ^= DECNEG;
149   decNumber dn;
156   decimal_to_decnumber (r, &dn);
157   decimal32FromNumber (&d32, &dn, &set);
171   decNumber dn;
183   decimal32ToNumber (&d32, &dn);
184   decimal_from_decnumber (r, &dn, &set);
193   decNumber dn;
200   decimal_to_decnumber (r, &dn);
201   decimal64FromNumber (&d64, &dn, &set);
221   decNumber dn;
239   decimal64ToNumber (&d64, &dn);
240   decimal_from_decnumber (r, &dn, &set);
249   decNumber dn;
256   decimal_to_decnumber (r, &dn);
257   decimal128FromNumber (&d128, &dn, &set);
281   decNumber dn;
303   decimal128ToNumber (&d128, &dn);
304   decimal_from_decnumber (r, &dn, &set);
345   decNumber dn, dn2, dn3;
367   decNumberCompare (&dn, &dn2, &dn3, &set);
370   if (decNumberIsNaN (&dn))
372   else if (decNumberIsZero (&dn))
374   else if (decNumberIsNegative (&dn))
385   decNumber dn;
394   decimal128ToNumber ((decimal128 *) r->sig, &dn);
407       decimal32FromNumber (&d32, &dn, &set);
408       decimal32ToNumber (&d32, &dn);
416       decimal64FromNumber (&d64, &dn, &set);
417       decimal64ToNumber (&d64, &dn);
422   decimal_from_decnumber (r, &dn, &set);
466   decNumber dn;
477     decNumberSubtract (&dn, &dn2, &dn3, &set);
479     decNumberAdd (&dn, &dn2, &dn3, &set);
481   decimal_from_decnumber (r, &dn, &set);
494   decNumber dn, dn2, dn3;
502   decNumberMultiply (&dn, &dn2, &dn3, &set);
503   decimal_from_decnumber (r, &dn, &set);
516   decNumber dn, dn2, dn3;
524   decNumberDivide (&dn, &dn2, &dn3, &set);
525   decimal_from_decnumber (r, &dn, &set);
537   decNumber dn, dn2;
545   decNumberToIntegralValue (&dn, &dn2, &set);
546   decimal_from_decnumber (r, &dn, &set);
555   decNumber dn, dn2, dn3;
562   decimal128ToNumber ((decimal128 *) r->sig, &dn);
564   decNumberToIntegralValue (&dn2, &dn, &set);
566   decNumberRescale (&dn, &dn2, &dn3, &set);
570   decNumberToString (&dn, string);
582   decNumber dn, dn2, dn3;
589   decimal128ToNumber ((decimal128 *) r->sig, &dn);
591   decNumberToIntegralValue (&dn2, &dn, &set);
593   decNumberRescale (&dn, &dn2, &dn3, &set);
597   decNumberToString (&dn, string);