diff options
Diffstat (limited to 'unix/tclLoadDl.c')
| -rw-r--r-- | unix/tclLoadDl.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/unix/tclLoadDl.c b/unix/tclLoadDl.c index d92dc04..7bb1da3 100644 --- a/unix/tclLoadDl.c +++ b/unix/tclLoadDl.c @@ -9,7 +9,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.16 2006/06/13 22:10:19 dkf Exp $ + * RCS: @(#) $Id: tclLoadDl.c,v 1.17 2008/04/27 22:21:33 dkf Exp $ */ #include "tclInt.h" @@ -66,7 +66,7 @@ TclpDlopen( * file. */ { void *handle; - CONST char *native; + const char *native; /* * First try the full path the user gave us. This is particularly @@ -129,11 +129,11 @@ Tcl_PackageInitProc * TclpFindSymbol( Tcl_Interp *interp, /* Place to put error messages. */ Tcl_LoadHandle loadHandle, /* Value from TcpDlopen(). */ - CONST char *symbol) /* Symbol to look up. */ + const char *symbol) /* Symbol to look up. */ { - CONST char *native; + const char *native; Tcl_DString newName, ds; - VOID *handle = (VOID*)loadHandle; + void *handle = (void *) loadHandle; Tcl_PackageInitProc *proc; /* @@ -210,7 +210,7 @@ TclpUnloadFile( int TclGuessPackageName( - CONST 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. */ |