summaryrefslogtreecommitdiffstats
path: root/generic/tclLink.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2024-10-09 16:26:52 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2024-10-09 16:26:52 (GMT)
commitee1bf9db84efa0bd7640a74fcc8afab45b01f352 (patch)
tree628703e3dacb6621556f438d9c3e22583ff90859 /generic/tclLink.c
parent2ba12cd8d22afd194e80417a4c408bfd42bdc7c7 (diff)
parentb592080d7e28c6f351cecba26fce523a512f56c8 (diff)
downloadtcl-ee1bf9db84efa0bd7640a74fcc8afab45b01f352.zip
tcl-ee1bf9db84efa0bd7640a74fcc8afab45b01f352.tar.gz
tcl-ee1bf9db84efa0bd7640a74fcc8afab45b01f352.tar.bz2
Merge-mark 8.7. Indenting (8 spaces -> tabs)
Diffstat (limited to 'generic/tclLink.c')
-rw-r--r--generic/tclLink.c28
1 files changed, 14 insertions, 14 deletions
diff --git a/generic/tclLink.c b/generic/tclLink.c
index a26af65..d2fb2af 100644
--- a/generic/tclLink.c
+++ b/generic/tclLink.c
@@ -300,7 +300,7 @@ Tcl_LinkArray(
/*
* If no address is given create one and use as address the
- * not needed linkPtr->lastValue
+ * not needed linkPtr->lastValue
*/
if (addr == NULL) {
@@ -891,7 +891,7 @@ LinkTraceProc(
if (GetInt(objv[i], varPtr)) {
Tcl_ObjSetVar2(interp, linkPtr->varName, NULL,
ObjValue(linkPtr), TCL_GLOBAL_ONLY);
- return (char *) "variable array must have integer values";
+ return (char *) "variable array must have integer values";
}
}
} else {
@@ -959,7 +959,7 @@ LinkTraceProc(
if (Tcl_GetBooleanFromObj(NULL, objv[i], varPtr) != TCL_OK) {
Tcl_ObjSetVar2(interp, linkPtr->varName, NULL,
ObjValue(linkPtr), TCL_GLOBAL_ONLY);
- return (char *) "variable array must have boolean value";
+ return (char *) "variable array must have boolean value";
}
}
} else {
@@ -978,10 +978,10 @@ LinkTraceProc(
if (linkPtr->flags & LINK_ALLOC_LAST) {
for (i=0; i < objc; i++) {
if (GetInt(objv[i], &valueInt)
- || !InRange(SCHAR_MIN, valueInt, SCHAR_MAX)) {
+ || !InRange(SCHAR_MIN, valueInt, SCHAR_MAX)) {
Tcl_ObjSetVar2(interp, linkPtr->varName, NULL,
ObjValue(linkPtr), TCL_GLOBAL_ONLY);
- return (char *) "variable array must have char value";
+ return (char *) "variable array must have char value";
}
linkPtr->lastValue.cPtr[i] = (char) valueInt;
}
@@ -1000,7 +1000,7 @@ LinkTraceProc(
if (linkPtr->flags & LINK_ALLOC_LAST) {
for (i=0; i < objc; i++) {
if (GetInt(objv[i], &valueInt)
- || !InRange(0, valueInt, (int)UCHAR_MAX)) {
+ || !InRange(0, valueInt, (int)UCHAR_MAX)) {
Tcl_ObjSetVar2(interp, linkPtr->varName, NULL,
ObjValue(linkPtr), TCL_GLOBAL_ONLY);
return (char *)
@@ -1027,7 +1027,7 @@ LinkTraceProc(
|| !InRange(SHRT_MIN, valueInt, SHRT_MAX)) {
Tcl_ObjSetVar2(interp, linkPtr->varName, NULL,
ObjValue(linkPtr), TCL_GLOBAL_ONLY);
- return (char *) "variable array must have short value";
+ return (char *) "variable array must have short value";
}
linkPtr->lastValue.sPtr[i] = (short) valueInt;
}
@@ -1046,10 +1046,10 @@ LinkTraceProc(
if (linkPtr->flags & LINK_ALLOC_LAST) {
for (i=0; i < objc; i++) {
if (GetInt(objv[i], &valueInt)
- || !InRange(0, valueInt, (int)USHRT_MAX)) {
+ || !InRange(0, valueInt, (int)USHRT_MAX)) {
Tcl_ObjSetVar2(interp, linkPtr->varName, NULL,
ObjValue(linkPtr), TCL_GLOBAL_ONLY);
- return (char *)
+ return (char *)
"variable array must have unsigned short value";
}
linkPtr->lastValue.usPtr[i] = (unsigned short) valueInt;
@@ -1073,7 +1073,7 @@ LinkTraceProc(
|| !InRange(0, valueWide, (Tcl_WideInt)UINT_MAX)) {
Tcl_ObjSetVar2(interp, linkPtr->varName, NULL,
ObjValue(linkPtr), TCL_GLOBAL_ONLY);
- return (char *)
+ return (char *)
"variable array must have unsigned int value";
}
linkPtr->lastValue.uiPtr[i] = (unsigned int) valueWide;
@@ -1095,7 +1095,7 @@ LinkTraceProc(
if (GetUWide(objv[i], &valueUWide)) {
Tcl_ObjSetVar2(interp, linkPtr->varName, NULL,
ObjValue(linkPtr), TCL_GLOBAL_ONLY);
- return (char *)
+ return (char *)
"variable array must have unsigned wide int value";
}
linkPtr->lastValue.uwPtr[i] = valueUWide;
@@ -1115,10 +1115,10 @@ LinkTraceProc(
for (i=0; i < objc; i++) {
if (GetDouble(objv[i], &valueDouble)
&& !InRange(FLT_MIN, fabs(valueDouble), FLT_MAX)
- && !IsSpecial(valueDouble)) {
+ && !IsSpecial(valueDouble)) {
Tcl_ObjSetVar2(interp, linkPtr->varName, NULL,
ObjValue(linkPtr), TCL_GLOBAL_ONLY);
- return (char *) "variable array must have float value";
+ return (char *)"variable array must have float value";
}
linkPtr->lastValue.fPtr[i] = (float) valueDouble;
}
@@ -1128,7 +1128,7 @@ LinkTraceProc(
&& !IsSpecial(valueDouble)) {
Tcl_ObjSetVar2(interp, linkPtr->varName, NULL,
ObjValue(linkPtr), TCL_GLOBAL_ONLY);
- return (char *) "variable must have float value";
+ return (char *)"variable must have float value";
}
LinkedVar(float) = linkPtr->lastValue.f = (float) valueDouble;
}