More precise time measures (bootstrap)

Author: manuel-serrano

.gitignore

@@ -227,6 +227,7 @@ libuv/libuv-v1.44.2/
 libuv/libuv-v1.47.0/
 libuv/libuv-v1.48.0/
 libuv/libuv-v1.49.2/
+libuv/libuv-v1.51.0/
 
 # xlib
 xlib/include/

runtime/Clib/csystem.c

@@ -1,10 +1,10 @@
 /*=====================================================================*/
-/*    serrano/prgm/project/bigloo/flt/runtime/Clib/csystem.c           */
+/*    serrano/prgm/project/bigloo/bigloo/runtime/Clib/csystem.c        */
 /*    -------------------------------------------------------------    */
 /*    Author      :  Manuel Serrano                                    */
 /*    Creation    :  Wed Jan 20 08:45:23 1993                          */
-/*    Last change :  Mon Nov 18 15:44:07 2024 (serrano)                */
-/*    Copyright   :  2002-24 Manuel Serrano                            */
+/*    Last change :  Thu Jul  3 12:55:19 2025 (serrano)                */
+/*    Copyright   :  2002-25 Manuel Serrano                            */
 /*    -------------------------------------------------------------    */
 /*    System interface                                                 */
 /*=====================================================================*/
@@ -535,6 +535,10 @@ bgl_time(obj_t thunk) {
 
    return BGL_PROCEDURE_CALL0(thunk);
 #else   
+#  if (BGL_HAVE_TIMEVAL)
+   struct timeval tv1, tv2;
+#  endif
+
    static long ctick = 0;
    obj_t env = BGL_CURRENT_DYNAMIC_ENV();
    struct tms buf1, buf2;
@@ -544,13 +548,29 @@ bgl_time(obj_t thunk) {
    if (!ctick) ctick = sysconf(_SC_CLK_TCK);
 
    t1 = times(&buf1);
+#  if (BGL_HAVE_TIMEVAL)
+   gettimeofday(&tv1, 0);
+#  endif
+    
    res = BGL_PROCEDURE_CALL0(thunk);
+   
+#  if (BGL_HAVE_TIMEVAL)
+   gettimeofday(&tv2, 0);
+#  endif
    t2 = times(&buf2);
 
    BGL_ENV_MVALUES_NUMBER_SET(env, 4);
 
 #  define BTICK(v) BINT((v) * 1000 / ctick)
+#  if (BGL_HAVE_TIMEVAL)
+   {
+     BGL_LONGLONG_T ms1 = (BGL_LONGLONG_T)(tv1.tv_sec) * 1000 + (BGL_LONGLONG_T)(tv1.tv_usec / 1000);
+     BGL_LONGLONG_T ms2 = (BGL_LONGLONG_T)(tv2.tv_sec) * 1000 + (BGL_LONGLONG_T)(tv2.tv_usec / 1000);
+     BGL_ENV_MVALUES_VAL_SET(env, 1, BINT(ms2 - ms1));
+   }
+#  else
    BGL_ENV_MVALUES_VAL_SET(env, 1, BTICK(t2 - t1));
+#  endif   
    BGL_ENV_MVALUES_VAL_SET(env, 2, BTICK(buf2.tms_stime - buf1.tms_stime));
    BGL_ENV_MVALUES_VAL_SET(env, 3, BTICK((buf2.tms_cutime - buf1.tms_cutime)
 					   + (buf2.tms_utime - buf1.tms_utime)));

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 18:07:52 2025 (serrano)                */
+/*    Last change :  Thu Jul  3 12:27:41 2025 (serrano)                */
 /*    Copyright   :  2016-25 Manuel Serrano                            */
 /*    -------------------------------------------------------------    */
 /*    Bigloo FLOATING POINT TAGGING reals                              */
@@ -165,7 +165,6 @@ INLINE bool BGL_TAGGED_REALP(obj_t _o) {
    (BGL_TAGGED_REALP(o) && BGL_TAGGED_REALP(p))
 #elif BGL_TAGGING == BGL_TAGGING_FL1
 // ---------------------------------
-// ((o>>59)+13)>>1
 #  define BGL_TAGGED_REALP(o) \
      (((long)o & TAG_MASK) == TAG_REALZ)
 #  define BGL_TAGGED_REALSP(o, p) \

runtime/Include/bigloo_real_heap.h

@@ -3,7 +3,7 @@
 /*    -------------------------------------------------------------    */
 /*    Author      :  Manuel Serrano                                    */
 /*    Creation    :  Sun Mar  6 07:07:32 2016                          */
-/*    Last change :  Wed Jul  2 06:04:43 2025 (serrano)                */
+/*    Last change :  Thu Jul  3 11:19:47 2025 (serrano)                */
 /*    Copyright   :  2016-25 Manuel Serrano                            */
 /*    -------------------------------------------------------------    */
 /*    Bigloo REALs                                                     */
@@ -54,7 +54,7 @@ struct bgl_real {
 #   define BGL_CREATE_REAL(aux, flonum) \
       static struct { double real; } aux = { flonum }
 
-#   define FLONUMP(c) ((c && ((((long)c) & TAG_MASK) == TAG_REAL)))
+#   define FLONUMP(c) BGL_TAGGED_PTRP(c, TAG_REAL, TAG_MASK)
 #   define REALP(c) FLONUMP(c)
 
 #   define BGL_REAL_SET(o, v) ((REAL(o).val = v), o)