157 !DebugView class methodsFor:'cleanup'! |
157 !DebugView class methodsFor:'cleanup'! |
158 |
158 |
159 lowSpaceCleanup |
159 lowSpaceCleanup |
160 "in low memory situations, give up cached debuggers" |
160 "in low memory situations, give up cached debuggers" |
161 |
161 |
|
162 |tmp| |
|
163 |
162 CachedDebugger notNil ifTrue:[ |
164 CachedDebugger notNil ifTrue:[ |
163 CachedDebugger destroy. |
165 tmp := CachedDebugger. |
164 CachedDebugger := nil. |
166 CachedDebugger := nil. |
|
167 tmp destroy. |
165 ]. |
168 ]. |
166 CachedExclusive := nil. |
169 CachedExclusive := nil. |
167 OpenDebuggers := nil. |
170 OpenDebuggers := nil. |
168 RememberedCallChain := nil. |
171 RememberedCallChain := nil. |
169 |
172 |
170 " |
173 " |
171 DebugView lowSpaceCleanup |
174 DebugView lowSpaceCleanup |
172 " |
175 " |
173 |
176 |
174 "Modified: / 08-03-2012 / 01:30:21 / cg" |
177 "Modified: / 08-03-2012 / 01:30:21 / cg" |
|
178 "Modified: / 16-10-2017 / 13:52:55 / stefan" |
175 ! |
179 ! |
176 |
180 |
177 newDebugger |
181 newDebugger |
178 "force creation of a new debugger (give up cached debuggers). |
182 "force creation of a new debugger (give up cached debuggers). |
179 Call this, if you changed the debugger heavily, and you want to avoid |
183 Call this, if you changed the debugger heavily, and you want to avoid |
180 that an old, cached debugger gets reused when the next error comes around." |
184 that an old, cached debugger gets reused when the next error comes around." |
181 |
185 |
|
186 |tmp| |
|
187 |
182 CachedDebugger notNil ifTrue:[ |
188 CachedDebugger notNil ifTrue:[ |
183 CachedDebugger destroy. |
189 tmp := CachedDebugger. |
184 CachedDebugger := nil. |
190 CachedDebugger := nil. |
|
191 Error catch:[ |
|
192 tmp destroy. |
|
193 ]. |
185 ]. |
194 ]. |
186 CachedExclusive := nil. |
195 CachedExclusive := nil. |
187 OpenDebuggers := nil. |
196 OpenDebuggers := nil. |
188 |
197 |
189 "/ only assign to the global debugger, if it has not been redefined |
198 "/ only assign to the global debugger, if it has not been redefined |