summaryrefslogtreecommitdiffstats
path: root/generic/tclCompCmdsGR.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclCompCmdsGR.c')
-rw-r--r--generic/tclCompCmdsGR.c45
1 files changed, 41 insertions, 4 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c
index c282849..513aa7d 100644
--- a/generic/tclCompCmdsGR.c
+++ b/generic/tclCompCmdsGR.c
@@ -93,6 +93,7 @@ TclCompileGlobalCmd(
Tcl_Token *varTokenPtr;
int localIndex, numWords, i;
DefineLineInformation; /* TIP #280 */
+ (void)cmdPtr;
/* TODO: Consider support for compiling expanded args. */
numWords = parsePtr->numWords;
@@ -188,6 +189,7 @@ TclCompileIfCmd(
int boolVal; /* Value of static condition. */
int compileScripts = 1;
DefineLineInformation; /* TIP #280 */
+ (void)cmdPtr;
/*
* Only compile the "if" command if all arguments are simple words, in
@@ -478,6 +480,7 @@ TclCompileIncrCmd(
Tcl_Token *varTokenPtr, *incrTokenPtr;
int isScalar, localIndex, haveImmValue, immValue;
DefineLineInformation; /* TIP #280 */
+ (void)cmdPtr;
if ((parsePtr->numWords != 2) && (parsePtr->numWords != 3)) {
return TCL_ERROR;
@@ -640,13 +643,15 @@ TclCompileInfoCommandsCmd(
int
TclCompileInfoCoroutineCmd(
- Tcl_Interp *interp, /* Used for error reporting. */
+ Tcl_Interp *dummy, /* Used for error reporting. */
Tcl_Parse *parsePtr, /* Points to a parse structure for the command
* created by Tcl_ParseCommand. */
Command *cmdPtr, /* Points to defintion of command being
* compiled. */
CompileEnv *envPtr) /* Holds resulting instructions. */
{
+ (void)dummy;
+ (void)cmdPtr;
/*
* Only compile [info coroutine] without arguments.
*/
@@ -675,6 +680,7 @@ TclCompileInfoExistsCmd(
Tcl_Token *tokenPtr;
int isScalar, localIndex;
DefineLineInformation; /* TIP #280 */
+ (void)cmdPtr;
if (parsePtr->numWords != 2) {
return TCL_ERROR;
@@ -721,6 +727,7 @@ TclCompileInfoLevelCmd(
* compiled. */
CompileEnv *envPtr) /* Holds resulting instructions. */
{
+ (void)cmdPtr;
/*
* Only compile [info level] without arguments or with a single argument.
*/
@@ -758,6 +765,7 @@ TclCompileInfoObjectClassCmd(
{
DefineLineInformation; /* TIP #280 */
Tcl_Token *tokenPtr = TokenAfter(parsePtr->tokenPtr);
+ (void)cmdPtr;
if (parsePtr->numWords != 2) {
return TCL_ERROR;
@@ -778,6 +786,7 @@ TclCompileInfoObjectIsACmd(
{
DefineLineInformation; /* TIP #280 */
Tcl_Token *tokenPtr = TokenAfter(parsePtr->tokenPtr);
+ (void)cmdPtr;
/*
* We only handle [info object isa object <somevalue>]. The first three
@@ -814,6 +823,7 @@ TclCompileInfoObjectNamespaceCmd(
{
DefineLineInformation; /* TIP #280 */
Tcl_Token *tokenPtr = TokenAfter(parsePtr->tokenPtr);
+ (void)cmdPtr;
if (parsePtr->numWords != 2) {
return TCL_ERROR;
@@ -853,6 +863,7 @@ TclCompileLappendCmd(
Tcl_Token *varTokenPtr, *valueTokenPtr;
int isScalar, localIndex, numWords, i;
DefineLineInformation; /* TIP #280 */
+ (void)cmdPtr;
/* TODO: Consider support for compiling expanded args. */
numWords = parsePtr->numWords;
@@ -969,6 +980,7 @@ TclCompileLassignCmd(
Tcl_Token *tokenPtr;
int isScalar, localIndex, numWords, idx;
DefineLineInformation; /* TIP #280 */
+ (void)cmdPtr;
numWords = parsePtr->numWords;
@@ -1073,6 +1085,7 @@ TclCompileLindexCmd(
Tcl_Token *idxTokenPtr, *valTokenPtr;
int i, idx, numWords = parsePtr->numWords;
DefineLineInformation; /* TIP #280 */
+ (void)cmdPtr;
/*
* Quit if too few args.
@@ -1165,6 +1178,7 @@ TclCompileListCmd(
Tcl_Token *valueTokenPtr;
int i, numWords, concat, build;
Tcl_Obj *listObj, *objPtr;
+ (void)cmdPtr;
if (parsePtr->numWords == 1) {
/*
@@ -1277,6 +1291,7 @@ TclCompileLlengthCmd(
{
Tcl_Token *varTokenPtr;
DefineLineInformation; /* TIP #280 */
+ (void)cmdPtr;
if (parsePtr->numWords != 2) {
return TCL_ERROR;
@@ -1311,6 +1326,7 @@ TclCompileLrangeCmd(
Tcl_Token *tokenPtr, *listTokenPtr;
DefineLineInformation; /* TIP #280 */
int idx1, idx2;
+ (void)cmdPtr;
if (parsePtr->numWords != 4) {
return TCL_ERROR;
@@ -1372,6 +1388,7 @@ TclCompileLinsertCmd(
Tcl_Token *tokenPtr, *listTokenPtr;
DefineLineInformation; /* TIP #280 */
int idx, i;
+ (void)cmdPtr;
if (parsePtr->numWords < 3) {
return TCL_ERROR;
@@ -1476,6 +1493,7 @@ TclCompileLreplaceCmd(
DefineLineInformation; /* TIP #280 */
int idx1, idx2, i;
int emptyPrefix=1, suffixStart = 0;
+ (void)cmdPtr;
if (parsePtr->numWords < 4) {
return TCL_ERROR;
@@ -1644,6 +1662,7 @@ TclCompileLsetCmd(
int isScalar; /* Flag == 1 if scalar, 0 if array. */
int i;
DefineLineInformation; /* TIP #280 */
+ (void)cmdPtr;
/*
* Check argument count.
@@ -1776,13 +1795,15 @@ TclCompileLsetCmd(
int
TclCompileNamespaceCurrentCmd(
- Tcl_Interp *interp, /* Used for error reporting. */
+ Tcl_Interp *dummy, /* Used for error reporting. */
Tcl_Parse *parsePtr, /* Points to a parse structure for the command
* created by Tcl_ParseCommand. */
Command *cmdPtr, /* Points to defintion of command being
* compiled. */
CompileEnv *envPtr) /* Holds resulting instructions. */
{
+ (void)dummy;
+ (void)cmdPtr;
/*
* Only compile [namespace current] without arguments.
*/
@@ -1810,6 +1831,7 @@ TclCompileNamespaceCodeCmd(
{
Tcl_Token *tokenPtr;
DefineLineInformation; /* TIP #280 */
+ (void)cmdPtr;
if (parsePtr->numWords != 2) {
return TCL_ERROR;
@@ -1860,6 +1882,7 @@ TclCompileNamespaceOriginCmd(
{
Tcl_Token *tokenPtr;
DefineLineInformation; /* TIP #280 */
+ (void)cmdPtr;
if (parsePtr->numWords != 2) {
return TCL_ERROR;
@@ -1883,6 +1906,7 @@ TclCompileNamespaceQualifiersCmd(
Tcl_Token *tokenPtr = TokenAfter(parsePtr->tokenPtr);
DefineLineInformation; /* TIP #280 */
int off;
+ (void)cmdPtr;
if (parsePtr->numWords != 2) {
return TCL_ERROR;
@@ -1919,6 +1943,7 @@ TclCompileNamespaceTailCmd(
Tcl_Token *tokenPtr = TokenAfter(parsePtr->tokenPtr);
DefineLineInformation; /* TIP #280 */
JumpFixup jumpFixup;
+ (void)cmdPtr;
if (parsePtr->numWords != 2) {
return TCL_ERROR;
@@ -1956,6 +1981,7 @@ TclCompileNamespaceUpvarCmd(
Tcl_Token *tokenPtr, *otherTokenPtr, *localTokenPtr;
int localIndex, numWords, i;
DefineLineInformation; /* TIP #280 */
+ (void)cmdPtr;
if (envPtr->procPtr == NULL) {
return TCL_ERROR;
@@ -2017,6 +2043,7 @@ TclCompileNamespaceWhichCmd(
DefineLineInformation; /* TIP #280 */
Tcl_Token *tokenPtr, *opt;
int idx;
+ (void)cmdPtr;
if (parsePtr->numWords < 2 || parsePtr->numWords > 3) {
return TCL_ERROR;
@@ -2083,6 +2110,7 @@ TclCompileRegexpCmd(
int i, len, nocase, exact, sawLast, simple;
const char *str;
DefineLineInformation; /* TIP #280 */
+ (void)cmdPtr;
/*
* We are only interested in compiling simple regexp cases. Currently
@@ -2269,6 +2297,7 @@ TclCompileRegsubCmd(
Tcl_DString pattern;
const char *bytes;
int len, exact, quantified, result = TCL_ERROR;
+ (void)cmdPtr;
if (parsePtr->numWords < 5 || parsePtr->numWords > 6) {
return TCL_ERROR;
@@ -2429,6 +2458,7 @@ TclCompileReturnCmd(
Tcl_Obj *returnOpts, **objv;
Tcl_Token *wordTokenPtr = TokenAfter(parsePtr->tokenPtr);
DefineLineInformation; /* TIP #280 */
+ (void)cmdPtr;
/*
* Check for special case which can always be compiled:
@@ -2674,6 +2704,7 @@ TclCompileUpvarCmd(
int localIndex, numWords, i;
DefineLineInformation; /* TIP #280 */
Tcl_Obj *objPtr;
+ (void)cmdPtr;
if (envPtr->procPtr == NULL) {
return TCL_ERROR;
@@ -2780,6 +2811,7 @@ TclCompileVariableCmd(
Tcl_Token *varTokenPtr, *valueTokenPtr;
int localIndex, numWords, i;
DefineLineInformation; /* TIP #280 */
+ (void)cmdPtr;
numWords = parsePtr->numWords;
if (numWords < 2) {
@@ -2855,7 +2887,7 @@ TclCompileVariableCmd(
static int
IndexTailVarIfKnown(
- Tcl_Interp *interp,
+ Tcl_Interp *dummy,
Tcl_Token *varTokenPtr, /* Token representing the variable name */
CompileEnv *envPtr) /* Holds resulting instructions. */
{
@@ -2864,6 +2896,7 @@ IndexTailVarIfKnown(
int len, n = varTokenPtr->numComponents;
Tcl_Token *lastTokenPtr;
int full, localIndex;
+ (void)dummy;
/*
* Determine if the tail is (a) known at compile time, and (b) not an
@@ -2954,6 +2987,7 @@ TclCompileObjectNextCmd(
DefineLineInformation; /* TIP #280 */
Tcl_Token *tokenPtr = parsePtr->tokenPtr;
int i;
+ (void)cmdPtr;
if (parsePtr->numWords > 255) {
return TCL_ERROR;
@@ -2979,6 +3013,7 @@ TclCompileObjectNextToCmd(
DefineLineInformation; /* TIP #280 */
Tcl_Token *tokenPtr = parsePtr->tokenPtr;
int i;
+ (void)cmdPtr;
if (parsePtr->numWords < 2 || parsePtr->numWords > 255) {
return TCL_ERROR;
@@ -2994,13 +3029,15 @@ TclCompileObjectNextToCmd(
int
TclCompileObjectSelfCmd(
- Tcl_Interp *interp, /* Used for error reporting. */
+ Tcl_Interp *dummy, /* Used for error reporting. */
Tcl_Parse *parsePtr, /* Points to a parse structure for the command
* created by Tcl_ParseCommand. */
Command *cmdPtr, /* Points to defintion of command being
* compiled. */
CompileEnv *envPtr) /* Holds resulting instructions. */
{
+ (void)dummy;
+ (void)cmdPtr;
/*
* We only handle [self] and [self object] (which is the same operation).
* These are the only very common operations on [self] for which
generated by cgit v0.12 at 2025-12-04 09:22:33 (GMT)