[Help-smalltalk] Bench with OrderedCollection

[Gwenael Casaccio]

Hi,

I've made a small benchmark with Coq-Stack (no jit) and GNU Smalltalk.

{OrderedCollection } collect: [ :class |
  | queue |
  queue := class new.
  class -> (
  (1 to: 5) collect: [ :run |
  ObjectMemory globalGarbageCollect.
  {
   (Time millisecondsToRun: [ 1 to: 1000000 do: [ :each |
        queue addFirst: each ] ]).
   (Time millisecondsToRun: [ 1 to: 1000000 do: [ :each |
        queue removeFirst ] ]) } ]) ].

I use a tweaked VM (no more LINE_NUMBER byte code and few other changes) 
but the results are interesting:

Cog-Stack:
{OrderedCollection->#(#(178 264) #(116 262) #(116 260) #(114 262) #(116 
260))}

Gst:
(OrderedCollection->((371 797 ) (323 658 ) (315 661 ) (317 660 ) (316 
658 ) ) )

Now if I look at OrderedCollection>>#removeFirst at Squeak or Gst:

We see that GST decrease the size instead of Squeak so if we remove
the line:

self size < self shrinkSize ifTrue: [self shrink].

Gst without decreasing:
(OrderedCollection->((383 195 ) (284 196 ) (173 196 ) (172 196 ) (173 
196 ) )

And I guess #addFirst: can be tuned  too :)

Cheers,
Gwen