moving Tcl stuff around slightly.

git-svn-id: svn://svn.berlios.de/openocd/trunk@759 b42882b7-edfa-0310-969c-e2dbd0fdcd60

1 files changed, 3 insertions, 4 deletions

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);