diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-03-05 17:39:05 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-03-05 17:39:05 (GMT) |
| commit | a3ad83e5f83eca6dc229f6e07a95766922b33bd8 (patch) | |
| tree | 56c49bf08292763fe33736827e4f3fd86498a7c1 | |
| parent | df27b4e4e05a39d0241a2d4bc5aa87aee5851750 (diff) | |
| download | tcl-a3ad83e5f83eca6dc229f6e07a95766922b33bd8.zip tcl-a3ad83e5f83eca6dc229f6e07a95766922b33bd8.tar.gz tcl-a3ad83e5f83eca6dc229f6e07a95766922b33bd8.tar.bz2 | |
timerate is supported in 8.7
| -rw-r--r-- | generic/tclBasic.c | 13 | ||||
| -rw-r--r-- | library/tclIndex | 3 |
2 files changed, 0 insertions, 16 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 47579a4..644f3e6 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -319,9 +319,7 @@ static const CmdInfo builtInCmds[] = { {"source", Tcl_SourceObjCmd, NULL, TclNRSourceObjCmd, 0}, {"tell", Tcl_TellObjCmd, NULL, NULL, CMD_IS_SAFE}, {"time", Tcl_TimeObjCmd, NULL, NULL, CMD_IS_SAFE}, -#ifdef TCL_TIMERATE {"timerate", Tcl_TimeRateObjCmd, NULL, NULL, CMD_IS_SAFE}, -#endif {"unload", Tcl_UnloadObjCmd, NULL, NULL, 0}, {"update", Tcl_UpdateObjCmd, NULL, NULL, CMD_IS_SAFE}, {"vwait", Tcl_VwaitObjCmd, NULL, NULL, CMD_IS_SAFE}, @@ -977,17 +975,6 @@ Tcl_CreateInterp(void) Tcl_NRCreateCommand(interp, "::tcl::unsupported::inject", NULL, NRCoroInjectObjCmd, NULL, NULL); - /* Create an unsupported command for timerate */ - Tcl_CreateObjCommand(interp, "::tcl::unsupported::timerate", - Tcl_TimeRateObjCmd, NULL, NULL); - - /* Export unsupported commands */ - nsPtr = Tcl_FindNamespace(interp, "::tcl::unsupported", NULL, 0); - if (nsPtr) { - Tcl_Export(interp, nsPtr, "*", 1); - } - - #ifdef USE_DTRACE /* * Register the tcl::dtrace command. diff --git a/library/tclIndex b/library/tclIndex index 5a702ad..87a2814 100644 --- a/library/tclIndex +++ b/library/tclIndex @@ -73,6 +73,3 @@ set auto_index(::tcl::tm::Defaults) [list ::tcl::Pkg::source [file join $dir tm. set auto_index(::tcl::tm::UnknownHandler) [list ::tcl::Pkg::source [file join $dir tm.tcl]] set auto_index(::tcl::tm::roots) [list ::tcl::Pkg::source [file join $dir tm.tcl]] set auto_index(::tcl::tm::path) [list ::tcl::Pkg::source [file join $dir tm.tcl]] -if {[namespace exists ::tcl::unsupported]} { - set auto_index(timerate) {namespace import ::tcl::unsupported::timerate} -} |