diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-11 10:25:04 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-11 10:25:04 (GMT) |
commit | abc5015131e70188b9e23ba1e7554cd50ba408bb (patch) | |
tree | 40ab2efb7dd8b8b9f46d3e9a0b4ca526ac10b1bd /win/tclWinTest.c | |
parent | f50166e4fc9c42b56b3016fcac4e74619c864b68 (diff) | |
download | tcl-abc5015131e70188b9e23ba1e7554cd50ba408bb.zip tcl-abc5015131e70188b9e23ba1e7554cd50ba408bb.tar.gz tcl-abc5015131e70188b9e23ba1e7554cd50ba408bb.tar.bz2 |
more Tcl_NewIntObj/Tcl_NewBooleanObj -> Tcl_NewLongObj conversions
Diffstat (limited to 'win/tclWinTest.c')
-rw-r--r-- | win/tclWinTest.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/win/tclWinTest.c b/win/tclWinTest.c index e046bd3..17b76b8 100644 --- a/win/tclWinTest.c +++ b/win/tclWinTest.c @@ -277,11 +277,11 @@ TestwinclockCmd( result = Tcl_NewObj(); Tcl_ListObjAppendElement(interp, result, - Tcl_NewIntObj((int) (t2.QuadPart / 10000000))); + Tcl_NewLongObj((int) (t2.QuadPart / 10000000))); Tcl_ListObjAppendElement(interp, result, - Tcl_NewIntObj((int) ((t2.QuadPart / 10) % 1000000))); - Tcl_ListObjAppendElement(interp, result, Tcl_NewIntObj(tclTime.sec)); - Tcl_ListObjAppendElement(interp, result, Tcl_NewIntObj(tclTime.usec)); + Tcl_NewLongObj((int) ((t2.QuadPart / 10) % 1000000))); + Tcl_ListObjAppendElement(interp, result, Tcl_NewLongObj(tclTime.sec)); + Tcl_ListObjAppendElement(interp, result, Tcl_NewLongObj(tclTime.usec)); Tcl_ListObjAppendElement(interp, result, Tcl_NewWideIntObj(p1.QuadPart)); Tcl_ListObjAppendElement(interp, result, Tcl_NewWideIntObj(p2.QuadPart)); |