summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2006-10-31 13:46:31 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2006-10-31 13:46:31 (GMT)
commit0ca58aa64c618e56ba5a8e06c8030de1737ba015 (patch)
treeed568c862afcaac4c420827a45785a6bdfe7bdbc /library
parentbdf25bdf70ec1d2f6dddeb07719d5b50ee2a5f91 (diff)
downloadtcl-0ca58aa64c618e56ba5a8e06c8030de1737ba015.zip
tcl-0ca58aa64c618e56ba5a8e06c8030de1737ba015.tar.gz
tcl-0ca58aa64c618e56ba5a8e06c8030de1737ba015.tar.bz2
Fix [Bug 1587618], eliminating the callObjc and callObjv fields from the Interp
structure.
Diffstat (limited to 'library')
-rw-r--r--library/clock.tcl10
1 files changed, 5 insertions, 5 deletions
diff --git a/library/clock.tcl b/library/clock.tcl
index 61f905b..523fc1e 100644
--- a/library/clock.tcl
+++ b/library/clock.tcl
@@ -13,7 +13,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: clock.tcl,v 1.36 2006/10/23 22:49:25 msofer Exp $
+# RCS: @(#) $Id: clock.tcl,v 1.37 2006/10/31 13:46:33 dkf Exp $
#
#----------------------------------------------------------------------
@@ -653,7 +653,7 @@ proc ::tcl::clock::format { args } {
# Check the count of args
if { [llength $args] < 1 || [llength $args] % 2 != 1 } {
- set cmdName [lrange [info level 0] 0 end-[llength $args]]
+ set cmdName "clock format"
return -code error \
-errorcode [list CLOCK wrongNumArgs] \
"wrong \# args: should be\
@@ -1244,7 +1244,7 @@ proc ::tcl::clock::scan { args } {
# Check the count of args
if { [llength $args] < 1 || [llength $args] % 2 != 1 } {
- set cmdName [lrange [info level 0] 0 end-[llength $args]]
+ set cmdName "clock scan"
return -code error \
-errorcode [list CLOCK wrongNumArgs] \
"wrong \# args: should be\
@@ -4318,11 +4318,11 @@ proc ::tcl::clock::BSearch { list key } {
proc ::tcl::clock::add { clockval args } {
if { [llength $args] % 2 != 0 } {
+ set cmdName "clock add"
return -code error \
-errorcode [list CLOCK wrongNumArgs] \
"wrong \# args: should be\
- \"[lindex [info level 0] 0] clockval\
- ?number units?...\
+ \"$cmdName clockval ?number units?...\
?-gmt boolean? ?-locale LOCALE? ?-timezone ZONE?\""
}
if { [catch { expr {wide($clockval)} } result] } {