From c9301353fc0ecd289ea6bf809c50bbbae9dd3545 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Mon, 8 Oct 2018 22:32:08 +0000 Subject: Tcl_GetStringFromObj -> Tcl_GetString --- generic/tclZipfs.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index 829b5d2..d8a3f84 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -2974,7 +2974,7 @@ ZipFSExistsObjCmd( * Prepend ZIPFS_VOLUME to filename, eliding the final / */ - filename = Tcl_GetStringFromObj(objv[1], 0); + filename = Tcl_GetString(objv[1]); Tcl_DStringInit(&ds); Tcl_DStringAppend(&ds, ZIPFS_VOLUME, ZIPFS_VOLUME_LEN - 1); Tcl_DStringAppend(&ds, filename, -1); @@ -3021,7 +3021,7 @@ ZipFSInfoObjCmd( Tcl_WrongNumArgs(interp, 1, objv, "filename"); return TCL_ERROR; } - filename = Tcl_GetStringFromObj(objv[1], 0); + filename = Tcl_GetString(objv[1]); ReadLock(); z = ZipFSLookup(filename); if (z) { @@ -3092,7 +3092,7 @@ ZipFSListObjCmd( return TCL_ERROR; } } else if (objc == 2) { - pattern = Tcl_GetStringFromObj(objv[1], 0); + pattern = Tcl_GetString(objv[1]); } ReadLock(); if (pattern) { -- cgit v0.12