From b8392fa5eb2f1e04950a1c215d7a1114ddd721bc Mon Sep 17 00:00:00 2001 From: Andy Dougherty Date: Thu, 7 Dec 2000 07:36:45 -0500 Subject: [PATCH] [ID 20001207.004] [PATCH 5.6.0 and 5.7.x] add NCR MP-RAS support Date: Thu, 7 Dec 2000 12:36:45 -0500 (EST) Message-Id: Subject: Re: [ID 20001207.004] [PATCH 5.6.0 and 5.7.x] add NCR MP-RAS support From: Andy Dougherty Date: Thu, 7 Dec 2000 13:56:10 -0500 (EST) Message-ID: p4raw-id: //depot/perl@8036 --- MANIFEST | 1 + ext/POSIX/Makefile.PL | 7 +------ ext/POSIX/hints/svr4.pl | 12 ++++++++++++ hints/svr4.sh | 16 ++++++++++++++++ t/lib/bigfltpm.t | 8 ++++---- 5 files changed, 34 insertions(+), 10 deletions(-) create mode 100644 ext/POSIX/hints/svr4.pl diff --git a/MANIFEST b/MANIFEST index b628ab3..e4bc303 100644 --- a/MANIFEST +++ b/MANIFEST @@ -364,6 +364,7 @@ ext/POSIX/hints/netbsd.pl Hint for POSIX for named architecture ext/POSIX/hints/next_3.pl Hint for POSIX for named architecture ext/POSIX/hints/openbsd.pl Hint for POSIX for named architecture ext/POSIX/hints/sunos_4.pl Hint for POSIX for named architecture +ext/POSIX/hints/svr4.pl Hint for POSIX for named architecture ext/POSIX/typemap POSIX extension interface types ext/SDBM_File/Makefile.PL SDBM extension makefile writer ext/SDBM_File/SDBM_File.pm SDBM extension Perl module diff --git a/ext/POSIX/Makefile.PL b/ext/POSIX/Makefile.PL index 55c5c1f..73bb02d 100644 --- a/ext/POSIX/Makefile.PL +++ b/ext/POSIX/Makefile.PL @@ -2,12 +2,7 @@ use ExtUtils::MakeMaker; use Config; my @libs; if ($^O ne 'MSWin32') { - if ($Config{archname} =~ /RM\d\d\d-svr4/) { - @libs = ('LIBS' => ["-lm -lc -lposix -lcposix"]); - } - else { - @libs = ('LIBS' => ["-lm -lposix -lcposix"]); - } + @libs = ('LIBS' => ["-lm -lposix -lcposix"]); } WriteMakefile( NAME => 'POSIX', diff --git a/ext/POSIX/hints/svr4.pl b/ext/POSIX/hints/svr4.pl new file mode 100644 index 0000000..07f2cb0 --- /dev/null +++ b/ext/POSIX/hints/svr4.pl @@ -0,0 +1,12 @@ +# NCR MP-RAS. Thanks to Doug Hendricks for this info. +# Configure sets osname=svr4.0, osvers=3.0, archname='3441-svr4.0' +# This system needs to explicitly link against -lmw to pull in some +# symbols such as _mwoflocheckl and possibly others. +# A. Dougherty Thu Dec 7 11:55:28 EST 2000 +if ($Config{'archname'} =~ /3441-svr4/) { + $self->{LIBS} = ['-lm -posix -lcposix -lmw']; +} +# Not sure what OS this one is. +elsif ($Config{archname} =~ /RM\d\d\d-svr4/) { + $self->{LIBS} = ['-lm -lc -lposix -lcposix']; +} diff --git a/hints/svr4.sh b/hints/svr4.sh index 8109b39..69af6fd 100644 --- a/hints/svr4.sh +++ b/hints/svr4.sh @@ -135,6 +135,22 @@ case "`uname -sm`" in ;; esac +# NCR MP-RAS. Thanks to Doug Hendricks for this info. +# The output of uname -a looks like this +# foo foo 4.0 3.0 3441 Pentium III(TM)-ISA/PCI +# Configure sets osname=svr4.0, osvers=3.0, archname='3441-svr4.0' +case "$myuname" in +*3441*) + # With the NCR High Performance C Compiler R3.0c, miniperl fails + # t/op/regexp.t test 461 unless we compile with optimizie=-g. + # The whole O/S is being phased out, so more detailed probing + # is probably not warranted. + case "$optimize" in + '') optimize='-g' ;; + esac + ;; +esac + # Configure may fail to find lstat() since it's a static/inline function # in on Unisys U6000 SVR4, UnixWare 2.x, and possibly other # SVR4 derivatives. (Though UnixWare has it in /usr/ccs/lib/libc.so.) diff --git a/t/lib/bigfltpm.t b/t/lib/bigfltpm.t index a8fb192..b335d13 100755 --- a/t/lib/bigfltpm.t +++ b/t/lib/bigfltpm.t @@ -449,10 +449,10 @@ $Math::BigFloat::div_scale = 20 $Math::BigFloat::div_scale = 40 &fsqrt +0:0 --1:/^(?i:0|\?|NaNQ?|-n\.an)$ --2:/^(?i:0|\?|NaNQ?|-n\.an)$ --16:/^(?i:0|\?|NaNQ?|-n\.an)$ --123.456:/^(?i:0|\?|NaNQ?|-n\.an)$ +-1:/^(?i:0|\?|-?N\.?aNQ?)$ +-2:/^(?i:0|\?|-?N\.?aNQ?)$ +-16:/^(?i:0|\?|-?N\.?aNQ?)$ +-123.456:/^(?i:0|\?|-?N\.?aNQ?)$ +1:1. +1.44:1.2 +2:1.41421356237309504880168872420969807857 -- 2.7.4