Ignore:
Timestamp:
Aug 13, 2005, 3:59:55 AM (12 years ago)
Author:
pguyot
Message:

Optimization: ui_* was a big penalty when running without -d or -v.
These functions are optimized at runtime to do nothing if required.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r13488 r13490  
    4747########### External High Level Procedures ###########
    4848
    49 
    50 # UI Instantiations
    51 foreach priority "debug info msg error warn" {
    52     eval "proc ui_$priority {str} \{ \n\
    53         set message(priority) $priority \n\
    54         set message(data) \$str \n\
    55         ui_event \[array get message\] \n\
    56     \}"
    57 }
    58 
    59 
    6049namespace eval options {
    6150}
Note: See TracChangeset for help on using the changeset viewer.