From 163bd86071a90b77eb8b0e03927b0ed8908eb892 Mon Sep 17 00:00:00 2001 From: oharboe Date: Sun, 6 Jul 2008 22:03:07 +0000 Subject: moving Tcl stuff around slightly. git-svn-id: svn://svn.berlios.de/openocd/trunk@759 b42882b7-edfa-0310-969c-e2dbd0fdcd60 --- src/server/tcl_server.c | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src/server/tcl_server.c') diff --git a/src/server/tcl_server.c b/src/server/tcl_server.c index cfdb8d07..8c47eafe 100644 --- a/src/server/tcl_server.c +++ b/src/server/tcl_server.c @@ -75,7 +75,7 @@ int tcl_output(connection_t *connection, const void *data, ssize_t len) if (wlen == len) return ERROR_OK; - LOG_ERROR("error during write: %d != %d", wlen, len); + LOG_ERROR("error during write: %d != %d", (int)wlen, (int)len); tclc->tc_outerror = 1; return ERROR_SERVER_REMOTE_CLOSED; } @@ -84,7 +84,6 @@ int tcl_output(connection_t *connection, const void *data, ssize_t len) /* connections */ static int tcl_new_connection(connection_t *connection) { - int i; tcl_connection_t *tclc; tclc = malloc(sizeof(tcl_connection_t)); @@ -177,8 +176,8 @@ int tcl_init(void) if (tcl_port == 0) { - LOG_WARNING("no tcl port specified, using default port 5555"); - tcl_port = 5555; + LOG_WARNING("no tcl port specified, using default port 6666"); + tcl_port = 6666; } retval = add_service("tcl", CONNECTION_TCL, tcl_port, 1, tcl_new_connection, tcl_input, tcl_closed, NULL); -- cgit v1.2.3