[PD-cvs] pd/src poe.tcl,1.1.2.2.2.4,1.1.2.2.2.5
Mathieu Bouchard
matju at users.sourceforge.net
Wed Dec 6 20:38:27 CET 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2023
Modified Files:
Tag: desiredata
poe.tcl
Log Message:
small speedup in dispatcher
Index: poe.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v
retrieving revision 1.1.2.2.2.4
retrieving revision 1.1.2.2.2.5
diff -C2 -d -r1.1.2.2.2.4 -r1.1.2.2.2.5
*** poe.tcl 6 Dec 2006 18:57:30 -0000 1.1.2.2.2.4
--- poe.tcl 6 Dec 2006 19:38:25 -0000 1.1.2.2.2.5
***************
*** 115,126 ****
}
- set dispatch {
- global _ __; set i 0; set class $_($self:_class)
- if {[catch {set methods $__($class:$selector)}]} {set methods [cache_method $class $selector]}
- }
if {$tcl_version >= 8.5} {
! append dispatch {[lindex $methods 0] $self {expand}$args}
} else {
! append dispatch {eval [concat [list [lindex $methods 0] $self] $args]}
}
proc setup_dispatcher {self} {
--- 115,130 ----
}
if {$tcl_version >= 8.5} {
! set dispatch {
! set i 0; set class $::_($self:_class)
! if {[catch {set methods $::__($class:$selector)}]} {set methods [cache_method $class $selector]}
! [lindex $methods 0] $self {expand}$args
! }
} else {
! set dispatch {
! set i 0; set class $::_($self:_class)
! if {[catch {set methods $::__($class:$selector)}]} {set methods [cache_method $class $selector]}
! eval [concat [list [lindex $methods 0] $self] $args]
! }
}
proc setup_dispatcher {self} {
More information about the Pd-cvs
mailing list