diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-20 09:46:14 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-20 09:46:14 (GMT) |
commit | 47957139fb510e8cb49eea9050f6107756ac83d7 (patch) | |
tree | 2206551d9434c9ab017193f88a6445c8a57c23a8 /generic/tclExecute.c | |
parent | b258cc76aba7c7cb1906d863944bb4cd6ea5d1a4 (diff) | |
download | tcl-47957139fb510e8cb49eea9050f6107756ac83d7.zip tcl-47957139fb510e8cb49eea9050f6107756ac83d7.tar.gz tcl-47957139fb510e8cb49eea9050f6107756ac83d7.tar.bz2 |
more internal use of size_t in stead of int.
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r-- | generic/tclExecute.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 074b1d5..6fef292 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -1541,11 +1541,10 @@ CompileExprObj( * TIP #280: No invoker (yet) - Expression compilation. */ - int length; - const char *string = TclGetStringFromObj(objPtr, &length); + const char *string = TclGetString(objPtr); - TclInitCompileEnv(interp, &compEnv, string, length, NULL, 0); - TclCompileExpr(interp, string, length, &compEnv, 0); + TclInitCompileEnv(interp, &compEnv, string, objPtr->length, NULL, 0); + TclCompileExpr(interp, string, objPtr->length, &compEnv, 0); /* * Successful compilation. If the expression yielded no instructions, |