summaryrefslogtreecommitdiffstats
path: root/unix/tclLoadDl.c
diff options
context:
space:
mode:
Diffstat (limited to 'unix/tclLoadDl.c')
-rw-r--r--unix/tclLoadDl.c12
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. */