lcc fixes

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@322 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-01-23 05:01:06 +00:00
parent ed4afb5ca2
commit bc9b7908cd
3 changed files with 7 additions and 8 deletions

View File

@@ -621,7 +621,7 @@ p_socket_bind(void)
/* get the port number */
unsigned int namelen;
Term t;
if (getsockname(fd, (struct sockaddr *)&saddr, (int *)&namelen) < 0) {
if (getsockname(fd, (struct sockaddr *)&saddr, (unsigned int *)&namelen) < 0) {
#if HAVE_STRERROR
Error(SYSTEM_ERROR, TermNil,
"socket_bind/2 (getsockname: %s)", strerror(socket_errno));
@@ -853,7 +853,7 @@ p_socket_accept(void)
len = sizeof(struct sockaddr_un)+107;
memset((void *)&caddr,(int) 0, len);
if ((fd=accept(ofd, (struct sockaddr *)tmp, (int *)&len)) < 0) {
if ((fd=accept(ofd, (struct sockaddr *)tmp, (unsigned int *)&len)) < 0) {
#if HAVE_STRERROR
Error(SYSTEM_ERROR, TermNil,
"socket_accept/3 (accept: %s)", strerror(socket_errno));
@@ -874,7 +874,7 @@ p_socket_accept(void)
len = sizeof(caddr);
memset((void *)&caddr,(int) 0, sizeof(caddr));
if (invalid_socket_fd(fd=accept(ofd, (struct sockaddr *)&caddr, (int *)&len))) {
if (invalid_socket_fd(fd=accept(ofd, (struct sockaddr *)&caddr, (unsigned int *)&len))) {
#if HAVE_STRERROR
Error(SYSTEM_ERROR, TermNil,
"socket_accept/3 (accept: %s)", strerror(socket_errno));
@@ -909,9 +909,9 @@ p_socket_buffering(void)
Term t2 = Deref(ARG2);
Term t4 = Deref(ARG4);
Atom mode;
int fd, len;
int fd;
int writing;
int bufsize;
unsigned int bufsize, len;
int sno;
if ((sno = CheckSocketStream(t1, "socket_buffering/4")) < 0) {
@@ -950,7 +950,7 @@ p_socket_buffering(void)
return(FALSE);
}
bufsize = IntegerOfTerm(t4);
if (bufsize < 0) {
if ((Int)bufsize < 0) {
Error(DOMAIN_ERROR_NOT_LESS_THAN_ZERO,t4,"socket_buffering/4");
return(FALSE);
}