diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-24 12:26:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-24 12:26:09 (GMT) |
| commit | 423df1f681b111dff8a5633b5aaa6e0049aaeddf (patch) | |
| tree | a6a801366f6f1f59e90f6e977f521996c7ff679d | |
| parent | 6eb9a20757397e7b55ba203a87ecb54afe7f563d (diff) | |
| download | tcl-423df1f681b111dff8a5633b5aaa6e0049aaeddf.zip tcl-423df1f681b111dff8a5633b5aaa6e0049aaeddf.tar.gz tcl-423df1f681b111dff8a5633b5aaa6e0049aaeddf.tar.bz2 | |
Fix GCC warning in MemDebug mode: format not a string literal and no format arguments [-Wformat-security]
| -rw-r--r-- | generic/tclCkalloc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCkalloc.c b/generic/tclCkalloc.c index 5263e82..b6616cd 100644 --- a/generic/tclCkalloc.c +++ b/generic/tclCkalloc.c @@ -187,7 +187,7 @@ TclDumpMemoryInfo(ClientData clientData, int flags) maximum_malloc_packets, (unsigned long)maximum_bytes_malloced); if (flags == 0) { - fprintf((FILE *)clientData, buf); + fprintf((FILE *)clientData, "%s", buf); } else { /* Assume objPtr to append to */ Tcl_AppendToObj((Tcl_Obj *) clientData, buf, -1); |