1
0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-22 18:31:44 +00:00

Correct missing htons() on port number for TCPop connect

This commit is contained in:
Nick Briggs 2022-06-03 18:32:36 -07:00
parent 60af445afa
commit b5f51d58f1

View File

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