atan.s raw

   1  .global atan
   2  .type atan,@function
   3  atan:
   4  	fldl 4(%esp)
   5  	mov 8(%esp),%eax
   6  	add %eax,%eax
   7  	cmp $0x00200000,%eax
   8  	jb 1f
   9  	fld1
  10  	fpatan
  11  	fstpl 4(%esp)
  12  	fldl 4(%esp)
  13  	ret
  14  		# subnormal x, return x with underflow
  15  1:	fsts 4(%esp)
  16  	ret
  17