Changeset 0f1fb78

Timestamp:

May 15, 2021, 4:39:51 PM (4 years ago)

Author:

caparsons <caparson@…>

Branches:

ADT, arm-eh, ast-experimental, enum, forall-pointer-decay, jacob/cs343-translation, master, new-ast-unique-expr, pthread-emulation, qualifiedEnum

Children:

a6a4dbd

Parents:

9449085

Message:

put timeval calculation into alarm_node ctor to alleviate slowdowns due to preemption

File:

• libcfa/src/concurrency/alarm.cfa (modified) (3 diffs)

libcfa/src/concurrency/alarm.cfa

@@ -55 +55 @@
         this.period  = period;
         this.thrd = thrd;
+        this.timeval = __kernel_get_time() + alarm;
         set = false;
         type = User;
@@ -63 +64 @@
         this.period  = period;
         this.proc = proc;
+        this.timeval = __kernel_get_time() + alarm;
         set = false;
         type = Kernel;
 }
 void ?{}( alarm_node_t & this, Alarm_Callback callback, Duration alarm, Duration period ) with( this ) {
+        this.callback = callback;
         this.initial = alarm;
         this.period  = period;
-        this.callback = callback;
+        this.timeval = __kernel_get_time() + alarm;
         set = false;
         type = Callback;
@@ -110 +113 @@
         lock( event_kernel->lock __cfaabi_dbg_ctx2 );
         {
-                Time curr = __kernel_get_time();
-                this->timeval = curr + this->initial;
-
                 /* paranoid */ verify( validate( alarms ) );
 
+                Time curr = __kernel_get_time();
                 __cfadbg_print_safe( preemption, " KERNEL: alarm inserting %p (%lu -> %lu).\n", this, curr.tn, this->timeval.tn );
                 insert( &alarms, this );
-                __kernel_set_timer( this->initial );
+                __kernel_set_timer( this->timeval - curr);
         }
         unlock( event_kernel->lock );