diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lcc fixes

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
C/arith1.c
View File

@ -1924,7 +1924,6 @@ p_sign(Term t E_ARGS)
RERROR(); RERROR();
} }
} }
RFLOAT(rint(dbl));
} }
static InitUnEntry InitUnTab[] = { static InitUnEntry InitUnTab[] = {

2
C/scanner.c
View File

@ -109,7 +109,7 @@ EF,
/* а б в г д е ж з и й к л м н о п */ /* а б в г д е ж з и й к л м н о п */
LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC,
/* נ ס ע ף פ ץ צ ק ר ש ת <20> <20> ‎ ‏ <20> */ /* ð ñ ò ó ô õ ö ÷ ø ù ú û ü cannot write the last three because of lcc */
#ifdef vms #ifdef vms
LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC
#else #else

12
C/ypsocks.c
View File

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