Plan9/9front i386 fixes

Author: unobe

AUTHORS

@@ -1104,6 +1104,7 @@ Rocco Caputo                   <troc@netrus.net>
 Roderick Schertler             <roderick@argon.org>
 Rodger Anderson                <rodger@boi.hp.com>
 Rodolfo Carvalho               <rhcarvalho@gmail.com>
+Romano                         <unobe@cpan.org>
 Ronald F. Guilmette            <rfg@monkeys.com>
 Ronald J. Kimball              <rjk@linguist.dartmouth.edu>
 Ronald Schmidt                 <RonaldWS@aol.com>

MANIFEST

@@ -5127,20 +5127,23 @@ perly.c				parser code (NOT derived from perly.y)
 perly.h				header file for perly.c; derived from perly.y
 perly.tab			parser state tables; derived from perly.y
 perly.y				Yacc grammar for perl
-plan9/aperl			Shell to make Perl error messages Acme-friendly
+plan9/9front.patch		Plan9 port: patch for 9front-specific flavor of Plan 9
+plan9/aperl			Plan9 port: shell to make Perl error messages Acme-friendly
 plan9/arpa/inet.h		Plan9 port: replacement C header file
 plan9/buildinfo			Plan9 port: configuration information
 plan9/config.plan9		Plan9 port: config.h template
-plan9/config_h.sample		Plan9 port: 5.8.0 sample config.h
-plan9/config_sh.sample		Plan9 port: 5.8.0 sample config.sh
+plan9/config_h.sample		Plan9 port: 5.32.0 sample config.h
+plan9/config_sh.sample		Plan9 port: 5.32.0 sample config.sh
 plan9/exclude			Plan9 port: tests to skip
 plan9/fndvers			Plan9 port: update Perl version in config.plan9
 plan9/genconfig.pl		Plan9 port: generate config.sh
+plan9/math.h			Plan9 port: Plan9-specific math.h
 plan9/mkfile			Plan9 port: Mk driver for build
 plan9/myconfig.plan9		Plan9 port: script to print config summary
 plan9/plan9.c			Plan9 port: Plan9-specific C routines
 plan9/plan9ish.h		Plan9 port: Plan9-specific C header file
 plan9/setup.rc			Plan9 port: script for easy build+install
+plan9/uninstall.rc		Plan9 port: uninstall script
 plan9/versnum			Plan9 port: script to print version number
 pod/buildtoc			Generate pod/perltoc.pod and pod/roffitall
 pod/Makefile.SH			generate Makefile which makes pods into something else

Porting/exec-bit.txt

@@ -23,6 +23,9 @@ installman
 makedepend.SH
 metaconfig.SH
 myconfig.SH
+plan9/fndvers
+plan9/setup.rc
+plan9/uninstall.rc
 regen/embed.pl
 regen/feature.pl
 regen/keywords.pl

plan9/9front.patch

@@ -0,0 +1,46 @@
+diff --git a/dist/IO/poll.h b/dist/IO/poll.h
+--- a/dist/IO/poll.h
++++ b/dist/IO/poll.h
+@@ -22,10 +22,12 @@
+ 
+ #define EMULATE_POLL_WITH_SELECT
+ 
++#ifdef __VMS
+ #ifdef poll
+ # undef poll
+ #endif
+ #define poll Perl_my_poll
++#endif
+ 
+ typedef struct pollfd {
+     int fd;
+diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
+--- a/ext/Errno/Errno_pm.PL
++++ b/ext/Errno/Errno_pm.PL
+@@ -125,6 +125,8 @@ sub get_files {
+     # VMS keeps its include files in system libraries
+     if ($^O eq 'VMS') {
+ 	$file{'Sys$Library:DECC$RTLDEF.TLB'} = 1;
++	} elsif ($^O eq 'plan9') {
++	$file{'/sys/include/ape/errno.h'} = 1;
+     } elsif ($^O eq 'os390') {
+ 	# OS/390 C compiler doesn't generate #file or #line directives
+ 	$file{'/usr/include/errno.h'} = 1;
+diff --git a/sv.c b/sv.c
+--- a/sv.c
++++ b/sv.c
+@@ -876,10 +876,10 @@
+     U8 body_size;	/* Size to allocate  */
+     U8 copy;		/* Size of structure to copy (may be shorter)  */
+     U8 offset;		/* Size of unalloced ghost fields to first alloced field*/
+-    PERL_BITFIELD8 type : 4;        /* We have space for a sanity check. */
+-    PERL_BITFIELD8 cant_upgrade : 1;/* Cannot upgrade this type */
+-    PERL_BITFIELD8 zero_nv : 1;     /* zero the NV when upgrading from this */
+-    PERL_BITFIELD8 arena : 1;       /* Allocated from an arena */
++    PERL_BITFIELD8 type;        /* We have space for a sanity check. */
++    PERL_BITFIELD8 cant_upgrade;/* Cannot upgrade this type */
++    PERL_BITFIELD8 zero_nv;     /* zero the NV when upgrading from this */
++    PERL_BITFIELD8 arena;       /* Allocated from an arena */
+     U32 arena_size;                 /* Size of arena to allocate */
+ };
+ 

plan9/aperl

@@ -3,5 +3,6 @@
 # aperl:   
 # Executes perl command and alters stderr to produce Acme-friendly error messages
 # Created 02-JUL-1996, Luther Huffman,  lutherh@stratcom.com
+# Modified May 2020, David Romano, unobe@cpan.org
 
-/bin/perl $* |[2]  /bin/perl -pe 's/ line (\d+)/:$1/'  >[1=2]
+/bin/perl-_P9P_VERSION $* |[2]  /bin/perl-_P9P_VERSION -pe 's/ line (\d+)/:$1/'  >[1=2]

plan9/buildinfo

@@ -1 +1 @@
-p9pvers = 5.008
+p9pvers = 5.32.0