* generic/tclBasic.c: Added missing function comments.

2 files changed, 44 insertions, 3 deletions

diff --git a/ChangeLog b/ChangeLog
index 2d0f38c..a40abf4 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.
 
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;