Kevin Reid writes 31 Mar 1999 16:52:08 -0500 >Why does this eat memory? > >#!perl -w > >use Mac::QuickDraw; > >$col = new RGBColor (0,0,0); >for (;;) { > $col->red($col->red + 1); >} I agree it does eat memory and I have no idea why it should do, though it must be said an endless loop like that is a pretty severe test :) Repeating 4 times 1000 operations of $col->red($col->red+1) in succession resulted in the following figures for pointer space and handle space used up: pointers | handles ----------------|--------------- 1900144 | 116672 after RGBColor->new() 1965712 | 116992 after 1000 operations 1998496 | 116992 after 2000 operations 2064064 | 117008 after 3000 operations 2096848 | 117008 after 4000 operations For every 1000 runs either 2**15 + 16 K or 2**16 + 32 K of pointer space was consumed. I don't know if this sheds any light on what is going on. I have some evidence also that PtInRect() and PtInRgn() also consume pointer space. The problem shows up with any window which is continously busy handling clicks (a text editor for instance) throughout the life of the script. Alan Fry ==== Want to unsubscribe from this list? ==== Send mail with body "unsubscribe" to macperl-toolbox-request@macperl.org