diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-31 20:28:37 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-31 20:28:37 (GMT) |
commit | db95c403f65ef389b9f090c0c9d5dbc540bed030 (patch) | |
tree | 2fdc1e392a16191503c8253f7f7e31f2c057ce27 | |
parent | 6d963231d6938ca7eb29230eb6fea1d084b0b5a8 (diff) | |
download | tcl-db95c403f65ef389b9f090c0c9d5dbc540bed030.zip tcl-db95c403f65ef389b9f090c0c9d5dbc540bed030.tar.gz tcl-db95c403f65ef389b9f090c0c9d5dbc540bed030.tar.bz2 |
Fix a few warning-message in --enable-symbols-mem mode
-rw-r--r-- | generic/tclCkalloc.c | 2 | ||||
-rw-r--r-- | generic/tclObj.c | 6 | ||||
-rw-r--r-- | generic/tclThread.c | 2 | ||||
-rw-r--r-- | generic/tclThreadAlloc.c | 2 |
4 files changed, 7 insertions, 5 deletions
diff --git a/generic/tclCkalloc.c b/generic/tclCkalloc.c index d81a281..c1a585e 100644 --- a/generic/tclCkalloc.c +++ b/generic/tclCkalloc.c @@ -810,7 +810,7 @@ Tcl_AttemptRealloc( */ static int MemoryCmd( - ClientData clientData, + TCL_UNUSED(ClientData), Tcl_Interp *interp, int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Obj values of arguments. */ diff --git a/generic/tclObj.c b/generic/tclObj.c index f9b5c6b..dbe6686 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -448,7 +448,7 @@ TclFinalizeThreadObjects(void) if (tablePtr != NULL) { for (hPtr = Tcl_FirstHashEntry(tablePtr, &hSearch); hPtr != NULL; hPtr = Tcl_NextHashEntry(&hSearch)) { - ObjData *objData = Tcl_GetHashValue(hPtr); + ObjData *objData = (ObjData *)Tcl_GetHashValue(hPtr); if (objData != NULL) { ckfree(objData); @@ -1008,7 +1008,7 @@ TclDbDumpActiveObjects( fprintf(outFile, "total objects: %d\n", tablePtr->numEntries); for (hPtr = Tcl_FirstHashEntry(tablePtr, &hSearch); hPtr != NULL; hPtr = Tcl_NextHashEntry(&hSearch)) { - ObjData *objData = Tcl_GetHashValue(hPtr); + ObjData *objData = (ObjData *)Tcl_GetHashValue(hPtr); if (objData != NULL) { fprintf(outFile, @@ -1317,7 +1317,7 @@ TclFreeObj( * As the Tcl_Obj is going to be deleted we remove the entry. */ - ObjData *objData = Tcl_GetHashValue(hPtr); + ObjData *objData = (ObjData *)Tcl_GetHashValue(hPtr); if (objData != NULL) { ckfree(objData); diff --git a/generic/tclThread.c b/generic/tclThread.c index 6d59c66..f22653a 100644 --- a/generic/tclThread.c +++ b/generic/tclThread.c @@ -350,6 +350,8 @@ TclFinalizeThreadData(int quick) */ TclFinalizeThreadAllocThread(); } +#else + (void)quick; #endif } diff --git a/generic/tclThreadAlloc.c b/generic/tclThreadAlloc.c index db9d65e..eb8a35d 100644 --- a/generic/tclThreadAlloc.c +++ b/generic/tclThreadAlloc.c @@ -1172,7 +1172,7 @@ TclFinalizeThreadAllocThread(void) void Tcl_GetMemoryInfo( - Tcl_DString *dsPtr) + TCL_UNUSED(Tcl_DString *)) { Tcl_Panic("Tcl_GetMemoryInfo called when threaded memory allocator not in use"); } |