diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-05-05 14:57:38 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-05-05 14:57:38 (GMT) |
| commit | f4cd60dbb4c40a75914ae6823f7907870d6c97bb (patch) | |
| tree | b1905ba3452b8b81f1b1fc0a9f03103d2e6b9d18 | |
| parent | 3f84674ae33a212e0f4055eadb936a2eb5b35476 (diff) | |
| download | tcl-f4cd60dbb4c40a75914ae6823f7907870d6c97bb.zip tcl-f4cd60dbb4c40a75914ae6823f7907870d6c97bb.tar.gz tcl-f4cd60dbb4c40a75914ae6823f7907870d6c97bb.tar.bz2 | |
A few corrections in comments.
| -rw-r--r-- | generic/tclAssembly.c | 2 | ||||
| -rw-r--r-- | generic/tclCompile.c | 4 | ||||
| -rw-r--r-- | generic/tclExecute.c | 5 |
3 files changed, 5 insertions, 6 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 910532e..4aa241a 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -2247,7 +2247,7 @@ static int GetListIndexOperand( AssemblyEnv* assemEnvPtr, /* Assembly environment */ Tcl_Token** tokenPtrPtr, /* Current token from the parser */ - int* result) /* OUTPUT: Integer extracted from the token */ + int* result) /* OUTPUT: encoded index derived from the token */ { CompileEnv* envPtr = assemEnvPtr->envPtr; /* Compilation environment */ diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 926c492..b974c30 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -720,8 +720,8 @@ const Tcl_ObjType tclByteCodeType = { }; /* - * subtCodeType provides the standard type managemnt procedures for the - * substcode type, which represents substiution within a Tcl value. + * substCodeType provides the standard type management procedures for the + * substcode type, which represents substitution within a Tcl value. */ static const Tcl_ObjType substCodeType = { diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 647e3db..9b733b3 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -113,9 +113,8 @@ typedef struct { ByteCode *codePtr; /* Constant until the BC returns */ /* -----------------------------------------*/ Tcl_Obj **catchTop; /* These fields are used on return TO this */ - Tcl_Obj *auxObjList; /* this level: they record the state when a */ - CmdFrame cmdFrame; /* new codePtr was received for NR */ - /* execution. */ + Tcl_Obj *auxObjList; /* level: they record the state when a new */ + CmdFrame cmdFrame; /* codePtr was received for NR execution. */ Tcl_Obj *stack[1]; /* Start of the actual combined catch and obj * stacks; the struct will be expanded as * necessary */ |