]> git.ipfire.org Git - thirdparty/glibc.git/blob - sysdeps/libm-i387/s_finite.S
233155e4d63f877512b7f3885a48f5bda98eea37
[thirdparty/glibc.git] / sysdeps / libm-i387 / s_finite.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_finite.S,v 1.4 1995/05/08 23:57:41 jtc Exp $")
9
10 ENTRY(__finite)
11 movl 8(%esp),%eax
12 andl $0x7ff00000, %eax
13 cmpl $0x7ff00000, %eax
14 setne %al
15 andl $0x000000ff, %eax
16 ret
17 weak_alias (__finite, finite)