author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Thu, 31 Jan 2013 12:10:51 +0000 | |
branch | development |
changeset 2014 | 9fa66342102b |
parent 1818 | 2e5ed72e7dfd |
child 2069 | 75d40b7b986f |
permissions | -rw-r--r-- |
1761 | 1 |
"{ Package: 'stx:libjava/benchmarks' }" |
2 |
||
3 |
JavaBenchmark subclass:#CrossLanguageInvocation |
|
4 |
instanceVariableNames:'' |
|
5 |
classVariableNames:'' |
|
6 |
poolDictionaries:'' |
|
7 |
category:'Benchmarks-Java-Micro' |
|
8 |
! |
|
9 |
||
10 |
||
11 |
!CrossLanguageInvocation methodsFor:'running'! |
|
12 |
||
13 |
doSmth |
|
14 |
^self |
|
15 |
! |
|
16 |
||
1780 | 17 |
runBenchmarkS2J:n |
1761 | 18 |
| inst | |
19 |
||
1785 | 20 |
inst := JAVA stx libjava benchmarks CrossLangInvocation new. |
1780 | 21 |
^ Time |
22 |
millisecondsToRun:[ |
|
1781 | 23 |
1 to: n do: [:idx| |
1761 | 24 |
inst doSmth |
1780 | 25 |
]. |
26 |
] |
|
1761 | 27 |
|
1780 | 28 |
"Created: / 31-10-2012 / 23:37:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1762 | 29 |
! |
30 |
||
31 |
runBenchmarkS:n |
|
32 |
| inst | |
|
33 |
||
1781 | 34 |
inst := self class new. |
1762 | 35 |
^ Time |
1781 | 36 |
millisecondsToRun:[ |
37 |
1 to: n do: [:idx| |
|
1762 | 38 |
inst doSmth |
39 |
] ]. |
|
1761 | 40 |
! ! |
41 |
||
42 |
!CrossLanguageInvocation class methodsFor:'documentation'! |
|
43 |
||
2014
9fa66342102b
Fixed JavaBenchmarkRunner: when no smalltalk class is found, create one on demand.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1818
diff
changeset
|
44 |
version_HG |
9fa66342102b
Fixed JavaBenchmarkRunner: when no smalltalk class is found, create one on demand.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1818
diff
changeset
|
45 |
|
9fa66342102b
Fixed JavaBenchmarkRunner: when no smalltalk class is found, create one on demand.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1818
diff
changeset
|
46 |
^ '$Changeset: <not expanded> $' |
9fa66342102b
Fixed JavaBenchmarkRunner: when no smalltalk class is found, create one on demand.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1818
diff
changeset
|
47 |
! |
9fa66342102b
Fixed JavaBenchmarkRunner: when no smalltalk class is found, create one on demand.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1818
diff
changeset
|
48 |
|
1761 | 49 |
version_SVN |
2014
9fa66342102b
Fixed JavaBenchmarkRunner: when no smalltalk class is found, create one on demand.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1818
diff
changeset
|
50 |
^ '§Id:: §' |
1761 | 51 |
! ! |
2014
9fa66342102b
Fixed JavaBenchmarkRunner: when no smalltalk class is found, create one on demand.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1818
diff
changeset
|
52 |