Added f32/f64 auto tests and fixed ldexpl and others in libc

Author: ZERICO2005

src/crt/float64_runtime.src

@@ -151,133 +151,133 @@ __ulltod:
 
 else
 
-; wraps C functions
-
-;-------------------------------------------------------------------------------
-
-	section	.text
-	public	__dadd
-
-__dadd:
-	; f64_f64*_ret_f64
-	push	af, iy
-	ld	iy, 9
-	add	iy, sp
-	push	iy, bc, de, hl
-	call	__dadd_c
-	pop	af, af, af, af, iy, af
-	ret
+; ; wraps C functions
+
+; ;-------------------------------------------------------------------------------
+
+	; section	.text
+	; public	__dadd
+
+; __dadd:
+	; ; f64_f64*_ret_f64
+	; push	af, iy
+	; ld	iy, 9
+	; add	iy, sp
+	; push	iy, bc, de, hl
+	; call	__dadd_c
+	; pop	af, af, af, af, iy, af
+	; ret
 
-	extern	__dadd_c
-
-;-------------------------------------------------------------------------------
-
-	section	.text
-	public	__dsub
-
-__dsub:
-	; f64_f64*_ret_f64
-	push	af, iy
-	ld	iy, 9
-	add	iy, sp
-	push	iy, bc, de, hl
-	call	__dsub_c
-	pop	af, af, af, af, iy, af
-	ret
+	; extern	__dadd_c
+
+; ;-------------------------------------------------------------------------------
+
+	; section	.text
+	; public	__dsub
+
+; __dsub:
+	; ; f64_f64*_ret_f64
+	; push	af, iy
+	; ld	iy, 9
+	; add	iy, sp
+	; push	iy, bc, de, hl
+	; call	__dsub_c
+	; pop	af, af, af, af, iy, af
+	; ret
 
-	extern	__dsub_c
-
-;-------------------------------------------------------------------------------
-
-	section	.text
-	public	__dmul
-
-__dmul:
-	; f64_f64*_ret_f64
-	push	af, iy
-	ld	iy, 9
-	add	iy, sp
-	push	iy, bc, de, hl
-	call	__dmul_c
-	pop	af, af, af, af, iy, af
-	ret
+	; extern	__dsub_c
+
+; ;-------------------------------------------------------------------------------
+
+	; section	.text
+	; public	__dmul
+
+; __dmul:
+	; ; f64_f64*_ret_f64
+	; push	af, iy
+	; ld	iy, 9
+	; add	iy, sp
+	; push	iy, bc, de, hl
+	; call	__dmul_c
+	; pop	af, af, af, af, iy, af
+	; ret
 
-	extern	__dmul_c
-
-;-------------------------------------------------------------------------------
-
-	section	.text
-	public	__ddiv
-
-__ddiv:
-	; f64_f64*_ret_f64
-	push	af, iy
-	ld	iy, 9
-	add	iy, sp
-	push	iy, bc, de, hl
-	call	__ddiv_c
-	pop	af, af, af, af, iy, af
-	ret
+	; extern	__dmul_c
+
+; ;-------------------------------------------------------------------------------
+
+	; section	.text
+	; public	__ddiv
+
+; __ddiv:
+	; ; f64_f64*_ret_f64
+	; push	af, iy
+	; ld	iy, 9
+	; add	iy, sp
+	; push	iy, bc, de, hl
+	; call	__ddiv_c
+	; pop	af, af, af, af, iy, af
+	; ret
 
-	extern	__ddiv_c
+	; extern	__ddiv_c
 
-;-------------------------------------------------------------------------------
+; ;-------------------------------------------------------------------------------
 
-	section	.text
-	public	__drem
+	; section	.text
+	; public	__drem
 
-__drem:
-	; f64_f64*_ret_f64
-	push	af, iy
-	ld	iy, 9
-	add	iy, sp
-	push	iy, bc, de, hl
-	call	__drem_c
-	pop	af, af, af, af, iy, af
-	ret
+; __drem:
+	; ; f64_f64*_ret_f64
+	; push	af, iy
+	; ld	iy, 9
+	; add	iy, sp
+	; push	iy, bc, de, hl
+	; call	__drem_c
+	; pop	af, af, af, af, iy, af
+	; ret
 
