--- a/compiler/benchmarks/PPCBenchmark.st Mon May 11 18:29:13 2015 +0100
+++ b/compiler/benchmarks/PPCBenchmark.st Mon May 11 18:31:26 2015 +0100
@@ -47,6 +47,12 @@
"
PPCBenchmark run: #benchmarkRBParserC
"
+!
+
+spy: benchmark
+ ^ (BenchmarkInstance class:self selector:benchmark) spy
+
+ "Created: / 11-05-2015 / 16:31:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!PPCBenchmark methodsFor:'benchmark support'!
@@ -446,6 +452,17 @@
"
!
+teardownSmalltalkGrammarTokenized
+ parser class removeFromSystem.
+"
+ size := input inject: 0 into: [:r :e | r + e size ].
+ Transcript crShow: 'Compiled Grammar time: ', time asString.
+ Transcript crShow: 'Time per character: ', (time / size * 1000.0) asString, ' microseconds'.
+"
+
+ "Created: / 11-05-2015 / 16:33:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
teardownSmalltalkParserCompiled
parser class removeFromSystem.
"