]> git.ipfire.org Git - thirdparty/glibc.git/blob - sysdeps/libm-i387/s_finitef.S
Tue Jun 4 21:01:20 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
[thirdparty/glibc.git] / sysdeps / libm-i387 / s_finitef.S
1 /*
2 * Written by J.T. Conklin <jtc@netbsd.org>.
3 * Public domain.
4 */
5
6 #include <machine/asm.h>
7
8 RCSID("$NetBSD: s_finitef.S,v 1.3 1995/05/09 00:00:02 jtc Exp $")
9
10 ENTRY(__finitef)
11 movl 4(%esp),%eax
12 andl $0x7f800000, %eax
13 cmpl $0x7f800000, %eax
14 setne %al
15 andl $0x000000ff, %eax
16 ret
17 weak_alias (__finitef, finitef)