[MacPerl] re: out of memory

[Greenblatt & Seay]

At 3:01 AM +0100 2003/01/20, Louis Pouzin wrote:

I ran it and got:

   FREE IN HEAP -- AVAIL TO APPS -- FREE SYSTEM -- MAX MEMORY

         1581744 --      21840016 --       74816 --    1525232

At the same time Memory Mapper showed 2241 K free in MacPerl.
So, I'm not sure how to reconcile those figures. Any hint ?

Try this...
1) Start up MacPerl
2) Start up Memory Mapper and select "Update Regularly" from the "File" menu.
3) Note the amount of memory assigned to Macperl (use "Get Info"). This number should be close to what Memory Mapper has for MacPerl in the "Size" column.
4) Note what Memory Mapper has for MacPerl in the "Free" column.
5) Run the script below and compare MacPerl's "Free" column in Memory Mapper with the output from the script. Keep watching because the script runs for 25 seconds.

You'll probably have to reposition the MacPerl window so you can see it and Memory Mapper at the same time.

David Seay
http://www.mastercall.com/g-s/

----------------

#!perl

use Mac::Memory;

print "FREE MEMORY...\n";
&print_FreeMem;
for $x (1..5) {
sleep 5;
&print_FreeMem;
}

print "\n\nFINISHED";


sub print_FreeMem {
$freeMem = FreeMem();
$freeMemK = int($freeMem/1024);
$result = sprintf("%6d", $freeMemK);
print "$result K\n";
}


__END__