Posted to tcl by ro at Thu Aug 14 23:08:35 GMT 2008view raw

  1. (apps) 1 % set script {set total 0 ; for {set i 0} {$i < 10000000} {incr i} {incr total $i} ; set total}
  2. set total 0 ; for {set i 0} {$i < 10000000} {incr i} {incr total $i} ; set total
  3. (apps) 2 % package require Thread
  4. 2.6.5
  5. (apps) 3 % set t1 [thread::create]
  6. tid00000D88
  7. (apps) 4 % set t2 [thread::create]
  8. tid00000630
  9. (apps) 5 % thread::send -async $t1 $script x1
  10. (apps) 6 % thread::send -async $t2 $script x2
  11. (apps) 7 %