equal
deleted
inserted
replaced
68 node := MessageNode |
68 node := MessageNode |
69 receiver: (ConstantNode value: breakpoint) |
69 receiver: (ConstantNode value: breakpoint) |
70 selector: #break. |
70 selector: #break. |
71 node lineNumber:lineNumber. |
71 node lineNumber:lineNumber. |
72 node codeForSideEffectOn:aStream inBlock:codeBlock for:aCompiler. |
72 node codeForSideEffectOn:aStream inBlock:codeBlock for:aCompiler. |
73 |
73 expression notNil ifTrue:[ |
74 ^ expression codeOn:aStream inBlock:codeBlock for:aCompiler |
74 expression codeOn:aStream inBlock:codeBlock for:aCompiler |
|
75 ]. |
75 |
76 |
76 "Created: / 16-06-2011 / 15:17:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
77 "Created: / 16-06-2011 / 15:17:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
77 "Modified: / 05-07-2011 / 23:02:12 / cg" |
78 "Modified: / 22-07-2013 / 16:08:34 / cg" |
78 ! ! |
79 ! ! |
79 |
80 |
80 !BreakpointNode methodsFor:'printing'! |
81 !BreakpointNode methodsFor:'printing'! |
81 |
82 |
82 printOn:aStream indent:indent |
83 printOn:aStream indent:indent |
97 ! ! |
98 ! ! |
98 |
99 |
99 !BreakpointNode class methodsFor:'documentation'! |
100 !BreakpointNode class methodsFor:'documentation'! |
100 |
101 |
101 version_CVS |
102 version_CVS |
102 ^ '$Header: /cvs/stx/stx/libcomp/BreakpointNode.st,v 1.4 2011-07-06 12:31:35 cg Exp $' |
103 ^ '$Header: /cvs/stx/stx/libcomp/BreakpointNode.st,v 1.5 2013-07-22 14:14:55 cg Exp $' |
103 ! |
104 ! |
104 |
105 |
105 version_SVN |
106 version_SVN |
106 ^ '§ Id §' |
107 ^ '$ Id $' |
107 ! ! |
108 ! ! |
|
109 |