summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2008-07-22 22:46:06 (GMT)
committerandreas_kupries <akupries@shaw.ca>2008-07-22 22:46:06 (GMT)
commitd575f7b26ed9da3fcdfae2a232d41095d04d80e2 (patch)
tree0585f6b8fdb4c1285fc5eba5b95ec16a2addeabc /generic
parent39e94f9db312d56df3d26940e1d0526cca1d47dc (diff)
downloadtcl-d575f7b26ed9da3fcdfae2a232d41095d04d80e2.zip
tcl-d575f7b26ed9da3fcdfae2a232d41095d04d80e2.tar.gz
tcl-d575f7b26ed9da3fcdfae2a232d41095d04d80e2.tar.bz2
* generic/tclBasic.c: Added missing function comments.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclBasic.c45
1 files changed, 42 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 6ec5763..1a24a29 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.75.2.30 2008/07/22 21:40:24 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.75.2.31 2008/07/22 22:46:09 andreas_kupries Exp $
*/
#include "tclInt.h"
@@ -4310,7 +4310,7 @@ TclAdvanceLines (line,start,end)
}
}
}
-
+
/*
*----------------------------------------------------------------------
* Note: The whole data structure access for argument location tracking is
@@ -4383,7 +4383,7 @@ TclArgumentEnter(interp,objv,objc,cfPtr)
}
}
}
-
+
/*
*----------------------------------------------------------------------
*
@@ -4429,6 +4429,25 @@ 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 executed. 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)
@@ -4474,6 +4493,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;