Fixed fmodl and renamed softfloat functions (i.e. f64_sqrt to __f64_sqrt) to avoid conflict with user functions

Author: ZERICO2005

src/crt/ddiv.src

@@ -17,10 +17,10 @@ __ddiv:
 	rla
 	push	af	; Carry = (signbit(x) != signbit(y))
 
-	call	_f64_div
+	call	___f64_div
 
 	pop	af, af, af, af, af
 	pop	iy, af	; restore
 	ret
 
-	extern	_f64_div
+	extern	___f64_div

src/crt/dmul.src

@@ -17,10 +17,10 @@ __dmul:
 	rla
 	push	af	; Carry = (signbit(x) != signbit(y))
 
-	call	_f64_mul
+	call	___f64_mul
 
 	pop	af, af, af, af, af
 	pop	iy, af	; restore
 	ret
 
-	extern	_f64_mul
+	extern	___f64_mul

src/crt/drem.src

@@ -14,10 +14,10 @@ __drem:
 	rl	b
 	push	af	; Carry = signbit(x)
 
-	call	_f64_rem
+	call	___f64_rem
 
 	pop	af, af, af, af, af
 	pop	iy, af	; restore
 	ret
 
-	extern	_f64_rem
+	extern	___f64_rem

src/crt/dtof.src

@@ -7,12 +7,12 @@
 __dtof:
 	; f64_ret_f32
 	push	af, iy, bc, de, hl
-	call	_f64_to_f32
+	call	___f64_to_f32
 	pop	af
 	ld	a, e
 	pop	de
 	ld	e, a
 	pop	bc, iy, af
 	ret
 
-	extern	_f64_to_f32
+	extern	___f64_to_f32

src/crt/ftod.src

@@ -24,4 +24,4 @@ __ftod:
 	pop	af, af, iy
 	ret
 
-extern __ftod_c
+	extern __ftod_c

src/crt/lltod.src

@@ -7,8 +7,8 @@
 __lltod:
 	; i64_ret_f64
 	push	af, iy, bc, de, hl
-	call	_i64_to_f64
+	call	___i64_to_f64
 	pop	af, af, af, iy, af
 	ret
 
-	extern	_i64_to_f64
+	extern	___i64_to_f64

src/crt/ltod.src

@@ -41,4 +41,4 @@ __ltod:
 	pop	af, af, iy
 	ret
 
-	extern __ultod_c, __lneg
+	extern	__ultod_c, __lneg

src/crt/ulltod.src

@@ -7,8 +7,8 @@
 __ulltod:
 	; u64_ret_f64
 	push	af, iy, bc, de, hl
-	call	_ui64_to_f64
+	call	___ui64_to_f64
 	pop	af, af, af, iy, af
 	ret
 
-	extern	_ui64_to_f64
+	extern	___ui64_to_f64

src/libc/float64_rounding.c

