Subversion Repositories Kolibri OS

Rev

Rev 9843 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. /* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
  2.  
  3. .global tan;
  4.  
  5. tan.L0:
  6.         .quad   0xffffffffffffffff
  7.  
  8. tan:
  9.         fldl    4(%esp)
  10.         fptan
  11.         fstsw
  12.         fstp    %st(0)
  13.         sahf
  14.         jnp     tan.L1
  15.         fstp    %st(0) /*- if exception, there is nothing on the stack */
  16.         fldl    tan.L0
  17. tan.L1:
  18.         ret
  19.