equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
4 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 Permission is hereby granted, free of charge, to any person |
7 Permission is hereby granted, free of charge, to any person |
273 "/ Nil out breakpoint's position. It's invalid as soon as |
275 "/ Nil out breakpoint's position. It's invalid as soon as |
274 "/ user edits the code. Instead, depend on line information. |
276 "/ user edits the code. Instead, depend on line information. |
275 "/ Breakpoint character positions are fixed up just before |
277 "/ Breakpoint character positions are fixed up just before |
276 "/ passing a breakpoints to the compiler, see |
278 "/ passing a breakpoints to the compiler, see |
277 "/ #fixupBreakpointPositions |
279 "/ #fixupBreakpointPositions |
278 breakpoints do:[:each | each position: nil ]. |
280 breakpoints do:[:each | each method:aMethod. each position: nil ]. |
279 ]. |
281 ]. |
280 currentMethod := aMethod. |
282 currentMethod := aMethod. |
281 |
283 |
282 "Created: / 06-07-2011 / 15:24:09 / cg" |
284 "Created: / 06-07-2011 / 15:24:09 / cg" |
283 "Modified: / 06-07-2011 / 17:32:54 / jv" |
285 "Modified: / 06-07-2011 / 17:32:54 / jv" |
554 ^ self |
556 ^ self |
555 ]. |
557 ]. |
556 ]. |
558 ]. |
557 |
559 |
558 breakpoints := breakpoints species new. |
560 breakpoints := breakpoints species new. |
559 newMethod breakpointsDo:[ :each | breakpoints add: each ]. |
561 newMethod breakpointsDo:[ :each | each method:newMethod. breakpoints add: each ]. |
560 |
562 |
561 "/ must update breakpoints BEFORE the following, because it leads to a change |
563 "/ must update breakpoints BEFORE the following, because it leads to a change |
562 "/ notification, which may clear the breakpoints collection!! |
564 "/ notification, which may clear the breakpoints collection!! |
563 self fetchMethodHolder value:newMethod. |
565 self fetchMethodHolder value:newMethod. |
564 oldMethod mclass isNil ifTrue:[ |
566 oldMethod mclass isNil ifTrue:[ |
694 ! ! |
696 ! ! |
695 |
697 |
696 !BreakpointService class methodsFor:'documentation'! |
698 !BreakpointService class methodsFor:'documentation'! |
697 |
699 |
698 version |
700 version |
699 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.60 2015-02-24 08:25:36 vrany Exp $' |
701 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.61 2015-05-18 14:49:06 cg Exp $' |
700 ! |
702 ! |
701 |
703 |
702 version_CVS |
704 version_CVS |
703 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.60 2015-02-24 08:25:36 vrany Exp $' |
705 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.61 2015-05-18 14:49:06 cg Exp $' |
704 ! |
706 ! |
705 |
707 |
706 version_SVN |
708 version_SVN |
707 ^ '$Id: Tools__BreakpointService.st,v 1.60 2015-02-24 08:25:36 vrany Exp $' |
709 ^ '$Id: Tools__BreakpointService.st,v 1.61 2015-05-18 14:49:06 cg Exp $' |
708 ! ! |
710 ! ! |
709 |
711 |