diff options
| author | nijtmans <nijtmans> | 2010-08-22 18:53:25 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-08-22 18:53:25 (GMT) |
| commit | b29ec318d79701d5f1a59dda0b4517e2a91d4aa4 (patch) | |
| tree | 67ed82232eba8af871d2080941a2d38f2764b518 /generic/tclBasic.c | |
| parent | 83ab4a9db5c51f901442c409a6d33709ab4c223b (diff) | |
| download | tcl-b29ec318d79701d5f1a59dda0b4517e2a91d4aa4.zip tcl-b29ec318d79701d5f1a59dda0b4517e2a91d4aa4.tar.gz tcl-b29ec318d79701d5f1a59dda0b4517e2a91d4aa4.tar.bz2 | |
Remove many type casts which are no longernecessary as a result of [Patch 3009403]: Signature of Tcl_GetHashKey, Tcl_(Create|Find)HashEntry
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 366e45e..5216f96 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.462 2010/08/18 22:33:26 msofer Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.463 2010/08/22 18:53:26 nijtmans Exp $ */ #include "tclInt.h" @@ -656,7 +656,7 @@ Tcl_CreateInterp(void) cancelInfo->length = 0; Tcl_MutexLock(&cancelLock); - hPtr = Tcl_CreateHashEntry(&cancelTable, (char *) iPtr, &isNew); + hPtr = Tcl_CreateHashEntry(&cancelTable, iPtr, &isNew); Tcl_SetHashValue(hPtr, cancelInfo); Tcl_MutexUnlock(&cancelLock); @@ -5519,7 +5519,7 @@ TclArgumentEnter( if (cfPtr->line[i] < 0) { continue; } - hPtr = Tcl_CreateHashEntry(iPtr->lineLAPtr, (char *) objv[i], &new); + hPtr = Tcl_CreateHashEntry(iPtr->lineLAPtr, objv[i], &new); if (new) { /* * The word is not on the stack yet, remember the current location @@ -5652,7 +5652,7 @@ TclArgumentBCEnter( int isnew; Tcl_HashEntry *hPtr = Tcl_CreateHashEntry(iPtr->lineLABCPtr, - (char *) objv[word], &isnew); + objv[word], &isnew); CFWordBC *cfwPtr = (CFWordBC *) ckalloc(sizeof(CFWordBC)); cfwPtr->framePtr = cfPtr; @@ -8976,7 +8976,7 @@ TclNRCoroutineObjCmd( int isNew; Tcl_HashEntry *newPtr = Tcl_CreateHashEntry(corPtr->base.lineLABCPtr, - (char *) Tcl_GetHashKey(iPtr->lineLABCPtr, hePtr), + Tcl_GetHashKey(iPtr->lineLABCPtr, hePtr), &isNew); Tcl_SetHashValue(newPtr, Tcl_GetHashValue(hePtr)); |