diff options
| author | nijtmans <nijtmans> | 2010-06-21 11:23:23 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-06-21 11:23:23 (GMT) |
| commit | 7904f2c09aac76e42beaba3829d4e0bc702b5828 (patch) | |
| tree | 42f60b267df843560dce3dc715050416409a7ed3 /unix/tclLoadDl.c | |
| parent | b959e69e2efe23f4904f8ebcb2c6638af32aeb4a (diff) | |
| download | tcl-7904f2c09aac76e42beaba3829d4e0bc702b5828.zip tcl-7904f2c09aac76e42beaba3829d4e0bc702b5828.tar.gz tcl-7904f2c09aac76e42beaba3829d4e0bc702b5828.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; |