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

RE: Unicos 10.0.0.6 port of perl

From:
John Salinas
Date:
April 11, 2000 06:59
Subject:
RE: Unicos 10.0.0.6 port of perl
Message ID:
200004111359.IAA14367@gem.americas.sgi.com
As luck would have it I am working on an SV1 today
with unicos 10.0.0.6, craytools 3.4.0.0.1, craylibs 3.4.0.0.3.
and was able to duplicate the problems with perl 5.6.0
on a sv1 as well as a t90 with unicos 10.0.0.hq (almost 8) 
No lose of any functionality with any of our perl 
programs so far though.  I could look into the test failures
at the end of the week .... 

####################################################################################################            running make                    ################################################################################################Subject: Re: [ID 20000202.013] unicos compile problem with 5.005_56
To: hi@iki.fi, jsalinas@cray.com, payner@ncifcrf.gov
CC: perl5-porters@perl.org

Using .... 
rm -f config.sh Policy.sh
sh Configure -D optimize=-g
###############################################################################
During Configure
###############################################################################
Guessing which symbols your C compiler and preprocessor define...
CC-20 cc: ERROR File = try.c, Line = 3
  The identifier "bad" is undefined.

  bad switch yylook 79bad switch yylook 79bad switch yylook 79bad switch 
	yylook 79#ifdef A29K
  ^

CC-65 cc: ERROR File = try.c, Line = 3
  A semicolon is expected at this point.

  bad switch yylook 79bad switch yylook 79bad switch yylook 79bad switch 
	yylook 79#ifdef A29K
      ^

CC-10 cc: ERROR File = try.c, Line = 3
  The token "#" is used improperly within an expression.

  bad switch yylook 79bad switch yylook 79bad switch yylook 79bad switch 
	yylook 79#ifdef A29K
                                                                                  ^

CC-36 cc: ERROR File = try.c, Line = 9
  A "#else" directive appears without an associated "#if" directive.

  #endif
   ^

CC-12 cc: WARNING File = try.c, Line = 1433
  Parsing restarts here after previous syntax error.

  printf("CRAY=%ld\n", CRAY);
                            ^

4 errors detected in the compilation of "try.c".

###############################################################################
DURING MAKE
###############################################################################
CC-9 cc: WARNING File = bsd_glob.c, Line = 200
  A "/*" appears inside a comment.

         * letter and colon - ie change to "C:./*").
                                               ^
        Making Errno (nonxs)
Writing Makefile for Errno
mkdir ../../lib/auto/Errno
../../lib/auto/Errno/.exists: No action was taken.
        ../../miniperl -I../../lib -I../../lib -I../../lib -I../../lib Errno_pm.PL Errno.pm
Errno.pm: No action was taken.
cp Errno.pm ../../lib/Errno.pm
subdirs: No action was taken.

###############################################################################
MAKE TEST
###############################################################################

op/64bitint..........FAILED at test 23
-------------------------------------------------
$x = $q * 1234567;
print "not " unless $x == 15241567763770867 && $x > $f;
print "ok 23\n";

op/misc..............PROG:FAILED at test 3
-------------------------------------------------
appears to be an invaild failure with /tmp

op/bop...............FAILED at test 12
-------------------------------------------------
print ((($cusp >> 1) == ($cusp / 2) &&
        do { use integer; $cusp >> 1 } == -($cusp / 2))
       ? "ok 12\n" : "not ok 12\n");

op/pack..............FAILED at test 10
-------------------------------------------------
# check 'w'
my $test=10;
my @x = (5,130,256,560,32000,3097152,268435455,1073741844,
         '4503599627365785','23728385234614992549757750638446');
my $x = pack('w*', @x);
my $y = pack 'H*', '0581028200843081fa0081bd8440ffffff7f848080801487ffffffffffdb19caefe8e1eeeea0c2e1e3e8ede1ee6e';

print $x eq $y ? "ok $test\n" : "not ok $test\n"; $test++;

@y = unpack('w*', $y);
my $a;
while ($a = pop @x) {
  my $b = pop @y;
  print $a eq $b ? "ok $test\n" : "not ok $test\n$a\n$b\n"; $test++;
}

lib/odbm.............FAILED at test 0
-------------------------------------------------

Failed 5 test scripts out of 227, 97.80% okay.


-------------------------------------------------------------------------------

