Path: utzoo!censor!geac!torsqnt!news-server.csri.toronto.edu!rutgers!usc!sdd.hp.com!mips!beldar
From: beldar@mips.com (Gardner Cohen)
Newsgroups: comp.lang.perl
Subject: Re: PERL on MIPS systems
Message-ID: <BELDAR.90Nov22144741@chaingang.mips.com>
Date: 22 Nov 90 22:47:41 GMT
References: <4e10c201.20b6d@apollo.HP.COM> <219@altger.UUCP>
Sender: news@mips.COM
Followup-To: comp.lang.perl
Organization: Mips Computer Systems, Inc., Sunnyvale, CA
Lines: 70
In-reply-to: york@altger.UUCP's message of 21 Nov 90 12:39:18 GMT


In article <219@altger.UUCP> york@altger.UUCP (york) writes:

   Has anybody got Perl 3.0 (pl41) working on a MIPS system ?  I have
   tried it on a Cadmus 9604 RC. Three tests (e.g. op.eval) fail !

I just built it on a Mips 6280 running risc/os 4.50, with the 2.11
compilers, and passed all tests.  I'll be making this available for
ftp soon.

I made the following change to Configure, and had to edit config.sh to
disable 'volatile.'  I compiled it -O2 -g3 -Olimit 10000.  Note that I
build in the -systype sysv environment, not because I like to, but
because I'm lazy.

*** /tmp/,RCSt1a18413	Thu Nov 22 14:45:42 1990
--- Configure	Thu Nov 22 14:25:56 1990
***************
*** 301,307 ****
      spitshell=cat
      echo " "
      echo "Okay, let's see if #! works on this system..."
!     echo "#!/bin/echo hi" > try
      $eunicefix try
      chmod +x try
      ./try > today
--- 301,307 ----
      spitshell=cat
      echo " "
      echo "Okay, let's see if #! works on this system..."
!     echo "#!/bsd43/bin/echo hi" > try
      $eunicefix try
      chmod +x try
      ./try > today
***************
*** 1133,1139 ****
      *) thatlib="${thislib}_s";;
      *) thatlib=NONE;;
      esac
!     xxx=`./loc lib$thislib.a X /usr/ccs/lib /usr/lib /usr/local/lib /lib`
      if test -f $xxx; then
  	echo "Found -l$thislib."
  	case "$dflt" in
--- 1133,1139 ----
      *) thatlib="${thislib}_s";;
      *) thatlib=NONE;;
      esac
!     xxx=`./loc lib$thislib.a X /usr/ccs/lib /usr/lib /usr/local/lib /lib /sysv/usr/lib/cmplrs/cc`
      if test -f $xxx; then
  	echo "Found -l$thislib."
  	case "$dflt" in
***************
*** 1451,1457 ****
  echo " "
  set `echo $libc $libnames | tr ' ' '\012' | sort | uniq`
  $echo $n "Extracting names from $* for later perusal...$c"
! nm $* 2>/dev/null >libc.tmp
  $sed -n -e 's/^.* [ATDS]  *_[_.]*//p' -e 's/^.* [ATDS] //p' <libc.tmp >libc.list
  if $contains '^printf$' libc.list >/dev/null 2>&1; then
      echo "done"
--- 1451,1457 ----
  echo " "
  set `echo $libc $libnames | tr ' ' '\012' | sort | uniq`
  $echo $n "Extracting names from $* for later perusal...$c"
! nm -B $* 2>/dev/null >libc.tmp
  $sed -n -e 's/^.* [ATDS]  *_[_.]*//p' -e 's/^.* [ATDS] //p' <libc.tmp >libc.list
  if $contains '^printf$' libc.list >/dev/null 2>&1; then
      echo "done"
--
Gardner Cohen     beldar@mips.com   {ames,decwrl,...}!mips!beldar (408) 524-8267