Changeset 6b33e89 for tests/zombies

Timestamp:

Apr 25, 2025, 7:39:09 AM (6 months ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

master

Children:

65bd3c2

Parents:

b195498

Message:

change backquote call to regular call

Location:

tests/zombies

Files:

• hashtable.cfa (modified) (2 diffs)
• hashtable2.cfa (modified) (4 diffs)
• linked-list-perf/experiment.koad (modified) (2 diffs)
• linked-list-perf/mike-old.hfa (modified) (5 diffs)

tests/zombies/hashtable.cfa

@@ -71 +71 @@
         dlist(tN, tE) & bucket = buckets[ bucket_of(this, k) ];
 
-        for ( tN * item = & $tempcv_e2n(bucket`first);  item != 0p;  item = & $tempcv_e2n((*item)`next) ) {
+        for ( tN * item = & $tempcv_e2n(first( bucket ));  item != 0p;  item = & $tempcv_e2n((*item)`next) ) {
             if ( key(*item) == k ) {
                 return *item;
@@ -94 +94 @@
         dlist(tN, tE) & bucket = buckets[ bucket_of(this, k) ];
 
-        for ( tN * item = & $tempcv_e2n(bucket`first);  item != 0p;  item = & $tempcv_e2n((*item)`next) ) {
+        for ( tN * item = & $tempcv_e2n(first( bucket ));  item != 0p;  item = & $tempcv_e2n((*item)`next) ) {
             if ( key(*item) == k ) {
                 remove(*item);

tests/zombies/hashtable2.cfa

@@ -149 +149 @@
         dlist(request_in_ht_by_src, request) & bucket = buckets[ bucket_of(this, k) ];
 
-        for ( request_in_ht_by_src * item = & $tempcv_e2n(bucket`first);  item != 0p;  item = & $tempcv_e2n((*item)`next) ) {
+        for ( request_in_ht_by_src * item = & $tempcv_e2n(first( bucket ));  item != 0p;  item = & $tempcv_e2n((*item)`next) ) {
             if ( key(*item) == k ) {
                 return *item;
@@ -177 +177 @@
         dlist(request_in_ht_by_src, request) & bucket = buckets[ bucket_of(this, k) ];
 
-        for ( request_in_ht_by_src * item = & $tempcv_e2n(bucket`first);  item != 0p;  item = & $tempcv_e2n((*item)`next) ) {
+        for ( request_in_ht_by_src * item = & $tempcv_e2n(first( bucket ));  item != 0p;  item = & $tempcv_e2n((*item)`next) ) {
             if ( key(*item) == k ) {
                 remove(*item);
@@ -257 +257 @@
 
     // will re-implement as an actual splice
-    while ( & src_to_empty`first != 0p ) {
+    while ( & src_to_first( empty ) != 0p ) {
         insert_last( snk_to_fill_at_last, pop_first( src_to_empty ) );
     }
@@ -319 +319 @@
 
         // fill new table with old items
-        while ( & items`first != 0p ) {
+        while ( &first( items ) != 0p ) {
             put( this, pop_first( items ) );
         }

tests/zombies/linked-list-perf/experiment.koad

@@ -144 +144 @@
         for ( volatile unsigned int t = 0; t < Times; t += 1 ) {
                 Repeat( insert_last( lst, s[i] ) );
-                Repeat( remove( lst`first ) );
+                Repeat( remove( first( lst ) ) );
         }
         end = clock();
@@ -168 +168 @@
         for ( volatile unsigned int t = 0; t < Times; t += 1 ) {
                 Repeat( insert_last( lst, s[i] ) );
-                Repeat( remove( lst`first ) );
+                Repeat( remove( first( lst ) ) );
         }
         end = clock();

tests/zombies/linked-list-perf/mike-old.hfa

@@ -9 +9 @@
 // Author           : Michael Brooks
 // Created On       : Wed Apr 22 18:00:00 2020
-// Last Modified By : Michael Brooks
-// Last Modified On : Wed Apr 22 18:00:00 2020
-// Update Count     : 1
+// Last Modified By : Peter A. Buhr
+// Last Modified On : Mon Apr 21 17:32:37 2025
+// Update Count     : 3
 //
 
@@ -147 +147 @@
         }
 
-        static inline Telem & ?`first( dlist(Tnode, Telem) &l ) {
+        static inline Telem & first( dlist(Tnode, Telem) &l ) {
                 return * l.$links.next.elem;
         }
@@ -157 +157 @@
         #if !defined(NDEBUG) && (defined(__CFA_DEBUG__) || defined(__CFA_VERIFY__))
         static bool $validate_fwd( dlist(Tnode, Telem) & this ) {
-                Tnode * it = & $tempcv_e2n( this`first );
+                Tnode * it = & $tempcv_e2n( first( this ) );
                 if (!it) return (& this`last == 0p);
 
@@ -170 +170 @@
         static bool $validate_rev( dlist(Tnode, Telem) & this ) {
                 Tnode * it = & $tempcv_e2n( this`last );
-                if (!it) return (& this`first == 0p);
+                if (!it) return (& first( this ) == 0p);
 
                 while( $prev_link(*it).elem ) {
@@ -176 +176 @@
                 }
 
-                return ( it == & $tempcv_e2n( this`first ) ) &&
+                return ( it == & $tempcv_e2n( first( this ) ) ) &&
                            ( $prev_link(*it).is_terminator ) &&
                            ( ((dlist(Tnode, Telem)*)$prev_link(*it).terminator) == &this );