Updated the definition of quiet NaN for issignaling

Author: ZERICO2005

src/libc/issignalingf.src

@@ -4,27 +4,20 @@
 
 	public	__issignalingf
 
-; assumes quiet NaN is 0x7FC00000 or 0xFFC00000
+; assumes quiet NaN is NaN with bit 22 set
 ; bool _issignalingf(float)
 __issignalingf:
 	; based off __isnanf, unoptimized
 	xor	a, a
 	ld	iy, 0
 	add	iy, sp
+	bit	6, (iy + 5) ; 22 % 8 == 6
+	ret	nz	; quiet bit set, return false
 	ld	hl, (iy + 3)
 	adc	hl, hl
 	ret	z	; infinity
 	ld	a, (iy + 6)
 	rla
-
-	or	a, a
-	adc	hl, hl
-	jr	z, .quiet_nan
-
 	add	a, 1	; attempt to overflow the exponent
 	sbc	a, a
 	ret
-
-.quiet_nan:
-	xor	a, a
-	ret

src/libc/issignalingl.src

@@ -4,31 +4,14 @@
 
 	public	__issignalingl
 
-; assumes quiet NaN is 0x7FF8000000000000 or 0xFFF8000000000000
+; assumes quiet NaN is NaN with bit 51 set
 ; bool _issignalingl(long double)
 __issignalingl:
-	; based off __isnanl, unoptimized
-	pop	bc, hl, de
-	xor	a, a
-	adc	hl, de
-	pop	de
-	push	bc, bc, bc, bc
-	ld	a, e
-	jr	nz, .mant_nonzero	; normal, subnormal, or NaN
-	jr	c, .mant_nonzero	; normal, subnormal, or NaN
-	; common NaN, inf, normal, or subnormal
-	; quiet NaN will be along this path
-	xor	a, $F8
-	ret	z	; quiet NaN
-	xor	a, $F8
-	ret	z
-	dec	a
-.mant_nonzero:
-	add	a, 16	; overflows 0xF0
-	sbc	a, a
-	ret	z
-	ld	a, d
-	add	a, a
-	add	a, 2
-	sbc	a, a
+	ld	hl, 9
+	add	hl, sp
+	bit	3, (hl) ; 51 % 8 == 3
+	jp	z, __isnanl
+	xor	a, a	; quiet bit set, return false
 	ret
+
+	extern	__isnanl

test/floating_point/float32_classification/src/main.c

@@ -63,15 +63,13 @@ static const testb test_values[] = {
     {/* UINT32_C(0x00800000), */ UINT32_C(0x7F7FFFFF), false, false, false, true , true , false, false, FP_NORMAL   },
     {/* UINT32_C(0x7F800000), */ UINT32_C(0x7F800000), false, false, true , false, false, false, false, FP_INFINITE },
     {/* UINT32_C(0x7F800001), */ UINT32_C(0x7FBFFFFF), true , true , false, false, false, false, false, FP_NAN      },
-    {/* UINT32_C(0x7FC00000), */ UINT32_C(0x7FC00000), false, true , false, false, false, false, false, FP_NAN      },
-    {/* UINT32_C(0x7FC00001), */ UINT32_C(0x7FFFFFFF), true , true , false, false, false, false, false, FP_NAN      },
+    {/* UINT32_C(0x7FC00000), */ UINT32_C(0x7FFFFFFF), false, true , false, false, false, false, false, FP_NAN      },
     {/* UINT32_C(0x80000000), */ UINT32_C(0x80000000), false, false, false, true , false, false, true , FP_ZERO     },
     {/* UINT32_C(0x80000001), */ UINT32_C(0x807FFFFF), false, false, false, true , false, true , false, FP_SUBNORMAL},
     {/* UINT32_C(0x80800000), */ UINT32_C(0xFF7FFFFF), false, false, false, true , true , false, false, FP_NORMAL   },
     {/* UINT32_C(0xFF800000), */ UINT32_C(0xFF800000), false, false, true , false, false, false, false, FP_INFINITE },
     {/* UINT32_C(0xFF800001), */ UINT32_C(0xFFBFFFFF), true , true , false, false, false, false, false, FP_NAN      },
-    {/* UINT32_C(0xFFC00000), */ UINT32_C(0xFFC00000), false, true , false, false, false, false, false, FP_NAN      },
-    {/* UINT32_C(0xFFC00001), */ UINT32_C(0xFFFFFFFF), true , true , false, false, false, false, false, FP_NAN      },
+    {/* UINT32_C(0xFFC00000), */ UINT32_C(0xFFFFFFFF), false, true , false, false, false, false, false, FP_NAN      },
 };
 
 /**

test/floating_point/float64_classification/src/main.c

@@ -63,15 +63,13 @@ static const testb test_values[] = {
     {/* UINT64_C(0x0010000000000000), */ UINT64_C(0x7FEFFFFFFFFFFFFF), false, false, false, true , true , false, false, FP_NORMAL   },
     {/* UINT64_C(0x7FF0000000000000), */ UINT64_C(0x7FF0000000000000), false, false, true , false, false, false, false, FP_INFINITE },
     {/* UINT64_C(0x7FF0000000000001), */ UINT64_C(0x7FF7FFFFFFFFFFFF), true , true , false, false, false, false, false, FP_NAN      },
-    {/* UINT64_C(0x7FF8000000000000), */ UINT64_C(0x7FF8000000000000), false, true , false, false, false, false, false, FP_NAN      },
-    {/* UINT64_C(0x7FF8000000000001), */ UINT64_C(0x7FFFFFFFFFFFFFFF), true , true , false, false, false, false, false, FP_NAN      },
+    {/* UINT64_C(0x7FF8000000000000), */ UINT64_C(0x7FFFFFFFFFFFFFFF), false, true , false, false, false, false, false, FP_NAN      },
     {/* UINT64_C(0x8000000000000000), */ UINT64_C(0x8000000000000000), false, false, false, true , false, false, true , FP_ZERO     },
     {/* UINT64_C(0x8000000000000001), */ UINT64_C(0x800FFFFFFFFFFFFF), false, false, false, true , false, true , false, FP_SUBNORMAL},
     {/* UINT64_C(0x8010000000000000), */ UINT64_C(0xFFEFFFFFFFFFFFFF), false, false, false, true , true , false, false, FP_NORMAL   },
     {/* UINT64_C(0xFFF0000000000000), */ UINT64_C(0xFFF0000000000000), false, false, true , false, false, false, false, FP_INFINITE },
     {/* UINT64_C(0xFFF0000000000001), */ UINT64_C(0xFFF7FFFFFFFFFFFF), true , true , false, false, false, false, false, FP_NAN      },
-    {/* UINT64_C(0xFFF8000000000000), */ UINT64_C(0xFFF8000000000000), false, true , false, false, false, false, false, FP_NAN      },
-    {/* UINT64_C(0xFFF8000000000001), */ UINT64_C(0xFFFFFFFFFFFFFFFF), true , true , false, false, false, false, false, FP_NAN      },
+    {/* UINT64_C(0xFFF8000000000000), */ UINT64_C(0xFFFFFFFFFFFFFFFF), false, true , false, false, false, false, false, FP_NAN      },
 };
 
 /**