Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!cs.utexas.edu!hermes.chpc.utexas.edu!jones
From: jones@chpc.utexas.edu (Bill Jones)
Newsgroups: comp.lang.perl
Subject: Re: perl 4.0 & Convex OS 9.0
Message-ID: <1991Mar26.002536.10057@chpc.utexas.edu>
Date: 26 Mar 91 00:25:36 GMT
References: <1991Mar25.184405.7939@ux1.cso.uiuc.edu>
Organization: The University of Texas System - CHPC
Lines: 71

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");