/*
 * Written by J.T. Conklin <jtc@NetBSD.org>.
 * Public domain.
 */

#include <machine/asm.h>

RCSID("$NetBSD: s_finite.S,v 1.8 2024/05/08 01:04:03 riastradh Exp $")

WEAK_ALIAS(finite, _finite)

ENTRY(_finite)
#ifdef __i386__
        movl    8(%esp),%eax
        andl    $0x7ff00000, %eax
        cmpl    $0x7ff00000, %eax
        setne   %al
        andl    $0x000000ff, %eax
#else
        xorl    %eax,%eax
        movq    $0x7ff0000000000000,%rsi
        movq    %rsi,%rdi
        movsd   %xmm0,-8(%rsp)
        andq    -8(%rsp),%rsi
        cmpq    %rdi,%rsi
        setne   %al
#endif
        ret
END(_finite)