optimize some float routines

Author: ZERICO2005

src/libc/ceilf.src

@@ -15,28 +15,28 @@
 
 _ceil:
 _ceilf:
-	call	__frameset0
-	ld	bc, (ix+6)
-	ld	a, (ix+9)
+	ld	hl, 6
+	add	hl, sp
+	ld	a, (hl)
+	dec	hl
+	dec	hl
+	dec	hl
+	ld	bc, (hl)
 	call	__fneg
 	ld	l, a
-	ld	h, 0
 	push	hl
 	push	bc
 	call	_floor
 	pop	bc
-	pop	bc
-	push	hl
+	ex	(sp), hl
 	pop	bc
 	ld	a, e
 	call	__fneg
 	ld	e, a
 	push	bc
 	pop	hl
-	pop	ix
 	ret
 
-	.extern	__frameset0
 	.extern	__fneg
 	.extern	_floor
 

src/libc/cimagf.src

@@ -10,9 +10,11 @@
 ; float cimagf(float _Complex)
 _cimagf:
 _cimag:
-	ld	iy, 0
-	add	iy, sp
-	ld	sp, iy
-	ld	hl, (iy + 7)
-	ld	e, (iy + 10)
+	ld	hl, 10
+	add	hl, sp
+	ld	e, (hl)
+	dec	hl
+	dec	hl
+	dec	hl
+	ld	hl, (hl)
 	ret

src/libc/cimagl.src

@@ -9,7 +9,6 @@
 _cimagl:
 	ld	iy, 0
 	add	iy, sp
-	ld	sp, iy
 	ld	hl, (iy + 11)
 	ld	de, (iy + 14)
 	ld	bc, (iy + 17)