Cross Reference: /src/lib/libm/arch/i387/e_fmod.S

e_fmod.S revision 1.6

      1 /*
      2  * Written by J.T. Conklin <jtc (at) netbsd.org>.
      3  * Public domain.
      4  */
      5 
      6 #include <machine/asm.h>
      7 
      8 #include "abi.h"
      9 
     10 
     11 RCSID("$NetBSD: e_fmod.S,v 1.6 2001/06/25 16:44:34 fvdl Exp $")
     12 
     13 ENTRY(__ieee754_fmod)
     14 	XMM_TWO_ARG_DOUBLE_PROLOGUE
     15 	fldl	ARG_DOUBLE_TWO
     16 	fldl	ARG_DOUBLE_ONE
     17 1:	fprem
     18 	fstsw	%ax
     19 	btw	$10,%ax
     20 	jc	1b
     21 	fstp	%st(1)
     22 	XMM_DOUBLE_EPILOGUE
     23 	ret
     24