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 | 0dd06785462fa4b6236f6e4b904cb852d75db8ac (patch) | |
tree | 2206551d9434c9ab017193f88a6445c8a57c23a8 /generic/tclExecute.c | |
parent | 3d1095d3487c556c156ea88136c5eed62c03b542 (diff) | |
download | tcl-0dd06785462fa4b6236f6e4b904cb852d75db8ac.zip tcl-0dd06785462fa4b6236f6e4b904cb852d75db8ac.tar.gz tcl-0dd06785462fa4b6236f6e4b904cb852d75db8ac.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, |