summaryrefslogtreecommitdiffstats
path: root/generic/tclCompile.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-07-14 13:41:41 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-07-14 13:41:41 (GMT)
commit1a08d59aef56af9569beb42d001c19a8e047a287 (patch)
tree230008b43dd0ac9cd427b373dd082219de8d32e6 /generic/tclCompile.c
parenta19a73a61633329f5a85bfe4620d80c7e3b1f320 (diff)
downloadtcl-1a08d59aef56af9569beb42d001c19a8e047a287.zip
tcl-1a08d59aef56af9569beb42d001c19a8e047a287.tar.gz
tcl-1a08d59aef56af9569beb42d001c19a8e047a287.tar.bz2
More minor tinkering with comments and code-layout
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r--generic/tclCompile.c27
1 files changed, 14 insertions, 13 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index 72e99a2..28edd75 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCompile.c,v 1.88 2005/07/14 10:50:25 dkf Exp $
+ * RCS: @(#) $Id: tclCompile.c,v 1.89 2005/07/14 13:41:41 dkf Exp $
*/
#include "tclInt.h"
@@ -336,8 +336,8 @@ static int SetByteCodeFromAny _ANSI_ARGS_((Tcl_Interp *interp,
Tcl_Obj *objPtr));
/*
- * The structure below defines the bytecode Tcl object type by
- * means of procedures that can be invoked by generic object code.
+ * The structure below defines the bytecode Tcl object type by means of
+ * procedures that can be invoked by generic object code.
*/
Tcl_ObjType tclByteCodeType = {
@@ -939,8 +939,8 @@ TclCompileScript(interp, script, numBytes, envPtr)
}
/*
- * Each iteration through the following loop compiles the next
- * command from the script.
+ * Each iteration through the following loop compiles the next command
+ * from the script.
*/
p = script;
@@ -1482,8 +1482,8 @@ TclCompileCmdWord(interp, tokenPtr, count, envPtr)
{
if ((count == 1) && (tokenPtr->type == TCL_TOKEN_TEXT)) {
/*
- * Handle the common case: if there is a single text token,
- * compile it into an inline sequence of instructions.
+ * Handle the common case: if there is a single text token, compile it
+ * into an inline sequence of instructions.
*/
TclCompileScript(interp, tokenPtr->start, tokenPtr->size, envPtr);
@@ -1803,7 +1803,7 @@ TclFindCompiledLocal(name, nameBytes, create, flags, procPtr)
localVar = procPtr->numCompiledLocals;
localPtr = (CompiledLocal *) ckalloc((unsigned)
(sizeof(CompiledLocal) - sizeof(localPtr->name)
- + nameBytes+1));
+ + nameBytes + 1));
if (procPtr->firstLocalPtr == NULL) {
procPtr->firstLocalPtr = procPtr->lastLocalPtr = localPtr;
} else {
@@ -1853,8 +1853,9 @@ TclExpandCodeArray(envArgPtr)
void *envArgPtr; /* Points to the CompileEnv whose code array
* must be enlarged. */
{
- CompileEnv *envPtr = (CompileEnv*) envArgPtr; /* Points to the CompileEnv whose code array
- * must be enlarged. */
+ CompileEnv *envPtr = (CompileEnv*) envArgPtr;
+ /* The CompileEnv containing the code array to
+ * be doubled in size. */
/*
* envPtr->codeNext is equal to envPtr->codeEnd. The currently defined
@@ -2478,7 +2479,7 @@ void
TclRegisterAuxDataType(typePtr)
AuxDataType *typePtr; /* Information about object type; storage must
* be statically allocated (must live
- * forever). */
+ * forever; will not be deallocated). */
{
register Tcl_HashEntry *hPtr;
int new;
@@ -3213,8 +3214,8 @@ TclPrintInstruction(codePtr, pc)
*
* TclPrintObject --
*
- * This procedure prints up to a specified number of characters from
- * the argument Tcl object's string representation to a specified file.
+ * This procedure prints up to a specified number of characters from the
+ * argument Tcl object's string representation to a specified file.
*
* Results:
* None.