Changeset 2856982c

Timestamp:

Oct 28, 2022, 3:04:19 PM (2 years ago)

Author:

Thierry Delisle <tdelisle@…>

Branches:

ADT, ast-experimental, master

Children:

13edbac

Parents:

28372f7

Message:

Changed implicit dlink field in thread$ to have name uxer_link

Location:

libcfa/src

Files:

• bits/defs.hfa (modified) (1 diff)
• concurrency/invoke.h (modified) (3 diffs)

libcfa/src/bits/defs.hfa

@@ -30 +30 @@
 #ifdef __cforall
 #define __cfa_anonymous_object(x) inline struct x
-#define __cfa_dlink(x) inline dlink(x)
+#define __cfa_dlink1(x) dlink(x)
 #else
 #define __cfa_anonymous_object(x) struct x __cfa_anonymous_object
-#define __cfa_dlink(x) struct { struct x * next; struct x * back; } __dlink_substitute
+#define __cfa_dlink1(x) struct { struct x * next; struct x * back; }
 #endif
 

libcfa/src/concurrency/invoke.h

@@ -196 +196 @@
 
                 // used to put threads on dlist data structure
-                __cfa_dlink(thread$);
+                __cfa_dlink1(thread$) user_link;
 
                 struct {
@@ -218 +218 @@
                 #endif
         };
-        #ifdef __cforall
-                P9_EMBEDDED( thread$, dlink(thread$) )
-        #endif
+
         // Wrapper for gdb
         struct cfathread_thread_t { struct thread$ debug; };
@@ -241 +239 @@
                 }
 
+                static inline tytagref( dlink(thread$), dlink(thread$) ) ?`inner( thread$ & this ) {
+                        dlink(thread$) & b = this.user_link;
+                        tytagref( dlink(thread$), dlink(thread$) ) result = { b };
+                        return result;
+                }
+
                 static inline void ?{}(__monitor_group_t & this) {
                         (this.data){0p};