Xref: utzoo news.software.b:3623 comp.sources.d:4401
Path: utzoo!utstat!jarvis.csri.toronto.edu!mailrus!wuarchive!usc!henry.jpl.nasa.gov!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: news.software.b,comp.sources.d
Subject: Re: C News "upact" in Perl 3.0
Message-ID: <6489@jpl-devvax.JPL.NASA.GOV>
Date: 22 Nov 89 18:53:58 GMT
References: <2565B57C.10978@ateng.com> <1989Nov19.014731.26346@utzoo.uucp> <25682EB0.24425@ateng.com> <empty.stack.4D9D@rpi.edu>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 17

In article <empty.stack.4D9D@rpi.edu> tale@pawl.rpi.edu (David C Lawrence) writes:
: B) updatemin is faster anyway.  It fixed the damage done by the perl
: upact pretty quickly. :-)
: 
: The problem with upact was in dirlow().  $min never got set.  I don't
: understand exactly what was failing, but many printf's later I tracked
: it down to the fact that though $low was being set in the "while"
: control structure, it's value was still "" when it exited:
...
: This is in perl 3.0.1.2, patchlevel 6, GCC 1.35 compiled on a Sun 3,
: SunOS 4.0.3 system.

The preliminary suspect is the gcc optimizer.  It doesn't misbehave when
I take the -O out.  More later.

Larry Wall
lwall@jpl-devvax.jpl.nasa.gov