xref: /minix3/lib/libm/arch/i387/s_finitef.S (revision 2fe8fb192fe7e8720e3e7a77f928da545e872a6a)
1*2fe8fb19SBen Gras/*
2*2fe8fb19SBen Gras * Written by J.T. Conklin <jtc@NetBSD.org>.
3*2fe8fb19SBen Gras * Public domain.
4*2fe8fb19SBen Gras */
5*2fe8fb19SBen Gras
6*2fe8fb19SBen Gras#include <machine/asm.h>
7*2fe8fb19SBen Gras
8*2fe8fb19SBen GrasRCSID("$NetBSD: s_finitef.S,v 1.6 2003/07/26 19:25:01 salo Exp $")
9*2fe8fb19SBen Gras
10*2fe8fb19SBen GrasENTRY(finitef)
11*2fe8fb19SBen Gras#ifdef __i386__
12*2fe8fb19SBen Gras	movl	4(%esp),%eax
13*2fe8fb19SBen Gras	andl	$0x7f800000, %eax
14*2fe8fb19SBen Gras	cmpl	$0x7f800000, %eax
15*2fe8fb19SBen Gras	setne	%al
16*2fe8fb19SBen Gras	andl	$0x000000ff, %eax
17*2fe8fb19SBen Gras#else
18*2fe8fb19SBen Gras	xorl	%eax,%eax
19*2fe8fb19SBen Gras	movl	$0x7ff00000,%esi
20*2fe8fb19SBen Gras	movss	%xmm0,-4(%rsp)
21*2fe8fb19SBen Gras	andl	-4(%rsp),%esi
22*2fe8fb19SBen Gras	cmpl	$0x7ff00000,%esi
23*2fe8fb19SBen Gras	setne	%al
24*2fe8fb19SBen Gras#endif
25*2fe8fb19SBen Gras	ret
26