Changeset 939 for trunk/modules/abstract.tcl
- Timestamp:
- 01/07/2008 18:06:44 (5 months ago)
- Files:
-
- 1 modified
-
trunk/modules/abstract.tcl (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/modules/abstract.tcl
r937 r939 89 89 } 90 90 91 #init our counters92 bMotion_counter_init "abstracts" "faults"93 bMotion_counter_init "abstracts" "pageouts"94 bMotion_counter_init "abstracts" "gc"95 bMotion_counter_init "abstracts" "gets"96 97 91 set bMotion_abstract_dir "$bMotionLocal/abstracts/$bMotionInfo(language)" 98 92 … … 106 100 107 101 bMotion_putloglev 2 * "Garbage collecting abstracts..." 108 109 bMotion_counter_incr "abstracts" "gc"110 102 111 103 set abstracts [array names bMotion_abstract_contents] … … 123 115 set bMotion_abstract_timestamps($abstract) 0 124 116 lappend bMotion_abstract_ondisk $abstract 125 bMotion_counter_incr "abstracts" "pageouts"126 117 } 127 118 } … … 385 376 } 386 377 387 bMotion_counter_incr "abstracts" "gets"388 389 378 if {$bMotion_abstract_timestamps($abstract) < [expr [clock seconds] - $bMotion_abstract_max_age]} { 390 379 bMotion_putloglev d * "abstract $abstract has been unloaded, reloading..." 391 bMotion_counter_incr "abstracts" "faults"392 380 bMotion_abstract_load $abstract 393 381 }
