equal
deleted
inserted
replaced
55 !ByteCodeCompilerWithBreakpointSupport methodsFor:'adding breakpoint'! |
55 !ByteCodeCompilerWithBreakpointSupport methodsFor:'adding breakpoint'! |
56 |
56 |
57 possiblyWrapABreakPointAround:aBlock |
57 possiblyWrapABreakPointAround:aBlock |
58 "refactored Jan's original code; changed to not wrap an already wrapped expression" |
58 "refactored Jan's original code; changed to not wrap an already wrapped expression" |
59 |
59 |
60 | expr bpnt pos | |
60 | expr bpnt pos tokenLineNrBefore | |
61 |
61 |
62 pos := tokenPosition ? source position. |
62 pos := tokenPosition ? source position. |
|
63 tokenLineNrBefore := tokenLineNr. |
63 |
64 |
64 [ |
65 [ |
65 breakpoints notEmpty |
66 breakpoints notEmpty |
66 and:[breakpoints first position < pos] |
67 and:[breakpoints first position < pos] |
67 ] whileTrue:[ |
68 ] whileTrue:[ |
77 "/ Transcript show:'adding breakpoint '; show:bpnt; show:' before: '; showCR:expr. |
78 "/ Transcript show:'adding breakpoint '; show:bpnt; show:' before: '; showCR:expr. |
78 |
79 |
79 ^ BreakpointNode new |
80 ^ BreakpointNode new |
80 breakpoint: bpnt; |
81 breakpoint: bpnt; |
81 expression: expr; |
82 expression: expr; |
82 lineNumber:(bpnt line ? tokenLineNr); |
83 lineNumber:(bpnt line ? tokenLineNrBefore); |
83 yourself |
84 yourself |
84 |
85 |
85 "Created: / 05-07-2011 / 21:11:19 / cg" |
86 "Created: / 05-07-2011 / 21:11:19 / cg" |
86 ! |
87 ! |
87 |
88 |
170 ! ! |
171 ! ! |
171 |
172 |
172 !ByteCodeCompilerWithBreakpointSupport class methodsFor:'documentation'! |
173 !ByteCodeCompilerWithBreakpointSupport class methodsFor:'documentation'! |
173 |
174 |
174 version_CVS |
175 version_CVS |
175 ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompilerWithBreakpointSupport.st,v 1.4 2012-01-27 13:19:41 cg Exp $' |
176 ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompilerWithBreakpointSupport.st,v 1.5 2013-06-20 17:12:56 cg Exp $' |
176 ! |
177 ! |
177 |
178 |
178 version_SVN |
179 version_SVN |
179 ^ '§ Id §' |
180 ^ '$ Id $' |
180 ! ! |
181 ! ! |
|
182 |