sortix-mirror/libm/arch/i387/s_finitef.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

26 lines
431 B
ArmAsm

/*
* Written by J.T. Conklin <jtc@NetBSD.org>.
* Public domain.
*/
#include <machine/asm.h>
RCSID("$NetBSD: s_finitef.S,v 1.6 2003/07/26 19:25:01 salo Exp $")
ENTRY(finitef)
#ifdef __i386__
movl 4(%esp),%eax
andl $0x7f800000, %eax
cmpl $0x7f800000, %eax
setne %al
andl $0x000000ff, %eax
#else
xorl %eax,%eax
movl $0x7ff00000,%esi
movss %xmm0,-4(%rsp)
andl -4(%rsp),%esi
cmpl $0x7ff00000,%esi
setne %al
#endif
ret