develooper Front page | perl.perl5.porters | Postings from March 2000

[ID 20000317.004] [PATCH perl-5.6.0-RC2 CORE] Concurrent PowerMAXport

Tom Horsley
March 17, 2000 04:54
[ID 20000317.004] [PATCH perl-5.6.0-RC2 CORE] Concurrent PowerMAXport
Message ID:
These patches are required to build on Concurrent PowerMAX OS 4.3. This
supplants the previous preliminary patch I send yesterday to p5p.

The first hints/ patch just gets rid of <sys/mode.h> which is
apparently something totally different than perl thinks it might be on

The second patch to pp_sys.c is somewhat obnoxious and is only required
because the <netdb.h> header file on PowerMAX has the wrong prototype (I
have submitted a bug report on it). It doesn't have the proper "const"
qualifier in the prototype and as a result, the compiler refuses to pass
"addr" which is a const qualified type. I couldn't figure any way to beat
the compiler into submission or fix this from inside the hints file, so I
wound up patching the source (if you reject it, I won't blame you :-).

Finally, it is also unfortunate, but true, that this only builds using the
new compiler which hasn't yet been released. Something in the sv.c file
inside the "(void)SvIOK_only(sv);" macro is apparently so complicated that
the old compiler can't deal with it (although it doesn't look that
compilcated when I look at it :-). I've also submitted a bug report on the

*** hints/	Thu Mar 16 12:48:43 2000
--- hints/	Thu Mar 16 12:50:09 2000
*** 63,68 ****
--- 63,74 ----
+ # I have no clude what perl thinks it wants <sys/mode.h> for, but if
+ # you include it in a program in PowerMAX without first including
+ # <sys/vnode.h> the code don't compile...
+ #
+ i_sysmode='undef'
  # There is a bug in memcmp (which I hope will be fixed soon) which sometimes
  # fails to provide the correct compare status (it is data dependant), so just
  # pretend there is no memcmp...
*** pp_sys.c.orig	Thu Mar 16 15:10:53 2000
--- pp_sys.c	Thu Mar 16 15:12:07 2000
*** 4292,4298 ****
  	STRLEN addrlen;
  	Netdb_host_t addr = (Netdb_host_t) SvPV(addrsv, addrlen);
! 	hent = PerlSock_gethostbyaddr(addr, (Netdb_hlen_t) addrlen, addrtype);
  	DIE(aTHX_ PL_no_sock_func, "gethostbyaddr");
--- 4292,4298 ----
  	STRLEN addrlen;
  	Netdb_host_t addr = (Netdb_host_t) SvPV(addrsv, addrlen);
! 	hent = PerlSock_gethostbyaddr((char *)addr, (Netdb_hlen_t) addrlen, addrtype);
  	DIE(aTHX_ PL_no_sock_func, "gethostbyaddr");

--                \\\\      Will no one rid me of
Concurrent Computers, Ft. Lauderdale, FL    \\\\     this troublesome
Me:          \\\\     autoconf?
Project Vote Smart:     \\\\    !!!!! Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About