e_fmodl.S (83e449a402c9fc0eee9c52409b9e44c048ae1347) e_fmodl.S (f776d19f0712612609a35439b13e75df0ca0c0f2)
1/*
2 * Copyright (c) 1993,94 Winning Strategies, Inc.
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright

--- 15 unchanged lines hidden (view full) ---

24 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
25 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
26 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
27 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
28 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29 */
30
31/*
1/*
2 * Copyright (c) 1993,94 Winning Strategies, Inc.
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright

--- 15 unchanged lines hidden (view full) ---

24 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
25 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
26 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
27 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
28 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29 */
30
31/*
32 * Based on the i387 version written by:
32 * Written by:
33 * J.T. Conklin (jtc@wimsey.com), Winning Strategies, Inc.
34 */
35
36#include <machine/asm.h>
37__FBSDID("$FreeBSD$")
38
39ENTRY(fmodl)
33 * J.T. Conklin (jtc@wimsey.com), Winning Strategies, Inc.
34 */
35
36#include <machine/asm.h>
37__FBSDID("$FreeBSD$")
38
39ENTRY(fmodl)
40 fldt 24(%rsp)
41 fldt 8(%rsp)
40 fldt 16(%esp)
41 fldt 4(%esp)
421: fprem
43 fstsw %ax
421: fprem
43 fstsw %ax
44 testw $0x400,%ax
45 jne 1b
44 sahf
45 jp 1b
46 fstp %st(1)
47 ret
48END(fmodl)
49
50 .section .note.GNU-stack,"",%progbits
46 fstp %st(1)
47 ret
48END(fmodl)
49
50 .section .note.GNU-stack,"",%progbits