Patrick Welche <prlw1@cam.ac.uk>
[netbsd-mini2440.git] / lib / libm / arch / i387 / s_finitef.S
blob35f195e3b92b10532f32196a83bb3c7a30dc21a6
1 /*
2  * Written by J.T. Conklin <jtc@NetBSD.org>.
3  * Public domain.
4  */
6 #include <machine/asm.h>
8 RCSID("$NetBSD: s_finitef.S,v 1.5 2001/06/19 00:26:30 fvdl Exp $")
10 ENTRY(finitef)
11 #ifdef __i386__
12         movl    4(%esp),%eax
13         andl    $0x7f800000, %eax
14         cmpl    $0x7f800000, %eax
15         setne   %al
16         andl    $0x000000ff, %eax
17 #else
18         xorl    %eax,%eax
19         movl    $0x7ff00000,%esi
20         movss   %xmm0,-4(%rsp)
21         andl    -4(%rsp),%esi
22         cmpl    $0x7ff00000,%esi
23         setne   %al
24 #endif
25         ret