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/tclScan.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/tclScan.c')
-rw-r--r-- | generic/tclScan.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index 4dfc2d6..3edb8be 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -595,7 +595,7 @@ Tcl_ScanObjCmd( return TCL_ERROR; } - format = Tcl_GetStringFromObj(objv[2], NULL); + format = Tcl_GetString(objv[2]); numVars = objc-3; /* @@ -617,7 +617,7 @@ Tcl_ScanObjCmd( } } - string = Tcl_GetStringFromObj(objv[1], NULL); + string = Tcl_GetString(objv[1]); baseString = string; /* |