1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
/*
** Copyright (C) 1991 DJ Delorie, 24 Kirsten Ave, Rochester NH 03867-2954
**
** Modified O.ROBERT 24, Avenue de Verdun 92170 VANVES, FRANCE
**
** E-mail: roberto@germinal.ibp.fr
**
** This file is distributed under the terms listed in the document
** "copying.dj", available from DJ Delorie at the address above.
** A copy of "copying.dj" should accompany this file; if not, a copy
** should be available from where this file was obtained. This file
** may not be distributed without a verbatim copy of "copying.dj".
**
** This file is distributed WITHOUT ANY WARRANTY; without even the implied
** warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**
** or 03-Apr-1991 corrected bug about argument zero to pow
** fyl2x didn't like it
*/
/* Modified by H.J. Lu for Linux, 1992 */
/* Modified by J.-H. Rechtien, 2.2.1994 */
/* History:15,24 */
.file "expl.S"
#ifdef __ELF__
#define _expl expl
#define _pow10l pow10l
#define _pow2l pow2l
#endif
#ifdef __ELF__
.section .rodata
#else
.text
#endif
#ifdef __i486__
.align 4,0x90
#else
.align 2,0x90
#endif
#ifdef __ELF__
.LC0:
#else
LC0:
#endif
.double 0d1.0000000000000000000e+00
.text
.globl _expl
#ifdef __i486__
.align 4,0x90
#else
.align 2,0x90
#endif
_expl:
pushl %ebp
movl %esp,%ebp
subl $8,%esp
#ifdef __PIC__
pushl %ebx
call .L2
.L2:
popl %ebx
addl $_GLOBAL_OFFSET_TABLE_+[.-.L2],%ebx
#endif
fldt 8(%ebp)
fldl2e
fmulp %st,%st(1)
#ifdef __ELF__
jmp .L1
#else
jmp L1
#endif
.globl _pow10l
#ifdef __i486__
.align 4,0x90
#else
.align 2,0x90
#endif
_pow10l:
pushl %ebp
movl %esp,%ebp
subl $8,%esp
#ifdef __PIC__
pushl %ebx
call .L3
.L3:
popl %ebx
addl $_GLOBAL_OFFSET_TABLE_+[.-.L3],%ebx
#endif
fldt 8(%ebp)
fldl2t
fmulp %st,%st(1)
#ifdef __ELF__
jmp .L1
#else
jmp L1
#endif
.globl _pow2l
#ifdef __i486__
.align 4,0x90
#else
.align 2,0x90
#endif
_pow2l:
pushl %ebp
movl %esp,%ebp
subl $8,%esp
#ifdef __PIC__
pushl %ebx
call .L4
.L4:
popl %ebx
addl $_GLOBAL_OFFSET_TABLE_+[.-.L4],%ebx
#endif
fldt 8(%ebp)
#ifdef __ELF__
.L1:
#else
L1:
#endif
fstcw -4(%ebp)
fstcw -8(%ebp)
fwait
andw $0xf3ff,-4(%ebp)
fldcw -4(%ebp)
fldl %st(0)
frndint
fldcw -8(%ebp)
fxch %st(1)
fsub %st(1),%st
f2xm1
fwait
#ifdef __PIC__
faddl .LC0@GOTOFF(%ebx)
#else
#ifdef __ELF__
faddl .LC0
#else
faddl LC0
#endif
#endif
fscale
fstp %st(1)
#ifdef __PIC__
popl %ebx
#endif
movl %ebp,%esp
popl %ebp
ret
#ifdef __ELF__
.type expl,@function
.type pow10l,@function
.type pow2l,@function
#endif
|
