Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: More on castulong
Message-ID: <7712@jpl-devvax.JPL.NASA.GOV>
Date: 9 Apr 90 18:22:57 GMT
References: <638@fsu.scri.fsu.edu> <15330@bfmny0.UU.NET>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 34

In article <15330@bfmny0.UU.NET> tneff@bfmny0.UU.NET (Tom Neff) writes:
: In article <638@fsu.scri.fsu.edu> nall@sun8.scri.fsu.edu (John Nall) writes:
: >The reason is that if the symbol CASTNEGFLOAT is undefined in config.h,
: >then perl.h comes up with something called castulong()  which is not
: >defined anywhere so far as I can determine.  
: 
: Strange - at the end of my copy of util.c (marked 3.0.1.5 90/03/27
: 16:35:13) is this:
: 
: 	#ifndef CASTNEGFLOAT
: 	unsigned long
: 	castulong(f)
: 	double f;
: 	{
: 		long along;
: 
: 		if (f >= 0.0)
: 		return (unsigned long)f;
: 		along = (long)f;
: 		return (unsigned long)along;
: 	}
: 	#endif

Some of the early patchlevel 18 kits had a typo in util.c--it said
"catulong".  Those who upgraded via the patch won't have this problem.
If you have the problem, simply s/catulong/castulong/ in util.c and
make sure that castulong is declared as unsigned long in perl.h.

Sorry 'bout that.  In order to do quality control on my patches, I check
them out after I've generated them, and occasionally I fix something
in the patch and forget to fix it in the source.  That's what happened
this time.

Larry