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_finite.S,v 1.7 2003/07/26 19:25:01 salo Exp $") 9*2fe8fb19SBen Gras 10*2fe8fb19SBen GrasENTRY(finite) 11*2fe8fb19SBen Gras#ifdef __i386__ 12*2fe8fb19SBen Gras movl 8(%esp),%eax 13*2fe8fb19SBen Gras andl $0x7ff00000, %eax 14*2fe8fb19SBen Gras cmpl $0x7ff00000, %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 movq $0x7ff0000000000000,%rsi 20*2fe8fb19SBen Gras movq %rsi,%rdi 21*2fe8fb19SBen Gras movsd %xmm0,-8(%rsp) 22*2fe8fb19SBen Gras andq -8(%rsp),%rsi 23*2fe8fb19SBen Gras cmpq %rdi,%rsi 24*2fe8fb19SBen Gras setne %al 25*2fe8fb19SBen Gras#endif 26*2fe8fb19SBen Gras ret 27