1/**
2 * This file has no copyright assigned and is placed in the Public Domain.
3 * This file is part of the mingw-w64 runtime package.
4 * No warranty is given; refer to the file DISCLAIMER.PD within this package.
5 */
6#include <_mingw_mac.h>
7
8 .file "remquol.S"
9 .text
10#ifdef __x86_64__
11 .align 8
12#else
13 .align 4
14#endif
15.globl __MINGW_USYMBOL(remquol)
16__MINGW_USYMBOL(remquol):
17#ifdef __x86_64__
18 pushq %rcx
19 fldt (%r8)
20 fldt (%rdx)
211: fprem1
22 fstsw %ax
23 sahf
24 jp 1b
25 fstp %st(1)
26 movl %eax, %ecx
27 shrl $8, %eax
28 shrl $12, %ecx
29 andl $4, %ecx
30 andl $3, %eax
31 orl %eax, %ecx
32 movl $0xef2a60, %eax
33 leal (%ecx,%ecx,2),%ecx
34 shrl %cl, %eax
35 andl $7, %eax
36 movl 8(%rdx), %edx
37 xorl 8(%r8), %edx
38 testl $0x8000, %edx
39 jz 1f
40 negl %eax
411: movl %eax, (%r9)
42
43 popq %rcx
44 movq %rcx,%rax
45 movq $0,8(%rcx)
46 fstpt (%rcx)
47 ret
48#else
49 fldt 4 +12(%esp)
50 fldt 4(%esp)
511: fprem1
52 fstsw %ax
53 sahf
54 jp 1b
55 fstp %st(1)
56 movl %eax, %ecx
57 shrl $8, %eax
58 shrl $12, %ecx
59 andl $4, %ecx
60 andl $3, %eax
61 orl %eax, %ecx
62 movl $0xef2a60, %eax
63 leal (%ecx,%ecx,2),%ecx
64 shrl %cl, %eax
65 andl $7, %eax
66 movl 4 +12 +12(%esp), %ecx
67 movl 4 +8(%esp), %edx
68 xorl 4 +12 +8(%esp), %edx
69 testl $0x8000, %edx
70 jz 1f
71 negl %eax
721: movl %eax, (%ecx)
73
74 ret
75#endif