Fix fltnz double predicate

Author: manuel-serrano

runtime/Clib/inline_alloc.h

@@ -3,7 +3,7 @@
 /*    -------------------------------------------------------------    */
 /*    Author      :  Manuel Serrano                                    */
 /*    Creation    :  Thu Oct 26 15:43:27 2017                          */
-/*    Last change :  Tue Jul  1 19:11:41 2025 (serrano)                */
+/*    Last change :  Wed Jul  2 17:10:58 2025 (serrano)                */
 /*    Copyright   :  2017-25 Manuel Serrano                            */
 /*    -------------------------------------------------------------    */
 /*    Single-threaded Boehm allocations                                */
@@ -226,8 +226,8 @@ static obj_t alloc_make_real(double d) {
 
 GC_API obj_t make_real(double d) {
 #  if (!defined(TAG_REALZ))
-     if ((((union { double d; int64_t l; })(d)).l << 1) == 0) {
-        if (((union { double d; int64_t l; })(d)).l == 0) {
+     if ((((union { double d; uint64_t l; })(d)).l << 1) == 0) {
+        if (((union { double d; uint64_t l; })(d)).l == 0) {
 	   return bgl_zero;
         } else {
 	   return bgl_negative_zero;

runtime/Include/bigloo_real_flt.h

@@ -3,7 +3,7 @@
 /*    -------------------------------------------------------------    */
 /*    Author      :  Manuel Serrano                                    */
 /*    Creation    :  Sun Mar  6 07:07:32 2016                          */
-/*    Last change :  Wed Jul  2 06:06:42 2025 (serrano)                */
+/*    Last change :  Wed Jul  2 18:07:52 2025 (serrano)                */
 /*    Copyright   :  2016-25 Manuel Serrano                            */
 /*    -------------------------------------------------------------    */
 /*    Bigloo FLOATING POINT TAGGING reals                              */
@@ -203,7 +203,11 @@ INLINE bool BGL_TAGGED_REALP(obj_t _o) {
 #  define FLONUMP(o) (((int32_t)((uint32_t)BGL_FLONUMP_TAG_MASK_TABLE * 0x1010101) << (long)(o)) < 0)
 #  define BGL_FAST_REALVAL(o) ((int32_t)((uint32_t)BGL_FAST_FLONUMP_TAG_MASK_TABLE * 0x1010101) << (long)(o))
 #  define BGL_FAST_REALP(o) (BGL_FAST_REALVAL(o) < 0)
-#  define BGL_FAST_REALSP(o, p) ((BGL_FAST_REALVAL(o) | BGL_FAST_REALVAL(p)) < 0)
+#  if (defined(TAG_REALZ))
+#    define BGL_FAST_REALSP(o, p) ((BGL_FAST_REALVAL(o) | BGL_FAST_REALVAL(p)) < 0)
+#  else
+#    define BGL_FAST_REALSP(o, p) (BGL_FAST_REALP(o) && BGL_FAST_REALP(p))
+#  endif
 #endif
 // ---