pd/src poe.tcl,1.1.2.2.2.4,1.1.2.2.2.5 - Pd-cvs

6 Dec 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} {