equal
deleted
inserted
replaced
66 lineNumber := something. |
66 lineNumber := something. |
67 ! ! |
67 ! ! |
68 |
68 |
69 !BreakpointNode methodsFor:'code generation'! |
69 !BreakpointNode methodsFor:'code generation'! |
70 |
70 |
|
71 codeForCascadeOn:aStream inBlock:b for:aCompiler |
|
72 |node| |
|
73 |
|
74 node := MessageNode |
|
75 receiver: (ConstantNode value: breakpoint) |
|
76 selector: #break. |
|
77 node lineNumber:lineNumber. |
|
78 node codeForSideEffectOn:aStream inBlock:b for:aCompiler. |
|
79 expression notNil ifTrue:[ |
|
80 expression codeForCascadeOn:aStream inBlock:b for:aCompiler |
|
81 ]. |
|
82 ! |
|
83 |
71 codeOn:aStream inBlock:codeBlock for:aCompiler |
84 codeOn:aStream inBlock:codeBlock for:aCompiler |
72 |node| |
85 |node| |
73 |
86 |
74 node := MessageNode |
87 node := MessageNode |
75 receiver: (ConstantNode value: breakpoint) |
88 receiver: (ConstantNode value: breakpoint) |
99 |
112 |
100 isBreakPointNode |
113 isBreakPointNode |
101 ^ true |
114 ^ true |
102 |
115 |
103 "Created: / 05-07-2011 / 21:13:52 / cg" |
116 "Created: / 05-07-2011 / 21:13:52 / cg" |
|
117 ! |
|
118 |
|
119 isMessage |
|
120 "must forward - otherwise cascades won't work" |
|
121 |
|
122 ^ expression isMessage |
|
123 ! |
|
124 |
|
125 receiver |
|
126 "must forward - otherwise cascades won't work" |
|
127 |
|
128 ^ expression receiver |
|
129 ! |
|
130 |
|
131 selector |
|
132 "must forward - otherwise cascades won't work" |
|
133 |
|
134 ^ expression selector |
104 ! ! |
135 ! ! |
105 |
136 |
106 !BreakpointNode class methodsFor:'documentation'! |
137 !BreakpointNode class methodsFor:'documentation'! |
107 |
138 |
108 version_CVS |
139 version_CVS |
109 ^ '$Header: /cvs/stx/stx/libcomp/BreakpointNode.st,v 1.6 2013-12-16 13:40:09 cg Exp $' |
140 ^ '$Header: /cvs/stx/stx/libcomp/BreakpointNode.st,v 1.7 2014-01-23 11:10:05 cg Exp $' |
110 ! |
141 ! |
111 |
142 |
112 version_SVN |
143 version_SVN |
113 ^ '$ Id $' |
144 ^ '$ Id $' |
114 ! ! |
145 ! ! |