Changeset c87cd93 for doc/generic_types/evaluation/c-bench.c

Timestamp:

Apr 17, 2017, 3:47:07 PM (7 years ago)

Author:

Aaron Moss <a3moss@…>

Branches:

ADT, aaron-thesis, arm-eh, ast-experimental, cleanup-dtors, deferred_resn, demangler, enum, forall-pointer-decay, jacob/cs343-translation, jenkins-sandbox, master, new-ast, new-ast-unique-expr, new-env, no_list, persistent-indexer, pthread-emulation, qualifiedEnum, resolv-new, with_gc

Children:

4ae83a4b

Parents:

33e22da

Message:

Final version of the benchmark code

File:

• doc/generic_types/evaluation/c-bench.c (modified) (1 diff)

doc/generic_types/evaluation/c-bench.c

@@ -34 +34 @@
 }
 
-int cmp_char( const void* a, const void* b ) {
-        return *(const char*)a == *(const char*)b ? 0 : *(const char*)a < *(const char*)b ? -1 : 1; /***/
+int cmp_char( const void* a, const void* b ) { /***/
+        return *(const char*)a == *(const char*)b ? 0 : *(const char*)a < *(const char*)b ? -1 : 1;
 }
 
 int main(int argc, char** argv) {
-        FILE* out = fopen("c-out.txt", "w");
-        int max = 0;
-        struct stack s = new_stack(), t;
-        REPEAT_TIMED( "push_int", push_stack(&s, new_int( _i )); )
-        TIMED( "copy_int",      copy_stack(&t, &s, copy_int); /***/ )
-        TIMED( "clear_int", clear_stack(&s, free); /***/ )
-        REPEAT_TIMED( "pop_int", 
-                int* x = pop_stack(&t); /***/
-                if ( *x > max ) { max = *x; }
-                free(x); )
-        REPEAT_N_TIMED( "print_int", N/2, print( out, "dsds", _i, ":", _i, "\n" ); /***/ )
+        FILE * out = fopen("c-out.txt", "w");
+        int maxi = 0, vali = 42;
+        struct stack si = new_stack(), ti;
 
-        struct pair* max2 = new_pair( new_bool(0), new_char('\0') );
-        struct stack s2 = new_stack(), t2;
+        REPEAT_TIMED( "push_int", N, push_stack( &si, new_int( vali ) ); )
+        TIMED( "copy_int",      copy_stack( &ti, &si, copy_int ); /***/ )
+        TIMED( "clear_int", clear_stack( &si, free ); /***/ )
+        REPEAT_TIMED( "pop_int", N, 
+                int* xi = pop_stack( &ti );
+                if ( *xi > maxi ) { maxi = *xi; }
+                free(xi); )
+        REPEAT_TIMED( "print_int", N/2, print( out, "dsds", vali, ":", vali, "\n" ); /***/ )
 
-        REPEAT_TIMED( "push_bool_char", 
-                push_stack(&s2, new_pair( new_bool( _i & 0x1 ), new_char( _i & 0x7F ) )); )
-        TIMED( "copy_bool_char", copy_stack(&t2, &s2, copy_pair_bool_char); /***/ )
-        TIMED( "clear_bool_char", clear_stack(&s2, free_pair_bool_char); /***/ )
-        REPEAT_TIMED( "pop_bool_char", 
-                struct pair* x = pop_stack(&t2); /***/
-                if ( cmp_pair( x, max2, cmp_bool, cmp_char ) > 0 ) { /***/
-                        free_pair_bool_char( max2 ); /***/
-                        max2 = x;
+        struct pair * maxp = new_pair( new_bool(0), new_char('\0') ),
+                * valp = new_pair( new_bool(1), new_char('a') );
+        struct stack sp = new_stack(), tp;
+
+        REPEAT_TIMED( "push_pair", N, push_stack( &sp, copy_pair_bool_char( valp ) ); )
+        TIMED( "copy_pair", copy_stack( &tp, &sp, copy_pair_bool_char ); /***/ )
+        TIMED( "clear_pair", clear_stack( &sp, free_pair_bool_char ); /***/ )
+        REPEAT_TIMED( "pop_pair", N, 
+                struct pair * xp = pop_stack( &tp );
+                if ( cmp_pair( xp, maxp, cmp_bool, cmp_char /***/ ) > 0 ) {
+                        free_pair_bool_char( maxp ); /***/
+                        maxp = xp;
                 } else {
-                        free_pair_bool_char( x ); /***/
+                        free_pair_bool_char( xp ); /***/
                 } )
-        REPEAT_N_TIMED( "print_pair", N/2, 
-                struct pair p1 = ((struct pair){ new_bool(rand() & 0x1), new_char(rand() & 0x7F) }); /***/
-                struct pair p2 = ((struct pair){ new_bool(rand() & 0x1), new_char(rand() & 0x7F) }); /***/
-                print( out, "pbcspbcs", p1, ":", p2, "\n" ); /***/
-                free(p1.first); free(p1.second); /***/
-                free(p2.first); free(p2.second); /***/ )
-        free_pair_bool_char( max2 ); /***/
+        REPEAT_TIMED( "print_pair", N/2, print( out, "pbcspbcs", *valp, ":", *valp, "\n" ); /***/ )
+        free_pair_bool_char( maxp ); /***/
+        free_pair_bool_char( valp ); /***/
         fclose(out);
 }