Posted to tcl by ro at Thu Aug 14 23:08:35 GMT 2008view raw
- (apps) 1 % set script {set total 0 ; for {set i 0} {$i < 10000000} {incr i} {incr total $i} ; set total}
- set total 0 ; for {set i 0} {$i < 10000000} {incr i} {incr total $i} ; set total
- (apps) 2 % package require Thread
- 2.6.5
- (apps) 3 % set t1 [thread::create]
- tid00000D88
- (apps) 4 % set t2 [thread::create]
- tid00000630
- (apps) 5 % thread::send -async $t1 $script x1
- (apps) 6 % thread::send -async $t2 $script x2
- (apps) 7 %