1/*	$OpenBSD: s_significand.S,v 1.2 2005/08/02 11:17:31 espie Exp $ */
2/*
3 * Written by J.T. Conklin <jtc@NetBSD.org>.
4 * Public domain.
5 */
6
7#include <machine/asm.h>
8
9#include "abi.h"
10
11ENTRY(significand)
12	XMM_ONE_ARG_DOUBLE_PROLOGUE
13	fldl	ARG_DOUBLE_ONE
14	fxtract
15	fstp	%st(1)
16	XMM_DOUBLE_EPILOGUE
17	ret
18END(significand)
19
20	.section .note.GNU-stack,"",%progbits
21