Re: [MacPerl] use diagnostics, memory leak?

[Marcus Sen <sen@tono.pnc.go.jp>]

Chris Nandor wrote:
> 
> At 13.34 12/3/97, Xah Lee wrote:
> >3. You'll see that each time the memory bar increase about 1M. After about
> >3 times, MacPerl will complain out of memory, sometimes auto-exit. Freezes
> >OS occationally.
> >
...
> Here is a quick script:
> 
> #!perl -wl
> use Mac::Memory;
> print FreeMem();        #returns amount of free heap space
> for(0..10000){
>   eval('use English;use strict;use diagnostics;');
> }
> print FreeMem();

Xah Lee's original message reminded me that I had had a problem with memory
running out and crashing myself when I'd tried to 'use diagnostics' etc. but I
just stopped including those lines without trying to pursue the problem
further.  

Now I've tried running Chris Nandor's test scripts and I get the same
behaviour as Xah Lee.  I am running MacPerl 5.1.5r4 application with 13Nov97
patch applied on a PowerBook 5300ce, 32Mb RAM, 64Mb Virtual Memory switched
on, System J2-7.5.2 (KanjiTalk).

The details of my runs of the above script are below.

First ran the script once with MacPerl assigned 2560K RAM:

764448
Out of memory!
Out of memory!
Out of memory!
Out of memory!


Next increased MacPerl's memory to 5000K RAM and ran the script twice:

3265376
1424736
2017712
693040


Then ruan the second script three times in a row after quitting and restarting MacPerl
> #!perl -wl
> use Mac::Memory;
> print FreeMem();        #returns amount of free heap space
> for(0..10){
>   eval('use English;use strict;use diagnostics;
>         use Mac::Memory;print FreeMem();');
> }
3741296
1900704
1900704
1900688
1900688
1900624
1900624
1900624
1900624
1900592
1900592
1900592
2723136
1341952
1341952
1341936
1341936
1341904
1341904
1341904
1341904
1341872
1341872
1341840
2723008
1341792
1341792
1341760
1341760
1341728
1341728
1341696
1341696
1341696
1341696
1341664


I'm a bit clueless about what all this means but maybe it's some useful extra data?

Marcus Sen


P.S. Off Topic list etiquette question:  I notice people generally send
messages both directly to people who've posted and to the list address so I've
done the same, but isn't it more of an annoyance to get two copies of the same
message one from the list and one direct?

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch