diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-05-13 09:09:05 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-05-13 09:09:05 (GMT) |
| commit | 4fad9227456604fb7bf7903a8a9245a55d421838 (patch) | |
| tree | 0524e9e7a01035d17cec8a1b167278da80ab2be8 | |
| parent | 2118de7012860722cd64f656d1d4a955a1fad428 (diff) | |
| parent | 79cda12010d970f8602ad38d1adbb788b1a7888e (diff) | |
| download | tcl-4fad9227456604fb7bf7903a8a9245a55d421838.zip tcl-4fad9227456604fb7bf7903a8a9245a55d421838.tar.gz tcl-4fad9227456604fb7bf7903a8a9245a55d421838.tar.bz2 | |
Merge core-8-6-branch
| -rw-r--r-- | win/tclWinReg.c | 4 |
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; |