diff options
| author | nijtmans <nijtmans> | 2010-06-21 11:23:23 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-06-21 11:23:23 (GMT) |
| commit | 3191301e93941d615e07207a7a22698703a9a2fc (patch) | |
| tree | 42f60b267df843560dce3dc715050416409a7ed3 /unix/tclLoadDl.c | |
| parent | c95ce955c5ff5949cb1c16f25005f917ccb12c21 (diff) | |
| download | tcl-3191301e93941d615e07207a7a22698703a9a2fc.zip tcl-3191301e93941d615e07207a7a22698703a9a2fc.tar.gz tcl-3191301e93941d615e07207a7a22698703a9a2fc.tar.bz2 | |
Eliminate various unnecessary type casts, use function typedefs whenever possible
Diffstat (limited to 'unix/tclLoadDl.c')
| -rw-r--r-- | unix/tclLoadDl.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/unix/tclLoadDl.c b/unix/tclLoadDl.c index b0bff77..7bec84c 100644 --- a/unix/tclLoadDl.c +++ b/unix/tclLoadDl.c @@ -6,10 +6,10 @@ * * Copyright (c) 1995-1997 Sun Microsystems, Inc. * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. + * 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.23 2010/04/26 22:30:05 kennykb Exp $ + * RCS: @(#) $Id: tclLoadDl.c,v 1.24 2010/06/21 11:23:23 nijtmans Exp $ */ #include "tclInt.h" @@ -93,7 +93,7 @@ TclpDlopen( */ Tcl_DString ds; - char *fileName = Tcl_GetString(pathPtr); + const char *fileName = Tcl_GetString(pathPtr); native = Tcl_UtfToExternalDString(NULL, fileName, -1, &ds); handle = dlopen(native, RTLD_NOW | RTLD_GLOBAL); @@ -113,7 +113,7 @@ TclpDlopen( return TCL_ERROR; } newHandle = (Tcl_LoadHandle) ckalloc(sizeof(*newHandle)); - newHandle->clientData = (ClientData) handle; + newHandle->clientData = handle; newHandle->findSymbolProcPtr = &FindSymbol; newHandle->unloadFileProcPtr = &UnloadFile; *unloadProcPtr = &UnloadFile; |