Changeset 3febb2d for libcfa/src/concurrency/locks.cfa

Timestamp:

Nov 5, 2020, 7:25:33 PM (3 years ago)

Author:

Fangren Yu <f37yu@…>

Branches:

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

Children:

16ba4a6, 3959595

Parents:

7d651a6 (diff), f4e35326 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'master' of plg.uwaterloo.ca:software/cfa/cfa-cc

File:

• libcfa/src/concurrency/locks.cfa (modified) (13 diffs)

libcfa/src/concurrency/locks.cfa

@@ -15 +15 @@
                 this.t = t;
                 this.lock = 0p;
+                this.listed = false;
         }
 
@@ -21 +22 @@
                 this.info = info;
                 this.lock = 0p;
+                this.listed = false;
         }
 
@@ -77 +79 @@
         if ( owner == kernelTLS.this_thread && !multi_acquisition) {
                 fprintf(stderr, "A single acquisition lock holder attempted to reacquire the lock resulting in a deadlock."); // Possibly throw instead
-                exit(EXIT_FAILURE);
+        exit(EXIT_FAILURE);
         } else if ( owner != 0p && owner != kernelTLS.this_thread ) {
                 append( blocked_threads, kernelTLS.this_thread );
                 wait_count++;
                 unlock( lock );
-                park( __cfaabi_dbg_ctx );
+                park( );
         } else if ( owner == kernelTLS.this_thread && multi_acquisition ) {
                 recursion_count++;
@@ -111 +113 @@
         lock( lock __cfaabi_dbg_ctx2 );
         if ( owner == 0p ){ // no owner implies lock isn't held
-                fprintf( stderr, "There was an attempt to release a lock that isn't held" );
+                fprintf( stderr, "There was an attempt to release a lock that isn't held" ); 
                 return;
         } else if ( strict_owner && owner != kernelTLS.this_thread ) {
-                fprintf( stderr, "A thread other than the owner attempted to release an owner lock" );
+                fprintf( stderr, "A thread other than the owner attempted to release an owner lock" ); 
                 return;
         }
@@ -123 +125 @@
                 recursion_count = ( thrd && multi_acquisition ? 1 : 0 );
                 wait_count--;
-                unpark( thrd __cfaabi_dbg_ctx2 );
+                unpark( thrd );
         }
         unlock( lock );
@@ -150 +152 @@
                 owner = t;
                 if ( multi_acquisition ) recursion_count = 1;
-                unpark( t __cfaabi_dbg_ctx2 );
+                #if !defined( __CFA_NO_STATISTICS__ )
+                        kernelTLS.this_stats = t->curr_cluster->stats;
+                #endif
+                unpark( t );
                 unlock( lock );
         }
@@ -158 +163 @@
     lock( lock __cfaabi_dbg_ctx2 );
         if ( owner == 0p ){ // no owner implies lock isn't held
-                fprintf( stderr, "A lock that is not held was passed to a synchronization lock" );
+                fprintf( stderr, "A lock that is not held was passed to a synchronization lock" ); 
         } else if ( strict_owner && owner != kernelTLS.this_thread ) {
-                fprintf( stderr, "A thread other than the owner of a lock passed it to a synchronization lock" );
+                fprintf( stderr, "A thread other than the owner of a lock passed it to a synchronization lock" ); 
         } else {
                 $thread * thrd = pop_head( blocked_threads );
@@ -166 +171 @@
                 recursion_count = ( thrd && multi_acquisition ? 1 : 0 );
                 wait_count--;
-                unpark( thrd __cfaabi_dbg_ctx2 );
+                unpark( thrd );
         }
         unlock( lock );
@@ -175 +180 @@
 ///////////////////////////////////////////////////////////////////
 
