summaryrefslogtreecommitdiffstats
path: root/generic/tclTest.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-09-08 13:40:08 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-09-08 13:40:08 (GMT)
commit1e28aa8c2f1e2806f1c3854f4b01e5ab053ac9f2 (patch)
tree5838b02ae3c6df5722cbc04f57c59c54356f9f3f /generic/tclTest.c
parent408838f622f7e0872c7547f38512364490472a41 (diff)
downloadtcl-1e28aa8c2f1e2806f1c3854f4b01e5ab053ac9f2.zip
tcl-1e28aa8c2f1e2806f1c3854f4b01e5ab053ac9f2.tar.gz
tcl-1e28aa8c2f1e2806f1c3854f4b01e5ab053ac9f2.tar.bz2
Oops!
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r--generic/tclTest.c38
1 files changed, 19 insertions, 19 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index e966e4c..1c44d17 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclTest.c,v 1.93 2005/09/08 13:38:09 dkf Exp $
+ * RCS: @(#) $Id: tclTest.c,v 1.94 2005/09/08 13:40:08 dkf Exp $
*/
#define TCL_TEST
@@ -2822,50 +2822,50 @@ TestlinkCmd(dummy, interp, argc, argv)
if (Tcl_GetInt(interp, argv[7], &v) != TCL_OK) {
return TCL_ERROR;
}
- charValue = (char) v;
+ charVar = (char) v;
}
if (argv[8][0]) {
if (Tcl_GetInt(interp, argv[8], &v) != TCL_OK) {
return TCL_ERROR;
}
- ucharValue = (unsigned char) v;
+ ucharVar = (unsigned char) v;
}
if (argv[9][0]) {
if (Tcl_GetInt(interp, argv[9], &v) != TCL_OK) {
return TCL_ERROR;
}
- shortValue = (short) v;
+ shortVar = (short) v;
}
if (argv[10][0]) {
if (Tcl_GetInt(interp, argv[10], &v) != TCL_OK) {
return TCL_ERROR;
}
- ushortValue = (unsigned short) v;
+ ushortVar = (unsigned short) v;
}
if (argv[11][0]) {
if (Tcl_GetInt(interp, argv[11], &v) != TCL_OK) {
return TCL_ERROR;
}
- uintValue = (unsigned int) v;
+ uintVar = (unsigned int) v;
}
if (argv[12][0]) {
if (Tcl_GetInt(interp, argv[12], &v) != TCL_OK) {
return TCL_ERROR;
}
- longValue = (long) v;
+ longVar = (long) v;
}
if (argv[13][0]) {
if (Tcl_GetInt(interp, argv[13], &v) != TCL_OK) {
return TCL_ERROR;
}
- ulongValue = (unsigned long) v;
+ ulongVar = (unsigned long) v;
}
if (argv[14][0]) {
double d;
if (Tcl_GetDouble(interp, argv[14], &d) != TCL_OK) {
return TCL_ERROR;
}
- floatValue = (float) d;
+ floatVar = (float) d;
}
if (argv[15][0]) {
Tcl_WideInt w;
@@ -2875,7 +2875,7 @@ TestlinkCmd(dummy, interp, argc, argv)
return TCL_ERROR;
}
Tcl_DecrRefCount(tmp);
- uwideValue = (Tcl_WideUInt) w;
+ uwideVar = (Tcl_WideUInt) w;
}
} else if (strcmp(argv[1], "update") == 0) {
int v;
@@ -2932,49 +2932,49 @@ TestlinkCmd(dummy, interp, argc, argv)
if (Tcl_GetInt(interp, argv[7], &v) != TCL_OK) {
return TCL_ERROR;
}
- charValue = (char) v;
+ charVar = (char) v;
Tcl_UpdateLinkedVar(interp, "char");
}
if (argv[8][0]) {
if (Tcl_GetInt(interp, argv[8], &v) != TCL_OK) {
return TCL_ERROR;
}
- ucharValue = (unsigned char) v;
+ ucharVar = (unsigned char) v;
Tcl_UpdateLinkedVar(interp, "uchar");
}
if (argv[9][0]) {
if (Tcl_GetInt(interp, argv[9], &v) != TCL_OK) {
return TCL_ERROR;
}
- shortValue = (short) v;
+ shortVar = (short) v;
Tcl_UpdateLinkedVar(interp, "short");
}
if (argv[10][0]) {
if (Tcl_GetInt(interp, argv[10], &v) != TCL_OK) {
return TCL_ERROR;
}
- ushortValue = (unsigned short) v;
+ ushortVar = (unsigned short) v;
Tcl_UpdateLinkedVar(interp, "ushort");
}
if (argv[11][0]) {
if (Tcl_GetInt(interp, argv[11], &v) != TCL_OK) {
return TCL_ERROR;
}
- uintValue = (unsigned int) v;
+ uintVar = (unsigned int) v;
Tcl_UpdateLinkedVar(interp, "uint");
}
if (argv[12][0]) {
if (Tcl_GetInt(interp, argv[12], &v) != TCL_OK) {
return TCL_ERROR;
}
- longValue = (long) v;
+ longVar = (long) v;
Tcl_UpdateLinkedVar(interp, "long");
}
if (argv[13][0]) {
if (Tcl_GetInt(interp, argv[13], &v) != TCL_OK) {
return TCL_ERROR;
}
- ulongValue = (unsigned long) v;
+ ulongVar = (unsigned long) v;
Tcl_UpdateLinkedVar(interp, "ulong");
}
if (argv[14][0]) {
@@ -2982,7 +2982,7 @@ TestlinkCmd(dummy, interp, argc, argv)
if (Tcl_GetDouble(interp, argv[14], &d) != TCL_OK) {
return TCL_ERROR;
}
- floatValue = (float) d;
+ floatVar = (float) d;
Tcl_UpdateLinkedVar(interp, "float");
}
if (argv[15][0]) {
@@ -2993,7 +2993,7 @@ TestlinkCmd(dummy, interp, argc, argv)
return TCL_ERROR;
}
Tcl_DecrRefCount(tmp);
- uwideValue = (Tcl_WideUInt) w;
+ uwideVar = (Tcl_WideUInt) w;
Tcl_UpdateLinkedVar(interp, "uwide");
}
} else {