1/* $OpenBSD: s_significand.S,v 1.6 2022/08/27 08:30:18 tb 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_NB(significand) 12 RETGUARD_SETUP(significand, r11) 13 XMM_ONE_ARG_DOUBLE_PROLOGUE 14 fldl ARG_DOUBLE_ONE 15 fxtract 16 fstp %st(1) 17 XMM_DOUBLE_EPILOGUE 18 RETGUARD_CHECK(significand, r11) 19 ret 20END(significand) 21 .weak significand 22