Correct missing htons() on port number for TCPop connect

Interlisp · Jun 4, 2022 · b5f51d5 · b5f51d5
1 parent 60af445
commit b5f51d5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/inet.c b/src/inet.c
@@ -127,7 +127,7 @@ LispPTR subr_TCP_ops(int op, LispPTR nameConn, LispPTR proto, LispPTR length, Li
       sock = LispNumToCInt(proto);
       result = socket(AF_INET, SOCK_STREAM, 0);
       farend.sin_family = AF_INET;
-      farend.sin_port = sock;
+      farend.sin_port = htons(sock);
       if (connect(result, (struct sockaddr *)&farend, sizeof farend) < 0) {
         perror("TCP connect");
         return (NIL);