>
> --NXMgG28f80
> Content-Type: text/plain; charset=us-ascii
> Content-Description: message body text
> Content-Transfer-Encoding: 7bit
>
>
> >From cpan@perl.org mailbox.
>
>
> --NXMgG28f80
> Content-Type: message/rfc822
> Content-Description: forwarded message
> Content-Transfer-Encoding: 7bit
>
> Return-Path: <postmaster@nic.funet.fi>
> Received: from taas.iki.fi (root@taas.iki.fi [212.16.100.1])
>       by tiku.hut.fi (8.9.3/8.9.3) with ESMTP id UAA10279
>       for <Jarkko.Hietaniemi@hut.fi>; Thu, 6 Apr 2000 20:46:13 +0300 (EET DST)> Received: from nic.funet.fi (nic.funet.fi [193.166.0.145])
>       by taas.iki.fi (8.8.8/8.8.8) with ESMTP id UAA28412
>       for <jhi@iki.fi>; Thu, 6 Apr 2000 20:46:12 +0300 (EEST)
> Received: from tmtowtdi.perl.org ([209.85.3.25]:4601 "HELO tmtowtdi.perl.org"
>       ident: "qmailr" smtp-auth: <none> TLS-CIPHER: <none>) by nic.funet.fi
>       with SMTP id <S27706AbQDFRpu>; Thu, 6 Apr 2000 20:45:50 +0300
> Received: (qmail 29571 invoked by uid 508); 6 Apr 2000 17:45:46 -0000
> Delivered-To: perlmail-cpan@perl.org
> Received: (qmail 29568 invoked from network); 6 Apr 2000 17:45:45 -0000
> Received: from mail.ncifcrf.gov (129.43.100.100)
>   by tmtowtdi.perl.org with SMTP; 6 Apr 2000 17:45:45 -0000
> Received: from ncifcrf.gov (zia.NCIFCRF.GOV [129.43.1.137])
>       by mail.ncifcrf.gov (8.8.8/8.8.8) with ESMTP id NAA09141
>       for <cpan@perl.org>; Thu, 6 Apr 2000 13:46:13 -0400 (EDT)
> Message-ID: <38ECCD47.22A233C3@ncifcrf.gov>
> X-Mailer: Mozilla 4.72 [en] (X11; I; SunOS 5.7 sun4u)
> X-Accept-Language: en
> From: Robert Payne <payner@ncifcrf.gov>
> Sender: payner@ncifcrf.gov
> To: cpan@perl.org
> Subject: Unicos 10.0.0.6 port of perl
> Date:         Thu, 06 Apr 2000 13:45:43 -0400
> MIME-Version: 1.0
> Content-Type: text/plain; charset=us-ascii
>
> Hello,
>
> I compiled perl 5.6.0 on our SV1 and it mostly went OK.
> However the make test gives some error:
>
> io/tell..............ok
> op/64bitint..........FAILED at test 23
> op/bop...............FAILED at test 12
> op/misc..............PROG:
> use integer;
> $cusp = ~0 ^ (~0 >> 1);
> $, = " ";
> print +($cusp - 1) % 8, $cusp % 8, -$cusp % 8, ($cusp + 1) % 8, "!\n";
> EXPECTED:
> -1 0 0 1 !
> GOT:
> 7 0 0 -7 !
> FAILED at test 3
> op/pack..............FAILED at test 10
>
> Failed 4 test scripts out of 228, 98.25% okay.
>
>
> How bad is this failure rate ?  Looks like mostly obscure
> features which don't work?  Is there anyone who can help
> with an SV1 Unicos port ?
>
> Thanks,
>
> --
> Robert R. Payne, Systems Software Specialist
> SAIC/NCI-FCRDC P.O. Box B Bldg 430
> Frederick, MD 21702  email: payner@ncifcrf.gov
> phone: 301-846-5496 fax: 301-846-5762
>
> --NXMgG28f80
> Content-Type: text/plain; charset=us-ascii
> Content-Description: .signature
> Content-Transfer-Encoding: 7bit
>
>
> --
> $jhi++; # http://www.iki.fi/jhi/
>         # There is this special biologist word we use for 'stable'.
>         # It is 'dead'. -- Jack Cohen
>
> --NXMgG28f80--
>

And of course the perl malloc doesn't work under
unicos ... 

thanks,
john 




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About