config/m68k/fpgnulib.c

405   union long_double_long ldl;
407   ldl.ld = a;
408   if (EXPX(ldl) == EXPXMASK
409       && ((ldl.l.middle & MANTXMASK) != 0 || ldl.l.lower != 0))
411   ldl.ld = b;
412   if (EXPX(ldl) == EXPXMASK
413       && ((ldl.l.middle & MANTXMASK) != 0 || ldl.l.lower != 0))
423   register union long_double_long ldl;
429   ldl.l.upper = SIGND (dl);
432       ldl.l.middle = 0;
433       ldl.l.lower = 0;
434       return ldl.ld;
438   ldl.l.upper |= exp << 16;
439   ldl.l.middle = HIDDENX;
440   /* 31-20: # mantissa bits in ldl.l.middle - # mantissa bits in dl.l.upper */
441   ldl.l.middle |= (dl.l.upper & MANTDMASK) << (31 - 20);
443   ldl.l.middle |= dl.l.lower >> (1 + 20);
444   /* 32 - 21: # bits of dl.l.lower in ldl.l.middle */
445   ldl.l.lower = dl.l.lower << (32 - 21);
447   /*printf ("dfxf out: %s\n", dumpxf (ldl.ld));*/
448   return ldl.ld;
457   register union long_double_long ldl;
459   ldl.ld = ld;
462   dl.l.upper = SIGNX (ldl);
463   if ((ldl.l.upper & ~SIGNBIT) == 0 && !ldl.l.middle && !ldl.l.lower)
469   exp = EXPX (ldl) - EXCESSX + EXCESSD;
475   dl.l.upper |= (ldl.l.middle & MANTXMASK) >> (EXPDBITS + 1 - 1);
476   dl.l.lower = (ldl.l.middle & MANTXMASK) << (32 - (EXPDBITS + 1 - 1));
477   dl.l.lower |= ldl.l.lower >> (EXPDBITS + 1 - 1);