Subversion Repositories Kolibri OS

Rev

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

  1. #include<libc/asm.h>
  2. MK_C_SYM(tan)
  3.         fldl    4(%esp)
  4.         fptan
  5.         fnstsw  %ax
  6.         andw    $0x400,%ax
  7.         jnz     1f
  8.         fstp    %st(0)
  9.         ret
  10. 1:      fldpi
  11.         fadd    %st(0)
  12.         fxch    %st(1)
  13. 2:      fprem1
  14.         fstsw   %ax
  15.         andw    $0x400,%ax
  16.         jnz     2b
  17.         fstp    %st(1)
  18.         fptan
  19.         fstp    %st(0)
  20.         ret
  21.