diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2002-01-09 19:09:28 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2002-01-09 19:09:28 (GMT) |
| commit | b2c02107babc232a4bf2c760ee63e7c789d1ab18 (patch) | |
| tree | d9ff624d30f0c4b9021e9addabd2c3260c861a11 /unix/tclLoadAout.c | |
| parent | c71e44408e9b40395f6a6be8e73df1cf530da7f9 (diff) | |
| download | tcl-b2c02107babc232a4bf2c760ee63e7c789d1ab18.zip tcl-b2c02107babc232a4bf2c760ee63e7c789d1ab18.tar.gz tcl-b2c02107babc232a4bf2c760ee63e7c789d1ab18.tar.bz2 | |
Updated APIs in the files */tcl*Load*.c according to the guidelines
of TIP 27.
Diffstat (limited to 'unix/tclLoadAout.c')
| -rw-r--r-- | unix/tclLoadAout.c | 7 |
1 files changed, 4 insertions, 3 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++; |