diff options
author | dkf <dkf@noemail.net> | 2011-01-18 15:44:40 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2011-01-18 15:44:40 (GMT) |
commit | 43d78e3a9b44907f125546233e8b1780db5901ac (patch) | |
tree | 2f59c8c15c6d01469bf0d0e553f19097defcff49 /generic/tclOOMethod.c | |
parent | 8aacd608a12b9f803f2dca5aa3d350f6858edb7c (diff) | |
download | tcl-43d78e3a9b44907f125546233e8b1780db5901ac.zip tcl-43d78e3a9b44907f125546233e8b1780db5901ac.tar.gz tcl-43d78e3a9b44907f125546233e8b1780db5901ac.tar.bz2 |
Add missing comment
FossilOrigin-Name: a07004a06fdffaa60b9b366222bc07425dae2e03
Diffstat (limited to 'generic/tclOOMethod.c')
-rw-r--r-- | generic/tclOOMethod.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 735ced9..bb10ca5 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclOOMethod.c,v 1.30 2011/01/18 13:50:03 dkf Exp $ + * RCS: @(#) $Id: tclOOMethod.c,v 1.31 2011/01/18 15:44:41 dkf Exp $ */ #ifdef HAVE_CONFIG_H @@ -41,7 +41,8 @@ typedef struct { Tcl_Obj *nameObj; /* The "name" of the command. */ Command cmd; /* The command structure. Mostly bogus. */ ExtraFrameInfo efi; /* Extra information used for [info frame]. */ - Command *oldCmdPtr; + Command *oldCmdPtr; /* Saved cmdPtr so that we can be safe after a + * recursive call returns. */ struct PNI pni; /* Specialist information used in the efi * field for this type of call. */ } PMFrameData; |