diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-05-13 09:07:43 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-05-13 09:07:43 (GMT) |
| commit | 008944a5c3f048f975c96b5528e8ede18ce1d2fc (patch) | |
| tree | a6fe318665ef9fbc6c81f37873ce8d09f736711a /win/tclWinReg.c | |
| parent | 7a4ad0872eb932354e447a67f6117cc90aeb8a90 (diff) | |
| download | tcl-008944a5c3f048f975c96b5528e8ede18ce1d2fc.zip tcl-008944a5c3f048f975c96b5528e8ede18ce1d2fc.tar.gz tcl-008944a5c3f048f975c96b5528e8ede18ce1d2fc.tar.bz2 | |
result/sendResult could be 64-bit, so account for that
Diffstat (limited to 'win/tclWinReg.c')
| -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; |