equal
deleted
inserted
replaced
305 |
305 |
306 "Modified: 1.7.1996 / 15:20:14 / cg" |
306 "Modified: 1.7.1996 / 15:20:14 / cg" |
307 ! ! |
307 ! ! |
308 |
308 |
309 !AbstractTime class methodsFor:'timing evaluations'! |
309 !AbstractTime class methodsFor:'timing evaluations'! |
|
310 |
|
311 microsecondsToRun:aBlock |
|
312 "evaluate the argument, aBlock; return the number of milliseconds it took" |
|
313 |
|
314 |startTime endTime| |
|
315 |
|
316 startTime := OperatingSystem getMicrosecondTime. |
|
317 aBlock value. |
|
318 endTime := OperatingSystem getMicrosecondTime. |
|
319 ^ endTime - startTime |
|
320 |
|
321 " |
|
322 Time microsecondsToRun:[1000 factorial] |
|
323 " |
|
324 ! |
310 |
325 |
311 millisecondsToRun:aBlock |
326 millisecondsToRun:aBlock |
312 "evaluate the argument, aBlock; return the number of milliseconds it took" |
327 "evaluate the argument, aBlock; return the number of milliseconds it took" |
313 |
328 |
314 |startTime endTime| |
329 |startTime endTime| |
1138 ! ! |
1153 ! ! |
1139 |
1154 |
1140 !AbstractTime class methodsFor:'documentation'! |
1155 !AbstractTime class methodsFor:'documentation'! |
1141 |
1156 |
1142 version |
1157 version |
1143 ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.67 2010-01-27 14:09:56 sr Exp $' |
1158 ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.68 2010-03-31 13:52:36 stefan Exp $' |
1144 ! |
1159 ! |
1145 |
1160 |
1146 version_CVS |
1161 version_CVS |
1147 ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.67 2010-01-27 14:09:56 sr Exp $' |
1162 ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.68 2010-03-31 13:52:36 stefan Exp $' |
1148 ! ! |
1163 ! ! |