author | Claus Gittinger <cg@exept.de> |
Wed, 05 Aug 1998 15:35:34 +0200 | |
changeset 1810 | 7128a8eb7554 |
parent 1809 | 429042db0bb1 |
child 1875 | 575272661fc4 |
permissions | -rw-r--r-- |
45 | 1 |
" |
49 | 2 |
COPYRIGHT (c) 1991 by Claus Gittinger |
45 | 3 |
All Rights Reserved |
4 |
||
5 |
This software is furnished under a license and may be used |
|
6 |
only in accordance with the terms of that license and with the |
|
7 |
inclusion of the above copyright notice. This software may not |
|
8 |
be provided or otherwise made available to, or used by, any |
|
9 |
other person. No title to or ownership of the software is |
|
10 |
hereby transferred. |
|
11 |
" |
|
19 | 12 |
|
13 |
StandardSystemView subclass:#MemoryMonitor |
|
311 | 14 |
instanceVariableNames:'updateInterval updateBlock myProcess oldData newData freeData |
93 | 15 |
updateIndex org maxTotal minTotal dX newColor freeColor oldColor |
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
16 |
prevTotal prevFree prevFree2 prevOld scale drawLock prevMemUsed |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
17 |
prevCodeUsed prevNumWeak prevNumRem prevNumLifoRem prevTenureAge |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
18 |
prevIGCPhase prevLastScavengeReclamation |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
19 |
prevMinScavengeReclamation prevScavengeCount' |
311 | 20 |
classVariableNames:'' |
21 |
poolDictionaries:'' |
|
1053 | 22 |
category:'Monitors-ST/X' |
19 | 23 |
! |
24 |
||
798 | 25 |
!MemoryMonitor class methodsFor:'documentation'! |
49 | 26 |
|
27 |
copyright |
|
28 |
" |
|
29 |
COPYRIGHT (c) 1991 by Claus Gittinger |
|
30 |
All Rights Reserved |
|
31 |
||
32 |
This software is furnished under a license and may be used |
|
33 |
only in accordance with the terms of that license and with the |
|
34 |
inclusion of the above copyright notice. This software may not |
|
35 |
be provided or otherwise made available to, or used by, any |
|
36 |
other person. No title to or ownership of the software is |
|
37 |
hereby transferred. |
|
38 |
" |
|
39 |
! |
|
40 |
||
41 |
documentation |
|
42 |
" |
|
43 |
Shows memory usage (oldspace + newspace). Simple, but useful. |
|
44 |
||
45 |
The numbers shown are: |
|
512 | 46 |
tot total memory usage (i.e. allocated oldSpace + allocated newSpace) |
47 |
(does not include the second semispace and other help-areas, |
|
48 |
such as the remembered set etc.) |
|
49 | 49 |
|
512 | 50 |
all current oldSpace in use + newSpace in use |
49 | 51 |
|
512 | 52 |
new current newSpace in use |
49 | 53 |
|
512 | 54 |
frl free space in (fragmented) free lists |
55 |
fre compact free area above the used oldSpace |
|
49 | 56 |
|
512 | 57 |
old current oldSpace in use |
49 | 58 |
|
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
59 |
cod dynamic compiled code space size (just in time compiler) |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
60 |
|
512 | 61 |
max, extreme values of 'tot' since the monitor started |
62 |
min (can be reset by typing 'r' in the view) |
|
49 | 63 |
|
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
64 |
t tenure threshold (1 .. 30) |
49 | 65 |
|
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
66 |
I incremental GC state (2 = idle) |
49 | 67 |
|
512 | 68 |
weak number of weak objects |
109 | 69 |
|
512 | 70 |
rem size of rememberedSet |
108 | 71 |
|
512 | 72 |
minsc: percent of newspace remaining after scavenge (worst case) |
73 |
(i.e. the minimum %% of scavenged objects) |
|
108 | 74 |
|
512 | 75 |
count number of scavenges since system started |
108 | 76 |
|
512 | 77 |
% percentage of live objects in newSpace after last scavenge |
78 |
(i.e. this is the garbage vs. living objects ratio of |
|
79 |
newSpace objects after the last scavenge) |
|
52 | 80 |
|
49 | 81 |
the graphic shows: |
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
82 |
orange newSpace used |
512 | 83 |
green free memory in freeLists |
84 |
white oldSpace used |
|
52 | 85 |
|
86 |
||
87 |
the popupMenu offers GC functions; keyboard options are: |
|
512 | 88 |
'f' -> faster; 's' -> slower; 'r' -> reset min/max |
89 |
||
90 |
[author:] |
|
91 |
Claus Gittinger |
|
92 |
||
93 |
[see also:] |
|
94 |
ObjectMemory |
|
95 |
MemoryUsageMonitor ProcessMonitor |
|
49 | 96 |
" |
97 |
! ! |
|
98 |
||
798 | 99 |
!MemoryMonitor class methodsFor:'defaults'! |
49 | 100 |
|
101 |
defaultExtent |
|
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
102 |
^ (200 @ 320) |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
103 |
|
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
104 |
"Modified: 24.8.1996 / 12:04:21 / cg" |
52 | 105 |
! |
19 | 106 |
|
52 | 107 |
defaultIcon |
108 |
|i| |
|
19 | 109 |
|
93 | 110 |
i := Image fromFile:'MemMonitor.xbm'. |
52 | 111 |
i notNil ifTrue:[^ i]. |
112 |
^ super defaultIcon |
|
311 | 113 |
! |
114 |
||
115 |
defaultLabel |
|
116 |
^ 'Memory Monitor' |
|
117 |
! ! |
|
118 |
||
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
119 |
!MemoryMonitor class methodsFor:'startup'! |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
120 |
|
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
121 |
isVisualStartable |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
122 |
"returns whether this application class can be started via #open |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
123 |
(i.e. via a double click on the class in the browser)" |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
124 |
|
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
125 |
^ true |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
126 |
|
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
127 |
"Created: / 15.7.1998 / 12:59:58 / cg" |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
128 |
! ! |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
129 |
|
311 | 130 |
!MemoryMonitor methodsFor:'destroying'! |
131 |
||
132 |
destroy |
|
133 |
updateBlock notNil ifTrue:[ |
|
134 |
Processor removeTimedBlock:updateBlock. |
|
135 |
] ifFalse:[ |
|
136 |
myProcess terminate. |
|
137 |
myProcess := nil |
|
138 |
]. |
|
139 |
oldData := newData := freeData := nil. |
|
140 |
super destroy |
|
19 | 141 |
! ! |
142 |
||
143 |
!MemoryMonitor methodsFor:'drawing'! |
|
144 |
||
798 | 145 |
displayKilo:aNumber name:nm y:y |
146 |
|s| |
|
147 |
||
148 |
s := nm , ((aNumber // 1024) printStringLeftPaddedTo:5) , 'k '. |
|
149 |
self displayOpaqueString:s x:0 y:y. |
|
150 |
||
151 |
! |
|
152 |
||
311 | 153 |
redraw |
154 |
"redraw all" |
|
49 | 155 |
|
311 | 156 |
self clear. |
157 |
self redrawX:0 y:0 width:width height:height |
|
49 | 158 |
! |
159 |
||
160 |
redrawX:x y:y width:w height:h |
|
161 |
"redraw data" |
|
162 |
||
107 | 163 |
|total oldSpaceUsed newSpaceUsed freeMem lx startIdx endIdx |
52 | 164 |
right| |
49 | 165 |
|
166 |
shown ifFalse:[^ self]. |
|
167 |
||
52 | 168 |
right := x + w - 1. |
169 |
right >= org ifTrue:[ |
|
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
170 |
lx := x. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
171 |
lx < org ifTrue:[ |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
172 |
lx := org |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
173 |
]. |
49 | 174 |
|
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
175 |
total := ObjectMemory symSpaceSize |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
176 |
+ ObjectMemory oldSpaceSize |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
177 |
+ ObjectMemory newSpaceSize. |
49 | 178 |
|
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
179 |
startIdx := (lx-org+1). |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
180 |
startIdx < 1 ifTrue:[ |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
181 |
startIdx := 1 |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
182 |
]. |
49 | 183 |
|
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
184 |
endIdx := right-org+1. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
185 |
endIdx >= updateIndex ifTrue:[ |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
186 |
endIdx := updateIndex-1. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
187 |
]. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
188 |
dX := 0. |
49 | 189 |
|
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
190 |
startIdx to:endIdx do:[:i | |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
191 |
newSpaceUsed := newData at:i. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
192 |
newSpaceUsed notNil ifTrue:[ |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
193 |
oldSpaceUsed := oldData at:i. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
194 |
freeMem := freeData at:i. |
49 | 195 |
|
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
196 |
self updateLineX:lx - dX |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
197 |
total:total |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
198 |
old:oldSpaceUsed |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
199 |
new:newSpaceUsed |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
200 |
free:freeMem. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
201 |
]. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
202 |
lx := lx + 1 |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
203 |
] |
49 | 204 |
]. |
205 |
||
206 |
x < org ifTrue:[ |
|
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
207 |
"/ force redraw. |
49 | 208 |
|
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
209 |
prevFree := prevFree2 := prevOld := prevTotal := nil. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
210 |
prevMemUsed := prevCodeUsed := prevNumWeak := prevNumRem := nil. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
211 |
prevNumLifoRem := prevTenureAge := prevIGCPhase := nil. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
212 |
prevLastScavengeReclamation := prevMinScavengeReclamation := nil. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
213 |
prevScavengeCount := nil. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
214 |
|
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
215 |
self updateNumbers. |
49 | 216 |
] |
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
217 |
|
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
218 |
"Modified: / 14.7.1998 / 23:33:47 / cg" |
49 | 219 |
! |
220 |
||
311 | 221 |
updateDisplay |
222 |
"update picture; trigger next update" |
|
223 |
||
224 |
|total oldSpaceUsed newSpaceUsed freeMem oldSpaceSize |
|
1012
e3793f355ffc
new easier bitBlt (default is synchronous)
Claus Gittinger <cg@exept.de>
parents:
994
diff
changeset
|
225 |
gWidth shift scaleChange margin| |
311 | 226 |
|
227 |
shown ifTrue:[ |
|
989 | 228 |
drawLock wouldBlock ifFalse:[ |
229 |
drawLock critical:[ |
|
230 |
oldSpaceUsed := ObjectMemory oldSpaceUsed + ObjectMemory symSpaceUsed. |
|
231 |
newSpaceUsed := ObjectMemory newSpaceUsed. |
|
232 |
freeMem := ObjectMemory freeListSpace + (ObjectMemory oldSpaceSize - ObjectMemory oldSpaceUsed). |
|
233 |
oldSpaceSize := ObjectMemory oldSpaceSize + ObjectMemory symSpaceSize. |
|
234 |
total := oldSpaceSize + ObjectMemory newSpaceSize. |
|
311 | 235 |
|
989 | 236 |
scaleChange := false. |
311 | 237 |
|
989 | 238 |
((total - freeMem) < minTotal) ifTrue:[ |
239 |
minTotal := total - freeMem. |
|
240 |
scaleChange := true |
|
241 |
]. |
|
242 |
(total > maxTotal) ifTrue:[ |
|
243 |
maxTotal := total. |
|
244 |
scaleChange := true |
|
245 |
]. |
|
311 | 246 |
|
989 | 247 |
oldData at:updateIndex put:oldSpaceSize. "/ oldSpaceUsed. |
248 |
newData at:updateIndex put:newSpaceUsed. |
|
249 |
freeData at:updateIndex put:freeMem. |
|
250 |
updateIndex := updateIndex + 1. |
|
311 | 251 |
|
989 | 252 |
scaleChange ifTrue:[ |
253 |
scale := height asFloat / (maxTotal + 100000). |
|
254 |
self redraw |
|
255 |
]. |
|
311 | 256 |
|
989 | 257 |
gWidth := width - org. |
258 |
margin := 1. |
|
259 |
||
260 |
((updateIndex-1) >= (gWidth - margin)) ifTrue:[ |
|
261 |
"on slow displays, use:" |
|
262 |
"/ shift := gWidth // 4. |
|
311 | 263 |
|
989 | 264 |
"for smooth display, use:" |
265 |
shift := 1. |
|
311 | 266 |
|
989 | 267 |
oldData replaceFrom:1 with:oldData startingAt:shift+1. |
268 |
newData replaceFrom:1 with:newData startingAt:shift+1. |
|
269 |
freeData replaceFrom:1 with:freeData startingAt:shift+1. |
|
311 | 270 |
|
989 | 271 |
updateIndex := updateIndex - shift. |
272 |
dX := dX + shift. |
|
311 | 273 |
|
1808
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
274 |
"/ before copying, handle any outstanding exposes ... |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
275 |
self repairDamage. |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
276 |
"/ self catchExpose. |
989 | 277 |
self copyFrom:self |
278 |
x:(org + shift) y:0 |
|
279 |
toX:org y:0 |
|
280 |
width:(gWidth - shift - margin) |
|
1808
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
281 |
height:height |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
282 |
async:false. |
1012
e3793f355ffc
new easier bitBlt (default is synchronous)
Claus Gittinger <cg@exept.de>
parents:
994
diff
changeset
|
283 |
|
989 | 284 |
self clearRectangleX:(width - margin - shift) y:0 |
285 |
width:shift height:height. |
|
1808
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
286 |
|
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
287 |
"/ self waitForExpose. |
989 | 288 |
]. |
311 | 289 |
|
989 | 290 |
self updateLineX:(updateIndex - 1 + org - 1) |
291 |
total:total |
|
292 |
old:oldSpaceSize "/ oldSpaceUsed |
|
293 |
new:newSpaceUsed |
|
294 |
free:freeMem. |
|
311 | 295 |
|
989 | 296 |
self updateNumbers. |
297 |
self flush. |
|
298 |
]. |
|
299 |
]. |
|
311 | 300 |
]. |
301 |
||
302 |
updateBlock notNil ifTrue:[ |
|
303 |
Processor addTimedBlock:updateBlock afterSeconds:updateInterval |
|
304 |
]. |
|
305 |
||
1808
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
306 |
"Modified: / 5.8.1998 / 13:13:18 / cg" |
311 | 307 |
! |
308 |
||
109 | 309 |
updateLineX:x total:total old:oldSpaceSize new:newSpaceUsed free:freeMem |
310 |
|hNew hOld hFree y1 y2 y3| |
|
49 | 311 |
|
312 |
hNew := (newSpaceUsed * scale) asInteger. |
|
109 | 313 |
hOld := (oldSpaceSize * scale) // 2. |
314 |
hFree := (freeMem * scale) // 2. |
|
49 | 315 |
|
316 |
y1 := height - 1. |
|
109 | 317 |
|
49 | 318 |
y2 := y1 - hOld. |
319 |
self paint:oldColor. |
|
320 |
self displayLineFromX:x y:y1 toX:x y:y2. |
|
321 |
||
109 | 322 |
y3 := y1 - hFree. |
49 | 323 |
self paint:freeColor. |
109 | 324 |
self displayLineFromX:x y:y1 toX:x y:y3. |
49 | 325 |
|
109 | 326 |
y1 := y2 - hNew. |
49 | 327 |
self paint:newColor. |
328 |
self displayLineFromX:x y:y1 toX:x y:y2. |
|
329 |
! |
|
330 |
||
331 |
updateNumbers |
|
332 |
"redraw numbers. |
|
333 |
The values shown are: |
|
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
334 |
max: maximum memory used since monitor started |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
335 |
min: minimum memory used since monitor started |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
336 |
tot: total memory used (overall oldSpace + overall newSpace) |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
337 |
all: current memory in use (oldSpace + newSpace) |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
338 |
new: current newSpace in use |
735 | 339 |
fre: current size of freelist in oldSpace |
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
340 |
old: current oldSpace in use |
735 | 341 |
code: current just-in-time compiled code cache size |
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
342 |
t: current tenure age |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
343 |
I: IGC state |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
344 |
weak: number of weak arrays in the system |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
345 |
rem remembered set size |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
346 |
lrem lifo remembered set size |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
347 |
minsc: percent of newspace remaining after scavenge (worst case) |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
348 |
irq: max. interrupt delay |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
349 |
count of scavenges / last scavenge survivor rate |
156 | 350 |
|
49 | 351 |
" |
352 |
||
353 |
|oldSpaceSize newSpaceSize memUsed oldMemUsed newMemUsed freeMem free2 |
|
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
354 |
codeUsed numWeak numRem numLifoRem tenureAge igcPhase |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
355 |
minScavengeReclamation lastScavengeReclamation scavengeCount |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
356 |
y half s fontHeight fontDescent total n| |
49 | 357 |
|
91 | 358 |
oldMemUsed := ObjectMemory oldSpaceUsed + ObjectMemory symSpaceUsed. |
49 | 359 |
newMemUsed := ObjectMemory newSpaceUsed. |
360 |
freeMem := ObjectMemory freeListSpace. |
|
91 | 361 |
oldSpaceSize := ObjectMemory oldSpaceSize + ObjectMemory symSpaceSize. |
49 | 362 |
newSpaceSize := ObjectMemory newSpaceSize. |
363 |
||
364 |
memUsed := oldMemUsed + newMemUsed "- freeMem". |
|
365 |
total := oldSpaceSize + newSpaceSize. |
|
68 | 366 |
free2 := ObjectMemory freeSpace. |
49 | 367 |
|
368 |
self paint:White on:Black. |
|
369 |
||
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
370 |
fontDescent := font descent. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
371 |
fontHeight := font height + fontDescent. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
372 |
half := height // 2 + fontDescent. |
49 | 373 |
|
109 | 374 |
y := half - (fontHeight * 5). |
49 | 375 |
|
376 |
total ~~ prevTotal ifTrue:[ |
|
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
377 |
((total - freeMem) < minTotal) ifTrue:[ |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
378 |
minTotal := total - freeMem. |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
379 |
]. |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
380 |
(total > maxTotal) ifTrue:[ |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
381 |
maxTotal := total. |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
382 |
]. |
52 | 383 |
|
798 | 384 |
self displayKilo:maxTotal name:'max ' y:font ascent. |
385 |
self displayKilo:minTotal name:'min ' y:(height - font descent). |
|
386 |
self displayKilo:total name:'tot ' y:y. |
|
52 | 387 |
|
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
388 |
prevTotal := total. |
49 | 389 |
]. |
390 |
||
391 |
y := y + fontHeight. |
|
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
392 |
memUsed ~~ prevMemUsed ifTrue:[ |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
393 |
self displayKilo:memUsed name:'all ' y:y. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
394 |
prevMemUsed := memUsed. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
395 |
]. |
49 | 396 |
|
397 |
y := y + fontHeight. |
|
398 |
self paint:newColor. |
|
798 | 399 |
self displayKilo:newMemUsed name:'new ' y:y. |
49 | 400 |
|
401 |
y := y + fontHeight. |
|
402 |
freeMem ~~ prevFree ifTrue:[ |
|
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
403 |
self paint:freeColor. |
798 | 404 |
self displayKilo:freeMem name:'frl ' y:y. |
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
405 |
prevFree := freeMem. |
49 | 406 |
]. |
407 |
||
408 |
y := y + fontHeight. |
|
409 |
free2 ~~ prevFree2 ifTrue:[ |
|
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
410 |
self paint:freeColor. |
798 | 411 |
self displayKilo:free2 name:'fre ' y:y. |
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
412 |
prevFree2 := free2. |
49 | 413 |
]. |
414 |
||
415 |
y := y + fontHeight. |
|
416 |
(oldMemUsed - freeMem) ~~ prevOld ifTrue:[ |
|
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
417 |
self paint:oldColor. |
798 | 418 |
self displayKilo:(oldMemUsed - freeMem) name:'old ' y:y. |
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
419 |
prevOld := (oldMemUsed - freeMem). |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
420 |
]. |
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
421 |
|
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
422 |
y := y + fontHeight. |
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
423 |
ObjectMemory supportsJustInTimeCompilation ifTrue:[ |
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
424 |
codeUsed := ObjectMemory compiledCodeSpaceUsed. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
425 |
prevCodeUsed ~~ codeUsed ifTrue:[ |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
426 |
self paint:oldColor. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
427 |
codeUsed > 9999 ifTrue:[ |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
428 |
s := 'code ' , ((codeUsed // 1024) printStringLeftPaddedTo:4) , 'k'. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
429 |
] ifFalse:[ |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
430 |
s := 'code ' , (codeUsed printStringLeftPaddedTo:4) , ' '. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
431 |
]. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
432 |
self displayOpaqueString:s x:0 y:y. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
433 |
prevCodeUsed := codeUsed. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
434 |
] |
49 | 435 |
]. |
436 |
||
437 |
" |
|
303
1d94813f1977
interest is written with one 'r' (shame on me)
Claus Gittinger <cg@exept.de>
parents:
168
diff
changeset
|
438 |
the following is internal - normally only interesting when debugging the VM |
49 | 439 |
" |
440 |
y := y + fontHeight. |
|
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
441 |
tenureAge := ObjectMemory tenureAge. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
442 |
igcPhase := ObjectMemory incrementalGCPhase. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
443 |
(prevTenureAge ~~ tenureAge |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
444 |
or:[prevIGCPhase ~~ igcPhase]) ifTrue:[ |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
445 |
self paint:oldColor. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
446 |
s := 't:' , (tenureAge printStringLeftPaddedTo:2) , ' '. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
447 |
s := s , ' I:' , (igcPhase printStringLeftPaddedTo:2) , ' '. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
448 |
self displayOpaqueString:s x:0 y:y. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
449 |
prevTenureAge := tenureAge. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
450 |
prevIGCPhase := igcPhase. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
451 |
]. |
108 | 452 |
|
453 |
y := y + fontHeight. |
|
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
454 |
numWeak := ObjectMemory numberOfWeakObjects. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
455 |
prevNumWeak ~~ numWeak ifTrue:[ |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
456 |
self paint:oldColor. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
457 |
s := 'weak: ' , (numWeak printStringLeftPaddedTo:4). |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
458 |
self displayOpaqueString:s x:0 y:y. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
459 |
prevNumWeak := numWeak. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
460 |
]. |
109 | 461 |
|
462 |
y := y + fontHeight. |
|
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
463 |
numRem := ObjectMemory rememberedSetSize. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
464 |
prevNumRem ~~ numRem ifTrue:[ |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
465 |
self paint:oldColor. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
466 |
s := 'rem: ' , (numRem printStringLeftPaddedTo:5). |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
467 |
self displayOpaqueString:s x:0 y:y. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
468 |
prevNumRem := numRem. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
469 |
]. |
49 | 470 |
|
109 | 471 |
y := y + fontHeight. |
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
472 |
numLifoRem := ObjectMemory lifoRememberedSetSize. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
473 |
prevNumLifoRem ~~ numLifoRem ifTrue:[ |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
474 |
self paint:oldColor. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
475 |
s := 'lrem: ' , (numLifoRem printStringLeftPaddedTo:4 ifLarger:['****']). |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
476 |
self displayOpaqueString:s x:0 y:y. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
477 |
prevNumLifoRem := numLifoRem. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
478 |
]. |
109 | 479 |
|
49 | 480 |
"/ does no longer make sense to show .... |
481 |
"/ y := y + fontHeight. |
|
482 |
"/ ObjectMemory runsSingleOldSpace ifTrue:[ |
|
483 |
"/ self displayOpaqueString:'single' x:0 y:(half + (fontHeight*4)). |
|
484 |
"/ ]. |
|
485 |
||
52 | 486 |
y := y + fontHeight. |
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
487 |
minScavengeReclamation := ObjectMemory minScavengeReclamation * 100 // ObjectMemory newSpaceSize. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
488 |
prevMinScavengeReclamation ~~ minScavengeReclamation ifTrue:[ |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
489 |
minScavengeReclamation := 100 - minScavengeReclamation asInteger. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
490 |
s := 'minSc ', (minScavengeReclamation printStringLeftPaddedTo:3) , '%'. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
491 |
self paint:oldColor. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
492 |
self displayOpaqueString:s x:0 y:y. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
493 |
prevMinScavengeReclamation := minScavengeReclamation. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
494 |
]. |
108 | 495 |
|
496 |
y := y + fontHeight. |
|
157 | 497 |
n := ObjectMemory maxInterruptLatency. |
156 | 498 |
n notNil ifTrue:[ |
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
499 |
s := 'irq ', (n printStringLeftPaddedTo:3) , ' ms'. |
156 | 500 |
] ifFalse:[ |
696
b55f8705bb41
show memory use of dynamic code cache
Claus Gittinger <cg@exept.de>
parents:
517
diff
changeset
|
501 |
s := '' |
156 | 502 |
]. |
503 |
self displayOpaqueString:s x:0 y:y. |
|
504 |
||
505 |
y := y + fontHeight. |
|
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
506 |
scavengeCount := ObjectMemory scavengeCount. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
507 |
lastScavengeReclamation := ObjectMemory lastScavengeReclamation * 100 // ObjectMemory newSpaceSize. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
508 |
(prevScavengeCount ~~ scavengeCount |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
509 |
or:[prevLastScavengeReclamation ~~ lastScavengeReclamation]) ifTrue:[ |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
510 |
lastScavengeReclamation := 100 - lastScavengeReclamation asInteger. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
511 |
s := (scavengeCount printStringLeftPaddedTo:6) |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
512 |
, (lastScavengeReclamation printStringLeftPaddedTo:3) , '%'. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
513 |
self displayOpaqueString:s x:0 y:y. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
514 |
prevLastScavengeReclamation := lastScavengeReclamation. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
515 |
prevScavengeCount := scavengeCount. |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
516 |
]. |
156 | 517 |
|
1721
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
518 |
"Created: / 7.11.1995 / 14:48:16 / cg" |
4d19c61fa688
avoid generating garbage when updating the display
Claus Gittinger <cg@exept.de>
parents:
1619
diff
changeset
|
519 |
"Modified: / 14.7.1998 / 23:35:53 / cg" |
19 | 520 |
! ! |
521 |
||
522 |
!MemoryMonitor methodsFor:'events'! |
|
523 |
||
311 | 524 |
keyPress:key x:x y:y |
525 |
key == $f ifTrue:[ |
|
526 |
"faster" |
|
527 |
updateInterval := updateInterval / 2 |
|
528 |
]. |
|
529 |
key == $s ifTrue:[ |
|
530 |
"slower" |
|
531 |
updateInterval := updateInterval * 2 |
|
532 |
]. |
|
533 |
key == $r ifTrue:[ |
|
534 |
"reset max" |
|
535 |
maxTotal := prevTotal. |
|
536 |
scale := height asFloat / (maxTotal + 100000). |
|
537 |
self resetStatisticValues. |
|
538 |
self redraw. |
|
539 |
] |
|
540 |
||
541 |
"Modified: 7.11.1995 / 17:45:13 / cg" |
|
542 |
! |
|
543 |
||
49 | 544 |
sizeChanged:how |
545 |
|nn no nf delta oldSize newSize| |
|
546 |
||
547 |
super sizeChanged:how. |
|
19 | 548 |
|
45 | 549 |
oldSize := oldData size. |
49 | 550 |
newSize := width-org+1. |
551 |
||
168
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
552 |
(newSize ~~ oldSize) ifTrue:[ |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
553 |
nn := Array new:newSize. |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
554 |
no := Array new:newSize. |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
555 |
nf := Array new:newSize. |
45 | 556 |
|
168
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
557 |
(newSize > oldSize) ifTrue:[ |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
558 |
nn replaceFrom:1 to:oldSize with:newData. |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
559 |
no replaceFrom:1 to:oldSize with:oldData. |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
560 |
nf replaceFrom:1 to:oldSize with:freeData |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
561 |
] ifFalse:[ |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
562 |
delta := (oldSize - newSize). |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
563 |
nn replaceFrom:1 with:newData startingAt:delta+1. |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
564 |
no replaceFrom:1 with:oldData startingAt:delta+1. |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
565 |
nf replaceFrom:1 with:freeData startingAt:delta+1. |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
566 |
updateIndex > newSize ifTrue:[ |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
567 |
updateIndex := updateIndex - delta. |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
568 |
] |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
569 |
]. |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
570 |
newData := nn. |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
571 |
oldData := no. |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
572 |
freeData := nf. |
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
573 |
|
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
574 |
scale := height asFloat / (maxTotal + 100000). |
19 | 575 |
]. |
52 | 576 |
self clear. |
168
0ca5ca046b22
Redraw text on vertical window size changes.
Stefan Vogel <sv@exept.de>
parents:
165
diff
changeset
|
577 |
self redraw. |
19 | 578 |
! ! |
45 | 579 |
|
580 |
!MemoryMonitor methodsFor:'initialization'! |
|
581 |
||
311 | 582 |
initialize |
583 |
super initialize. |
|
584 |
||
994 | 585 |
drawLock := Semaphore forMutualExclusion name:'drawLock'. |
989 | 586 |
|
311 | 587 |
updateInterval := 0.5. |
588 |
ProcessorScheduler isPureEventDriven ifTrue:[ |
|
989 | 589 |
updateBlock := [self updateDisplay]. |
311 | 590 |
]. |
591 |
oldData := Array new:1000. |
|
592 |
newData := Array new:1000. |
|
593 |
freeData := Array new:1000. |
|
594 |
||
595 |
updateIndex := 1. |
|
1756
3cf323b3b704
must change the font first, then ask for its width.
Claus Gittinger <cg@exept.de>
parents:
1721
diff
changeset
|
596 |
|
3cf323b3b704
must change the font first, then ask for its width.
Claus Gittinger <cg@exept.de>
parents:
1721
diff
changeset
|
597 |
self font:((Font family:'courier' face:'medium' style:'roman' size:10) onDevice:device). |
3cf323b3b704
must change the font first, then ask for its width.
Claus Gittinger <cg@exept.de>
parents:
1721
diff
changeset
|
598 |
org := font widthOf:'max 99999k '. |
311 | 599 |
level := 0. |
600 |
||
601 |
maxTotal := minTotal := ObjectMemory oldSpaceSize |
|
989 | 602 |
+ ObjectMemory symSpaceSize |
603 |
+ ObjectMemory newSpaceSize. |
|
311 | 604 |
|
605 |
viewBackground := Black. |
|
606 |
||
607 |
device hasColors ifTrue:[ |
|
989 | 608 |
newColor := Color orange. "/ yellow. |
609 |
freeColor := Color green. |
|
610 |
oldColor := Color white. |
|
311 | 611 |
] ifFalse:[ |
989 | 612 |
newColor := Color grey:67. |
613 |
freeColor := Color grey:33. |
|
614 |
oldColor := Color white. |
|
311 | 615 |
]. |
616 |
||
617 |
self model:self. |
|
618 |
self menu:#memoryMenu |
|
619 |
||
620 |
" |
|
621 |
MemoryMonitor open |
|
622 |
" |
|
989 | 623 |
|
1756
3cf323b3b704
must change the font first, then ask for its width.
Claus Gittinger <cg@exept.de>
parents:
1721
diff
changeset
|
624 |
"Modified: / 27.7.1998 / 19:57:07 / cg" |
311 | 625 |
! |
626 |
||
85 | 627 |
memoryMenu |
1795
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
628 |
<resource: #programMenu> |
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
629 |
|
1808
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
630 |
|m items moreItems specialMenu| |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
631 |
|
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
632 |
items := #( |
1809 | 633 |
('background collect now' backgroundCollect) |
634 |
('hi prio incremental collect' incrementalCollect) |
|
635 |
('-') |
|
636 |
('scavenge' scavenge) |
|
637 |
('tenure' tenure) |
|
1808
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
638 |
('-') |
1809 | 639 |
('cleanup memory' cleanupMemory) |
640 |
('flush method history' cleanupMethodHistory) |
|
641 |
('unload autoloaded classes' unloadAllAutoloadedClasses) |
|
1808
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
642 |
('-') |
1809 | 643 |
('compress sources' compressSources) |
1808
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
644 |
). |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
645 |
|
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
646 |
ObjectMemory backgroundCollectorRunning ifFalse:[ |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
647 |
moreItems := #( |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
648 |
('start background collector' restartBackgroundCollector ) |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
649 |
) |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
650 |
] ifTrue:[ |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
651 |
(ObjectMemory backgroundCollectProcess priorityRange notNil) |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
652 |
ifTrue:[ |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
653 |
moreItems := #( |
1810 | 654 |
('stop background collector' stopBackgroundCollector ) |
1808
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
655 |
('background collect with fix priority' backgroundCollectWithFixPrio ) |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
656 |
) |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
657 |
] ifFalse:[ |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
658 |
moreItems := #( |
1810 | 659 |
('stop background collector' stopBackgroundCollector ) |
1808
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
660 |
('background collect with dynamic priority' backgroundCollectWithDynamicPrio ) |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
661 |
) |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
662 |
]. |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
663 |
]. |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
664 |
items := moreItems , items. |
323 | 665 |
|
666 |
specialMenu := PopUpMenu |
|
1808
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
667 |
itemList:items |
1619
6e4b1930841a
use new itemList message from PopUpMenu
Claus Gittinger <cg@exept.de>
parents:
1261
diff
changeset
|
668 |
resources:resources. |
85 | 669 |
|
105 | 670 |
device ctrlDown ifTrue:[ |
323 | 671 |
^ specialMenu |
105 | 672 |
]. |
85 | 673 |
|
1808
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
674 |
items := #( |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
675 |
('collect garbage' garbageCollect ) |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
676 |
('collect garbage & symbols' garbageCollectAndSymbols ) |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
677 |
('collect garbage & compress' compressingGarbageCollect ) |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
678 |
('-') |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
679 |
('reset statistic values' resetStatisticValues ) |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
680 |
('-') |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
681 |
('others' otherMenu Ctrl) |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
682 |
). |
1206 | 683 |
|
1619
6e4b1930841a
use new itemList message from PopUpMenu
Claus Gittinger <cg@exept.de>
parents:
1261
diff
changeset
|
684 |
m := PopUpMenu itemList:items resources:resources. |
323 | 685 |
m subMenuAt:#otherMenu put:specialMenu. |
1795
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
686 |
|
323 | 687 |
^ m |
972 | 688 |
|
1810 | 689 |
"Modified: / 5.8.1998 / 15:35:14 / cg" |
85 | 690 |
! |
691 |
||
45 | 692 |
realize |
693 |
super realize. |
|
694 |
updateBlock notNil ifTrue:[ |
|
1756
3cf323b3b704
must change the font first, then ask for its width.
Claus Gittinger <cg@exept.de>
parents:
1721
diff
changeset
|
695 |
Processor addTimedBlock:updateBlock afterSeconds:updateInterval. |
45 | 696 |
] ifFalse:[ |
1756
3cf323b3b704
must change the font first, then ask for its width.
Claus Gittinger <cg@exept.de>
parents:
1721
diff
changeset
|
697 |
myProcess := [ |
3cf323b3b704
must change the font first, then ask for its width.
Claus Gittinger <cg@exept.de>
parents:
1721
diff
changeset
|
698 |
|d| |
45 | 699 |
|
1756
3cf323b3b704
must change the font first, then ask for its width.
Claus Gittinger <cg@exept.de>
parents:
1721
diff
changeset
|
700 |
[true] whileTrue:[ |
3cf323b3b704
must change the font first, then ask for its width.
Claus Gittinger <cg@exept.de>
parents:
1721
diff
changeset
|
701 |
(Delay forSeconds:updateInterval) wait. |
3cf323b3b704
must change the font first, then ask for its width.
Claus Gittinger <cg@exept.de>
parents:
1721
diff
changeset
|
702 |
self updateDisplay |
3cf323b3b704
must change the font first, then ask for its width.
Claus Gittinger <cg@exept.de>
parents:
1721
diff
changeset
|
703 |
] |
3cf323b3b704
must change the font first, then ask for its width.
Claus Gittinger <cg@exept.de>
parents:
1721
diff
changeset
|
704 |
] forkAt:6. |
3cf323b3b704
must change the font first, then ask for its width.
Claus Gittinger <cg@exept.de>
parents:
1721
diff
changeset
|
705 |
myProcess name:'monitor [' , |
3cf323b3b704
must change the font first, then ask for its width.
Claus Gittinger <cg@exept.de>
parents:
1721
diff
changeset
|
706 |
Processor activeProcess id printString , |
3cf323b3b704
must change the font first, then ask for its width.
Claus Gittinger <cg@exept.de>
parents:
1721
diff
changeset
|
707 |
'] update' |
45 | 708 |
]. |
709 |
||
710 |
newColor := newColor on:device. |
|
711 |
freeColor := freeColor on:device. |
|
712 |
oldColor := oldColor on:device. |
|
713 |
||
1756
3cf323b3b704
must change the font first, then ask for its width.
Claus Gittinger <cg@exept.de>
parents:
1721
diff
changeset
|
714 |
"Modified: / 27.7.1998 / 19:57:51 / cg" |
45 | 715 |
! ! |
716 |
||
52 | 717 |
!MemoryMonitor methodsFor:'menu functions'! |
718 |
||
311 | 719 |
backgroundCollect |
720 |
"start a background (non disturbing) incremental GC. |
|
721 |
Since the GC is performed at a low priority, it may not make progress if higher |
|
722 |
prio processes are running" |
|
723 |
||
724 |
[ |
|
725 |
ObjectMemory incrementalGC |
|
726 |
] forkAt:5 |
|
727 |
! |
|
728 |
||
1795
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
729 |
backgroundCollectWithDynamicPrio |
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
730 |
"setup the background collector to run at dynamic priority. |
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
731 |
This is a new experimental feature." |
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
732 |
|
1796 | 733 |
Processor isTimeSlicing ifFalse:[ |
734 |
Processor startTimeSlicing. |
|
735 |
Processor supportDynamicPriorities:true |
|
736 |
]. |
|
737 |
||
1795
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
738 |
ObjectMemory backgroundCollectProcess priorityRange:(5 to:9). |
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
739 |
ObjectMemory backgroundFinalizationProcess priorityRange:(5 to:9). |
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
740 |
|
1796 | 741 |
"Modified: / 4.8.1998 / 02:16:02 / cg" |
1795
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
742 |
! |
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
743 |
|
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
744 |
backgroundCollectWithFixPrio |
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
745 |
"setup the background collector to run at a fix priority. |
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
746 |
This is the default." |
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
747 |
|
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
748 |
ObjectMemory backgroundCollectProcess priorityRange:nil. |
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
749 |
ObjectMemory backgroundFinalizationProcess priorityRange:nil. |
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
750 |
|
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
751 |
"Modified: / 4.8.1998 / 02:00:31 / cg" |
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
752 |
! |
8a1731490268
more menu functions for configuring the
Claus Gittinger <cg@exept.de>
parents:
1756
diff
changeset
|
753 |
|
105 | 754 |
cleanupMemory |
755 |
"let all classes release unneeded, cached |
|
756 |
data ..." |
|
757 |
||
469
3653317928e2
dont repeat coding in ObjectMemory ...
Claus Gittinger <cg@exept.de>
parents:
360
diff
changeset
|
758 |
ObjectMemory performLowSpaceCleanup. |
3653317928e2
dont repeat coding in ObjectMemory ...
Claus Gittinger <cg@exept.de>
parents:
360
diff
changeset
|
759 |
|
105 | 760 |
" |
761 |
then, perform a GC (incl. symbol reclamation) |
|
762 |
" |
|
763 |
ObjectMemory reclaimSymbols. |
|
764 |
" |
|
765 |
finally, compress |
|
766 |
" |
|
1205 | 767 |
ObjectMemory tenure. |
105 | 768 |
ObjectMemory verboseGarbageCollect. |
1205 | 769 |
|
770 |
"Modified: 26.6.1997 / 17:12:53 / cg" |
|
105 | 771 |
! |
772 |
||
844 | 773 |
cleanupMethodHistory |
774 |
"release the oldMethod history" |
|
775 |
||
776 |
(self confirm:'This removes the previous method history, |
|
777 |
which is kept for all changed methods in the system. |
|
778 |
After that, the browsers cannot easily switch back to a methods |
|
779 |
previous version. |
|
780 |
||
781 |
However, this is normally not a problem, since |
|
782 |
a methods previous code should still be accessable through |
|
783 |
either the changes-file, the sourceCode repository or the classes original |
|
784 |
source file. |
|
785 |
||
786 |
cleanup now ?') ifTrue:[ |
|
787 |
||
788 |
||
789 |
Class flushMethodHistory. |
|
790 |
||
791 |
" |
|
792 |
then, perform a GC (incl. symbol reclamation) |
|
793 |
" |
|
794 |
ObjectMemory reclaimSymbols. |
|
795 |
" |
|
796 |
finally, compress |
|
797 |
" |
|
798 |
ObjectMemory verboseGarbageCollect. |
|
799 |
] |
|
800 |
||
801 |
||
802 |
||
803 |
! |
|
804 |
||
311 | 805 |
compressSources |
323 | 806 |
(self confirm:'This saves all in-memory source strings into a file |
360 | 807 |
and makes methods reference these (file-) strings, |
808 |
freeing all in-memory sources. |
|
323 | 809 |
|
810 |
If that source file is ever lost or gets out of sync with |
|
811 |
your system, those method sources are lost and the browser |
|
812 |
will show garbage. |
|
813 |
However, you still have a change file as backup. |
|
814 |
||
815 |
(Be especially careful, if you move images around: |
|
360 | 816 |
the source file must then be the correct one for that image) |
323 | 817 |
|
818 |
A compress is only useful, if you added many methods |
|
819 |
and the systems response time suffers from paging. |
|
820 |
||
821 |
Compress anyway ?') ifTrue:[ |
|
350
68c5fed6c9bc
show waitCursor while collecting
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
822 |
windowGroup withWaitCursorDo:[ |
68c5fed6c9bc
show waitCursor while collecting
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
823 |
Smalltalk compressSources. |
68c5fed6c9bc
show waitCursor while collecting
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
824 |
ObjectMemory markAndSweep |
68c5fed6c9bc
show waitCursor while collecting
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
825 |
] |
323 | 826 |
] |
827 |
||
360 | 828 |
"Modified: 9.2.1996 / 18:17:22 / cg" |
311 | 829 |
! |
156 | 830 |
|
311 | 831 |
compressingGarbageCollect |
832 |
"perform a blocking compressing garbage collect." |
|
833 |
||
350
68c5fed6c9bc
show waitCursor while collecting
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
834 |
windowGroup withWaitCursorDo:[ |
1261
f59a1039ae3c
tenure in GC to break rememberedSet refs.
Claus Gittinger <cg@exept.de>
parents:
1206
diff
changeset
|
835 |
ObjectMemory tenure. |
350
68c5fed6c9bc
show waitCursor while collecting
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
836 |
ObjectMemory verboseGarbageCollect |
68c5fed6c9bc
show waitCursor while collecting
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
837 |
] |
1261
f59a1039ae3c
tenure in GC to break rememberedSet refs.
Claus Gittinger <cg@exept.de>
parents:
1206
diff
changeset
|
838 |
|
f59a1039ae3c
tenure in GC to break rememberedSet refs.
Claus Gittinger <cg@exept.de>
parents:
1206
diff
changeset
|
839 |
"Modified: 30.7.1997 / 21:19:47 / cg" |
156 | 840 |
! |
841 |
||
52 | 842 |
garbageCollect |
159 | 843 |
"perform a blocking (non compressing) garbage collect" |
844 |
||
350
68c5fed6c9bc
show waitCursor while collecting
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
845 |
windowGroup withWaitCursorDo:[ |
1261
f59a1039ae3c
tenure in GC to break rememberedSet refs.
Claus Gittinger <cg@exept.de>
parents:
1206
diff
changeset
|
846 |
ObjectMemory tenure. |
350
68c5fed6c9bc
show waitCursor while collecting
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
847 |
ObjectMemory markAndSweep |
68c5fed6c9bc
show waitCursor while collecting
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
848 |
] |
68c5fed6c9bc
show waitCursor while collecting
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
849 |
|
1261
f59a1039ae3c
tenure in GC to break rememberedSet refs.
Claus Gittinger <cg@exept.de>
parents:
1206
diff
changeset
|
850 |
"Modified: 30.7.1997 / 21:19:35 / cg" |
52 | 851 |
! |
852 |
||
105 | 853 |
garbageCollectAndSymbols |
159 | 854 |
"perform a blocking (non compressing) garbage collect |
855 |
and reclaim unreferenced symbols." |
|
856 |
||
350
68c5fed6c9bc
show waitCursor while collecting
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
857 |
windowGroup withWaitCursorDo:[ |
1261
f59a1039ae3c
tenure in GC to break rememberedSet refs.
Claus Gittinger <cg@exept.de>
parents:
1206
diff
changeset
|
858 |
ObjectMemory tenure. |
350
68c5fed6c9bc
show waitCursor while collecting
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
859 |
ObjectMemory reclaimSymbols |
68c5fed6c9bc
show waitCursor while collecting
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
860 |
] |
68c5fed6c9bc
show waitCursor while collecting
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
861 |
|
1261
f59a1039ae3c
tenure in GC to break rememberedSet refs.
Claus Gittinger <cg@exept.de>
parents:
1206
diff
changeset
|
862 |
"Modified: 30.7.1997 / 21:19:41 / cg" |
105 | 863 |
! |
864 |
||
311 | 865 |
incrementalCollect |
866 |
"start an incremental GC which does not disturb too much, but is guaranteed to |
|
867 |
make progress. |
|
323 | 868 |
This is done by doing the IGC at a very high priority, but giving up the CPU after |
869 |
every step. Due to the long delays, this may take a while to finish. |
|
870 |
Notice, that this is different from doing a background collect: that one |
|
871 |
may not make any progress if higher prio processes are runnable." |
|
872 |
||
873 |
|done delay| |
|
874 |
||
311 | 875 |
[ |
323 | 876 |
done := false. |
877 |
delay := Delay new. |
|
878 |
[done] whileFalse:[ |
|
879 |
10 timesRepeat:[ |
|
880 |
done ifFalse:[done := ObjectMemory gcStep]. |
|
881 |
]. |
|
882 |
(delay delay:10) wait |
|
883 |
] |
|
311 | 884 |
] forkAt:Processor highestPriority |
323 | 885 |
|
886 |
"Modified: 23.12.1995 / 17:31:55 / cg" |
|
311 | 887 |
! |
159 | 888 |
|
311 | 889 |
resetStatisticValues |
890 |
ObjectMemory resetMaxInterruptLatency. |
|
891 |
ObjectMemory resetMinScavengeReclamation. |
|
892 |
||
893 |
"Created: 7.11.1995 / 17:44:59 / cg" |
|
52 | 894 |
! |
895 |
||
972 | 896 |
restartBackgroundCollector |
1808
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
897 |
"(re)start a background (non disturbing) incremental GC. |
972 | 898 |
Since the GC is performed at a low priority, it may not make progress if higher |
899 |
prio processes are running" |
|
900 |
||
901 |
ObjectMemory backgroundCollectorRunning |
|
902 |
ifFalse:[ |
|
903 |
ObjectMemory startBackgroundCollectorAt:5. |
|
1808
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
904 |
ObjectMemory startBackgroundFinalizationAt:5 |
972 | 905 |
] |
906 |
||
1808
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
907 |
"Created: / 21.1.1997 / 00:09:30 / cg" |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
908 |
"Modified: / 5.8.1998 / 14:30:17 / cg" |
972 | 909 |
! |
910 |
||
105 | 911 |
scavenge |
159 | 912 |
"perform a blocking newspace garbage collect. |
913 |
(this is for debugging only - the system does this automatically)" |
|
914 |
||
105 | 915 |
ObjectMemory scavenge |
916 |
! |
|
917 |
||
1808
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
918 |
stopBackgroundCollector |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
919 |
"stop the background (non disturbing) incremental GC. |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
920 |
We do not recommend this - but maybe useful for debugging and |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
921 |
evaluating the programs behavior in heavy-load situations |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
922 |
(background collector cannot keep up with the allocation rate)" |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
923 |
|
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
924 |
ObjectMemory stopBackgroundCollector. |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
925 |
ObjectMemory stopBackgroundFinalization |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
926 |
|
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
927 |
"Created: / 5.8.1998 / 14:29:40 / cg" |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
928 |
! |
a1aa484160ee
reorganized menu (place less often used items in special menu);
Claus Gittinger <cg@exept.de>
parents:
1796
diff
changeset
|
929 |
|
105 | 930 |
tenure |
159 | 931 |
"empty the newSpace, by aging all new objects immediately and transfering them |
932 |
into oldSpace. |
|
933 |
(this is for debugging only - the system does this automatically)" |
|
934 |
||
105 | 935 |
ObjectMemory tenure |
1206 | 936 |
! |
937 |
||
938 |
unloadAllAutoloadedClasses |
|
939 |
"unload all classes which were autoloaded and have no instances" |
|
940 |
||
941 |
Autoload loadedClasses copy do:[:anAutoloadedClass | |
|
942 |
anAutoloadedClass hasInstances ifFalse:[ |
|
943 |
anAutoloadedClass unload |
|
944 |
] |
|
945 |
]. |
|
946 |
||
947 |
"Created: 27.6.1997 / 14:21:45 / cg" |
|
948 |
"Modified: 27.6.1997 / 14:22:47 / cg" |
|
311 | 949 |
! ! |
105 | 950 |
|
798 | 951 |
!MemoryMonitor class methodsFor:'documentation'! |
85 | 952 |
|
311 | 953 |
version |
1810 | 954 |
^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.56 1998-08-05 13:35:34 cg Exp $' |
52 | 955 |
! ! |