summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdIL.c
diff options
context:
space:
mode:
authorescoffon <escoffon>1998-07-28 13:53:29 (GMT)
committerescoffon <escoffon>1998-07-28 13:53:29 (GMT)
commit69cb9eb344daefa11d87e1ac5c5121eceaf46425 (patch)
treeff170e67a14519eee8b28a92c2fe6738ac7461b9 /generic/tclCmdIL.c
parent46f7811d98b87fc556442ad944b06522b3b20314 (diff)
downloadtcl-69cb9eb344daefa11d87e1ac5c5121eceaf46425.zip
tcl-69cb9eb344daefa11d87e1ac5c5121eceaf46425.tar.gz
tcl-69cb9eb344daefa11d87e1ac5c5121eceaf46425.tar.bz2
Info body creates a copy of the procedure body if it is a precompiled
procedure body, to avoid having the internal representation invalidated
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r--generic/tclCmdIL.c28
1 files changed, 25 insertions, 3 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index 906f433..ce79efe 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.c
@@ -13,11 +13,12 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * SCCS: %Z% $Id: tclCmdIL.c,v 1.4 1998/07/01 18:37:16 rjohnson Exp $
+ * SCCS: %Z% $Id: tclCmdIL.c,v 1.5 1998/07/28 13:53:29 escoffon Exp $
*/
#include "tclInt.h"
#include "tclPort.h"
+#include "tclCompile.h"
/*
* During execution of the "lsort" command, structures of the following
@@ -524,7 +525,8 @@ InfoBodyCmd(dummy, interp, objc, objv)
register Interp *iPtr = (Interp *) interp;
char *name;
Proc *procPtr;
-
+ Tcl_Obj *bodyPtr, *resultPtr;
+
if (objc != 3) {
Tcl_WrongNumArgs(interp, 2, objv, "procname");
return TCL_ERROR;
@@ -537,7 +539,27 @@ InfoBodyCmd(dummy, interp, objc, objv)
"\"", name, "\" isn't a procedure", (char *) NULL);
return TCL_ERROR;
}
- Tcl_SetObjResult(interp, procPtr->bodyPtr);
+
+ /*
+ * we need to check if the body from this procedure had been generated
+ * from a precompiled body. If that is the case, then the bodyPtr's
+ * string representation is bogus, since sources are not available.
+ * In order to make sure that later manipulations of the object do not
+ * invalidate the internal representation, we make a copy of the string
+ * representation and return that one, instead.
+ */
+
+ bodyPtr = procPtr->bodyPtr;
+ resultPtr = bodyPtr;
+ if (bodyPtr->typePtr == &tclByteCodeType) {
+ ByteCode *codePtr = (ByteCode *) bodyPtr->internalRep.otherValuePtr;
+
+ if (codePtr->flags & TCL_BYTECODE_PRECOMPILED) {
+ resultPtr = Tcl_NewStringObj(bodyPtr->bytes, bodyPtr->length);
+ }
+ }
+
+ Tcl_SetObjResult(interp, resultPtr);
return TCL_OK;
}