diff options
Diffstat (limited to 'generic/tclZipfs.c')
| -rw-r--r-- | generic/tclZipfs.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index 97bb229..4a4faa7 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -1902,7 +1902,7 @@ ZipFSMountBufferObjCmd( { const char *mountPoint; /* Mount point path. */ unsigned char *data; - int length; + size_t length; if (objc > 4) { Tcl_WrongNumArgs(interp, 1, objv, "?mountpoint? ?data?"); @@ -1925,7 +1925,7 @@ ZipFSMountBufferObjCmd( return TCL_OK; } - data = Tcl_GetByteArrayFromObj(objv[2], &length); + data = TclGetByteArrayFromObj(objv[2], &length); return TclZipfs_MountBuffer(interp, mountPoint, data, length, 1); } |