diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-17 11:11:31 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-17 11:11:31 (GMT) |
commit | 2ba050edd0de8793c236ffa88cc9556088351578 (patch) | |
tree | c1a422bae6bd399596beffb276fb59729a091e63 /generic/tclOOInt.h | |
parent | 18c76671209d2d0a7b275c719e7c3576bfca7019 (diff) | |
download | tcl-2ba050edd0de8793c236ffa88cc9556088351578.zip tcl-2ba050edd0de8793c236ffa88cc9556088351578.tar.gz tcl-2ba050edd0de8793c236ffa88cc9556088351578.tar.bz2 |
Starting to clean up the mess. The extra frame info can have the same lifespan as the method itself.
Diffstat (limited to 'generic/tclOOInt.h')
-rw-r--r-- | generic/tclOOInt.h | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/generic/tclOOInt.h b/generic/tclOOInt.h index 2931044..e7d727a 100644 --- a/generic/tclOOInt.h +++ b/generic/tclOOInt.h @@ -97,6 +97,15 @@ typedef struct ProcedureMethod { GetFrameInfoValueProc *gfivProc; /* Callback to allow for fine tuning of how * the method reports itself. */ + 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 |