diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-20 20:38:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-20 20:38:03 (GMT) |
| commit | bb50c8cdc24f4a05e4bfff335f9c43900ad8036e (patch) | |
| tree | a73f327a25c2c548e18d211353c5620036643e7f | |
| parent | 9cbafa1d343820da7ce2df18ef7b780f5d928052 (diff) | |
| parent | 58b64de3bfbcd0cb114139833a8c029273fb7637 (diff) | |
| download | tcl-bb50c8cdc24f4a05e4bfff335f9c43900ad8036e.zip tcl-bb50c8cdc24f4a05e4bfff335f9c43900ad8036e.tar.gz tcl-bb50c8cdc24f4a05e4bfff335f9c43900ad8036e.tar.bz2 | |
Merge 8.7
| -rw-r--r-- | generic/tclTest.c | 2 | ||||
| -rw-r--r-- | generic/tclTestObj.c | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 450ff12..5ada7ad 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -3855,7 +3855,7 @@ TestlistrepCmd( Tcl_Obj *const objv[]) /* Argument objects. */ { /* Subcommands supported by this command */ - const char* subcommands[] = { + static const char *const subcommands[] = { "new", "describe", "config", diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index ac05d18..c94a0be 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -152,7 +152,7 @@ TestbignumobjCmd( int objc, /* Argument count */ Tcl_Obj *const objv[]) /* Argument vector */ { - const char *const subcmds[] = { + static const char *const subcmds[] = { "set", "get", "mult10", "div10", "iseven", "radixsize", NULL }; enum options { @@ -886,7 +886,7 @@ TestlistobjCmd( Tcl_Obj *const objv[]) /* Argument objects */ { /* Subcommands supported by this command */ - const char* const subcommands[] = { + static const char* const subcommands[] = { "set", "get", "replace", @@ -919,7 +919,7 @@ TestlistobjCmd( return TCL_ERROR; } if (Tcl_GetIndexFromObj(interp, objv[1], subcommands, "command", - TCL_INDEX_TEMP_TABLE, &cmdIndex) != TCL_OK) { + 0, &cmdIndex) != TCL_OK) { return TCL_ERROR; } switch(cmdIndex) { @@ -1089,7 +1089,7 @@ TestobjCmd( int i; const Tcl_ObjType *targetType; Tcl_Obj **varPtr; - const char *subcommands[] = { + static const char *const subcommands[] = { "freeallvars", "bug3598580", "buge58d7e19e9", "types", "objtype", "newobj", "set", "assign", "convert", "duplicate", |