34 #include "libm.h"       /* for islessequal macro */
  35 
  36 long double
  37 __fminl(long double x, long double y) {
  38         union {
  39 #if defined(__sparc)
  40                 unsigned i[4];
  41 #elif defined(__x86)
  42                 unsigned i[3];
  43 #else
  44 #error Unknown architecture
  45 #endif
  46                 long double ld;
  47         } xx, yy;
  48         unsigned s;
  49 
  50         /* if y is nan, replace it by x */
  51         if (y != y)
  52                 y = x;
  53 
  54         /* if x is greater than y or x and y are unordered, replace x by y */
  55 #if defined(COMPARISON_MACRO_BUG)
  56         if (x != x || x > y)
  57 #else
  58         if (!islessequal(x, y))
  59 #endif
  60                 x = y;
  61 
  62         /*
  63          * now x and y are either both NaN or both numeric; set the
  64          * sign of the result if either x or y has its sign set
  65          */
  66         xx.ld = x;
  67         yy.ld = y;
  68 #if defined(__sparc)
  69         s = (xx.i[0] | yy.i[0]) & 0x80000000;
  70         xx.i[0] |= s;
  71 #elif defined(__x86)
  72         s = (xx.i[2] | yy.i[2]) & 0x8000;
  73         xx.i[2] |= s;
  74 #else
  75 #error Unknown architecture
  76 #endif
  77 
  78         return (xx.ld);
  79 }

  34 #include "libm.h"       /* for islessequal macro */
  35 
  36 long double
  37 __fminl(long double x, long double y) {
  38         union {
  39 #if defined(__sparc)
  40                 unsigned i[4];
  41 #elif defined(__x86)
  42                 unsigned i[3];
  43 #else
  44 #error Unknown architecture
  45 #endif
  46                 long double ld;
  47         } xx, yy;
  48         unsigned s;
  49 
  50         /* if y is nan, replace it by x */
  51         if (y != y)
  52                 y = x;
  53 
  54         /* if x is nan, replace it by y */
  55         if (x != x)
  56                 x = y;
  57 
  58         /* At this point, x and y are either both numeric, or both NaN */
  59         if (!isnan(x) && !islessequal(x, y))
  60                 x = y;
  61 
  62         /*
  63          * set the sign of the result if either x or y has its sign set

  64          */
  65         xx.ld = x;
  66         yy.ld = y;
  67 #if defined(__sparc)
  68         s = (xx.i[0] | yy.i[0]) & 0x80000000;
  69         xx.i[0] |= s;
  70 #elif defined(__x86)
  71         s = (xx.i[2] | yy.i[2]) & 0x8000;
  72         xx.i[2] |= s;
  73 #else
  74 #error Unknown architecture
  75 #endif
  76 
  77         return (xx.ld);
  78 }