diff options
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/tclLoadAout.c | 7 | ||||
| -rw-r--r-- | unix/tclLoadDl.c | 4 | ||||
| -rw-r--r-- | unix/tclLoadDld.c | 4 | ||||
| -rw-r--r-- | unix/tclLoadDyld.c | 4 | ||||
| -rw-r--r-- | unix/tclLoadNext.c | 4 | ||||
| -rw-r--r-- | unix/tclLoadOSF.c | 4 | ||||
| -rw-r--r-- | unix/tclLoadShl.c | 4 |
7 files changed, 16 insertions, 15 deletions
diff --git a/unix/tclLoadAout.c b/unix/tclLoadAout.c index e78158d..b9ad4b9 100644 --- a/unix/tclLoadAout.c +++ b/unix/tclLoadAout.c @@ -14,7 +14,7 @@ * and Design Engineering (MADE) Initiative through ARPA contract * F33615-94-C-4400. * - * RCS: @(#) $Id: tclLoadAout.c,v 1.8 2001/10/16 21:13:50 hobbs Exp $ + * RCS: @(#) $Id: tclLoadAout.c,v 1.9 2002/01/09 19:09:28 kennykb Exp $ */ #include "tclInt.h" @@ -474,12 +474,13 @@ TclpUnloadFile(clientData) int TclGuessPackageName(fileName, bufPtr) - char *fileName; /* Name of file containing package (already + CONST char *fileName; /* Name of file containing package (already * translated to local form if needed). */ Tcl_DString *bufPtr; /* Initialized empty dstring. Append * package name to this if possible. */ { - char *p, *q, *r; + CONST char *p, *q; + char *r; if ((q = strrchr(fileName,'/'))) { q++; diff --git a/unix/tclLoadDl.c b/unix/tclLoadDl.c index 97d4c23..3578695 100644 --- a/unix/tclLoadDl.c +++ b/unix/tclLoadDl.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclLoadDl.c,v 1.7 2001/09/28 01:21:53 dgp Exp $ + * RCS: @(#) $Id: tclLoadDl.c,v 1.8 2002/01/09 19:09:28 kennykb Exp $ */ #include "tclInt.h" @@ -181,7 +181,7 @@ TclpUnloadFile(clientData) int TclGuessPackageName(fileName, bufPtr) - char *fileName; /* Name of file containing package (already + CONST char *fileName; /* Name of file containing package (already * translated to local form if needed). */ Tcl_DString *bufPtr; /* Initialized empty dstring. Append * package name to this if possible. */ diff --git a/unix/tclLoadDld.c b/unix/tclLoadDld.c index faa68ce..7d8a58d 100644 --- a/unix/tclLoadDld.c +++ b/unix/tclLoadDld.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclLoadDld.c,v 1.6 2001/09/28 01:21:53 dgp Exp $ + * RCS: @(#) $Id: tclLoadDld.c,v 1.7 2002/01/09 19:09:28 kennykb Exp $ */ #include "tclInt.h" @@ -161,7 +161,7 @@ TclpUnloadFile(clientData) int TclGuessPackageName(fileName, bufPtr) - char *fileName; /* Name of file containing package (already + CONST char *fileName; /* Name of file containing package (already * translated to local form if needed). */ Tcl_DString *bufPtr; /* Initialized empty dstring. Append * package name to this if possible. */ diff --git a/unix/tclLoadDyld.c b/unix/tclLoadDyld.c index e62a8b2..a6e16f5 100644 --- a/unix/tclLoadDyld.c +++ b/unix/tclLoadDyld.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclLoadDyld.c,v 1.6 2001/11/23 01:40:10 das Exp $ + * RCS: @(#) $Id: tclLoadDyld.c,v 1.7 2002/01/09 19:09:28 kennykb Exp $ */ #include "tclInt.h" @@ -160,7 +160,7 @@ TclpUnloadFile(clientData) int TclGuessPackageName(fileName, bufPtr) - char *fileName; /* Name of file containing package (already + CONST char *fileName; /* Name of file containing package (already * translated to local form if needed). */ Tcl_DString *bufPtr; /* Initialized empty dstring. Append * package name to this if possible. */ diff --git a/unix/tclLoadNext.c b/unix/tclLoadNext.c index 9bdca2a..d19b22e 100644 --- a/unix/tclLoadNext.c +++ b/unix/tclLoadNext.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclLoadNext.c,v 1.6 2001/09/28 01:21:53 dgp Exp $ + * RCS: @(#) $Id: tclLoadNext.c,v 1.7 2002/01/09 19:09:28 kennykb Exp $ */ #include "tclInt.h" @@ -140,7 +140,7 @@ TclpUnloadFile(clientData) int TclGuessPackageName(fileName, bufPtr) - char *fileName; /* Name of file containing package (already + CONST char *fileName; /* Name of file containing package (already * translated to local form if needed). */ Tcl_DString *bufPtr; /* Initialized empty dstring. Append * package name to this if possible. */ diff --git a/unix/tclLoadOSF.c b/unix/tclLoadOSF.c index dcf6fb2..76c0c7c 100644 --- a/unix/tclLoadOSF.c +++ b/unix/tclLoadOSF.c @@ -31,7 +31,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclLoadOSF.c,v 1.6 2001/09/28 01:21:53 dgp Exp $ + * RCS: @(#) $Id: tclLoadOSF.c,v 1.7 2002/01/09 19:09:28 kennykb Exp $ */ #include "tclInt.h" @@ -158,7 +158,7 @@ TclpUnloadFile(clientData) int TclGuessPackageName(fileName, bufPtr) - char *fileName; /* Name of file containing package (already + CONST char *fileName; /* Name of file containing package (already * translated to local form if needed). */ Tcl_DString *bufPtr; /* Initialized empty dstring. Append * package name to this if possible. */ diff --git a/unix/tclLoadShl.c b/unix/tclLoadShl.c index 24bd911..cb222bb 100644 --- a/unix/tclLoadShl.c +++ b/unix/tclLoadShl.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclLoadShl.c,v 1.8 2001/09/28 01:21:53 dgp Exp $ + * RCS: @(#) $Id: tclLoadShl.c,v 1.9 2002/01/09 19:09:28 kennykb Exp $ */ #include <dl.h> @@ -174,7 +174,7 @@ TclpUnloadFile(clientData) int TclGuessPackageName(fileName, bufPtr) - char *fileName; /* Name of file containing package (already + CONST char *fileName; /* Name of file containing package (already * translated to local form if needed). */ Tcl_DString *bufPtr; /* Initialized empty dstring. Append * package name to this if possible. */ |