summaryrefslogtreecommitdiffstats
path: root/generic/tclDisassemble.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2018-10-24 02:00:15 (GMT)
committerdgp <dgp@users.sourceforge.net>2018-10-24 02:00:15 (GMT)
commitf338047c195aac7e3ac7bb3485da02b33fd868a2 (patch)
tree159ec7baa48a4fae2ac0fceb40eb4306dea28539 /generic/tclDisassemble.c
parent90221ac971708ce2bd09ffff98b55b8198513808 (diff)
parent335774aef1d1e39ff22a1024aaa062106f99390b (diff)
downloadtcl-f338047c195aac7e3ac7bb3485da02b33fd868a2.zip
tcl-f338047c195aac7e3ac7bb3485da02b33fd868a2.tar.gz
tcl-f338047c195aac7e3ac7bb3485da02b33fd868a2.tar.bz2
merge 8.7
Diffstat (limited to 'generic/tclDisassemble.c')
-rw-r--r--generic/tclDisassemble.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclDisassemble.c b/generic/tclDisassemble.c
index 46012c5..6ea3397 100644
--- a/generic/tclDisassemble.c
+++ b/generic/tclDisassemble.c
@@ -1622,7 +1622,7 @@ Tcl_DisassembleObjCmd(
"BYTECODE", NULL);
return TCL_ERROR;
}
- if (PTR2INT(clientData)) {
+ if (clientData) {
Tcl_SetObjResult(interp,
DisassembleByteCodeAsDicts(interp, codeObjPtr));
} else {