Such a small benchmark

Andy Stoffel squeak-dev at lists.squeakfoundation.org
Wed Oct 16 18:27:26 UTC 2002


> From: Ian Piumarta  
> On Wed, 16 Oct 2002, Viktor wrote:
> 
> > Such a small benchmark:
> > Visual C++ (see code bellow) 
> >  ... 14 ms ... 31 %
> 
> 2 GHz Pentium Whatever:
> 
>    15254 (microseconds)
> 
> Not quite as fast, but mine is interpreted.  :^p)
> Script appended.

Huh.... this could quickly get out of hand (not just off-topic)
but I was curious so.... assuming I did it the same way...
populating a large array with a value...

COMPAQ AlphaServer DS10L 466 MHz, VMS V7.2-1
(Not exactly a speed-demon as Alpha go/went)

Compaq Basic 1.4 -> 3 ms

[Unfortunately, this isn't the machine on my desk. My 8 year old 
175MHz Alpha with a whopping 192MB RAM takes 20 ms to do the same 
thing ... if I ever get Squeak running on it it'll probably be too 
slow to be usable...]

How I got it:

%INCLUDE "LIB$ROUTINES" %FROM %LIBRARY "SYS$LIBRARY:BASIC$STARLET.TLB"
DECLARE LONG    STARTTIME%, & ! Days since base system date
                ENDTIME%, &
                END10MIL%, &  ! 10 millisecond units since midnight
                STRT10MIL%
DIM Y%(10000000%)
CALL LIB$DAY(STARTTIME%,,STRT10MIL%) 
FOR X = 1 TO 10000000
        Y%(X) = 3%
NEXT X
CALL LIB$DAY(ENDTIME%,,END10MIL%)
PRINT "Milliseconds :"; (END10MIL% - STRT10MIL%)/ 10%



More information about the Squeak-dev mailing list