summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2008-07-22 22:46:26 (GMT)
committerandreas_kupries <akupries@shaw.ca>2008-07-22 22:46:26 (GMT)
commit4cfb7828a8f1b3a6686c44798c62431003363ff8 (patch)
tree884c37fc56a890ff5ab417eff8bc21d603c9ff6b
parent9d7eb12205beea542a84ffc39a24a909264c2102 (diff)
downloadtcl-4cfb7828a8f1b3a6686c44798c62431003363ff8.zip
tcl-4cfb7828a8f1b3a6686c44798c62431003363ff8.tar.gz
tcl-4cfb7828a8f1b3a6686c44798c62431003363ff8.tar.bz2
* generic/tclBasic.c: Added missing function comments.
-rw-r--r--ChangeLog2
-rw-r--r--generic/tclBasic.c42
2 files changed, 43 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index e923588..c341252 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
2008-07-22 Andreas Kupries <andreask@activestate.com>
+ * generic/tclBasic.c: Added missing function comments.
+
* generic/tclCompile.c: Made the new TclEnterCmdWordIndex
* generic/tclCompile.h: static, and ansified.
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index f2e4fc6..c8f8117 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclBasic.c,v 1.295.2.2 2008/07/22 21:41:11 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.295.2.3 2008/07/22 22:46:27 andreas_kupries Exp $
*/
#include "tclInt.h"
@@ -4601,6 +4601,26 @@ TclArgumentRelease(interp,objv,objc)
}
}
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclArgumentBCEnter --
+ *
+ * This procedure is a helper for the TIP #280 uplevel extension.
+ * It enters location references for the literal arguments of commands
+ * in bytecode about to be invoked. Only the first entry has the actual
+ * data, further entries simply count the usage up.
+ *
+ * Results:
+ * None.
+ *
+ * Side effects:
+ * May allocate memory.
+ *
+ * TIP #280
+ *----------------------------------------------------------------------
+ */
+
void
TclArgumentBCEnter(interp,codePtr,cfPtr)
Tcl_Interp* interp;
@@ -4645,6 +4665,26 @@ TclArgumentBCEnter(interp,codePtr,cfPtr)
} /* if */
}
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclArgumentBCRelease --
+ *
+ * This procedure is a helper for the TIP #280 uplevel extension.
+ * It removes the location references for the literal arguments of
+ * commands in bytecode just done. Usage is counted down, the data
+ * is removed only when no user is left over.
+ *
+ * Results:
+ * None.
+ *
+ * Side effects:
+ * May release memory.
+ *
+ * TIP #280
+ *----------------------------------------------------------------------
+ */
+
void
TclArgumentBCRelease(interp,codePtr)
Tcl_Interp* interp;