merge trunkinitsubsystems

1 files changed, 9 insertions, 10 deletions

diff --git a/tests/assemble1.bench b/tests/assemble1.bench
index 18fd3a9..e294108 100644
--- a/tests/assemble1.bench
+++ b/tests/assemble1.bench
@@ -20,7 +20,7 @@ proc ulam2 {n} {
 	load n;		# max
 	dup;		# max n
 	jump start;     # max n
-	
+
 	label loop;	# max n
 	over 1;         # max n max
 	over 1;		# max in max n
@@ -30,29 +30,29 @@ proc ulam2 {n} {
 	reverse 2;      # n max
 	pop;            # n
 	dup;            # n n
-	
+
 	label skip;	# max n
 	dup;            # max n n
 	push 2;         # max n n 2
 	mod;            # max n n%2
 	jumpTrue odd;   # max n
-	
+
 	push 2;         # max n 2
 	div;            # max n/2 -> max n
 	jump start;     # max n
-	
+
 	label odd;	# max n
 	push 3;         # max n 3
 	mult;           # max 3*n
 	push 1;         # max 3*n 1
 	add;            # max 3*n+1
-	
+
 	label start;	# max n
 	dup;		# max n n
 	push 1;		# max n n 1
 	neq;		# max n n>1
 	jumpTrue loop;	# max n
-	
+
 	pop;		# max
     }
 }
@@ -60,12 +60,12 @@ set tcl_traceCompile 2; ulam2 1; set tcl_traceCompile 0
 
 proc test1 {n} {
     for {set i 1} {$i <= $n} {incr i} {
-	ulam1 $i  
+	ulam1 $i
     }
 }
 proc test2 {n} {
     for {set i 1} {$i <= $n} {incr i} {
-	ulam2 $i  
+	ulam2 $i
     }
 }
 
@@ -75,11 +75,10 @@ for {set j 0} {$j < 10} {incr j} {
     test1 30000
     set after [clock microseconds]
     puts "compiled: [expr {1e-6 * ($after - $before)}]"
-    
+
     test2 1
     set before [clock microseconds]
     test2 30000
     set after [clock microseconds]
     puts "assembled: [expr {1e-6 * ($after - $before)}]"
 }
-    
\ No newline at end of file