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();
}
}
RFLOAT(rint(dbl));
}
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,
/* נ ס ע ף פ ץ צ ק ר ש ת <20> <20> ‎ ‏ <20> */
/* ð ñ ò ó ô õ ö ÷ ø ù ú û ü cannot write the last three because of lcc */
#ifdef vms
LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC, LC
#else

12
C/ypsocks.c
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);
}