-// In an ideal world this may not be necessary
-// Is it possible for nominal inheritance to inherit traits??
-// If that occurs we would avoid all this extra code
+// This is temporary until an inheritance bug is fixed
 
 void lock( mutex_lock & this ){
@@ -228 +231 @@
 
 ///////////////////////////////////////////////////////////////////
-//// Synchronization Locks
+//// condition variable
 ///////////////////////////////////////////////////////////////////
 
 forall(dtype L | is_blocking_lock(L)) {
-        void ?{}( synchronization_lock(L) & this, bool reacquire_after_signal ){
+
+        void timeout_handler ( alarm_node_wrap(L) & this ) with( this ) {
+        // This condition_variable member is called from the kernel, and therefore, cannot block, but it can spin.
+            lock( cond->lock __cfaabi_dbg_ctx2 );
+            if ( (*i)->listed ) {                       // is thread on queue
+                info_thread(L) * copy = *i;
+                        remove( cond->blocked_threads, i );              //remove this thread O(1)
+                        cond->wait_count--;
+                        if( !copy->lock ) {
+                                unlock( cond->lock );
+                                #if !defined( __CFA_NO_STATISTICS__ )
+                                        kernelTLS.this_stats = copy->t->curr_cluster->stats;
+                                #endif
+                                unpark( copy->t );
+                } else {
+                        add_(*copy->lock, copy->t);                     // call lock's add_
+                }
+            }
+            unlock( cond->lock );
+        }
+
+        void alarm_node_wrap_cast( alarm_node_t & a ) {
+                timeout_handler( (alarm_node_wrap(L) &)a );
+        }
+
+        void ?{}( condition_variable(L) & this ){
                 this.lock{};
                 this.blocked_threads{};
                 this.count = 0;
-                this.reacquire_after_signal = reacquire_after_signal;
-        }
-
-        void ^?{}( synchronization_lock(L) & this ){
-                // default
-        }
-
-        void ?{}( condition_variable(L) & this ){
-                ((synchronization_lock(L) &)this){ true };
         }
 
@@ -251 +270 @@
         }
 
-        void ?{}( thread_queue(L) & this ){
-                ((synchronization_lock(L) &)this){ false };
-        }
-
-        void ^?{}( thread_queue(L) & this ){
+        void ?{}( alarm_node_wrap(L) & this, $thread * thrd, Time alarm, Duration period, Alarm_Callback callback ) {
+                this.alarm_node{ thrd, alarm, period, callback };
+        }
+
+        void ^?{}( alarm_node_wrap(L) & this ) {
                 // default
         }
 
-        bool notify_one( synchronization_lock(L) & this ) with( this ) {
+        bool notify_one( condition_variable(L) & this ) with( this ) {
                 lock( lock __cfaabi_dbg_ctx2 );
                 bool ret = !!blocked_threads;
                 info_thread(L) * popped = pop_head( blocked_threads );
+                popped->listed = false;
                 if(popped != 0p) {
-                        if( reacquire_after_signal ){
+                        count--;
+                        if (popped->lock) {
                                 add_(*popped->lock, popped->t);
                         } else {
-                                unpark(
-                                        popped->t __cfaabi_dbg_ctx2
-                                );
+                                unpark(popped->t);
                         }
                 }
@@ -276 +295 @@
         }
 
-        bool notify_all( synchronization_lock(L) & this ) with(this) {
+        bool notify_all( condition_variable(L) & this ) with(this) {
                 lock( lock __cfaabi_dbg_ctx2 );
                 bool ret = blocked_threads ? true : false;
                 while( blocked_threads ) {
                         info_thread(L) * popped = pop_head( blocked_threads );
+                        popped->listed = false;
                         if(popped != 0p){
-                                if( reacquire_after_signal ){
+                                count--;
+                                if (popped->lock) {
                                         add_(*popped->lock, popped->t);
                                 } else {
-                                        unpark(
-                                                popped->t __cfaabi_dbg_ctx2
-                                        );
+                                        unpark(popped->t);
                                 }
                         }
@@ -295 +314 @@
         }
 
-        uintptr_t front( synchronization_lock(L) & this ) with(this) {
-                return (*peek(blocked_threads)).info;
-        }
-
-        bool empty( synchronization_lock(L) & this ) with(this) {
+        uintptr_t front( condition_variable(L) & this ) with(this) {
+                if(!blocked_threads) return NULL;
+                return peek(blocked_threads)->info;
+        }
+
+        bool empty( condition_variable(L) & this ) with(this) {
                 return blocked_threads ? false : true;
         }
 
-        int counter( synchronization_lock(L) & this ) with(this) {
+        int counter( condition_variable(L) & this ) with(this) {
                 return count;
         }
 
-        void queue_info_thread( synchronization_lock(L) & this, info_thread(L) & i ) with(this) {
-                lock( lock __cfaabi_dbg_ctx2 );
-                append( blocked_threads, &i );
-                count++;
-                unlock( lock );
-                park( __cfaabi_dbg_ctx );
-        }
-
-
-        void wait( synchronization_lock(L) & this ) with(this) {
-                info_thread( L ) i = { kernelTLS.this_thread };
-                queue_info_thread( this, i );
-        }
-
-        void wait( synchronization_lock(L) & this, uintptr_t info ) with(this) {
-                info_thread( L ) i = { kernelTLS.this_thread, info };
-                queue_info_thread( this, i );
-        }
-        // I still need to implement the time delay wait routines
-        bool wait( synchronization_lock(L) & this, Duration duration ) with(this) {
-                timeval tv = { time(0) };
-                Time t = { tv };
-                return wait( this, t + duration );
-        }
-
-        bool wait( synchronization_lock(L) & this, uintptr_t info, Duration duration ) with(this) {
-                // TODO: ADD INFO
-                return wait( this, duration );
-        }
-
-        bool wait( synchronization_lock(L) & this, Time time ) with(this) {
-                return false; //default
-        }
-
-        bool wait( synchronization_lock(L) & this, uintptr_t info, Time time ) with(this) {
-                // TODO: ADD INFO
-                return wait( this, time );
-        }
-
-        void queue_info_thread_unlock( synchronization_lock(L) & this, L & l, info_thread(L) & i ) with(this) {
+        // helper for wait()'s' without a timeout
+        void queue_info_thread( condition_variable(L) & this, info_thread(L) & i ) with(this) {
                 lock( lock __cfaabi_dbg_ctx2 );
                 append( this.blocked_threads, &i );
                 count++;
-                i.lock = &l;
-                size_t recursion_count = get_recursion_count(l);
-                remove_( l );
-                unlock( lock );
-                park( __cfaabi_dbg_ctx ); // blocks here
-
-                set_recursion_count(l, recursion_count); // resets recursion count here after waking
-        }
-
-        void wait( synchronization_lock(L) & this, L & l ) with(this) {
+                i.listed = true;
+                size_t recursion_count;
+                if (i.lock) {
+                        recursion_count = get_recursion_count(*i.lock);
+                        remove_( *i.lock );
+                }
+                
+                unlock( lock );
+                park( ); // blocks here
+
+                if (i.lock) set_recursion_count(*i.lock, recursion_count); // resets recursion count here after waking
+        }
+
+        // helper for wait()'s' with a timeout
+        void queue_info_thread_timeout( condition_variable(L) & this, info_thread(L) & info, Time t ) with(this) {
+                lock( lock __cfaabi_dbg_ctx2 );
+
+                info_thread(L) * queue_ptr = &info;
+
+                alarm_node_wrap(L) node_wrap = { info.t, t, 0`s, alarm_node_wrap_cast };
+                node_wrap.cond = &this;
+                node_wrap.i = &queue_ptr;
+
+                register_self( &node_wrap.alarm_node );
+
+                append( blocked_threads, queue_ptr );
+                info.listed = true;
+                count++;
+
+                size_t recursion_count;
+                if (info.lock) {
+                        recursion_count = get_recursion_count(*info.lock);
+                        remove_( *info.lock );
+                }
+
+                unlock( lock );
+                park();
+
+                if (info.lock) set_recursion_count(*info.lock, recursion_count);
+        }
+
+        void wait( condition_variable(L) & this ) with(this) {
+                info_thread( L ) i = { kernelTLS.this_thread };
+                queue_info_thread( this, i );
+        }
+
+        void wait( condition_variable(L) & this, uintptr_t info ) with(this) {
+                info_thread( L ) i = { kernelTLS.this_thread, info };
+                queue_info_thread( this, i );
+        }
+        
+        void wait( condition_variable(L) & this, Duration duration ) with(this) {
+                info_thread( L ) i = { kernelTLS.this_thread };
+                queue_info_thread_timeout(this, i, __kernel_get_time() + duration );
+        }
+
+        void wait( condition_variable(L) & this, uintptr_t info, Duration duration ) with(this) { 
+                info_thread( L ) i = { kernelTLS.this_thread, info };
+                queue_info_thread_timeout(this, i, __kernel_get_time() + duration );
+        }
+
+        void wait( condition_variable(L) & this, Time time ) with(this) {
+                info_thread( L ) i = { kernelTLS.this_thread };
+                queue_info_thread_timeout(this, i, time);
+        }
+
+        void wait( condition_variable(L) & this, uintptr_t info, Time time ) with(this) {
+                info_thread( L ) i = { kernelTLS.this_thread, info };
+                queue_info_thread_timeout(this, i, time);
+        }
+
+        void wait( condition_variable(L) & this, L & l ) with(this) {
                 info_thread(L) i = { kernelTLS.this_thread };
-                queue_info_thread_unlock( this, l, i );
-        }
-
-        void wait( synchronization_lock(L) & this, L & l, uintptr_t info ) with(this) {
+                i.lock = &l;
+                queue_info_thread( this, i );
+        }
+
+        void wait( condition_variable(L) & this, L & l, uintptr_t info ) with(this) {
                 info_thread(L) i = { kernelTLS.this_thread, info };
-                queue_info_thread_unlock( this, l, i );
-        }
-
-        bool wait( synchronization_lock(L) & this, L & l, Duration duration ) with(this) {
-                timeval tv = { time(0) };
-                Time t = { tv };
-                return wait( this, l, t + duration );
-        }
-
-        bool wait( synchronization_lock(L) & this, L & l, uintptr_t info, Duration duration ) with(this) {
-                // TODO: ADD INFO
-                return wait( this, l, duration );
-        }
-
-        bool wait( synchronization_lock(L) & this, L & l, Time time ) with(this) {
-                return false; //default
-        }
-
-        bool wait( synchronization_lock(L) & this, L & l, uintptr_t info, Time time ) with(this) {
-                // TODO: ADD INFO
-                return wait( this, l, time );
-        }
-}
-
-///////////////////////////////////////////////////////////////////
-//// condition lock alternative approach
-///////////////////////////////////////////////////////////////////
-
-// the solution below is less efficient but does not require the lock to have a specific add/remove routine
-
-///////////////////////////////////////////////////////////////////
-//// is_simple_lock
-///////////////////////////////////////////////////////////////////
-
-forall(dtype L | is_simple_lock(L)) {
-        void ?{}( condition_lock(L) & this ){
-                // default
-        }
-
-        void ^?{}( condition_lock(L) & this ){
-                // default
-        }
-
-        bool notify_one( condition_lock(L) & this ) with(this) {
-                return notify_one( c_var );
-        }
-
-        bool notify_all( condition_lock(L) & this ) with(this) {
-                return notify_all( c_var );
-        }
-
-        void wait( condition_lock(L) & this, L & l ) with(this) {
-                lock( m_lock );
-                size_t recursion = get_recursion_count( l );
-                unlock( l );
-                wait( c_var, m_lock );
-                lock( l );
-                set_recursion_count( l , recursion );
-                unlock( m_lock );
-        }
-}
+                i.lock = &l;
+                queue_info_thread( this, i );
+        }
+        
+        void wait( condition_variable(L) & this, L & l, Duration duration ) with(this) {
+                info_thread(L) i = { kernelTLS.this_thread };
+                i.lock = &l;
+                queue_info_thread_timeout(this, i, __kernel_get_time() + duration );
+        }
+        
+        void wait( condition_variable(L) & this, L & l, uintptr_t info, Duration duration ) with(this) {
+                info_thread(L) i = { kernelTLS.this_thread, info };
+                i.lock = &l;
+                queue_info_thread_timeout(this, i, __kernel_get_time() + duration );
+        }
+        
+        void wait( condition_variable(L) & this, L & l, Time time ) with(this) {
+                info_thread(L) i = { kernelTLS.this_thread };
+                i.lock = &l;
+                queue_info_thread_timeout(this, i, time );
+        }
+        
+        void wait( condition_variable(L) & this, L & l, uintptr_t info, Time time ) with(this) {
+                info_thread(L) i = { kernelTLS.this_thread, info };
+                i.lock = &l;
+                queue_info_thread_timeout(this, i, time );
+        }
+}