equal
deleted
inserted
replaced
45 ^ (benchmarkSuiteClass class:self selector: selector ) run |
45 ^ (benchmarkSuiteClass class:self selector: selector ) run |
46 |
46 |
47 " |
47 " |
48 PPCBenchmark run: #benchmarkRBParserC |
48 PPCBenchmark run: #benchmarkRBParserC |
49 " |
49 " |
|
50 ! |
|
51 |
|
52 spy: benchmark |
|
53 ^ (BenchmarkInstance class:self selector:benchmark) spy |
|
54 |
|
55 "Created: / 11-05-2015 / 16:31:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
50 ! ! |
56 ! ! |
51 |
57 |
52 !PPCBenchmark methodsFor:'benchmark support'! |
58 !PPCBenchmark methodsFor:'benchmark support'! |
53 |
59 |
54 compile: value |
60 compile: value |
444 Transcript crShow: 'Compiled Grammar time: ', time asString. |
450 Transcript crShow: 'Compiled Grammar time: ', time asString. |
445 Transcript crShow: 'Time per character: ', (time / size * 1000.0) asString, ' microseconds'. |
451 Transcript crShow: 'Time per character: ', (time / size * 1000.0) asString, ' microseconds'. |
446 " |
452 " |
447 ! |
453 ! |
448 |
454 |
|
455 teardownSmalltalkGrammarTokenized |
|
456 parser class removeFromSystem. |
|
457 " |
|
458 size := input inject: 0 into: [:r :e | r + e size ]. |
|
459 Transcript crShow: 'Compiled Grammar time: ', time asString. |
|
460 Transcript crShow: 'Time per character: ', (time / size * 1000.0) asString, ' microseconds'. |
|
461 " |
|
462 |
|
463 "Created: / 11-05-2015 / 16:33:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
464 ! |
|
465 |
449 teardownSmalltalkParserCompiled |
466 teardownSmalltalkParserCompiled |
450 parser class removeFromSystem. |
467 parser class removeFromSystem. |
451 " |
468 " |
452 size := input inject: 0 into: [:r :e | r + e size ]. |
469 size := input inject: 0 into: [:r :e | r + e size ]. |
453 Transcript crShow: 'Compiled Grammar time: ', time asString. |
470 Transcript crShow: 'Compiled Grammar time: ', time asString. |