summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2016-05-13 09:09:05 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2016-05-13 09:09:05 (GMT)
commit4fad9227456604fb7bf7903a8a9245a55d421838 (patch)
tree0524e9e7a01035d17cec8a1b167278da80ab2be8
parent2118de7012860722cd64f656d1d4a955a1fad428 (diff)
parent79cda12010d970f8602ad38d1adbb788b1a7888e (diff)
downloadtcl-4fad9227456604fb7bf7903a8a9245a55d421838.zip
tcl-4fad9227456604fb7bf7903a8a9245a55d421838.tar.gz
tcl-4fad9227456604fb7bf7903a8a9245a55d421838.tar.bz2
Merge core-8-6-branch
-rw-r--r--win/tclWinReg.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/win/tclWinReg.c b/win/tclWinReg.c
index a3bcc81..5f7fd31 100644
--- a/win/tclWinReg.c
+++ b/win/tclWinReg.c
@@ -1425,8 +1425,8 @@ BroadcastValue(
Tcl_DStringFree(&ds);
objPtr = Tcl_NewObj();
- Tcl_ListObjAppendElement(NULL, objPtr, Tcl_NewLongObj((long) result));
- Tcl_ListObjAppendElement(NULL, objPtr, Tcl_NewLongObj((long) sendResult));
+ Tcl_ListObjAppendElement(NULL, objPtr, Tcl_NewWideIntObj((Tcl_WideInt) result));
+ Tcl_ListObjAppendElement(NULL, objPtr, Tcl_NewWideIntObj((Tcl_WideInt) sendResult));
Tcl_SetObjResult(interp, objPtr);
return TCL_OK;