sqrt.s « 386 « libc « src « sys - plan9front.git - Unnamed repository; edit this file 'description' to name the repository.

summary refs log tree commit diff

path: root/sys/src/libc/386/sqrt.s

blob: 219a8ac6b93ad643f970c13c1ef75b54b407a317 (plain)

TEXT	sqrt(SB), $0
	FMOVD	a+0(FP), F0

	FTST
	WAIT
	FSTSW	AX
	SAHF
	JLO	bad

	FSQRT
	RET

bad:
	FMOVDP	F0, F0
	CALL	NaN(SB)
	RET