sortix-mirror/libm/arch/i387/s_finite.S
Jonas 'Sortie' Termansen 5980be9b3c Add Sortix Math Library.
This work is based in part on code from NetBSD libm, libc and kernel.

The library is partly public domain and partly BSD-style licensed.
2013-12-17 14:30:39 +01:00

27 lines
446 B
ArmAsm

/*
* Written by J.T. Conklin <jtc@NetBSD.org>.
* Public domain.
*/
#include <machine/asm.h>
RCSID("$NetBSD: s_finite.S,v 1.7 2003/07/26 19:25:01 salo Exp $")
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