17 lines
548 B
Plaintext
17 lines
548 B
Plaintext
$OpenBSD: patch-src_tclx_src_tclxcclk_c,v 1.2 2017/05/09 13:01:42 espie Exp $
|
|
Index: src/tclx/src/tclxcclk.c
|
|
--- src/tclx/src/tclxcclk.c.orig
|
|
+++ src/tclx/src/tclxcclk.c
|
|
@@ -52,8 +52,10 @@ Tcl_ConvertclockCmd (clientData, interp, argc, argv)
|
|
return TCL_ERROR;
|
|
}
|
|
if (argc == 4) {
|
|
- if (Tcl_GetLong (interp, argv [3], &baseClock) != TCL_OK)
|
|
+ long tmp;
|
|
+ if (Tcl_GetLong (interp, argv [3], &tmp) != TCL_OK)
|
|
return TCL_ERROR;
|
|
+ baseClock = (long)tmp; /* ouchie ? */
|
|
} else
|
|
time (&baseClock);
|
|
|