Added tests for utod/itod

Author: ZERICO2005

src/crt/ltod.c

@@ -2,62 +2,21 @@
 
 	section	.text
 
-if 0
-;	public	__utod, __itod
-
-; __utod:
-;	; u24_ret_f64
-;	ld	e, 0
-__ultod:
-	; u32_ret_f64
-	ld	d, a
-.ultod_skip:
-	push	iy, de, hl
-	call	__ultod_c
-	pop	af, af, iy
-	ret
-
-; __itod:
-;	; i24_ret_f64
-;	ld	d, a
-;	push	hl
-;	add	hl, hl
-;	sbc	a, a
-;	ld	e, a
-;	pop	hl
-;	jr	__ltod.ltod_skip
-
-__ltod:
-	; i32_ret_f64
-	ld	d, a
-	bit	7, e
-.ltod_skip:
-	jr	z, __ultod.ultod_skip	; positive argument
-	; return -_ultod_c(labs(x))
-	call	__lneg
-	push	iy, de, hl
-	call	__ultod_c
-	set	7, b	; negative result
-	pop	af, af, iy
-	ret
-	
-	extern	__ultod_c
-
-end if
-
 	public	__itod
+; (long double)int
 __itod:
 	push	hl
-	add	hl, hl
+	add	hl, hl	; extract signbit
 	pop	hl
 	push	af
 	ld	e, 0
-	call	c, __ineg
+	call	c, __ineg	; abs(UHL)
 	jr	__ltod.hijack
 
 	section	.text
 
 	public	__utod
+; (long double)unsigned int
 __utod:
 	ld	e, 0
 
@@ -66,19 +25,21 @@ __utod:
 	section	.text
 
 	public	__ultod
+; (long double)unsigned long
 __ultod:
 	or	a, a
-	push	af
+	push	af	
 	jr	__ltod.hijack
 
 	section	.text
 
 	public	__ltod
+; (long double)long
 __ltod:
 	rlc	e
 	push	af
 	rrc	e
-	call	c, __lneg
+	call	c, __lneg	; abs(E:UHL)
 
 	require	__ltod.hijack
 
@@ -159,6 +120,7 @@ end if
 	pop	af
 	ret
 
+	extern	__ineg
 	extern	__lneg
 	extern	__lctlz
 	extern	__lshl

src/crt/ltod.src

@@ -0,0 +1,20 @@
+	assume	adl=1
+
+	section	.text
+
+	public	_CRT_utod, _CRT_itod
+
+_CRT_utod:
+	ld	hl, 3
+	add	hl, sp
+	ld	hl, (hl)
+	jp	__utod
+
+_CRT_itod:
+	ld	hl, 3
+	add	hl, sp
+	ld	hl, (hl)
+	jp	__itod
+
+	extern	__utod
+	extern	__itod

test/floating_point/float64_from_integer/src/crt_wrap.asm

@@ -25,6 +25,10 @@ void print_failed(uint64_t input, uint64_t guess, uint64_t truth) {
     );
 }
 
+
+long double CRT_utod(unsigned int);
+long double CRT_itod(signed int);
+
 size_t run_test(const char** failed_func) {
     typedef struct { uint32_t u32; uint64_t u64; } input_t;
     typedef struct { F64_pun fu32; F64_pun fi32; F64_pun fu64; F64_pun fi64; } output_t;
@@ -50,6 +54,24 @@ size_t run_test(const char** failed_func) {
             return i;
         }
 
+        if ((uint32_t)input[i].u32 <= UINT24_MAX) {
+            result.flt = CRT_utod((uint24_t)input[i].u32);
+            if (result.bin != output[i].fu32.bin) {
+                print_failed((uint64_t)input[i].u32, result.bin, output[i].fu32.bin);
+                *failed_func = "utod";
+                return i;
+            }
+        }
+ 
+        if ((int32_t)input[i].u32 >= INT24_MIN && (int32_t)input[i].u32 <= INT24_MAX) {
+            result.flt = CRT_itod((int24_t)input[i].u32);
+            if (result.bin != output[i].fi32.bin) {
+                print_failed((uint64_t)input[i].u32, result.bin, output[i].fi32.bin);
+                *failed_func = "itod";
+                return i;
+            }
+        }
+
         result.flt = (long double)((uint64_t)input[i].u64);
         if (result.bin != output[i].fu64.bin) {
             print_failed((uint64_t)input[i].u64, result.bin, output[i].fu64.bin);