diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-11-13 09:41:22 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-11-13 09:41:22 (GMT) |
| commit | b0bf57a0747b8730eade049101d2b93113f44fd9 (patch) | |
| tree | e12705177d23bbc79321c6334cdbbc6d1ffd7d5c /generic/tclOOBasic.c | |
| parent | ebdf68424898a8dd04d8789dac358cbfb988eed4 (diff) | |
| download | tcl-b0bf57a0747b8730eade049101d2b93113f44fd9.zip tcl-b0bf57a0747b8730eade049101d2b93113f44fd9.tar.gz tcl-b0bf57a0747b8730eade049101d2b93113f44fd9.tar.bz2 | |
Move non-error literal to TclOO's internal literal cache.
Diffstat (limited to 'generic/tclOOBasic.c')
| -rw-r--r-- | generic/tclOOBasic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclOOBasic.c b/generic/tclOOBasic.c index e7c8639..1687a0f 100644 --- a/generic/tclOOBasic.c +++ b/generic/tclOOBasic.c @@ -157,7 +157,7 @@ DecrRefsPostClassConstructor( TclDecrRefCount(invoke[0]); TclDecrRefCount(invoke[1]); TclDecrRefCount(invoke[2]); - invoke[0] = Tcl_NewStringObj("::oo::MixinClassDelegates", TCL_AUTO_LENGTH); + invoke[0] = oPtr->fPtr->mcdName; invoke[1] = TclOOObjectName(interp, oPtr); Tcl_IncrRefCount(invoke[0]); Tcl_IncrRefCount(invoke[1]); |