diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2018-05-14 20:55:40 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2018-05-14 20:55:40 (GMT) |
commit | bd706be303307bc4bdeacf15c1af1a43f1585d6b (patch) | |
tree | f87d640e805454a2c847c8924004a30449d45d13 /generic/tclOOInt.h | |
parent | 5eef06ea24f7486a2dcca559a64b3ec08f0c6710 (diff) | |
download | tcl-bd706be303307bc4bdeacf15c1af1a43f1585d6b.zip tcl-bd706be303307bc4bdeacf15c1af1a43f1585d6b.tar.gz tcl-bd706be303307bc4bdeacf15c1af1a43f1585d6b.tar.bz2 |
Make sure that [self call] reports useful info.
Diffstat (limited to 'generic/tclOOInt.h')
-rw-r--r-- | generic/tclOOInt.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclOOInt.h b/generic/tclOOInt.h index 43e2709..e81bbf9 100644 --- a/generic/tclOOInt.h +++ b/generic/tclOOInt.h @@ -236,6 +236,10 @@ typedef struct Object { * other spots). */ #define FORCE_UNKNOWN 0x10000 /* States that we are *really* looking up the * unknown method handler at that point. */ +#define HAS_PRIVATE_METHODS 0x20000 + /* Object/class has (or had) private methods, + * and so shouldn't be cached so + * aggressively. */ /* * And the definition of a class. Note that every class also has an associated |