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:
parent
60af445afa
commit
b5f51d58f1
@ -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);
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user