kolibrios/programs/develop/ktcc/trunk/libc.obj/source/math/tan.s
turbocat 4f75a74c2c libc.obj: now builded to kos32-tcc
git-svn-id: svn://kolibrios.org@9843 a494cfbc-eb01-0410-851d-a64ba20cac60
2022-06-19 15:47:00 +00:00

17 lines
254 B
ArmAsm

/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
tan.L0:
.quad 0xffffffffffffffff
tan:
fldl 4(%esp)
fptan
fstsw
fstp %st(0)
sahf
jnp tan.L1
/* fstp %st(0) - if exception, there is nothing on the stack */
fldl tan.L0
tan.L1:
ret