On 29.08.2014, at 05:03, Chris Muller <ma.chris.m at gmail.com> wrote:

> 0 tinyBenchmarks    '1,708,090,075 bytecodes/sec; 199,734,789 sends/sec'

Nice.

> [] bench    '131,000,000 per second.'

Hmm, this mostly measures the millisecondClockValue primitive.

How about we replace this

	count := 0.
	endTime := Time millisecondClockValue + 5000.
	startTime := Time millisecondClockValue.
	[ Time millisecondClockValue > endTime ] whileFalse: [ self value.  count := count + 1 ].
	endTime := Time millisecondClockValue.

with

	count := 0.
	repeat := true.
	[(Delay forSeconds: 5) wait. repeat := false] forkAt: Processor activePriority + 1.
	startTime := Time millisecondClockValue.
	[ self value.  count := count + 1. repeat ] whileTrue.
	endTime := Time millisecondClockValue.

which on my machine makes it go from

 '70,800,000 per second.'

to

 '168,000,000 per second.'

- Bert -



-------------- next part --------------
A non-text attachment was scrubbed...
Name: smime.p7s
Type: application/pkcs7-signature
Size: 4142 bytes
Desc: not available
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20140830/3c3eb7e8/smime.bin