diff options
| author | hobbs <hobbs> | 2005-10-05 04:27:38 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2005-10-05 04:27:38 (GMT) |
| commit | ac08c2624bd5c89d68f61d6899b692051cf75fb1 (patch) | |
| tree | 0ccf9071be7a2cf36c58d4661444b2b897a6d193 /generic/tclEncoding.c | |
| parent | 25bf089e2d2828dbd9700ac450feed10b2848e56 (diff) | |
| download | tcl-ac08c2624bd5c89d68f61d6899b692051cf75fb1.zip tcl-ac08c2624bd5c89d68f61d6899b692051cf75fb1.tar.gz tcl-ac08c2624bd5c89d68f61d6899b692051cf75fb1.tar.bz2 | |
* generic/tclIOUtil.c (TclFSNormalizeAbsolutePath): make static
* generic/tclEncoding.c (TclFindEncodings): make static
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index efe5905..6a8ae6e 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclEncoding.c,v 1.16.2.7 2005/07/05 21:18:23 dgp Exp $ + * RCS: @(#) $Id: tclEncoding.c,v 1.16.2.8 2005/10/05 04:27:38 hobbs Exp $ */ #include "tclInt.h" @@ -3058,7 +3058,7 @@ unilen(src) *------------------------------------------------------------------------- */ -int +static int TclFindEncodings(argv0) CONST char *argv0; /* Name of executable from argv[0] to main() * in native multi-byte encoding. */ @@ -3093,7 +3093,7 @@ TclFindEncodings(argv0) * convert the UTF string back to native before setting the new * default encoding. */ - + pathPtr = TclGetLibraryPath(); if ((pathPtr != NULL) && mustCleanUtf) { Tcl_UtfToExternalDString(NULL, Tcl_GetString(pathPtr), -1, @@ -3105,7 +3105,7 @@ TclFindEncodings(argv0) /* * Now convert the native string back to UTF. */ - + if ((pathPtr != NULL) && mustCleanUtf) { Tcl_ExternalToUtfDString(NULL, Tcl_DStringValue(&libPath), -1, &buffer); |