Author: coke Date: Tue May 22 17:03:20 2007 New Revision: 18628 Modified: trunk/ (props changed) trunk/languages/tcl/runtime/builtin/regexp.pir
Log: [tcl] fix [regexp] to avoid using old __ style vtable access. Modified: trunk/languages/tcl/runtime/builtin/regexp.pir ============================================================================== --- trunk/languages/tcl/runtime/builtin/regexp.pir (original) +++ trunk/languages/tcl/runtime/builtin/regexp.pir Tue May 22 17:03:20 2007 @@ -132,7 +132,8 @@ goto subMatches_ind_loop done: - .return match.__get_bool() + $I0 = istrue match + .return ($I0) badargs: tcl_error 'wrong # args: should be "regexp ?switches? exp string ?matchVar? ?subMatchVar subMatchVar ...?"'
