mirror of
https://gitlab.com/sortix/sortix.git
synced 2023-02-13 20:55:38 -05:00
5980be9b3c
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.
26 lines
446 B
ArmAsm
26 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
|