]> git.ipfire.org Git - thirdparty/glibc.git/blame - sysdeps/libm-i387/s_finitel.S
update from main archive 961005
[thirdparty/glibc.git] / sysdeps / libm-i387 / s_finitel.S
CommitLineData
76060ec0
RM
1/*
2 * Written by J.T. Conklin <jtc@netbsd.org>.
3 * Public domain.
4 *
5 * Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
6 */
7
8#include <machine/asm.h>
9
10RCSID("$NetBSD: $")
11
12ENTRY(__finitel)
13 movl 12(%esp),%eax
14 andl $0x7fff, %eax
15 cmpl $0x7fff, %eax
16 setne %al
17 andl $0x000000ff, %eax
18 ret
cccda09f 19PSEUDO_END (__finitel)
76060ec0 20weak_alias (__finitel, finitel)