From: Vince Darley <vincentdarley@sourceforge.net>
Date: Mon, 28 Jan 2002 12:30:24 +0000 (+0000)
Subject: const
X-Git-Tag: vfs-1-2~70
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=f9be103f2e1943bd90682020a0b91ac07ee11508;p=tclvfs

const
---

diff --git a/ChangeLog b/ChangeLog
index 7f654d4..ea2cc24 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+2002-01-28 Vince Darley <vincentdarley@sourceforge.net>
+	* generic/vfs.c: const, MacOS fixes (also thanks Daniel Steffen).
+
 2001-12-07 Vince Darley <vincentdarley@sourceforge.net>
 	* various test, install fixes (unix) thanks to Larry Virden.
 	
diff --git a/generic/vfs.c b/generic/vfs.c
index 43ec23f..c7d2d51 100644
--- a/generic/vfs.c
+++ b/generic/vfs.c
@@ -1255,7 +1255,7 @@ VfsMatchInDirectory(
     Tcl_Interp *cmdInterp,	/* Interpreter to receive error msgs. */
     Tcl_Obj *returnPtr,		/* Object to receive results. */
     Tcl_Obj *dirPtr,	        /* Contains path to directory to search. */
-    char *pattern,		/* Pattern to match against. */
+    CONST char *pattern,	/* Pattern to match against. */
     Tcl_GlobTypeData *types)	/* Object containing list of acceptable types.
 				 * May be NULL. */
 {