benchmarks/Hash.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 16 Jan 2013 22:06:41 +0000
branchrefactoring-vmdata
changeset 1977 526315e0a801
parent 1818 2e5ed72e7dfd
child 2014 9fa66342102b
permissions -rw-r--r--
Fixed JavaNativeMethodImpl_OpenJDK6 class>>invoke:receiver:arguments:context:constructor:
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:#Hash
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
!Hash methodsFor:'running'!
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    12
1762
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    13
runBenchmarkS:n 
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    14
    | count  table |
1761
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    15
1762
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    16
    count := 0.
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    17
    table := Dictionary new:n + (n // 5).
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    18
    ^ Time 
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    19
        millisecondsToRun:[
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    20
            1 to:n do:[:each | 
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    21
                table at:(each printStringRadix:16) put:each
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    22
            ].
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    23
            1 to:n do:[:each | 
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    24
                (table includesKey:(each printStringRadix:10)) ifTrue:[
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    25
                    count := count + 1
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    26
                ]
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    27
            ].
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    28
        ].
1761
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    29
! !
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    30
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    31
!Hash class methodsFor:'documentation'!
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    32
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    33
version_SVN
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    34
    ^ '$Id::                                                                                                                        $'
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    35
! !