diff options
| author | hobbs <hobbs> | 2001-09-01 00:51:30 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-09-01 00:51:30 (GMT) |
| commit | e3a668d0116f88c8a2cb5a58378d1ff551f82255 (patch) | |
| tree | b023a6cb73d9766f25ad188e04c1669744183279 /generic/tclBasic.c | |
| parent | 64560d95933f485db584e3a2bdedb5c7d8362420 (diff) | |
| download | tcl-e3a668d0116f88c8a2cb5a58378d1ff551f82255.zip tcl-e3a668d0116f88c8a2cb5a58378d1ff551f82255.tar.gz tcl-e3a668d0116f88c8a2cb5a58378d1ff551f82255.tar.bz2 | |
* generic/tcl.h: added TclCompileListCmd header
* generic/tclBasic.c: added TclCompileListCmd compile proc
* generic/tclCompCmds.c (TclCompileListCmd): function to compile
the 'list' command at parse time.
* generic/tclExecute.c (TclExecuteByteCode): definition of
INST_LIST bytecode.
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 3f3d099..403d1a1 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.34 2001/08/14 13:45:57 msofer Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.35 2001/09/01 00:51:31 hobbs Exp $ */ #include "tclInt.h" @@ -119,7 +119,7 @@ static CmdInfo builtInCmds[] = { {"linsert", (Tcl_CmdProc *) NULL, Tcl_LinsertObjCmd, (CompileProc *) NULL, 1}, {"list", (Tcl_CmdProc *) NULL, Tcl_ListObjCmd, - (CompileProc *) NULL, 1}, + TclCompileListCmd, 1}, {"llength", (Tcl_CmdProc *) NULL, Tcl_LlengthObjCmd, TclCompileLlengthCmd, 1}, {"load", (Tcl_CmdProc *) NULL, Tcl_LoadObjCmd, |