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 | 79cda12010d970f8602ad38d1adbb788b1a7888e (patch) | |
| tree | a6fe318665ef9fbc6c81f37873ce8d09f736711a /win | |
| parent | 88a98003bf03a290ae31656870efb11b2588d0cd (diff) | |
| download | tcl-79cda12010d970f8602ad38d1adbb788b1a7888e.zip tcl-79cda12010d970f8602ad38d1adbb788b1a7888e.tar.gz tcl-79cda12010d970f8602ad38d1adbb788b1a7888e.tar.bz2 | |
result/sendResult could be 64-bit, so account for that
Diffstat (limited to 'win')
| -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; |