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

Use some previously unused variables

Browse source
This commit is contained in:
Kris Katterjohn 2017-03-14 15:57:03 -05:00
parent 5095097a6a
commit 3b1db15c2b
2 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/hash.d
View file

@ -218,7 +218,7 @@ _hash_equalp(int depth, cl_hashkey h, cl_object x)
struct ecl_hashtable_entry *e = hashtable->hash.data + i; \
cl_object hkey = e->key, hvalue = e->value; \
if (hkey == OBJNULL) { \
if (e->value == OBJNULL) { \
if (hvalue == OBJNULL) { \
if (j == hsize) \
return e; \
else \

5
src/c/tcp.d
View file

@ -206,7 +206,8 @@ create_server_port(int port)
#endif
/* Set up the socket data. */
memset((char *)&inaddr, 0, sizeof(inaddr));
addrlen = sizeof (struct sockaddr_in);
memset((char *)&inaddr, 0, addrlen);
inaddr.sin_family = AF_INET;
#if defined(ECL_MS_WINDOWS_HOST)
inaddr.sin_port = htons((unsigned short)port);
@ -215,7 +216,7 @@ create_server_port(int port)
#endif
inaddr.sin_addr.s_addr = htonl(INADDR_ANY);
if (bind(request, (struct sockaddr *)&inaddr, sizeof (inaddr)))
if (bind(request, (struct sockaddr *)&inaddr, addrlen))
FElibc_error("Binding TCP socket", 0);
if (listen(request, 1))
FElibc_error("TCP listening", 0);