-	extern	__drem_c
+	; extern	__drem_c
 
-;-------------------------------------------------------------------------------
+; ;-------------------------------------------------------------------------------
 
-	section	.text
-	public	__dtof
+	; section	.text
+	; public	__dtof
 
-__dtof:
-	; f64_ret_f32
-	push	af, iy, bc, de, hl
-	call	__dtof_c
-	pop	af, af, af, iy, af
-	ret
+; __dtof:
+	; ; f64_ret_f32
+	; push	af, iy, bc, de, hl
+	; call	__dtof_c
+	; pop	af, af, af, iy, af
+	; ret
 
-	extern	__dtof_c,
+	; extern	__dtof_c,
 
-;-------------------------------------------------------------------------------
+; ;-------------------------------------------------------------------------------
 
-	section	.text
-	public	__lltod
+	; section	.text
+	; public	__lltod
 
-__lltod:
-	; i64_ret_f64
-	push	af, iy, bc, de, hl
-	call	__lltod_c
-	pop	af, af, af, iy, af
-	ret
+; __lltod:
+	; ; i64_ret_f64
+	; push	af, iy, bc, de, hl
+	; call	__lltod_c
+	; pop	af, af, af, iy, af
+	; ret
 
-	extern	__lltod_c
+	; extern	__lltod_c
 
-;-------------------------------------------------------------------------------
+; ;-------------------------------------------------------------------------------
 
-	section	.text
-	public	__ulltod
+	; section	.text
+	; public	__ulltod
 
-__ulltod:
-	; u64_ret_f64
-	push	af, iy, bc, de, hl
-	call	__ulltod_c
-	pop	af, af, af, iy, af
-	ret
+; __ulltod:
+	; ; u64_ret_f64
+	; push	af, iy, bc, de, hl
+	; call	__ulltod_c
+	; pop	af, af, af, iy, af
+	; ret
 
-	extern	__ulltod_c
+	; extern	__ulltod_c
 
 end if

src/libc/frexpl.c

@@ -78,3 +78,7 @@ long double _frexpl_c(long double x, int *expon) {
     #endif
     return val.flt;
 }
+
+long double frexpl(long double x, int *expon) {
+    return copysignl(_frexpl_c(fabsl(x), expon), x);
+}

src/libc/frexpl.src

@@ -120,3 +120,7 @@ long double _ldexpl_c(long double x, int expon) {
     val.reg.BC += expon << (Float64_mantissa_bits - uint48_bits);
     return val.flt;
 }
+
+long double ldexpl(long double x, int expon) {
+    return copysignl(_ldexpl_c(fabsl(x), expon), x);
+}

src/libc/ldexpl.c

@@ -8,12 +8,13 @@ long double modfl(long double x, long double *integral_part) {
             *integral_part = x;
             return x;
         }
-        case FP_INFINITY: {
+        case FP_INFINITE: {
             *integral_part = x;
             return copysignl(0.0L, x);
         }
         case FP_SUBNORMAL:
         case FP_NORMAL:
+            break;
     }
     long double trunc_x = truncl(x);
     *integral_part = trunc_x;

src/libc/ldexpl.src

@@ -17,7 +17,7 @@ typedef union F64_pun {
 #define uint48_bits 48
 
 /** @note x is assumed to be positive */
-long double _truncl_c(long double x) {
+static long double _truncl_c(long double x) {
     F64_pun val;
     val.flt = x;
     unsigned int expon = (unsigned int)(val.reg.BC >> (Float64_mantissa_bits - uint48_bits));
@@ -34,3 +34,7 @@ long double _truncl_c(long double x) {
     val.bin &= mask;
     return val.flt;
 }
+
+long double truncl(long double x) {
+    return copysignl(_truncl_c(fabsl(x)), x);
+}

src/libc/modfl.c

@@ -34,6 +34,8 @@ SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 =============================================================================*/
 
+#if 0
+
 #include <stdint.h>
 #include "platform.h"
 #include "internals.h"
@@ -58,3 +60,4 @@ float64_t f64_mulAdd( float64_t a, float64_t b, float64_t c )
 
 }
 
+#endif