diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-06-24 14:28:47 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-06-24 14:28:47 (GMT) |
| commit | b358a0b815c16a175c7861aa6cbb08b9ca211cb4 (patch) | |
| tree | 4d6c6c3ff1523215625e73e476b04a963aace2d2 /generic/tclTestProcBodyObj.c | |
| parent | eb049d668c3f6c715771f027207ceeff6c2cba43 (diff) | |
| download | tcl-b358a0b815c16a175c7861aa6cbb08b9ca211cb4.zip tcl-b358a0b815c16a175c7861aa6cbb08b9ca211cb4.tar.gz tcl-b358a0b815c16a175c7861aa6cbb08b9ca211cb4.tar.bz2 | |
Tcl_GetStringFromObj(..., NULL) -> Tcl_GetString(...). Use size_t in stead of int for more internal variables.
Diffstat (limited to 'generic/tclTestProcBodyObj.c')
| -rw-r--r-- | generic/tclTestProcBodyObj.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclTestProcBodyObj.c b/generic/tclTestProcBodyObj.c index a3f89f6..0d3617e 100644 --- a/generic/tclTestProcBodyObj.c +++ b/generic/tclTestProcBodyObj.c @@ -245,7 +245,7 @@ ProcBodyTestProcObjCmd( * Find the Command pointer to this procedure */ - fullName = Tcl_GetStringFromObj(objv[3], NULL); + fullName = Tcl_GetString(objv[3]); procCmd = Tcl_FindCommand(interp, fullName, NULL, TCL_LEAVE_ERR_MSG); if (procCmd == NULL) { return TCL_ERROR; |