Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. #include<libc/asm.h>
  2.         .data
  3. LCW1:
  4.         .word   0
  5. LCW2:
  6.         .word   0
  7. LC0:
  8.         .double 0d1.0e+00
  9.  
  10.         .text
  11.  
  12. MK_C_SYM(exp)
  13.         fldl    4(%esp)
  14.         fldl2e
  15.         fmulp
  16.         fstcw   LCW1
  17.         fstcw   LCW2
  18.         fwait
  19.         andw    $0xf3ff,LCW2
  20.         orw     $0x0400,LCW2
  21.         fldcw   LCW2
  22.         fldl    %st(0)
  23.         frndint
  24.         fldcw   LCW1
  25.         fxch    %st(1)
  26.         fsub    %st(1),%st
  27.         f2xm1
  28.         faddl   LC0
  29.         fscale
  30.         fstp    %st(1)
  31.         ret
  32.