[Glass] Particular code that is much slower than Pharo

[Mariano Martinez Peck via Glass]

On Tue, Jan 24, 2017 at 5:28 PM, Dale Henrichs via Glass <
glass at lists.gemtalksystems.com> wrote:

> I ran this test using GemStone 3.4.0 and Pharo6.0 on the same hardware and
> came out as only 2x slower: 79ms (G/S) vs 36ms (pharo) .... Allen (our vm
> guy) thought that 3.3 might be a bit faster than 3.2 and sure enough, a run
> on 3.2 came up with 111ms (3x slower). No code gen changes have been made
> in 3.4.0 so the timings are similar.
>
>
mmmm I am getting between 22ms and 24ms in Pharo, and around 85 on GemStone
3.2.9.


> GemStone is going to be doing a bit more work for #at: than Pharo, since
> we have to worry about faulting in objects and that costs a bit more ...
>

mmmm but in this case the contents of the Array are not persistent objects
(not even objects as they are smallintegers)

Isn't there a particular Array subclass with an override of #at: which uses
a different primitive that does not takes care of faulting objects (it
assumes the objects are not persistent)?


> I plan look at a few other things when I get a chance  ...
>

Thanks! My process is taking hours on GemStone :(


Thanks for your answer.


> Dale
> On 01/24/2017 11:42 AM, Mariano Martinez Peck via Glass wrote:
>
> | array1 another |
> array1 := #( 1 2 3 4 5 6 7 8 9).
> another := #(8 9 10 11 12 115 9 116 117 16 118).
> 10000 timesRepeat: [
> | answer  i j selfSize anotherSize skipTestsTable |
> answer := OrderedCollection new.
> skipTestsTable := array1 collect: [ :each | Array new: another size ].
> "all nils"
>
> selfSize := array1 size.
> anotherSize := another size.
> array1 doWithIndex: [:each :selfStart |
> | skipTableAtStart |
> skipTableAtStart := skipTestsTable at: selfStart.
> 1 to: anotherSize do: [ :anotherStart|
> (false or: [ (skipTableAtStart at: anotherStart) isNil]) ifTrue: [
> each = (another at: anotherStart)
> ifTrue: [
> i := selfStart + 1.
> j := anotherStart + 1.
> [ (i <= selfSize and: [ j <= anotherSize ]) and: [ (array1 at: i) =
> (another at: j)]]
> whileTrue: [
> (skipTestsTable at: i) at: j put: true.
> i := i + 1.
> j := j + 1. ].
> answer add: { selfStart. anotherStart. (i - selfStart). i - 1 }
> ]  ]
> ]
> ].
> answer asArray
>
> ]
> ] timeToRun
>
>
>
> _______________________________________________
> Glass mailing list
> Glass at lists.gemtalksystems.com
> http://lists.gemtalksystems.com/mailman/listinfo/glass
>
>


-- 
Mariano
http://marianopeck.wordpress.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gemtalksystems.com/mailman/private/glass/attachments/20170124/dca17d75/attachment.html>