Added git source kolibri-libc and

Configured autobuild git-svn-id: svn://kolibrios.org@8687 a494cfbc-eb01-0410-851d-a64ba20cac60
2021-04-27 16:33:31 +00:00
parent 1d94455637
commit 728f124678
182 changed files with 9987 additions and 0 deletions
@@ -0,0 +1,87 @@
+/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
+	.data
+yint: 
+	.word   0,0
+pow.LCW1:
+	.word	0
+pow.LCW2:
+	.word	0
+
+	.text
+pow.LC0:
+	.double	0d1.0e+00
+
+.global pow;
+
+frac:
+	fstcw	pow.LCW1
+	fstcw	pow.LCW2
+	fwait
+	andw	$0xf3ff,pow.LCW2
+	orw	$0x0400,pow.LCW2
+	fldcw	pow.LCW2
+	fldl	%st(0)
+	frndint
+	fldcw	pow.LCW1
+	fxch	%st(1)
+	fsub	%st(1),%st
+	ret
+
+Lpow2:
+	call    frac
+	f2xm1
+	faddl	pow.LC0
+	fscale
+	fstp	%st(1)
+	ret
+
+pow:
+	fldl	12(%esp)
+	fldl	4(%esp)
+	ftst	
+	fnstsw	%ax
+	sahf
+	jbe	xltez
+	fyl2x
+	jmp	Lpow2
+xltez:
+	jb	xltz
+	fstp	%st(0)
+	ftst
+	fnstsw	%ax
+	sahf
+	ja	ygtz
+	jb	error
+	fstp	%st(0) 
+	fld1
+	fchs
+error:
+	fsqrt
+	ret
+ygtz:
+	fstp	%st(0)
+	fldz
+	ret
+xltz:
+	fabs
+	fxch    %st(1)
+	call	frac
+	ftst
+	fnstsw	%ax
+	fstp	%st(0)
+	sahf
+	je	yisint
+	fstp	%st(0)
+	fchs
+	jmp	error
+yisint:
+	fistl	yint
+	fxch    %st(1)
+	fyl2x
+	call	Lpow2
+	andl	$1,yint
+	jz	yeven
+	fchs
+yeven:
+	ret
+