Skip Java benchmarks on Smalltalk/X
authorJan Vrany <jan.vrany@fit.cvut.cz>
Mon, 20 Apr 2015 13:24:27 +0100
changeset 433 6fcdf4d2c32c
parent 432 fde2d5969fbb
child 434 840942b96eea
Skip Java benchmarks on Smalltalk/X ...as Java parser is not yet supported.
compiler/benchmarks/PPCBenchmark.st
--- 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