summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdIL.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r--generic/tclCmdIL.c70
1 files changed, 35 insertions, 35 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index 9f4587c..8f7cbe6 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.c
@@ -225,7 +225,7 @@ TclNRIfObjCmd(
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"wrong # args: no expression after \"%s\" argument",
TclGetString(objv[0])));
- Tcl_SetErrorCode(interp, "TCL", "WRONGARGS", NULL);
+ Tcl_SetErrorCode(interp, "TCL", "WRONGARGS", (void *)NULL);
return TCL_ERROR;
}
@@ -316,7 +316,7 @@ IfConditionCallback(
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"wrong # args: no expression after \"%s\" argument",
clause));
- Tcl_SetErrorCode(interp, "TCL", "WRONGARGS", NULL);
+ Tcl_SetErrorCode(interp, "TCL", "WRONGARGS", (void *)NULL);
return TCL_ERROR;
}
if (!thenScriptIndex) {
@@ -343,7 +343,7 @@ IfConditionCallback(
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"wrong # args: extra words after \"else\" clause in \"if\" command",
-1));
- Tcl_SetErrorCode(interp, "TCL", "WRONGARGS", NULL);
+ Tcl_SetErrorCode(interp, "TCL", "WRONGARGS", (void *)NULL);
return TCL_ERROR;
}
if (thenScriptIndex) {
@@ -360,7 +360,7 @@ IfConditionCallback(
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"wrong # args: no script following \"%s\" argument",
TclGetString(objv[i-1])));
- Tcl_SetErrorCode(interp, "TCL", "WRONGARGS", NULL);
+ Tcl_SetErrorCode(interp, "TCL", "WRONGARGS", (void *)NULL);
return TCL_ERROR;
}
@@ -489,7 +489,7 @@ InfoArgsCmd(
if (procPtr == NULL) {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"\"%s\" isn't a procedure", name));
- Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "PROCEDURE", name, NULL);
+ Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "PROCEDURE", name, (void *)NULL);
return TCL_ERROR;
}
@@ -551,7 +551,7 @@ InfoBodyCmd(
if (procPtr == NULL) {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"\"%s\" isn't a procedure", name));
- Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "PROCEDURE", name, NULL);
+ Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "PROCEDURE", name, (void *)NULL);
return TCL_ERROR;
}
@@ -972,7 +972,7 @@ InfoDefaultCmd(
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"\"%s\" isn't a procedure", procName));
Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "PROCEDURE", procName,
- NULL);
+ (void *)NULL);
return TCL_ERROR;
}
@@ -1005,7 +1005,7 @@ InfoDefaultCmd(
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"procedure \"%s\" doesn't have an argument \"%s\"",
procName, argName));
- Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "ARGUMENT", argName, NULL);
+ Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "ARGUMENT", argName, (void *)NULL);
return TCL_ERROR;
}
@@ -1188,7 +1188,7 @@ InfoFrameCmd(
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"bad level \"%s\"", TclGetString(objv[1])));
Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LEVEL",
- TclGetString(objv[1]), NULL);
+ TclGetString(objv[1]), (void *)NULL);
code = TCL_ERROR;
goto done;
}
@@ -1550,7 +1550,7 @@ InfoHostnameCmd(
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"unable to determine name of host", -1));
- Tcl_SetErrorCode(interp, "TCL", "OPERATION", "HOSTNAME", "UNKNOWN", NULL);
+ Tcl_SetErrorCode(interp, "TCL", "OPERATION", "HOSTNAME", "UNKNOWN", (void *)NULL);
return TCL_ERROR;
}
@@ -1623,7 +1623,7 @@ InfoLevelCmd(
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"bad level \"%s\"", TclGetString(objv[1])));
Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LEVEL",
- TclGetString(objv[1]), NULL);
+ TclGetString(objv[1]), (void *)NULL);
return TCL_ERROR;
}
@@ -1670,7 +1670,7 @@ InfoLibraryCmd(
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"no library has been specified for Tcl", -1));
- Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "VARIABLE", "tcl_library",NULL);
+ Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "VARIABLE", "tcl_library", (void *)NULL);
return TCL_ERROR;
}
@@ -2168,7 +2168,7 @@ InfoCmdTypeCmd(
if (Tcl_IsSafe(interp)
&& (((Command *) command)->objProc == TclAliasObjCmd)) {
- Tcl_AppendResult(interp, "native", NULL);
+ Tcl_AppendResult(interp, "native", (void *)NULL);
} else {
Tcl_SetObjResult(interp,
Tcl_NewStringObj(TclGetCommandTypeName(command), -1));
@@ -2663,7 +2663,7 @@ Tcl_LpopObjCmd(
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"index \"end\" out of range", -1));
Tcl_SetErrorCode(interp, "TCL", "VALUE", "INDEX"
- "OUTOFRANGE", NULL);
+ "OUTOFRANGE", (void *)NULL);
return TCL_ERROR;
}
elemPtr = elemPtrs[listLen - 1];
@@ -2967,7 +2967,7 @@ Tcl_LrepeatObjCmd(
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"bad count \"%" TCL_LL_MODIFIER "d\": must be integer >= 0", elementCount));
Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LREPEAT", "NEGARG",
- NULL);
+ (void *)NULL);
return TCL_ERROR;
}
@@ -2983,7 +2983,7 @@ Tcl_LrepeatObjCmd(
if (elementCount && objc > LIST_MAX/elementCount) {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"max length of a Tcl list (%" TCL_SIZE_MODIFIER "d elements) exceeded", LIST_MAX));
- Tcl_SetErrorCode(interp, "TCL", "MEMORY", NULL);
+ Tcl_SetErrorCode(interp, "TCL", "MEMORY", (void *)NULL);
return TCL_ERROR;
}
totalElems = objc * elementCount;
@@ -3401,7 +3401,7 @@ Tcl_LsearchObjCmd(
if (i > objc-4) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"missing starting index", -1));
- Tcl_SetErrorCode(interp, "TCL", "ARGUMENT", "MISSING", NULL);
+ Tcl_SetErrorCode(interp, "TCL", "ARGUMENT", "MISSING", (void *)NULL);
result = TCL_ERROR;
goto done;
}
@@ -3425,7 +3425,7 @@ Tcl_LsearchObjCmd(
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"\"-stride\" option must be "
"followed by stride length", -1));
- Tcl_SetErrorCode(interp, "TCL", "ARGUMENT", "MISSING", NULL);
+ Tcl_SetErrorCode(interp, "TCL", "ARGUMENT", "MISSING", (void *)NULL);
result = TCL_ERROR;
goto done;
}
@@ -3437,7 +3437,7 @@ Tcl_LsearchObjCmd(
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"stride length must be between 1 and %d", LIST_MAX));
Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LSEARCH",
- "BADSTRIDE", NULL);
+ "BADSTRIDE", (void *)NULL);
result = TCL_ERROR;
goto done;
}
@@ -3456,7 +3456,7 @@ Tcl_LsearchObjCmd(
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"\"-index\" option must be followed by list index",
-1));
- Tcl_SetErrorCode(interp, "TCL", "ARGUMENT", "MISSING", NULL);
+ Tcl_SetErrorCode(interp, "TCL", "ARGUMENT", "MISSING", (void *)NULL);
result = TCL_ERROR;
goto done;
}
@@ -3504,7 +3504,7 @@ Tcl_LsearchObjCmd(
"index \"%s\" out of range",
TclGetString(indices[j])));
Tcl_SetErrorCode(interp, "TCL", "VALUE", "INDEX"
- "OUTOFRANGE", NULL);
+ "OUTOFRANGE", (void *)NULL);
result = TCL_ERROR;
}
if (result == TCL_ERROR) {
@@ -3527,7 +3527,7 @@ Tcl_LsearchObjCmd(
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"-subindices cannot be used without -index option", -1));
Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LSEARCH",
- "BAD_OPTION_MIX", NULL);
+ "BAD_OPTION_MIX", (void *)NULL);
result = TCL_ERROR;
goto done;
}
@@ -3536,7 +3536,7 @@ Tcl_LsearchObjCmd(
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"-bisect is not compatible with -all or -not", -1));
Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LSEARCH",
- "BAD_OPTION_MIX", NULL);
+ "BAD_OPTION_MIX", (void *)NULL);
result = TCL_ERROR;
goto done;
}
@@ -3590,7 +3590,7 @@ Tcl_LsearchObjCmd(
"list size must be a multiple of the stride length",
-1));
Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LSEARCH", "BADSTRIDE",
- NULL);
+ (void *)NULL);
result = TCL_ERROR;
goto done;
}
@@ -3606,7 +3606,7 @@ Tcl_LsearchObjCmd(
"when used with \"-stride\", the leading \"-index\""
" value must be within the group", -1));
Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LSEARCH",
- "BADINDEX", NULL);
+ "BADINDEX", (void *)NULL);
result = TCL_ERROR;
goto done;
}
@@ -4575,7 +4575,7 @@ Tcl_LsortObjCmd(
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"\"-command\" option must be followed "
"by comparison command", -1));
- Tcl_SetErrorCode(interp, "TCL", "ARGUMENT", "MISSING", NULL);
+ Tcl_SetErrorCode(interp, "TCL", "ARGUMENT", "MISSING", (void *)NULL);
sortInfo.resultCode = TCL_ERROR;
goto done;
}
@@ -4600,7 +4600,7 @@ Tcl_LsortObjCmd(
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"\"-index\" option must be followed by list index",
-1));
- Tcl_SetErrorCode(interp, "TCL", "ARGUMENT", "MISSING", NULL);
+ Tcl_SetErrorCode(interp, "TCL", "ARGUMENT", "MISSING", (void *)NULL);
sortInfo.resultCode = TCL_ERROR;
goto done;
}
@@ -4628,7 +4628,7 @@ Tcl_LsortObjCmd(
"index \"%s\" out of range",
TclGetString(indexv[j])));
Tcl_SetErrorCode(interp, "TCL", "VALUE", "INDEX"
- "OUTOFRANGE", NULL);
+ "OUTOFRANGE", (void *)NULL);
result = TCL_ERROR;
}
if (result == TCL_ERROR) {
@@ -4662,7 +4662,7 @@ Tcl_LsortObjCmd(
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"\"-stride\" option must be "
"followed by stride length", -1));
- Tcl_SetErrorCode(interp, "TCL", "ARGUMENT", "MISSING", NULL);
+ Tcl_SetErrorCode(interp, "TCL", "ARGUMENT", "MISSING", (void *)NULL);
sortInfo.resultCode = TCL_ERROR;
goto done;
}
@@ -4674,7 +4674,7 @@ Tcl_LsortObjCmd(
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"stride length must be between 2 and %d", LIST_MAX));
Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LSORT",
- "BADSTRIDE", NULL);
+ "BADSTRIDE", (void *)NULL);
sortInfo.resultCode = TCL_ERROR;
goto done;
}
@@ -4780,7 +4780,7 @@ Tcl_LsortObjCmd(
"list size must be a multiple of the stride length",
-1));
Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LSORT", "BADSTRIDE",
- NULL);
+ (void *)NULL);
sortInfo.resultCode = TCL_ERROR;
goto done;
}
@@ -4797,7 +4797,7 @@ Tcl_LsortObjCmd(
"when used with \"-stride\", the leading \"-index\""
" value must be within the group", -1));
Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LSORT",
- "BADINDEX", NULL);
+ "BADINDEX", (void *)NULL);
sortInfo.resultCode = TCL_ERROR;
goto done;
}
@@ -4859,7 +4859,7 @@ Tcl_LsortObjCmd(
if (!elementArray) {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"no enough memory to proccess sort of %d items", length));
- Tcl_SetErrorCode(interp, "TCL", "MEMORY", NULL);
+ Tcl_SetErrorCode(interp, "TCL", "MEMORY", (void *)NULL);
sortInfo.resultCode = TCL_ERROR;
goto done;
}
@@ -5323,7 +5323,7 @@ SortCompare(
Tcl_SetObjResult(infoPtr->interp, Tcl_NewStringObj(
"-compare command returned non-integer result", -1));
Tcl_SetErrorCode(infoPtr->interp, "TCL", "OPERATION", "LSORT",
- "COMPARISONFAILED", NULL);
+ "COMPARISONFAILED", (void *)NULL);
infoPtr->resultCode = TCL_ERROR;
return 0;
}
@@ -5539,7 +5539,7 @@ SelectObjFromSublist(
index, TclGetString(objPtr)));
}
Tcl_SetErrorCode(infoPtr->interp, "TCL", "OPERATION", "LSORT",
- "INDEXFAILED", NULL);
+ "INDEXFAILED", (void *)NULL);
infoPtr->resultCode = TCL_ERROR;
return NULL;
}
generated by cgit v0.12 at 2024-09-27 21:22:34 (GMT)