Benchmark subroutines
1500 REM --- BENCHMARK 5
1510 T = TI
1520 LET K=0
1530 LET K=K+1
1540 LET A=K/2*3+4-5
1545 GOSUB 1570
1550 IF K<1000 THEN GOTO 1530
1560 T = (TI-T)/60
1570 RETURN
Questo codice misura il tempo di esecuzione in presenza di un certo numero di chiamate a subroutines (GOSUB).
Siccome le subroutine sono frequentemente utilizzate nei programmi BASIC,
misurarne il tempo di esecuzione per le relative chiamate puo' essere utile
per valutare l'impatto in fase di ottimizzazione.
RISULTATI
| COMPILATORE |
TEMPO |
|
| B64C(2) - 6510 |
2,00 |
(-92%) |
|
| B64C(2) - p-code |
3,00 |
(-88%) |
|
| B64C(1) - 6510 |
6,00 |
(-77%) |
|
| BLITZ! |
6,85 |
(-74%) |
|
| BOSS |
7,10 |
(-73%) |
|
| B64C(1) - p-code |
7,46 |
(-71%) |
|
| LASER
|
10,28 |
(-60%) |
|
| BASIC V2 |
25,86 |
|
|