suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

avoid some compiler warnings

Browse Source
This commit is contained in:
Matthew Flatt 2013-11-02 18:15:25 -06:00
parent cf0fa05541
commit fec1c8c115
1 changed files with 24 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
racket/src/racket/src/port.c
View File

@ -1314,9 +1314,22 @@ int scheme_get_fd_limit(void *fds)
It's constrained because it's used by default_sleep, which It's constrained because it's used by default_sleep, which
must not allocate on Mac OS X. */ must not allocate on Mac OS X. */
{ {
int limit, actual_limit; int actual_limit;
fd_set *rd, *wr, *ex; fd_set *rd, *wr, *ex;
rd = (fd_set *)fds;
wr = (fd_set *)MZ_GET_FDSET(fds, 1);
ex = (fd_set *)MZ_GET_FDSET(fds, 2);
# ifdef STORED_ACTUAL_FDSET_LIMIT
actual_limit = FDSET_LIMIT(rd);
if (FDSET_LIMIT(wr) > actual_limit)
actual_limit = FDSET_LIMIT(wr);
if (FDSET_LIMIT(ex) > actual_limit)
actual_limit = FDSET_LIMIT(ex);
actual_limit++;
# else
{
int limit;
# ifdef USE_WINSOCK_TCP # ifdef USE_WINSOCK_TCP
limit = 0; limit = 0;
# else # else
@ -1331,18 +1344,8 @@ int scheme_get_fd_limit(void *fds)
# endif # endif
# endif # endif
rd = (fd_set *)fds;
wr = (fd_set *)MZ_GET_FDSET(fds, 1);
ex = (fd_set *)MZ_GET_FDSET(fds, 2);
# ifdef STORED_ACTUAL_FDSET_LIMIT
actual_limit = FDSET_LIMIT(rd);
if (FDSET_LIMIT(wr) > actual_limit)
actual_limit = FDSET_LIMIT(wr);
if (FDSET_LIMIT(ex) > actual_limit)
actual_limit = FDSET_LIMIT(ex);
actual_limit++;
# else
actual_limit = limit; actual_limit = limit;
}
# endif # endif
return actual_limit; return actual_limit;
@ -6004,7 +6007,10 @@ static void filesystem_change_evt_fnl(void *fc, void *data)
Scheme_Object *scheme_filesystem_change_evt(Scheme_Object *path, int flags, int signal_errs) Scheme_Object *scheme_filesystem_change_evt(Scheme_Object *path, int flags, int signal_errs)
{ {
char *filename; char *filename;
int ok = 0, errid = 0; int ok = 0;
#ifndef NO_FILESYSTEM_CHANGE_EVTS
int errid = 0;
#endif
intptr_t fd; intptr_t fd;
filename = scheme_expand_string_filename(path, filename = scheme_expand_string_filename(path,
@ -6015,7 +6021,6 @@ Scheme_Object *scheme_filesystem_change_evt(Scheme_Object *path, int flags, int
#if defined(NO_FILESYSTEM_CHANGE_EVTS) #if defined(NO_FILESYSTEM_CHANGE_EVTS)
ok = 0; ok = 0;
errid = -1;
#elif defined(FILESYSTEM_NEVER_CHANGES) #elif defined(FILESYSTEM_NEVER_CHANGES)
ok = 1; ok = 1;
#elif defined(HAVE_KQUEUE_SYSCALL) #elif defined(HAVE_KQUEUE_SYSCALL)