src/benchmarks/OverloadedMethods.st
author vranyj1
Wed, 31 Oct 2012 20:10:07 +0000
branchjk_new_structure
changeset 1773 968b50303353
parent 1770 dd7b1ec5b933
child 1780 0539eae51568
permissions -rw-r--r--
- OverloadedMethods changed: #runBenchmarkJ:
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1761
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
     1
"{ Package: 'stx:libjava/benchmarks' }"
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
     2
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
     3
JavaBenchmark subclass:#OverloadedMethods
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
     4
	instanceVariableNames:''
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
     5
	classVariableNames:''
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
     6
	poolDictionaries:''
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
     7
	category:'Benchmarks-Java-Micro'
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
     8
!
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
     9
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    10
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    11
!OverloadedMethods methodsFor:'running'!
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    12
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    13
doSmth_c:c
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    14
   ^self
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    15
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    16
!
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    17
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    18
doSmth_i: i
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    19
   ^self
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    20
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    21
!
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    22
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    23
doSmth_o:o
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    24
   ^self
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    25
   
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    26
!
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    27
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    28
runBenchmarkJ: n
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    29
    | inst |
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    30
    inst := JAVA OverloadedMethods new.
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    31
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    32
    ^ Time millisecondsToRun: [
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    33
        1 to: n do:[:idx|
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    34
                inst doSmth: 0.         
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    35
                inst doSmth: $c.
1773
968b50303353 - OverloadedMethods
vranyj1
parents: 1770
diff changeset
    36
                inst doSmth: inst.      
1761
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    37
        ].
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    38
    ].
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    39
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    40
    "Created: / 31-10-2012 / 10:19:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1773
968b50303353 - OverloadedMethods
vranyj1
parents: 1770
diff changeset
    41
    "Modified: / 31-10-2012 / 20:12:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1762
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    42
!
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    43
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    44
runBenchmarkS:n 
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    45
    | inst |
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    46
1770
dd7b1ec5b933 More work on Rakefile
vranyj1
parents: 1762
diff changeset
    47
    inst := self class new.
1762
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    48
    ^ Time 
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    49
        millisecondsToRun:[
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    50
            1 to:n do:[:i | 
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    51
                inst doSmth_i:0.
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    52
                inst doSmth_c:$c.
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    53
                inst doSmth_o:inst.
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    54
            ]
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    55
        ].
1761
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    56
! !
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    57
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    58
!OverloadedMethods class methodsFor:'documentation'!
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    59
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    60
version_SVN
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    61
    ^ '$Id::                                                                                                                        $'
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    62
! !