From 73b6f39dbcd17189f2817289381796a7f79a1007 Mon Sep 17 00:00:00 2001
From: antirez <antirez>
Date: Wed, 2 Mar 2005 22:29:31 +0000
Subject: one more benchmark

---
 bench.tcl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'bench.tcl')

diff --git a/bench.tcl b/bench.tcl
index 45a09cc..796ad02 100644
--- a/bench.tcl
+++ b/bench.tcl
@@ -187,6 +187,21 @@ proc rotate {count} {
     }
 }
 
+### DYNAMICALLY GENERATED CODE #################################################
+
+proc dyncode {} {
+    for {set i 0} {$i < 100000} {incr i} {
+        set script "lappend foo $i"
+        eval $script
+    }
+}
+
+proc dyncode_list {} {
+    for {set i 0} {$i < 100000} {incr i} {
+        set script [list lappend foo $i]
+        eval $script
+    }
+}
 
 ### RUN ALL ####################################################################
 
@@ -199,3 +214,5 @@ bench {repeat} {use_repeat}
 bench {upvar} {upvartest}
 bench {nested loops} {nestedloops}
 bench {rotate} {rotate 100000}
+bench {dynamic code} {dyncode}
+bench {dynamic code (list)} {dyncode_list}
-- 
cgit v1.1