18  *
  19  * CDDL HEADER END
  20  */
  21 
  22 /*
  23  * Copyright 2011 Nexenta Systems, Inc.  All rights reserved.
  24  */
  25 /*
  26  * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
  27  * Use is subject to license terms.
  28  */
  29 
  30 #if defined(ELFOBJ)
  31 #pragma weak fdiml = __fdiml
  32 #endif
  33 
  34 #include "libm.h"       /* for islessequal macro */
  35 
  36 long double
  37 __fdiml(long double x, long double y) {
  38 #if defined(COMPARISON_MACRO_BUG)
  39         if (x == x && y == y && x <= y) {
  40 #else
  41         if (islessequal(x, y)) {
  42 #endif
  43                 x = 0.0l;
  44                 y = -x;
  45         }
  46         return (x - y);
  47 }

  18  *
  19  * CDDL HEADER END
  20  */
  21 
  22 /*
  23  * Copyright 2011 Nexenta Systems, Inc.  All rights reserved.
  24  */
  25 /*
  26  * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
  27  * Use is subject to license terms.
  28  */
  29 
  30 #if defined(ELFOBJ)
  31 #pragma weak fdiml = __fdiml
  32 #endif
  33 
  34 #include "libm.h"       /* for islessequal macro */
  35 
  36 long double
  37 __fdiml(long double x, long double y) {



  38         if (islessequal(x, y)) {

  39                 x = 0.0l;
  40                 y = -x;
  41         }
  42         return (x - y);
  43 }