Changeset cd5b58f for libcfa/src/concurrency/kernel/startup.cfa

Timestamp:

Oct 31, 2022, 3:00:01 PM (22 months ago)

Author:

Thierry Delisle <tdelisle@…>

Branches:

ADT, ast-experimental, master

Children:

7f3b5ce

Parents:

637c139

Message:

Changed node link in thread to use dlink called cltr_link

File:

• libcfa/src/concurrency/kernel/startup.cfa (modified) (4 diffs)

libcfa/src/concurrency/kernel/startup.cfa

@@ -535 +535 @@
         #endif
 
-        node.next = 0p;
-        node.prev = 0p;
         doregister(curr_cluster, this);
 
@@ -659 +657 @@
         #endif
 
-        threads{ __get };
+        threads{};
 
         io.arbiter = create();
@@ -739 +737 @@
         lock      (cltr->thread_list_lock __cfaabi_dbg_ctx2);
         cltr->nthreads += 1;
-        push_front(cltr->threads, thrd);
+        insert_first(cltr->threads, thrd);
         unlock    (cltr->thread_list_lock);
 }
@@ -745 +743 @@
 void unregister( cluster * cltr, thread$ & thrd ) {
         lock  (cltr->thread_list_lock __cfaabi_dbg_ctx2);
-        remove(cltr->threads, thrd );
-        cltr->nthreads -= 1;
+        {
+                tytagref( dlink(thread$), dlink(thread$) ) ?`inner( thread$ & this ) = void;
+                with( DLINK_VIA( thread$, thread$.cltr_link ) )
+                        remove( thrd );
+                cltr->nthreads -= 1;
+        }
         unlock(cltr->thread_list_lock);
 }