home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / EMXLIB8F.ZIP / EMX / LIB / MATH / SQRT.S < prev    next >
Encoding:
Text File  |  1993-01-02  |  393 b   |  25 lines
  1. / sqrt.s (emx+gcc) -- Copyright (c) 1991-1993 by Eberhard Mattes
  2.  
  3. #include <libm.h>
  4.  
  5.         .globl  _sqrt
  6.  
  7.         .text
  8.  
  9.         .align  2, 0x90
  10.  
  11. / double sqrt (double x)
  12.  
  13. #define x       4(%esp)
  14.  
  15. _sqrt:
  16.         fldl    x                       / x
  17.         fsqrt
  18.         _xam
  19.         j_nan   1f
  20.         ret
  21.  
  22.         .align  2, 0x90
  23. 1:      SETERRNO($EDOM)
  24.         ret
  25.