github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-05-03 23:09:34 +00:00
Code Issues Projects Releases Wiki Activity

Fix parameter types and format strings.

Browse Source 
modified:   src/unixcomm.c
This commit is contained in:
Nick Briggs
2017-06-30 15:21:16 -07:00
parent 730ff30b86
commit 693e2392ca
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/unixcomm.c
View File

@@ -89,7 +89,7 @@ Unix Interface Communications
#include "inlinePS2.h" #include "inlinePS2.h"
#endif /* GCC386 */ #endif /* GCC386 */
static __inline__ int SAFEREAD(int f, char *b, int c) { static __inline__ int SAFEREAD(int f, unsigned char *b, int c) {
int res; int res;
loop: loop:
res = read(f, b, c); res = read(f, b, c);
@@ -213,7 +213,7 @@ void wait_for_comm_processes(void) {
char *build_socket_pathname(int desc) { char *build_socket_pathname(int desc) {
static char PathName[50]; static char PathName[50];
sprintf(PathName, "/tmp/LPU%d-%d", StartTime, desc); sprintf(PathName, "/tmp/LPU%ld-%d", StartTime, desc);
return (PathName); return (PathName);
} }
@@ -223,7 +223,7 @@ char *build_upward_socket_pathname(int desc)
{ {
static char UpPathName[50]; static char UpPathName[50];
sprintf(UpPathName, "/tmp/LPU%d-%d", StartTime, desc); sprintf(UpPathName, "/tmp/LPU%ld-%d", StartTime, desc);
return (UpPathName); return (UpPathName);
} }
@@ -231,7 +231,7 @@ char *build_downward_socket_pathname(int desc)
{ {
static char DownPathName[50]; static char DownPathName[50];
sprintf(DownPathName, "/tmp/LPD%d-%d", StartTime, desc); sprintf(DownPathName, "/tmp/LPD%ld-%d", StartTime, desc);
return (DownPathName); return (DownPathName);
} }
#endif /* ISC */ #endif /* ISC */
@@ -549,7 +549,7 @@ LispPTR Unix_handlecomm(LispPTR *args) {
if (d[3] == 1) { if (d[3] == 1) {
#ifndef ISC #ifndef ISC
case0_lp: case0_lp:
TIMEOUT(PipeFD = accept(sockFD, (struct sockaddr *)0, (int *)0)); TIMEOUT(PipeFD = accept(sockFD, NULL, NULL));
if (PipeFD < 0) { if (PipeFD < 0) {
if (errno == EINTR) goto case0_lp; if (errno == EINTR) goto case0_lp;
perror("Accept."); perror("Accept.");
@@ -1045,7 +1045,7 @@ LispPTR Unix_handlecomm(LispPTR *args) {
/* sockFD SHOULD be non-blocking; /* sockFD SHOULD be non-blocking;
but I'll time this out just in case */ but I'll time this out just in case */
case13_lp: case13_lp:
TIMEOUT(newFD = accept(sockFD, (struct sockaddr *)0, (int *)0)); TIMEOUT(newFD = accept(sockFD, NULL, NULL));
if (newFD < 0) if (newFD < 0)
if (errno == EINTR) if (errno == EINTR)
goto case13_lp; goto case13_lp;