Lost changes meant to be commited in 7af1671fc73f. performance-optimizations
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 21 May 2013 13:04:40 +0100
branchperformance-optimizations
changeset 2604 b9cb81e47766
parent 2603 000dff7f0e7b
child 2605 f343a5ef30b6
Lost changes meant to be commited in 7af1671fc73f.
JavaClassReader.st
benchmarks/benchmark-runner.sh
extensions.st
--- a/JavaClassReader.st	Tue May 21 00:17:00 2013 +0100
+++ b/JavaClassReader.st	Tue May 21 13:04:40 2013 +0100
@@ -468,7 +468,7 @@
                     read := [
                             nm := clsName , '.class'.
 
-                            (zar isValidPath: nm) ifTrue: [
+                            (zar isValidFile: nm) ifTrue: [
                                 (Java isExcludedFromClassPath: nm) ifFalse: [
                                     JavaVM commonOpenStreamUsing:[ zar := zar reopenForReading ].
                                     entry := zar extract: nm.
--- a/benchmarks/benchmark-runner.sh	Tue May 21 00:17:00 2013 +0100
+++ b/benchmarks/benchmark-runner.sh	Tue May 21 13:04:40 2013 +0100
@@ -21,7 +21,7 @@
     shift
     #PROFILER="/usr/local/bin/valgrind -v -v -d --tool=callgrind --instr-atstart=no"
     PROFILER="/usr/local/bin/valgrind -v --smc-check=all-non-file --tool=callgrind --instr-atstart=no"
-    PROFILER="valgrind -v --smc-check=all-non-file --tool=callgrind --instr-atstart=no"
+    PROFILER="valgrind -v --smc-check=all-non-file --tool=callgrind --instr-atstart=no --branch-sim=yes --cache-sim=yes --collect-jumps=yes"
     #PROFILER_OPTS=--callgrind
 fi
 
--- a/extensions.st	Tue May 21 00:17:00 2013 +0100
+++ b/extensions.st	Tue May 21 13:04:40 2013 +0100
@@ -2157,6 +2157,17 @@
     "Created: / 04-12-2011 / 11:24:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!ZipArchive methodsFor:'queries - java support'!
+
+isValidFile: path
+    "Return true, if the recevier contains given file. false otherwise.
+    "
+    ^zipMembersByName includesKey: path
+
+    "Created: / 20-05-2013 / 23:37:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+
+! !
+
 !ZipArchive methodsFor:'reading - java support'!
 
 nextBytes: bytesToRead of: zmember startingAt: pos into: b startingAt: off