summaryrefslogtreecommitdiffstats
path: root/generic/tclProc.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclProc.c')
-rw-r--r--generic/tclProc.c15
1 files changed, 1 insertions, 14 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c
index bfef4b0..4c1a9a4 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * SCCS: %Z% $Id: tclProc.c,v 1.5 1998/07/06 14:38:20 escoffon Exp $
+ * SCCS: %Z% $Id: tclProc.c,v 1.6 1998/07/14 10:34:43 escoffon Exp $
*/
#include "tclInt.h"
@@ -104,26 +104,13 @@ Tcl_ProcObjCmd(dummy, interp, objc, objv)
* procedures that have a different number of arguments, even if their
* bodies are identical. Note that we don't use Tcl_DuplicateObj since
* we would not want any bytecode internal representation.
- *
- * But if this is a precompiled bytecode object, then do not duplicate it;
- * precompiled bytecodes are immutable, and there is no source to
- * recompile anyway.
*/
bodyPtr = objv[3];
if (Tcl_IsShared(bodyPtr)) {
- if (bodyPtr->typePtr == &tclByteCodeType) {
- ByteCode *codePtr
- = (ByteCode *) bodyPtr->internalRep.otherValuePtr;
- if (codePtr->flags & TCL_BYTECODE_PRECOMPILED) {
- goto skip_unshare;
- }
- }
-
bytes = Tcl_GetStringFromObj(bodyPtr, &length);
bodyPtr = Tcl_NewStringObj(bytes, length);
}
- skip_unshare:
/*
* Create and initialize a Proc structure for the procedure. Note that