summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2006-08-10 13:07:43 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2006-08-10 13:07:43 (GMT)
commitaacef30821b1c1bc7393ae5435f0248759c37f85 (patch)
treea662be75e9fc68161eeb5f6361b57b8abde8a227
parent5fecb2e14300561bac581946809bf4414edb16a3 (diff)
downloadtcl-aacef30821b1c1bc7393ae5435f0248759c37f85.zip
tcl-aacef30821b1c1bc7393ae5435f0248759c37f85.tar.gz
tcl-aacef30821b1c1bc7393ae5435f0248759c37f85.tar.bz2
D'oh! Fix silly mistakes.
-rw-r--r--generic/tclClock.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclClock.c b/generic/tclClock.c
index a300611..1abd1e1 100644
--- a/generic/tclClock.c
+++ b/generic/tclClock.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclClock.c,v 1.55 2006/08/10 12:15:30 dkf Exp $
+ * RCS: @(#) $Id: tclClock.c,v 1.56 2006/08/10 13:07:43 dkf Exp $
*/
#include "tclInt.h"
@@ -234,7 +234,7 @@ void
TclClockInit(
Tcl_Interp *interp) /* Tcl interpreter */
{
- struct ClockCommand *clockCmdPtr;
+ const struct ClockCommand *clockCmdPtr;
char cmdName[50]; /* Buffer large enough to hold the string
*::tcl::clock::GetJulianDayFromEraYearMonthDay
* plus a terminating NULL. */
@@ -262,7 +262,7 @@ TclClockInit(
for (clockCmdPtr=clockCommands ; clockCmdPtr->name!=NULL ; clockCmdPtr++) {
strcpy(cmdName + TCL_CLOCK_PREFIX_LEN, clockCmdPtr->name);
data->refCount++;
- Tcl_CreateObjCmd(interp, cmdName, clockCmdPtr->objCmdProc, data,
+ Tcl_CreateObjCommand(interp, cmdName, clockCmdPtr->objCmdProc, data,
ClockDeleteCmdProc);
}
}