xref: /freebsd/lib/msun/i387/e_remainderf.S (revision 2be1a816b9ff69588e55be0a84cbe2a31efc0f2f)
1/*
2 * Written by J.T. Conklin <jtc@netbsd.org>.
3 * Public domain.
4 */
5
6#include <machine/asm.h>
7
8__FBSDID("$FreeBSD$");
9/* RCSID("$NetBSD: e_remainderf.S,v 1.2 1995/05/08 23:49:47 jtc Exp $") */
10
11ENTRY(remainderf)
12	flds	8(%esp)
13	flds	4(%esp)
141:	fprem1
15	fstsw	%ax
16	sahf
17	jp	1b
18	fstp	%st(1)
19	ret
20