diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-07-18 15:32:43 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-07-18 15:32:43 (GMT) |
| commit | 66fbdb3b554b6d90fabdb6de447a699d569ca7d7 (patch) | |
| tree | 50f24079f21d9a24a23c4ba846152d3bf46b8b22 /generic/tclOOInt.h | |
| parent | 318bf8e4a833d34867c9287cb70d009c4051f3a9 (diff) | |
| parent | a6b118eb896ad74ad84b3fef0d17ba3f6665157d (diff) | |
| download | tcl-66fbdb3b554b6d90fabdb6de447a699d569ca7d7.zip tcl-66fbdb3b554b6d90fabdb6de447a699d569ca7d7.tar.gz tcl-66fbdb3b554b6d90fabdb6de447a699d569ca7d7.tar.bz2 | |
Merge trunk
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 d0f9858..07408f8 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 |