Merged i48abs from master into float64_long_double

Author: ZERICO2005

examples/standalone_examples/math_test/src/main.c

@@ -95,10 +95,12 @@ static int24_t iabs(int24_t x)
 {
     return x < 0 ? (int24_t)-x : x;
 }
+#ifndef _EZ80
 static int48_t i48abs(int48_t x)
 {
     return x < 0 ? (int48_t)-x : x;
 }
+#endif
 
 
 #if INTERACTIVE && defined(_EZ80)

src/crt/i48abs.src

@@ -0,0 +1,23 @@
+	assume	adl=1
+
+	section	.text
+
+	public	_i48abs
+
+; int48_t i48abs(int48_t)
+_i48abs:
+	pop	bc
+	pop	de
+	ex	(sp), hl
+
+	; read the signbit
+	push	hl
+	add	hl, hl
+	ex	(sp), hl
+
+	push	bc
+	ex	de, hl
+	ret nc	; positive
+	jp	__i48neg
+
+	extern	__i48neg

src/crt/i48div.src

@@ -0,0 +1,8 @@
+	assume	adl=1
+
+	section	.text
+
+;	public	_i48div
+
+; i48div_t i48div(int48_t numer, int48_t denom);
+; _i48div:

src/libc/include/stdlib.h

@@ -13,6 +13,13 @@ typedef struct {
     long rem;
 } ldiv_t;
 
+#ifdef __SIZEOF_INT48__
+typedef struct {
+    signed __int48 quot;
+    signed __int48 rem;
+} i48div_t;
+#endif /* __SIZEOF_INT48__ */
+
 typedef struct {
     long long rem;
     long long quot;
@@ -95,9 +102,15 @@ void _Exit(int) __NOEXCEPT __attribute__((noreturn));
 
 #ifndef _ABS_INT_DEFINED
 #define _ABS_INT_DEFINED
+
 int abs(int n);
 long labs(long n);
 long long llabs(long long n);
+
+#ifdef __SIZEOF_INT48__
+signed __int48 i48abs(signed __int48 n);
+#endif /* __SIZEOF_INT48__ */
+
 #endif /* _ABS_INT_DEFINED */
 
 div_t div(int numer, int denom);
@@ -106,6 +119,10 @@ ldiv_t ldiv(long numer, long denom);
 
 lldiv_t lldiv(long long numer, long long denom);
 
+#ifdef __SIZEOF_INT48__
+i48div_t i48div(signed __int48 numer, signed __int48 denom);
+#endif /* __SIZEOF_INT48__ */
+
 __END_DECLS
 
 #endif /* _STDLIB_H */

src/libcxx/include/__abs_overloads

@@ -17,6 +17,10 @@ int abs(int n);
 long labs(long n);
 long long llabs(long long n);
 
+#ifdef __SIZEOF_INT48__
+signed __int48 i48abs(signed __int48 n);
+#endif // __SIZEOF_INT48__
+
 __END_DECLS
 
 #endif // _ABS_INT_DEFINED
@@ -36,6 +40,12 @@ namespace std {
 using ::abs;
 inline constexpr long abs(long __x) { return labs(__x); }
 inline constexpr long long abs(long long __x) { return llabs(__x); }
+
+#ifdef __SIZEOF_INT48__
+using ::i48abs;
+inline signed __int48 abs(signed __int48 __x) { return i48abs(__x); }
+#endif // __SIZEOF_INT48__
+
 inline constexpr float abs(float __x) { return fabsf(__x); }
 inline constexpr double abs(double __x) { return fabs(__x); }
 inline constexpr long double abs(long double __x) { return fabsl(__x); }

src/libcxx/include/cstdlib

@@ -3,11 +3,10 @@
 #define _EZCXX_CSTDLIB
 
 #include <stdlib.h>
+#include <__abs_overloads>
 
 #pragma clang system_header
 
-#include <__abs_overloads>
-
 namespace std {
 using ::calloc;
 using ::malloc;
@@ -48,6 +47,10 @@ using ::ldiv;
 using ::lldiv;
 inline constexpr ldiv_t div(long __x, long __y) { return ldiv(__x, __y); }
 inline constexpr lldiv_t div(long long __x, long long __y) { return lldiv(__x, __y); }
+#ifdef __SIZEOF_INT48__
+using ::i48div;
+inline i48div_t div(signed __int48 __x, signed __int48 __y) { return i48div(__x, __y); }
+#endif // __SIZEOF_INT48__
 
 } // namespace std