equal
deleted
inserted
replaced
120 currentMethodClass := aMethod mclass. |
120 currentMethodClass := aMethod mclass. |
121 ] ifFalse:[ |
121 ] ifFalse:[ |
122 currentMethodClass := nil |
122 currentMethodClass := nil |
123 ]. |
123 ]. |
124 breakpoints := methodsBreakPoints. |
124 breakpoints := methodsBreakPoints. |
|
125 breakpoints notNil ifTrue:[ |
|
126 "/ Nil out breakpoint's position. It's invalid as soon as |
|
127 "/ user edits the code. Instead, depend on line information. |
|
128 "/ Breakpoint character positions are fixed up just before |
|
129 "/ passing a breakpoints to the compiler, see |
|
130 "/ #fixupBreakpointPositions |
|
131 breakpoints do:[:each | each position: nil ]. |
|
132 ]. |
125 currentMethod := aMethod. |
133 currentMethod := aMethod. |
126 |
134 |
127 "Created: / 06-07-2011 / 15:24:09 / cg" |
135 "Created: / 06-07-2011 / 15:24:09 / cg" |
128 "Modified: / 06-07-2011 / 17:32:54 / jv" |
136 "Modified: / 06-07-2011 / 17:32:54 / jv" |
|
137 "Modified: / 05-06-2014 / 14:45:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
129 ! |
138 ! |
130 |
139 |
131 updateCurrentMethod |
140 updateCurrentMethod |
132 |method realMethod oldBreakPoints| |
141 |method realMethod oldBreakPoints| |
133 |
142 |
194 "Created: / 08-05-2014 / 10:42:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
203 "Created: / 08-05-2014 / 10:42:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
195 "Modified: / 08-05-2014 / 13:52:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
204 "Modified: / 08-05-2014 / 13:52:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
196 ! |
205 ! |
197 |
206 |
198 linesDeletedFrom: start to: end |
207 linesDeletedFrom: start to: end |
|
208 | breakpointsToRemove | |
199 |
209 |
200 breakpoints isEmptyOrNil ifTrue:[^self]. |
210 breakpoints isEmptyOrNil ifTrue:[^self]. |
201 self moveBreakpointsAfterLine: start - 1 by: (end - start + 1) negated |
211 breakpointsToRemove := Set new. |
|
212 start to: end do:[:line | |
|
213 | breakpointToRemove | |
|
214 |
|
215 breakpointToRemove := self breakpointAtLine: line. |
|
216 breakpointToRemove notNil ifTrue:[ breakpointsToRemove add: breakpointToRemove ]. |
|
217 ]. |
|
218 breakpoints removeAll: breakpointsToRemove. |
|
219 self moveBreakpointsAfterLine: end by: (end - start + 1) negated |
202 |
220 |
203 "Created: / 06-07-2011 / 17:16:27 / jv" |
221 "Created: / 06-07-2011 / 17:16:27 / jv" |
|
222 "Modified: / 04-06-2014 / 17:56:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
204 ! |
223 ! |
205 |
224 |
206 linesInsertedFrom: start to: end |
225 linesInsertedFrom: start to: end |
207 |
226 |
208 breakpoints isEmptyOrNil ifTrue:[^self]. |
227 breakpoints isEmptyOrNil ifTrue:[^self]. |
643 ! ! |
662 ! ! |
644 |
663 |
645 !BreakpointService class methodsFor:'documentation'! |
664 !BreakpointService class methodsFor:'documentation'! |
646 |
665 |
647 version |
666 version |
648 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.49 2014-06-04 16:38:55 cg Exp $' |
667 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.50 2014-06-05 13:56:42 vrany Exp $' |
649 ! |
668 ! |
650 |
669 |
651 version_CVS |
670 version_CVS |
652 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.49 2014-06-04 16:38:55 cg Exp $' |
671 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.50 2014-06-05 13:56:42 vrany Exp $' |
653 ! |
672 ! |
654 |
673 |
655 version_SVN |
674 version_SVN |
656 ^ '$Id: Tools__BreakpointService.st,v 1.49 2014-06-04 16:38:55 cg Exp $' |
675 ^ '$Id: Tools__BreakpointService.st,v 1.50 2014-06-05 13:56:42 vrany Exp $' |
657 ! ! |
676 ! ! |
658 |
677 |