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