Allow tuning of the number of iterations in the micro-opt loops.

2 files changed, 9 insertions, 10 deletions

diff --git a/tools/microoptimization/clockformatscan.tcl b/tools/microoptimization/clockformatscan.tcl
index 844562e..c7cec46 100644
--- a/tools/microoptimization/clockformatscan.tcl
+++ b/tools/microoptimization/clockformatscan.tcl
@@ -1,5 +1,5 @@
-apply {{} {
-    for {set i 0} {$i < 5000} {incr i} {
+apply {{{limit 5000}} {
+    for {set i 0} {$i < $limit} {incr i} {
 	clock scan [clock format $i -format %T] -format %T
     }
-}}
+}} {*}$argv
diff --git a/tools/microoptimization/generalbytecode.tcl b/tools/microoptimization/generalbytecode.tcl
index 9c0a545..2471943 100644
--- a/tools/microoptimization/generalbytecode.tcl
+++ b/tools/microoptimization/generalbytecode.tcl
@@ -1,14 +1,13 @@
-apply {{} {
-    for {set i 0} {$i < 100} {incr i} {
-	apply {{} {
+apply {{{limit1 100} {limit2 1000}} {
+    for {set i 0} {$i < $limit1} {incr i} {
+	apply {limit2 {
 	    set a {}
 	    set b {}
-	    for {set i 0} {$i < 1000} {incr i} {
+	    for {set i 0} {$i < $limit2} {incr i} {
 		lappend a $i
 		dict set b $i [expr {$i*$i}]
 	    }
 	    return [string length $a],[string length $b]
-	}}
+	}} $limit2
     }
-}}
-
+}} {*}$argv