diff options
Diffstat (limited to 'Modules')
| -rw-r--r-- | Modules/arraymodule.c | 8 | ||||
| -rw-r--r-- | Modules/mathmodule.c | 5 | ||||
| -rw-r--r-- | Modules/socketmodule.c | 9 |
3 files changed, 22 insertions, 0 deletions
diff --git a/Modules/arraymodule.c b/Modules/arraymodule.c index 8812ad6..e5bf46a 100644 --- a/Modules/arraymodule.c +++ b/Modules/arraymodule.c @@ -31,8 +31,16 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "modsupport.h" #include "ceval.h" +#ifdef i860 +/* Cray APP doesn't have memmove */ +#define NEED_MEMMOVE +extern char *memcpy(); +#endif + #ifdef sun +/* SunOS doesn't have memmove */ #define NEED_MEMMOVE +extern char *memcpy(); #endif #ifdef NEED_MEMMOVE diff --git a/Modules/mathmodule.c b/Modules/mathmodule.c index 1521133..979155e 100644 --- a/Modules/mathmodule.c +++ b/Modules/mathmodule.c @@ -35,6 +35,11 @@ extern int errno; #include <math.h> +#ifdef i860 +/* Cray APP has bogus definition of HUGE_VAL in <math.h> */ +#undef HUGE_VAL +#endif + #ifndef __STDC__ extern double fmod PROTO((double, double)); #endif diff --git a/Modules/socketmodule.c b/Modules/socketmodule.c index 0e20307..e2328fb 100644 --- a/Modules/socketmodule.c +++ b/Modules/socketmodule.c @@ -82,6 +82,11 @@ Socket methods: #include <sys/un.h> #include <netdb.h> +#ifdef i860 +/* Cray APP doesn't have getpeername() */ +#define NO_GETPEERNAME +#endif + /* Global variable holding the exception type for errors detected by this module (but not argument type or memory errors, etc.). */ @@ -594,6 +599,7 @@ sock_getsockname(s, args) } +#ifndef NO_GETPEERNAME /* s.getpeername() method */ static object * @@ -614,6 +620,7 @@ sock_getpeername(s, args) return socket_error(); return makesockaddr((struct sockaddr *) addrbuf, addrlen); } +#endif /* s.listen(n) method */ @@ -809,7 +816,9 @@ static struct methodlist sock_methods[] = { {"connect", sock_connect}, {"fileno", sock_fileno}, {"getsockname", sock_getsockname}, +#ifndef NO_GETPEERNAME {"getpeername", sock_getpeername}, +#endif {"listen", sock_listen}, {"makefile", sock_makefile}, {"recv", sock_recv}, |