1/* $OpenBSD: s_significand.S,v 1.5 2018/03/12 04:27:48 guenther Exp $ */ 2/* 3 * Written by J.T. Conklin <jtc@netbsd.org>. 4 * Public domain. 5 */ 6 7#include <machine/asm.h> 8 9ENTRY(significand) 10 fldl 4(%esp) 11 fxtract 12 fstp %st(1) 13 ret 14END(significand) 15 .weak significand 16