fixed fmodf

Author: ZERICO2005

src/libc/fmodf.src

@@ -15,16 +15,18 @@
 
 _fmod:
 _fmodf:
+	pop	iy
+	pop	bc	; X-lo
 	pop	de
-	pop	bc
-	ex	(sp), hl
-	ld	a, l
-	call	__fprem
-	push	bc
-	ex	(sp), hl
+	ld	a, e	; X-hi
+	pop	hl	; Y-lo
+	pop	de	; Y-hi
+	push	de
+	push	hl
 	push	de
-	ld	e, a
-	ret
+	push	bc
+	call	__fprem
+	jp	(iy)
 
 	.extern	__fprem
 

test/floating_point/float32_fmod/autotest.json

@@ -0,0 +1,43 @@
+{
+  "transfer_files": [
+    "bin/DEMO.8xp"
+  ],
+  "target": {
+    "name": "DEMO",
+    "isASM": true
+  },
+  "sequence": [
+    "action|launch",
+    "delay|1000",
+    "hashWait|1",
+    "key|enter",
+    "delay|300",
+    "hashWait|2"
+  ],
+  "hashes": {
+    "1": {
+      "description": "All tests passed or GDB1 error",
+      "timeout": 5000,
+      "start": "vram_start",
+      "size": "vram_16_size",
+      "expected_CRCs": [
+        "38E2AD5A",
+        "2C812DC2"
+      ]
+    },
+    "2": {
+      "description": "Exit or GDB1 error",
+      "start": "vram_start",
+      "size": "vram_16_size",
+      "expected_CRCs": [
+        "FFAF89BA",
+        "101734A5",
+        "9DA19F44",
+        "A32840C8",
+        "349F4775",
+        "271A9FBF",
+        "82FD0B1E"
+      ]
+    }
+  }
+}

test/floating_point/float32_fmod/makefile

@@ -0,0 +1,19 @@
+# ----------------------------
+# Makefile Options
+# ----------------------------
+
+NAME = DEMO
+ICON = icon.png
+DESCRIPTION = "CE C Toolchain Demo"
+COMPRESSED = NO
+
+CFLAGS = -Wall -Wextra -Wshadow -ffreestanding -Wfloat-conversion -Wimplicit-float-conversion -Wimplicit-int-float-conversion -Oz -std=c17
+CXXFLAGS = -Wall -Wextra -Wshadow -ffreestanding -Wfloat-conversion -Wimplicit-float-conversion -Wimplicit-int-float-conversion -Oz -std=c++17
+
+HAS_MATH_ERRNO = YES
+PREFER_OS_LIBC = NO
+PREFER_OS_CRT = NO
+
+# ----------------------------
+
+include $(shell cedev-config --makefile)

test/floating_point/float32_fmod/src/crt_wrap.s

@@ -0,0 +1,21 @@
+	.assume	adl=1
+
+	.section	.text
+
+	.global	_frem_libcall
+	.type	_frem_libcall, @function
+
+_frem_libcall:
+	ld	iy, 0
+	add	iy, sp
+	ld	bc, (iy + 3)
+	ld	a, (iy + 6)
+	ld	hl, (iy + 9)
+	ld	e, (iy + 12)
+	call	__frem
+	push	bc
+	pop	hl
+	ld	e, a
+	ret
+
+	.extern	__frem

test/floating_point/float32_fmod/src/main.c

@@ -0,0 +1,62 @@
+#include <stdbool.h>
+#include <stddef.h>
+#include <stdint.h>
+#include <stdio.h>
+#include <math.h>
+#include <assert.h>
+#include <ti/screen.h>
+#include <ti/getcsc.h>
+#include <sys/util.h>
+#include <ti/sprintf.h>
+
+#define C(expr) if (!(expr)) { return __LINE__; }
+
+float frem_libcall(float, float);
+
+size_t run_test(void) {
+    float f32_pos_pi = (float)M_PI;
+    float f32_neg_pi = (float)-M_PI;
+    float f32_pos_one = 1.0f;
+    float f32_neg_one = -1.0f;
+
+    float trunc_part;
+
+    /* fmodf test */
+    C((fmodf(f32_pos_pi, f32_pos_one) == modff(f32_pos_pi, &trunc_part)));
+    C((trunc_part == 3.0f));
+    C((fmodf(f32_neg_pi, f32_pos_one) == modff(f32_neg_pi, &trunc_part)));
+    C((trunc_part == -3.0f));
+    C((fmodf(f32_pos_pi, f32_neg_one) == modff(f32_pos_pi, &trunc_part)));
+    C((trunc_part == 3.0f));
+    C((fmodf(f32_neg_pi, f32_neg_one) == modff(f32_neg_pi, &trunc_part)));
+    C((trunc_part == -3.0f));
+
+    /* frem test */
+    C((frem_libcall(f32_pos_pi, f32_pos_one) == modff(f32_pos_pi, &trunc_part)));
+    C((trunc_part == 3.0f));
+    C((frem_libcall(f32_neg_pi, f32_pos_one) == modff(f32_neg_pi, &trunc_part)));
+    C((trunc_part == -3.0f));
+    C((frem_libcall(f32_pos_pi, f32_neg_one) == modff(f32_pos_pi, &trunc_part)));
+    C((trunc_part == 3.0f));
+    C((frem_libcall(f32_neg_pi, f32_neg_one) == modff(f32_neg_pi, &trunc_part)));
+    C((trunc_part == -3.0f));
+
+    /* passed all */
+    return SIZE_MAX;
+}
+
+int main(void) {
+    os_ClrHome();
+    size_t fail_index = run_test();
+    if (fail_index == SIZE_MAX) {
+        puts("All tests passed");
+    } else {
+        char buf[sizeof("Failed test: 16777215")];
+        boot_sprintf(buf, "Failed test: %u", fail_index);
+        puts(buf);
+    }
+
+    while (!os_GetCSC());
+
+    return 0;
+}