diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-13 21:55:28 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-13 21:55:28 (GMT) |
| commit | 3a37a573a27026dabb2ec4f9dc001787542914d2 (patch) | |
| tree | bbc79c47fea491e4688efb14eab9d96fb01289c8 /generic/tclTest.c | |
| parent | 7b90ffbb489e5b0b09f23a6296f69f070127fd57 (diff) | |
| parent | 923a6774f62e32298b5e46435e6a648e4ff1f53a (diff) | |
| download | tcl-3a37a573a27026dabb2ec4f9dc001787542914d2.zip tcl-3a37a573a27026dabb2ec4f9dc001787542914d2.tar.gz tcl-3a37a573a27026dabb2ec4f9dc001787542914d2.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 5fe1370..8476ecb 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -3327,10 +3327,7 @@ TestlinkarrayCmd( }; int optionIndex, typeIndex, readonly, i, size, length; char *name, *arg; - long addr; /* Wrong on Windows, but that's MS's fault for - * not supporting <stdint.h> correctly. They - * can suffer the warnings; the rest of us - * shouldn't have to! */ + Tcl_WideInt addr; if (objc < 2) { Tcl_WrongNumArgs(interp, 1, objv, "option args"); @@ -3388,7 +3385,7 @@ TestlinkarrayCmd( */ if (i < objc) { - if (Tcl_GetLongFromObj(interp, objv[i], &addr) == TCL_ERROR) { + if (Tcl_GetWideIntFromObj(interp, objv[i], &addr) == TCL_ERROR) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "wrong address value", -1)); return TCL_ERROR; @@ -3396,7 +3393,7 @@ TestlinkarrayCmd( } else { addr = 0; } - return Tcl_LinkArray(interp, name, (void *) addr, + return Tcl_LinkArray(interp, name, INT2PTR(addr), LinkTypes[typeIndex] | readonly, size); } return TCL_OK; |