The following warnings occurred:
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 795 - File: showthread.php PHP 7.4.33 (FreeBSD)
File Line Function
/showthread.php 795 errorHandler->error





Post Reply 
Optimizing HPP program
03-08-2019, 08:45 AM (This post was last modified: 03-08-2019 10:26 AM by Oulan.)
Post: #1
Optimizing HPP program
Trying to speed up code I found this strange behavior:

With the following program named test01
Code:

#pragma mode(separator(.,;) integer(h32))

LOCAL ff00() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff01() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff02() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff03() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff04() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff05() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff06() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff07() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff08() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff09() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff10() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff11() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff12() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff13() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff14() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff15() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff16() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff17() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff18() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff19() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff20() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff21() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff22() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff23() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff24() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff25() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff26() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff27() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff28() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff29() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff30() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff31() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff32() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff33() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff34() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff35() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff36() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff37() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff38() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff39() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff40() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff41() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff42() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff43() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff44() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff45() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff46() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff47() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff48() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff49() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff50() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff51() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff52() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff53() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff54() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff55() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff56() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff57() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff58() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff59() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff60() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff61() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff62() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff63() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff64() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff65() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff66() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff67() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff68() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff69() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff70() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff71() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff72() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff73() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff74() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff75() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff76() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff77() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff78() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff79() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff80() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff81() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff82() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff83() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff84() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff85() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff86() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff87() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff88() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff89() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff90() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff91() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff92() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff93() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff94() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff95() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff96() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff97() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff98() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;
LOCAL ff99() BEGIN FOR I FROM 1 TO 99 DO A:=A+1; END;END;

LOCAL f0() BEGIN A:=10;END;
LOCAL f1() BEGIN A:=20;END;
LOCAL f2() BEGIN A:=30;END;
LOCAL f3() BEGIN A:=40;END;
LOCAL f4() BEGIN A:=50;END;
LOCAL f5() BEGIN A:=60;END;
LOCAL f6() BEGIN A:=70;END;
LOCAL f7() BEGIN A:=80;END;
LOCAL f8() BEGIN A:=90;END;
LOCAL f9() BEGIN A:=100;END;
LOCAL fA() BEGIN A:=110;END;
LOCAL fB() BEGIN A:=120;END;
LOCAL fC() BEGIN A:=130;END;
LOCAL fD() BEGIN A:=140;END;
LOCAL fE() BEGIN A:=150;END;
LOCAL fF() BEGIN A:=160;END;

LOCAL ff={'f0','f1','f2','f3','f4','f5','f6','f7','f8','f9','fA','fB','fC','fD','​fE','fF'};

LOCAL sel00() BEGIN
 CASE
  IF J=0 THEN A:=10; END;
  IF J=1 THEN A:=20; END;
  IF J=2 THEN A:=30; END;
  IF J=3 THEN A:=40; END;
  IF J=4 THEN A:=50; END;
  IF J=5 THEN A:=60; END;
  IF J=6 THEN A:=70; END;
  IF J=7 THEN A:=80; END;
  IF J=8 THEN A:=90; END;
  IF J=9 THEN A:=100; END;
  IF J=10 THEN A:=110; END;
  IF J=11 THEN A:=120; END;
  IF J=12 THEN A:=130; END;
  IF J=13 THEN A:=140; END;
  IF J=14 THEN A:=150; END;
  DEFAULT A:=160;
 END;
END;

LOCAL sel01() BEGIN
 CASE
  IF J=0 THEN f0(); END;
  IF J=1 THEN f1(); END;
  IF J=2 THEN f2(); END;
  IF J=3 THEN f3(); END;
  IF J=4 THEN f4(); END;
  IF J=5 THEN f5(); END;
  IF J=6 THEN f6(); END;
  IF J=7 THEN f7(); END;
  IF J=8 THEN f8(); END;
  IF J=9 THEN f9(); END;
  IF J=10 THEN fA(); END;
  IF J=11 THEN fB(); END;
  IF J=12 THEN fC(); END;
  IF J=13 THEN fD(); END;
  IF J=14 THEN fE(); END;
  DEFAULT fF();
 END;
END;

LOCAL sel02() BEGIN
 EVAL(ff(J));
END;

LOCAL tt00() BEGIN
 B:=0;
 FOR I FROM 1 TO 1000000 DO
  J:=(I MOD 16);sel00();B:=B+A;
 END;
 PRINT(B);
END;

LOCAL tt01() BEGIN
 B:=0;
 FOR I FROM 1 TO 1000000 DO 
  J:=(I MOD 16);sel01();B:=B+A;
 END;
 PRINT(B);
END;

LOCAL tt02() BEGIN
 B:=0;
 FOR I FROM 1 TO 1000000 DO
  J:=(I MOD 16)+1;sel02();B:=B+A;
 END;
 PRINT(B);
END;

EXPORT test01()
BEGIN
 PRINT();
 PRINT(TEVAL(tt00));
 PRINT(TEVAL(tt00));
 PRINT(TEVAL(tt01));
 PRINT(TEVAL(tt01));
 PRINT(TEVAL(tt02));
 PRINT(TEVAL(tt02));
END;

The speed of tt02 function depend on the number of local functions defined in the program.

On a virtual Prime I got an average of 4.7 seconds for the TEVAL(tt02).

When I remove the 100 useless local ffxx functions in the program I got an average of 3.7 seconds for the TEVAL(tt02).

TEVAL(tt00) is still at 5.5 seconds and TEVAL(tt01) is still at 5.7 seconds.

On a real program the use of EVAL(list(I)) is even slower than using CASE constructions, which is a very strange behavior.

I got the same behavior on a real Prime too.

More fun about speed:
Use the following program
Code:

#pragma mode( separator(.,;) integer(h32) )
local b:=0;
LOCAL tt0() BEGIN
 local a:=0;
 FOR a FROM 1 TO 1000000 DO 
 END;
END;
LOCAL tt1() BEGIN
 FOR b FROM 1 TO 1000000 DO 
 END;
END;
LOCAL tt2() BEGIN
 FOR A FROM 1 TO 1000000 DO 
 END;
END;

EXPORT test02()
BEGIN
 PRINT();PRINT("");
 PRINT(TEVAL(tt0));
 PRINT(TEVAL(tt0));
 PRINT(TEVAL(tt1));
 PRINT(TEVAL(tt1));
 PRINT(TEVAL(tt2));
 PRINT(TEVAL(tt2));
END;
Run it several times and look at the numbers ... sometimes 10 seconds are lost somewhere ...

Generally the bevahior is VERY erratic, even for a such complex system as the PRIME (it is my own opinion). I agree that some stuff must be running at lower level than USER use but such erratic behavior is somewhat strange (nothing very reproducable).
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
Optimizing HPP program - Oulan - 03-08-2019 08:45 AM
RE: Optimizing HPP program - Oulan - 03-11-2019, 08:47 AM



User(s) browsing this thread: 2 Guest(s)