Xref: utzoo comp.sys.hp:3440 comp.sources.d:4377
Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!uwm.edu!gem.mps.ohio-state.edu!tut.cis.ohio-state.edu!bloom-beacon!eru!luth!sunic!tut!santra!hemuli.atk.vtt.fi!tml
From: tml@hemuli.atk.vtt.fi (Tor Lillqvist)
Newsgroups: comp.sys.hp,comp.sources.d
Subject: Re: libc.a error when linking perl3.0 on HP-UX 3.10
Keywords: perl malloc
Message-ID: <4297@hemuli.atk.vtt.fi>
Date: 13 Nov 89 18:41:09 GMT
References: <127@geysir.os.is> <1322@iso.estec.nl>
Reply-To: tml@hemuli.atk.vtt.fi (Tor Lillqvist)
Followup-To: comp.sys.hp
Organization: Technical Research Centre of Finland
Lines: 21

In article <1322@iso.estec.nl> contrib@iso.estec.nl (contrib (AM Davidson)) writes:
>Oh BTW, don't use Perl's own malloc - it'll go crazy.

It is possible to use perl's malloc if you patch it.  I don't have
diffs handy, but I remember two changes were necessary on the
hp9000s800: Use the strut field in the overhead union:

#if defined(mips) || defined(sparc) || defined(hp9000s800)
	double  strut;			/* alignment problems */
#endif

and change the test for corrupt pointers to

#ifdef hp9000s800
	if (*((unsigned int*)p) != 0 &&
	    (*((unsigned int*)p) > 0x80000000 ||
	     *((unsigned int*)p) < 0x40000000))
#else

-- 
Tor Lillqvist, VTT/ATK