summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2016-01-29 09:46:56 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2016-01-29 09:46:56 (GMT)
commit3fa3e3b2d59022f67a190c83e215f789ce836e2e (patch)
tree2d31843d9a3918daae232b78575fc6ae26bda20b
parent9aefb192c71805b6be041d37310d24b5c44914cd (diff)
downloadtcl-3fa3e3b2d59022f67a190c83e215f789ce836e2e.zip
tcl-3fa3e3b2d59022f67a190c83e215f789ce836e2e.tar.gz
tcl-3fa3e3b2d59022f67a190c83e215f789ce836e2e.tar.bz2
Fix gcc'ism. Not all compilers can substract two void pointers.
-rw-r--r--generic/tclTest.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 63a6740..9794f59 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -6872,9 +6872,9 @@ NREUnwind_callback(
&none, NULL);
} else {
Tcl_Obj *idata[3];
- idata[0] = Tcl_NewIntObj((int) (data[1] - data[0]));
- idata[1] = Tcl_NewIntObj((int) (data[2] - data[0]));
- idata[2] = Tcl_NewIntObj((int) ((void *) &none - data[0]));
+ idata[0] = Tcl_NewIntObj((int) ((char *) data[1] - (char *) data[0]));
+ idata[1] = Tcl_NewIntObj((int) ((char *) data[2] - (char *) data[0]));
+ idata[2] = Tcl_NewIntObj((int) ((char *) &none - (char *) data[0]));
Tcl_SetObjResult(interp, Tcl_NewListObj(3, idata));
}
return TCL_OK;