equal
deleted
inserted
replaced
112 |
112 |
113 compile: whatever |
113 compile: whatever |
114 | time | |
114 | time | |
115 self input: whatever. |
115 self input: whatever. |
116 |
116 |
117 time := [ self invokePhases ] timeToRun asMilliSeconds. |
117 time := [ self invokePhases ] timeToRun. |
|
118 ((Smalltalk respondsTo:#isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifFalse:[ |
|
119 "Assume Pharo" |
|
120 time := time asMilliSeconds. |
|
121 ]. |
118 self reportTime: time. |
122 self reportTime: time. |
119 |
123 |
120 ^ ir |
124 ^ ir |
|
125 |
|
126 "Modified: / 17-08-2015 / 13:06:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
121 ! |
127 ! |
122 |
128 |
123 invokePhases |
129 invokePhases |
124 self subclassResponsibility |
130 self subclassResponsibility |
125 ! ! |
131 ! ! |