X-Git-Url: https://review.openocd.org/gitweb?p=openocd.git;a=blobdiff_plain;f=src%2Fserver%2Ftcl_server.c;h=178d86ba8cef9b4cfd45d6cce04241d0cac8b8bf;hp=e5886774dc1344f264e9e8dbad89d8ba05529123;hb=2b78a4e82b1845ee7cc89f6e31d7b49e9299cb32;hpb=ae5732b9e4f085b89da3f9ce07eb526e159e1937

diff --git a/src/server/tcl_server.c b/src/server/tcl_server.c
index e5886774dc..178d86ba8c 100644
--- a/src/server/tcl_server.c
+++ b/src/server/tcl_server.c
@@ -179,10 +179,8 @@ int tcl_register_commands(command_context_t *cmd_ctx)
 	return ERROR_OK;
 }
 
-static int handle_tcl_port_command(struct command_context_s *cmd_ctx, char *cmd, char **args, int argc)
+static int handle_tcl_port_command(struct command_context_s *cmd_ctx,
+		char *cmd, char **args, int argc)
 {
-	if (argc == 1) {
-		tcl_port = strtoul(args[0], NULL, 0);
-	}
-	return ERROR_OK;
+	return server_port_command(cmd_ctx, cmd, args, argc, &tcl_port);
 }