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