equal
deleted
inserted
replaced
36 hereby transferred. |
36 hereby transferred. |
37 " |
37 " |
38 ! |
38 ! |
39 |
39 |
40 version |
40 version |
41 ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.27 1995-11-14 09:22:25 stefan Exp $' |
41 ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.28 1995-12-15 12:13:22 cg Exp $' |
42 ! |
42 ! |
43 |
43 |
44 documentation |
44 documentation |
45 " |
45 " |
46 Shows memory usage (oldspace + newspace). Simple, but useful. |
46 Shows memory usage (oldspace + newspace). Simple, but useful. |
359 self displayOpaqueString:s x:0 y:y. |
359 self displayOpaqueString:s x:0 y:y. |
360 prevOld := (oldMemUsed - freeMem). |
360 prevOld := (oldMemUsed - freeMem). |
361 ]. |
361 ]. |
362 |
362 |
363 " |
363 " |
364 the following is internal - normally only interresting when debugging the VM |
364 the following is internal - normally only interesting when debugging the VM |
365 " |
365 " |
366 y := y + fontHeight. |
366 y := y + fontHeight. |
367 self paint:oldColor. |
367 self paint:oldColor. |
368 s := 't:' , (ObjectMemory tenureAge printStringLeftPaddedTo:2) , ' '. |
368 s := 't:' , (ObjectMemory tenureAge printStringLeftPaddedTo:2) , ' '. |
369 s := s , ' I:' , (ObjectMemory incrementalGCPhase printStringLeftPaddedTo:2) , ' '. |
369 s := s , ' I:' , (ObjectMemory incrementalGCPhase printStringLeftPaddedTo:2) , ' '. |