diff options
Diffstat (limited to 'generic/tclPreserve.c')
| -rw-r--r-- | generic/tclPreserve.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/generic/tclPreserve.c b/generic/tclPreserve.c index 5c6097f..d60ebec 100644 --- a/generic/tclPreserve.c +++ b/generic/tclPreserve.c @@ -83,7 +83,6 @@ typedef struct HandleStruct { *---------------------------------------------------------------------- */ - /* ARGSUSED */ void TclFinalizePreserve(void) { @@ -144,7 +143,7 @@ Tcl_Preserve( if (inUse == spaceAvl) { spaceAvl = spaceAvl ? 2*spaceAvl : INITIAL_SIZE; - refArray = ckrealloc(refArray, spaceAvl * sizeof(Reference)); + refArray = (Reference *)ckrealloc(refArray, spaceAvl * sizeof(Reference)); } /* @@ -226,7 +225,7 @@ Tcl_Release( if (freeProc == TCL_DYNAMIC) { ckfree(clientData); } else { - freeProc(clientData); + freeProc((char *)clientData); } } return; @@ -293,7 +292,7 @@ Tcl_EventuallyFree( if (freeProc == TCL_DYNAMIC) { ckfree(clientData); } else { - freeProc(clientData); + freeProc((char *)clientData); } } @@ -327,7 +326,7 @@ TclHandleCreate( * be tracked for deletion. Must not be * NULL. */ { - HandleStruct *handlePtr = ckalloc(sizeof(HandleStruct)); + HandleStruct *handlePtr = (HandleStruct *)ckalloc(sizeof(HandleStruct)); handlePtr->ptr = ptr; #ifdef TCL_MEM_DEBUG |