diff options
| author | dgp <dgp@users.sourceforge.net> | 2009-09-24 17:19:17 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2009-09-24 17:19:17 (GMT) |
| commit | d979bd019aca7a87ce8bb62692fb3ebb66ff0117 (patch) | |
| tree | 8c25d3456f57e38994d5034ccac367a80c252cdb /generic/tclCompile.c | |
| parent | 4b18bbd6f4b8ba02af4fc3d8fe895b61280246c2 (diff) | |
| download | tcl-d979bd019aca7a87ce8bb62692fb3ebb66ff0117.zip tcl-d979bd019aca7a87ce8bb62692fb3ebb66ff0117.tar.gz tcl-d979bd019aca7a87ce8bb62692fb3ebb66ff0117.tar.bz2 | |
TIP #356 IMPLEMENTATION
* generic/tcl.decls: Promote internal routine TclNRSubstObj()
* generic/tclCmdMZ.c: to public Tcl_NRSubstObj(). Still needs docs.
* generic/tclCompile.c:
* generic/tclInt.h:
* generic/tclDecls.h: make genstubs
* generic/tclStubInit.c:
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 7104f94..ed4e8f0 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.c,v 1.177 2009/09/21 16:16:05 dgp Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.178 2009/09/24 17:19:18 dgp Exp $ */ #include "tclInt.h" @@ -898,7 +898,7 @@ Tcl_SubstObj( { TEOV_callback *rootPtr = TOP_CB(interp); - if (TclNRRunCallbacks(interp, TclNRSubstObj(interp, objPtr, flags), + if (TclNRRunCallbacks(interp, Tcl_NRSubstObj(interp, objPtr, flags), rootPtr, 0) != TCL_OK) { return NULL; } @@ -908,7 +908,7 @@ Tcl_SubstObj( /* *---------------------------------------------------------------------- * - * TclNRSubstObj -- + * Tcl_NRSubstObj -- * * Request substitution of a Tcl value by the NR stack. * @@ -924,7 +924,7 @@ Tcl_SubstObj( */ int -TclNRSubstObj( +Tcl_NRSubstObj( Tcl_Interp *interp, Tcl_Obj *objPtr, int flags) |