1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-15 23:50:44 +00:00
freebsd-ports/lang/modula-3-socks/files/getpeername.c

17 lines
291 B
C
Raw Normal View History

#include "wrap.h"
#include <sys/types.h>
#include <sys/socket.h>
int
m3_getpeername(int s, struct sockaddr *name, int *namelen)
{
int result;
ENTER_CRITICAL;
MAKE_WRITABLE(name);
MAKE_WRITABLE(namelen);
result = getpeername(s, name, namelen);
EXIT_CRITICAL;
return result;
}