cddl/contrib/dtracetoolkit/Code/Tcl/func_slow.tcl

   1 #!./tclsh
   2
   3 proc func_c {} {
   4         puts "Function C"
   5         set i 0
   6         while {$i < 300000} {
   7                 set i [expr $i + 1]
   8         }
   9 }
  10
  11 proc func_b {} {
  12         puts "Function B"
  13         set i 0
  14         while {$i < 200000} {
  15                 set i [expr $i + 1]
  16         }
  17         func_c
  18 }
  19
  20 proc func_a {} {
  21         puts "Function A"
  22         set i 0
  23         while {$i < 100000} {
  24                 set i [expr $i + 1]
  25         }
  26         func_b
  27 }
  28
  29 func_a