xref: /plan9/sys/src/libc/386/387/log.s (revision 3e12c5d1bb89fc02707907988834ef147769ddaf)
1TEXT	log(SB), $0
2	FMOVD	$0.69314718055994530941, F0
3	FMOVD	a+0(FP), F0
4
5	FTST
6	WAIT
7	FSTSW	AX
8	SAHF
9	JLO	bad
10
11	FYL2X
12	RET
13
14TEXT	log10(SB), $0
15	FMOVD	$0.30102999566398119521, F0
16	FMOVD	a+0(FP), F0
17
18	FTST
19	WAIT
20	FSTSW	AX
21	SAHF
22	JLO	bad
23
24	FYL2X
25	RET
26
27bad:
28	FMOVDP	F0, F0
29	FMOVDP	F0, F0
30	CALL	NaN(SB)
31	RET
32