Subversion Repositories Kolibri OS

Rev

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

  1. /* Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details */
  2. #include<libc/asm.h>
  3.  
  4. .data
  5.         .align  2
  6. nan:
  7.         .long   0xffffffff
  8.         .byte   0xff
  9.         .byte   0xff
  10.         .byte   0xff
  11.         .byte   0x7f
  12.  
  13. .text
  14. MK_C_SYM(atan2)
  15.         fldl    4(%esp)
  16.         fldl    12(%esp)
  17.         ftst
  18.         fnstsw  %ax
  19.         sahf
  20.         jne     doit
  21.         fxch    %st(1)
  22.         ftst
  23.         fnstsw  %ax
  24.         sahf
  25.         je      isanan
  26.         fxch    %st(1)
  27. doit:
  28.         fpatan
  29.         ret
  30. isanan:
  31.         movl    $1,C_SYM(errno)
  32.         fstp    %st(0)
  33.         fstp    %st(0)
  34.         fldl    nan
  35.         ret
  36.