Changeset 6b33e89 for tests/zombies/linked-list-perf

Timestamp:

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

Author:

Peter A. Buhr <pabuhr@…>

Branches:

master

Children:

65bd3c2

Parents:

b195498

Message:

change backquote call to regular call

Location:

tests/zombies/linked-list-perf

Files:

• experiment.koad (modified) (2 diffs)
• mike-old.hfa (modified) (5 diffs)

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 );