moving Tcl stuff around slightly.

[openocd.git] / src / server / tcl_server.c

diff --git a/src/server/tcl_server.c b/src/server/tcl_server.c
index cfdb8d07e25a47a6567da211355e1145075aecf5..8c47eafe4bb55778137d5ba1740957ae7d42e203 100644 (file)
--- 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)\r
                return ERROR_OK;\r
 \r
-       LOG_ERROR("error during write: %d != %d", wlen, len);\r
+       LOG_ERROR("error during write: %d != %d", (int)wlen, (int)len);\r
        tclc->tc_outerror = 1;\r
        return ERROR_SERVER_REMOTE_CLOSED;\r
 }\r
@@ -84,7 +84,6 @@ int tcl_output(connection_t *connection, const void *data, ssize_t len)
 /* connections */\r
 static int tcl_new_connection(connection_t *connection)\r
 {\r
-       int i;\r
        tcl_connection_t *tclc;\r
 \r
        tclc = malloc(sizeof(tcl_connection_t));\r
@@ -177,8 +176,8 @@ int tcl_init(void)
 \r
        if (tcl_port == 0)\r
        {\r
-               LOG_WARNING("no tcl port specified, using default port 5555");\r
-               tcl_port = 5555;\r
+               LOG_WARNING("no tcl port specified, using default port 6666");\r
+               tcl_port = 6666;\r
        }\r
 \r
        retval = add_service("tcl", CONNECTION_TCL, tcl_port, 1, tcl_new_connection, tcl_input, tcl_closed, NULL);\r