equal
deleted
inserted
replaced
195 src := self source. |
195 src := self source. |
196 src isNil ifTrue:[^ aBlock value]. |
196 src isNil ifTrue:[^ aBlock value]. |
197 ^ src withoutTrailingSeparators |
197 ^ src withoutTrailingSeparators |
198 |
198 |
199 "Modified: 19.6.1997 / 16:31:53 / cg" |
199 "Modified: 19.6.1997 / 16:31:53 / cg" |
|
200 ! |
|
201 |
|
202 methodClass |
|
203 "return the class I am defined in" |
|
204 |
|
205 ^ self mclass. |
|
206 |
|
207 "Created: 19.6.1997 / 16:32:15 / cg" |
|
208 ! |
|
209 |
|
210 sourceString |
|
211 "return the code objects source code, nil if none is available" |
|
212 |
|
213 ^ self source. |
|
214 |
|
215 "Created: 19.6.1997 / 16:32:15 / cg" |
200 ! |
216 ! |
201 |
217 |
202 withAllBlockMethodsDo:aBlock |
218 withAllBlockMethodsDo:aBlock |
203 aBlock value:self |
219 aBlock value:self |
204 |
220 |
448 |
464 |
449 "Created: 7.6.1996 / 12:45:50 / stefan" |
465 "Created: 7.6.1996 / 12:45:50 / stefan" |
450 ! ! |
466 ! ! |
451 |
467 |
452 !CompiledCode methodsFor:'debugging'! |
468 !CompiledCode methodsFor:'debugging'! |
|
469 |
|
470 breakPointAfter:countInvocations |
|
471 "arrange for a breakpoint-debugger to be opened when this method |
|
472 was invoked countInvocations times." |
|
473 |
|
474 MessageTracer trapMethod:self after:countInvocations. |
|
475 |
|
476 ! |
453 |
477 |
454 breakPointInProcess:aProcess |
478 breakPointInProcess:aProcess |
455 "arrange for a breakpoint-debugger to be opened when this method |
479 "arrange for a breakpoint-debugger to be opened when this method |
456 is invoked from withn aProcess." |
480 is invoked from withn aProcess." |
457 |
481 |
1529 ! ! |
1553 ! ! |
1530 |
1554 |
1531 !CompiledCode class methodsFor:'documentation'! |
1555 !CompiledCode class methodsFor:'documentation'! |
1532 |
1556 |
1533 version |
1557 version |
1534 ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.73 2000-01-17 11:24:44 cg Exp $' |
1558 ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.74 2000-03-21 11:14:40 cg Exp $' |
1535 ! ! |
1559 ! ! |
1536 CompiledCode initialize! |
1560 CompiledCode initialize! |