summaryrefslogtreecommitdiffstats
path: root/tclzvfs/zvfs.c
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2017-09-19 21:10:17 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2017-09-19 21:10:17 (GMT)
commitf9a9e8c6954228564251f9d72fc68ccaa53f141a (patch)
tree4a5b57f9ac4123b4f6f9f96cf340f8191b4cee15 /tclzvfs/zvfs.c
parent5d97e7f9ca10b69e2346f135127c22f843e62d63 (diff)
parente98176dd130878b648814ccabd46a3f993857be8 (diff)
downloadblt-f9a9e8c6954228564251f9d72fc68ccaa53f141a.zip
blt-f9a9e8c6954228564251f9d72fc68ccaa53f141a.tar.gz
blt-f9a9e8c6954228564251f9d72fc68ccaa53f141a.tar.bz2
Merge commit 'e98176dd130878b648814ccabd46a3f993857be8'
Diffstat (limited to 'tclzvfs/zvfs.c')
-rwxr-xr-xtclzvfs/zvfs.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/tclzvfs/zvfs.c b/tclzvfs/zvfs.c
index 4f1f48f..437f1a5 100755
--- a/tclzvfs/zvfs.c
+++ b/tclzvfs/zvfs.c
@@ -265,7 +265,7 @@ int Zvfs_Mount(
ZvfsArchive *pArchive; /* The ZIP archive being mounted */
Tcl_HashEntry *pEntry; /* Hash table entry */
int isNew; /* Flag to tell use when a hash entry is new */
- unsigned char zBuf[100]; /* Space into which to read from the ZIP archive */
+ unsigned char zBuf[128]; /* Space into which to read from the ZIP archive */
Tcl_HashSearch zSearch; /* Search all mount points */
if( !local.isInit ) return TCL_ERROR;
@@ -344,7 +344,7 @@ int Zvfs_Mount(
int isdir;
ZvfsFile *pZvfs; /* A new virtual file */
char *zFullPath; /* Full pathname of the virtual file */
- char zName[1024]; /* Space to hold the filename */
+ char zName[2048]; /* Space to hold the filename */
/* Read the next directory entry. Extract the size of the filename,
** the size of the "extra" information, and the offset into the archive
@@ -904,8 +904,8 @@ static Tcl_Channel ZvfsFileOpen(Tcl_Interp *interp, char *zFilename,
ZvfsChannelInfo *pInfo;
Tcl_Channel chan;
static int count = 1;
- char zName[50];
- unsigned char zBuf[50];
+ char zName[128];
+ unsigned char zBuf[128];
int errCode;
pFile = ZvfsLookup(zFilename);
@@ -1121,7 +1121,7 @@ Tcl_Obj *Tobe_FSListVolumesProc _ANSI_ARGS_((void))
Tcl_HashSearch zSearch; /* Search all mount points */
ZvfsArchive *pArchive; /* The ZIP archive being mounted */
Tcl_Obj *pVols=0, *pVol;
- char mountpt[200];
+ char mountpt[2048];
pEntry=Tcl_FirstHashEntry(&local.archiveHash,&zSearch);
while (pEntry) {