diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-27 11:35:58 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-27 11:35:58 (GMT) |
| commit | 2524a62bb6b65a0b183dc413dd13ebbae997a537 (patch) | |
| tree | e07480f444291b0f919a44dcc9156e168850719a /generic/tclDisassemble.c | |
| parent | 587c1ebdba4cb0f92dcd91478ce711833552fd48 (diff) | |
| download | tcl-2524a62bb6b65a0b183dc413dd13ebbae997a537.zip tcl-2524a62bb6b65a0b183dc413dd13ebbae997a537.tar.gz tcl-2524a62bb6b65a0b183dc413dd13ebbae997a537.tar.bz2 | |
More (internal) usage of TclGetString() and TclGetStringFromObj() macro's
Diffstat (limited to 'generic/tclDisassemble.c')
| -rw-r--r-- | generic/tclDisassemble.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclDisassemble.c b/generic/tclDisassemble.c index 0bc3de1..10404e9 100644 --- a/generic/tclDisassemble.c +++ b/generic/tclDisassemble.c @@ -286,7 +286,7 @@ DisassembleByteCodeObj( GetLocationInformation(codePtr->procPtr, &fileObj, &line); if (line >= 0 && fileObj != NULL) { Tcl_AppendPrintfToObj(bufferObj, "\n File \"%s\" Line %d", - Tcl_GetString(fileObj), line); + TclGetString(fileObj), line); } Tcl_AppendPrintfToObj(bufferObj, "\n Cmds %d, src %d, inst %d, litObjs %u, aux %d, stkDepth %u, code/src %.2f\n", |