diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-29 20:28:54 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-29 20:28:54 (GMT) |
| commit | 94741577ee73184dd04e947e9a87bc9227c4ebab (patch) | |
| tree | fd68415e372f7051c71d212b2bd274ed2c5c5b2c /generic/tclProc.c | |
| parent | 709f9278ffe0739b8bc246247ff82868eff8b467 (diff) | |
| download | tcl-94741577ee73184dd04e947e9a87bc9227c4ebab.zip tcl-94741577ee73184dd04e947e9a87bc9227c4ebab.tar.gz tcl-94741577ee73184dd04e947e9a87bc9227c4ebab.tar.bz2 | |
Another round of size_t'isms, this time also for Tcl_DString
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 03a2880..f48ed41 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -305,7 +305,7 @@ Tcl_ProcObjCmd( } if ((procArgs[0] == 'a') && (strncmp(procArgs, "args", 4) == 0)) { - int numBytes; + size_t numBytes; procArgs +=4; while (*procArgs != '\0') { @@ -319,7 +319,8 @@ Tcl_ProcObjCmd( * The argument list is just "args"; check the body */ - procBody = TclGetStringFromObj(objv[3], &numBytes); + procBody = TclGetString(objv[3]); + numBytes = objv[3]->length; if (TclParseAllWhiteSpace(procBody, numBytes) < numBytes) { goto done; } |