benchmarks/OverloadedMethods.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sun, 16 Dec 2012 21:04:02 +0100
branchdirectory_structure_refactoring
changeset 1899 800c0f76adce
parent 1818 2e5ed72e7dfd
child 2014 9fa66342102b
permissions -rw-r--r--
Closing branch directory_structure_refactoring
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
1780
0539eae51568 - PrimitiveArguments
vranyj1
parents: 1773
diff changeset
    28
runBenchmarkS2J:n 
1761
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    29
    | inst |
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    30
1785
417582324c34 More refactoring, added warmup to JVM benchmarks
vranyj1
parents: 1780
diff changeset
    31
    inst := JAVA stx libjava benchmarks OverloadedMethods new.
1780
0539eae51568 - PrimitiveArguments
vranyj1
parents: 1773
diff changeset
    32
    ^ Time 
0539eae51568 - PrimitiveArguments
vranyj1
parents: 1773
diff changeset
    33
        millisecondsToRun:[
0539eae51568 - PrimitiveArguments
vranyj1
parents: 1773
diff changeset
    34
            1 to:n do:[:idx | 
0539eae51568 - PrimitiveArguments
vranyj1
parents: 1773
diff changeset
    35
                inst doSmth:0.
0539eae51568 - PrimitiveArguments
vranyj1
parents: 1773
diff changeset
    36
                inst doSmth:$c.
0539eae51568 - PrimitiveArguments
vranyj1
parents: 1773
diff changeset
    37
                inst doSmth:inst.
0539eae51568 - PrimitiveArguments
vranyj1
parents: 1773
diff changeset
    38
            ].
1761
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    39
        ].
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    40
1780
0539eae51568 - PrimitiveArguments
vranyj1
parents: 1773
diff changeset
    41
    "Created: / 31-10-2012 / 23:37:06 / 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
! !