Changeset da77728

Timestamp:

Sep 29, 2022, 3:23:14 PM (2 years ago)

Author:

Thierry Delisle <tdelisle@…>

Branches:

ADT, ast-experimental, master

Children:

33e4968e

Parents:

2e94d94f

Message:

Added runtime warning for the leader_spin issue

File:

• libcfa/src/concurrency/kernel/cluster.hfa (modified) (2 diffs)

libcfa/src/concurrency/kernel/cluster.hfa

@@ -21 +21 @@
 #include <limits.h>
 
+#include "clock.hfa"
+
 //-----------------------------------------------------------------------
 // Calc moving average based on existing average, before and current time.
 static inline unsigned long long moving_average(unsigned long long currtsc, unsigned long long instsc, unsigned long long old_avg, bool strict) {
         (void)strict; // disable the warning around the fact this is unused in release.
+        /* paranoid */ warnf( !strict || old_avg < 11_000_000_000, "Suspiciously large previous average: %'llu (%llx), %'ldms \n", old_avg, old_avg, program()`ms );
 
         const unsigned long long new_val = currtsc > instsc ? currtsc - instsc : 0;
@@ -31 +34 @@
         const unsigned long long old_weight = total_weight - new_weight;
         const unsigned long long ret = ((new_weight * new_val) + (old_weight * old_avg)) / total_weight;
+
+        /* paranoid */ warnf( !strict || ret < 11_000_000_000, "Suspiciously large new average after %'ldms cputime: %'llu (%llx) from %'llu-%'llu (%'llu, %'llu) and %'llu\n", program()`ms, ret, ret, currtsc, instsc, new_val, new_val / 1000000, old_avg );
         return ret;
 }