diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-17 13:45:50 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-17 13:45:50 (GMT) |
commit | b102242dc55e430e53ca6654c36cd62219e4384a (patch) | |
tree | 64ee97843c09995a2fbf185ccad6467c030c2f26 /generic/tclOOInt.h | |
parent | b8556f008ee9e7ba77cc5cc1bf863530d7eeb803 (diff) | |
parent | a7533c3012a8c642bf9fce8164895d8ea010e646 (diff) | |
download | tcl-b102242dc55e430e53ca6654c36cd62219e4384a.zip tcl-b102242dc55e430e53ca6654c36cd62219e4384a.tar.gz tcl-b102242dc55e430e53ca6654c36cd62219e4384a.tar.bz2 |
Proper fix for [87271f7cd6]. Structures relating to [info frame] in a method now have the correct lifetime.
Diffstat (limited to 'generic/tclOOInt.h')
-rw-r--r-- | generic/tclOOInt.h | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/generic/tclOOInt.h b/generic/tclOOInt.h index 82422b9..e443460 100644 --- a/generic/tclOOInt.h +++ b/generic/tclOOInt.h @@ -97,6 +97,16 @@ typedef struct ProcedureMethod { GetFrameInfoValueProc *gfivProc; /* Callback to allow for fine tuning of how * the method reports itself. */ + Command cmd; /* Space used to connect to [info frame] */ + ExtraFrameInfo efi; /* Space used to store data for [info frame] */ + Tcl_Interp *interp; /* Interpreter in which to compute the name of + * the method. */ + Tcl_Method method; /* Method to compute the name of. */ + int callSiteFlags; /* Flags from the call chain. Only interested + * in whether this is a constructor or + * destructor, which we can't know until then + * for messy reasons. Other flags are variable + * but not used. */ } ProcedureMethod; #define TCLOO_PROCEDURE_METHOD_VERSION 0 |