ejk@ux2.cso.uiuc.edu (Ed Kubaitis - CSO ) (03/26/91)
Before I wade in, does anyone already have a recipe for building perl 4.0 on a Convex C2 with the 9.0 OS? -- ---------------------------------- Ed Kubaitis (ejk@uxh.cso.uiuc.edu) Computing Services Office - University of Illinois, Urbana
jones@chpc.utexas.edu (Bill Jones) (03/26/91)
Apply the diffs at the end of this file and then run Configure.
The diffs fix a few problems with the prototyping
that the convex c compiler does when compiling with the extended
ANSI C and POSIX compatible library system under Convex OS 9.0, the default
cc compiler options.
Remember to tell Configure that getgroups returns type gid_t!
Bill Jones
----- Diffs
*** orig/doio.c Mon Mar 25 16:23:49 1991
--- doio.c Thu Mar 21 15:35:12 1991
***************
*** 1310,1316 ****
#ifdef TAINT
taintproper("Insecure dependency in bind");
#endif
! return bind(fileno(stio->ifp), addr, st[sp]->str_cur) >= 0;
nuts:
if (dowarn)
--- 1310,1316 ----
#ifdef TAINT
taintproper("Insecure dependency in bind");
#endif
! return bind(fileno(stio->ifp),(struct sockaddr*)addr, st[sp]->str_cur) >= 0;
nuts:
if (dowarn)
***************
*** 2003,2010 ****
--- 2003,2012 ----
register int sp = arglast[0];
register STR *str;
struct passwd *getpwnam();
+ #if !defined(__convex__)
struct passwd *getpwuid();
struct passwd *getpwent();
+ #endif
struct passwd *pwent;
if (gimme != G_ARRAY) {
***************
*** 2084,2090 ****
--- 2086,2094 ----
register char **elem;
register STR *str;
struct group *getgrnam();
+ #if !defined(__convex__)
struct group *getgrgid();
+ #endif
struct group *getgrent();
struct group *grent;
*** orig/eval.c Mon Mar 25 16:23:50 1991
--- eval.c Thu Mar 21 15:38:53 1991
***************
*** 2198,2204 ****
--- 2198,2208 ----
anum = 0;
else
anum = (int)str_gnum(st[1]);
+ #if !defined(__convex__)
value = (double)getpgrp(anum);
+ #else
+ value = (double)getpgrp();
+ #endif
goto donumset;
#else
fatal("The getpgrp() function is unimplemented on this machine");