Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1.  
  2. format ELF
  3. include 'proc32.inc'
  4. section '.text' executable
  5.  
  6. public log_ as "log"
  7.  
  8. log_:
  9.  
  10. ;       ln(x) = lg(x)/lg(e).
  11.  
  12.         fld     qword[esp+4]
  13.         fld1
  14.         fxch
  15.     fyl2x           ;Compute 1*lg(x).
  16.     fldl2e          ;Load lg(e).
  17.     fdivp st1, st0      ;Compute lg(x)/lg(e).
  18.     ret
  19.