Fixed bug in tcl-server
No segmentationfault when sending commands to tcl-server. modified: src/server/server.c modified: src/server/tcl_server.c modified: src/server/tcl_server.h
This commit is contained in:
committed by
Øyvind Harboe
parent
91b9f3de0b
commit
31b050108a
@@ -81,7 +81,7 @@ static int tcl_new_connection(struct connection *connection)
|
||||
|
||||
static int tcl_input(struct connection *connection)
|
||||
{
|
||||
Jim_Interp *interp = (Jim_Interp *)connection->priv;
|
||||
Jim_Interp *interp = (Jim_Interp *)connection->cmd_ctx->interp;
|
||||
int retval;
|
||||
int i;
|
||||
ssize_t rlen;
|
||||
@@ -157,7 +157,7 @@ static int tcl_closed(struct connection *connection)
|
||||
return ERROR_OK;
|
||||
}
|
||||
|
||||
int tcl_init(struct command_context *cmd_ctx)
|
||||
int tcl_init(void)
|
||||
{
|
||||
int retval;
|
||||
|
||||
@@ -169,7 +169,7 @@ int tcl_init(struct command_context *cmd_ctx)
|
||||
|
||||
retval = add_service("tcl", CONNECTION_TCP, tcl_port, 1,
|
||||
&tcl_new_connection, &tcl_input,
|
||||
&tcl_closed, cmd_ctx->interp);
|
||||
&tcl_closed, NULL);
|
||||
return retval;
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user