Skip Java benchmarks on Smalltalk/X
...as Java parser is not yet supported.
--- a/compiler/benchmarks/PPCBenchmark.st Mon Apr 20 11:23:20 2015 +0100
+++ b/compiler/benchmarks/PPCBenchmark.st Mon Apr 20 13:24:27 2015 +0100
@@ -418,24 +418,35 @@
!PPCBenchmark methodsFor:'setup & teardown-CalipeL'!
setupJavaSyntaxC
-
- parser := PPJavaSyntax new.
- context := PPCContext new.
- context initializeFor: parser.
- input := sources javaSourcesBig.
+
+ ((Smalltalk respondsTo:#isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifTrue:[
+ BenchmarkSkipRequest signal.
+ ].
+
+ parser := PPJavaSyntax new.
+ context := PPCContext new.
+ context initializeFor: parser.
+ input := sources javaSourcesBig.
+
+ "Modified: / 20-04-2015 / 12:55:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
setupJavaSyntaxCompiledC
- parser := PPJavaSyntax new compile.
- context := PPCContext new.
- context initializeFor: parser.
- input := sources javaSourcesBig.
+ ((Smalltalk respondsTo:#isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifTrue:[
+ BenchmarkSkipRequest signal.
+ ].
+ parser := PPJavaSyntax new compile.
+ context := PPCContext new.
+ context initializeFor: parser.
+ input := sources javaSourcesBig.
-"
- 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'.
+"
+ 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'.
"
+
+ "Modified: / 20-04-2015 / 12:55:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
setupRBParserC