@@ -15,7 +15,7 @@ typedef union F64_pun {
 long double truncl(long double x) {
     F64_pun arg_x, ret;
     arg_x.flt = x;
-    ret.soft = f64_roundToInt(arg_x.soft, softfloat_round_minMag, false);
+    ret.soft = __f64_roundToInt(arg_x.soft, softfloat_round_minMag, false);
     return ret.flt;
 }
 #endif
@@ -25,7 +25,7 @@ long double truncl(long double x) {
 long double floorl(long double x) {
     F64_pun arg_x, ret;
     arg_x.flt = x;
-    ret.soft = f64_roundToInt(arg_x.soft, softfloat_round_min, false);
+    ret.soft = __f64_roundToInt(arg_x.soft, softfloat_round_min, false);
     return ret.flt;
 }
 #endif
@@ -35,37 +35,37 @@ long double floorl(long double x) {
 long double ceill(long double x) {
     F64_pun arg_x, ret;
     arg_x.flt = x;
-    ret.soft = f64_roundToInt(arg_x.soft, softfloat_round_max, false);
+    ret.soft = __f64_roundToInt(arg_x.soft, softfloat_round_max, false);
     return ret.flt;
 }
 #endif
 
 long double roundevenl(long double x) {
     F64_pun arg_x, ret;
     arg_x.flt = x;
-    ret.soft = f64_roundToInt(arg_x.soft, softfloat_round_near_even, false);
+    ret.soft = __f64_roundToInt(arg_x.soft, softfloat_round_near_even, false);
     return ret.flt;
 }
 
 long double roundl(long double x) {
     F64_pun arg_x, ret;
     arg_x.flt = x;
-    ret.soft = f64_roundToInt(arg_x.soft, softfloat_round_near_maxMag, false);
+    ret.soft = __f64_roundToInt(arg_x.soft, softfloat_round_near_maxMag, false);
     return ret.flt;
 }
 
 /* flags handled by softfloat */
 long lroundl(long double x) {
     F64_pun arg_x;
     arg_x.flt = x;
-    return f64_to_i32(arg_x.soft, softfloat_round_near_maxMag, false);
+    return __f64_to_i32(arg_x.soft, softfloat_round_near_maxMag, false);
 }
 
 /* flags handled by softfloat */
 long long llroundl(long double x) {
     F64_pun arg_x;
     arg_x.flt = x;
-    return f64_to_i64(arg_x.soft, softfloat_round_near_maxMag, false);
+    return __f64_to_i64(arg_x.soft, softfloat_round_near_maxMag, false);
 }
 
 #if ( \
@@ -92,28 +92,28 @@ long long llroundl(long double x) {
 long double nearbyintl(long double x) {
     F64_pun arg_x, ret;
     arg_x.flt = x;
-    ret.soft = f64_roundToInt(arg_x.soft, GET_FENV_SOFTFLOAT_ROUNDING(), false);
+    ret.soft = __f64_roundToInt(arg_x.soft, GET_FENV_SOFTFLOAT_ROUNDING(), false);
     return ret.flt;
 }
 
 /* flags handled by softfloat */
 long double rintl(long double x) {
     F64_pun arg_x, ret;
     arg_x.flt = x;
-    ret.soft = f64_roundToInt(arg_x.soft, GET_FENV_SOFTFLOAT_ROUNDING(), true);
+    ret.soft = __f64_roundToInt(arg_x.soft, GET_FENV_SOFTFLOAT_ROUNDING(), true);
     return ret.flt;
 }
 
 /* flags handled by softfloat */
 long lrintl(long double x) {
     F64_pun arg_x;
     arg_x.flt = x;
-    return f64_to_i32(arg_x.soft, GET_FENV_SOFTFLOAT_ROUNDING(), true);
+    return __f64_to_i32(arg_x.soft, GET_FENV_SOFTFLOAT_ROUNDING(), true);
 }
 
 /* flags handled by softfloat */
 long long llrintl(long double x) {
     F64_pun arg_x;
     arg_x.flt = x;
-    return f64_to_i64(arg_x.soft, GET_FENV_SOFTFLOAT_ROUNDING(), true);
+    return __f64_to_i64(arg_x.soft, GET_FENV_SOFTFLOAT_ROUNDING(), true);
 }

src/libc/fmodl.src

@@ -11,21 +11,21 @@ _fmodl:
 
 	ld	hl, (ix + 12)
 	push	hl	; x[63:48]
+	ld	a, h
 
 	ld	hl, (ix + 9)
 	push	hl	; x[47:24]
 
 	ld	hl, (ix + 6)
 	push	hl	; x[23:0]
 
-	ld	a, h
 	rla
 	push	af	; Carry = signbit(x)
 
-	call	_f64_rem
+	call	___f64_rem
 	ld	sp, ix
 	pop	ix
 	ret
 
-	extern	_f64_rem
+	extern	___f64_rem
 	extern	__frameset0