mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-01 15:20:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

Build a the internet address properly. One cannot just pass the

Browse source 
unsigned long on architectures with "wrong" endianness.
This commit is contained in:
jjgarcia 2002-10-25 09:33:17 +00:00
parent e819427147
commit 7b7b05bfc3
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/c/tcp.d
View file

@ -320,6 +320,7 @@ make_stream(cl_object host, int fd, enum smmode smm)
@(defun si::lookup-host-entry (host_or_address)
struct hostent *he;
unsigned long l;
unsigned char address[4];
cl_object name, aliases, addresses;
int i;
@
@ -330,11 +331,14 @@ make_stream(cl_object host, int fd, enum smmode smm)
break;
case t_fixnum:
l = fix(host_or_address);
he = gethostbyaddr(&l, 4, AF_INET);
break;
goto addr;
case t_bignum:
l = big_to_ulong(host_or_address);
he = gethostbyaddr(&l, 4, AF_INET);
addr: address[0] = l & 0xFF;
address[1] = (l >> 8) & 0xFF;
address[2] = (l >> 16) & 0xFF;
address[3] = (l >> 24) & 0xFF;
he = gethostbyaddr(&address, 4, AF_INET);
break;
default:
FEerror("LOOKUP-HOST-ENTRY: Number or string expected, got ~S",