Optimize acos, calloc

Author: mateoconlechuga

CEdev/lib/src/buildall.bat

@@ -26,9 +26,9 @@ set RTL_ASM_SRC=atoi.asm atol.asm atos.asm abs.asm calloc.asm isalnum.asm isalph
 set HLP_C_SRC=
 set HLP_ASM_SRC=bdivs.asm bdivu.asm bldix.asm bldiy.asm bmuls.asm brems.asm bremu.asm bshl.asm bshrs.asm bshru.asm bstix.asm bstiy.asm case.asm iand.asm idivs.asm idivu.asm ildix.asm ildiy.asm imulu.asm indcall.asm ineg.asm inot.asm ior.asm irems.asm iremu.asm ishl.asm ishrs.asm ishru.asm istix.asm istiy.asm itol.asm ixor.asm ladd.asm land.asm lcmpu.asm lcmps.asm ldivs.asm ldivu.asm lldix.asm lldiy.asm lmulu.asm lmuls.asm lneg.asm lnot.asm lor.asm lrems.asm lremu.asm lshl.asm lshrs.asm lshru.asm lstix.asm lstiy.asm lsub.asm lxor.asm sand.asm sdivs.asm sdivu.asm sldix.asm sldiy.asm smulu.asm sneg.asm snot.asm sor.asm srems.asm sremu.asm sshl.asm sshrs.asm sshru.asm sstix.asm sstiy.asm stoi.asm stoiu.asm sxor.asm frbmuls.asm frbtof.asm frftob.asm frftoi.asm frftos.asm frftoub.asm frftoui.asm frftous.asm frimuls.asm frimulu.asm fritof.asm frsmuls.asm frsmulu.asm frstof.asm frubtof.asm fruitof.asm frustof.asm frameset0.asm frameset.asm setflag.asm scmpzero.asm icmpzero.asm lcmpzero.asm seqcase.asm seqcaseD.asm case24.asm case24D.asm case16.asm case16D.asm case8.asm case8D.asm
 
-set FP_C_SRC=acos.c asin.c atan.c atan2.c exp.c floor.c fmod.c fpdata.c frexp.c ldexp.c log.c log10.c modf.c pow.c sin.c sinh.c sqrt.c tan.c tanh.c gamma.c udtoe.c
+set FP_C_SRC=asin.c atan.c atan2.c exp.c floor.c fmod.c fpdata.c frexp.c ldexp.c log.c log10.c modf.c pow.c sin.c sinh.c sqrt.c tan.c tanh.c gamma.c udtoe.c
 set FP_ST_C_SRC=udtof.c udtog.c
-set FP_ASM_SRC=atof.asm ceil.asm cos.asm fabs.asm finite.asm fpadd.asm fpcmp.asm fpdiv.asm fpftol.asm fpltof.asm fpmul.asm fpneg.asm fppack.asm fpsub.asm fpultof.asm fpupop1.asm fpupop2.asm sqrtf.asm isnan.asm isinf.asm
+set FP_ASM_SRC=acos.asm atof.asm ceil.asm cos.asm fabs.asm finite.asm fpadd.asm fpcmp.asm fpdiv.asm fpftol.asm fpltof.asm fpmul.asm fpneg.asm fppack.asm fpsub.asm fpultof.asm fpupop1.asm fpupop2.asm sqrtf.asm isnan.asm isinf.asm
 
 set DEBUG_C_SRC=
 set DEBUG_ASM_SRC=debugger.asm removeallbreakpoints.asm removeallwatchpoints.asm removebreakpoint.asm removewatchpoint.asm setbreakpoint.asm setreadwatchpoint.asm setwritewatchpoint.asm setreadwritewatchpoint.asm  setwatchpoint.asm

CEdev/lib/src/std/acos.asm

@@ -0,0 +1,56 @@
+	.ref __frameset0
+	.ref __fcmp
+	.ref __fsub
+	.ref _asin
+	.ref _errno
+	.def _acos
+	.assume adl=1
+	
+; #define pio2  1.57079632679490
+;
+; double acos(double arg) {
+; 	if((arg > 1.) || (arg < -1.)) {
+; 		errno = EDOM;
+; 		return(0.);
+; 	}
+; 	return(pio2 - asin(arg));
+; }
+
+_acos:
+	call	__frameset0
+	ld	hl,8388608
+	ld	e,63
+	ld	bc,(ix+6)
+	ld	a,(ix+9)
+	push	bc
+	push	hl
+	call	__fcmp
+	pop	bc
+	pop	hl
+	jp	m,l_1
+	ld	e,(ix+9)
+	ld	a,191
+	call	__fcmp
+	jp	p,l_2
+
+l_1:	ld	bc,4
+	ld	(_errno),bc
+	xor	a,a
+	sbc	hl,hl
+	jr	l_3
+
+l_2:	ld	c,(ix+9)
+	ld	b,0
+	push	bc
+	ld	bc,(ix+6)
+	push	bc
+	call	_asin
+	ld	sp,ix
+	ld	bc,13176795
+	ld	a,63
+	call	__fsub
+	ld	hl,bc
+
+l_3:	ld	e,a
+	pop	ix
+	ret

CEdev/lib/src/std/acos.c

@@ -8,25 +8,20 @@ _calloc:
 	pop	de
 	pop	bc
 	pop	hl
-	push	bc
 	push	hl
+	push	bc
 	push	de
 	call	__imulu
 	push	hl
 	call	_malloc
-	add	hl,de 
-	or	a,a 
+	add	hl,de
+	xor	a,a
 	sbc	hl,de
-	pop	bc
-	ret	z
-	push	bc
-	ex	de,hl
-	or	a,a
-	sbc	hl,hl
-	push	hl
+	ld	e,a
 	push	de
-	call	_memset
+	push	hl
+	call	nz,_memset
 	pop	hl
-	pop	bc
+	pop	de
 	pop	bc
 	ret