XProfan

- Page 17 -

« this Posting watts as Solution marked. »

- Page 15 -

Jens-Arne
Reumschüssel

there's a new Version, The differently with the internen Messagehandling bypassing. Please probier The time from. Perhaps is the trouble so fixed.

XProfan X4
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

09/24/22 ▲

RudiB.

Übrigens, Freebasic is self at process of String-function ca. 35x faster as XProfan. the had I do not virtual, for is Freebasic long not so komfortabel with the Programming.

Greeting from munich

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

09/29/22 ▲

RudiB.

Yes, your example functions....

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

09/29/22 ▲

Jens-Arne
Reumschüssel

I can't confirm, that FreeBasic-Stringfunktionen faster wären as XProfan-Stringfunktionen, anyway not for @upper$:


declare i%,tc&,s$

fbPROC fbupper(ByRef s As ZString) As Integer export
  s=ucase(s)
  return 0
ENDPROC

cls

tc&=&GetTickCount
for i%,1,10000
  s$="asdjhaskdjhaskjdhkajshdkjhaksjdhkjahö+12"
  s$=@upper$(s$)
endfor
print "@upper$: "+@st$(&GetTickCount-tc&)

tc&=&GetTickCount
for i%,1,10000
  s$="asdjhaskdjhaskjdhkajshdkjhaksjdhkjahö+12"
  @fbupper(@addr(s$))
endfor
print "@fbupper: "+@st$(&GetTickCount-tc&)

waitinput
end

FreeBasic is explicit slower, and of course though the Funktionsaufruf of JRPC3 over call realized and is not over external, and though for FreeBasic-routine not even new Speicherplatz reserved go must, as for @upper$ the case is (because there s$ new allocated becomes).

XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

09/30/22 ▲

RudiB.

then teste time so.....

declare i%,tc&,s$
fbPROC fbupper(ByRef s As ZString) As Integer export
DIM i as Integer
For i = 1 to 10000
s=ucase(s)
s=lcase(s)
Next i
return 0

ENDPROC

cls
tc&=&GetTickCount
for i%,1,10000
s$="asdjhaskdjhaskjdhkajshdkjhaksjdhkjahö+12"
s$=@upper$(s$)
endfor
print "@upper$: "+@st$(&GetTickCount-tc&)
tc&=&GetTickCount
s$="asdjhaskdjhaskjdhkajshdkjhaksjdhkjahö+12"
@fbupper(@addr(s$))
print "@fbupper: "+@st$(&GetTickCount-tc&)
waitinput
end

even faster with Upper-Case and Lower-Case....

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

RudiB.

or so, with equal Voraussetzungen (each a Procedure Call)

declare i%,tc&,s$
'----- FreeBasic - Procedure ---------------
fbPROC fbupper(ByRef s As ZString) As Integer export
s=ucase(s)
return 0

ENDPROC

' ----- XProfan - Procedure -----------------

Proc Upper

s$=@upper$(s$)

ENDPROC

cls
tc&=&GetTickCount
for i%,1,10000
s$="asdjhaskdjhaskjdhkajshdkjhaksjdhkjahö+12"
upper(@addr(s$))
endfor
print "@upper$: "+@st$(&GetTickCount-tc&)
tc&=&GetTickCount
for i%,1,10000
s$="asdjhaskdjhaskjdhkajshdkjhaksjdhkjahö+12"
@fbupper(@addr(s$))
endfor
print "@fbupper: "+@st$(&GetTickCount-tc&)
waitinput
end

here's the benefit of course not any more integrally so big, but nevertheless faster

Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

Jens-Arne
Reumschüssel

Hello Rudi,

above I had already thought. evident is the appeal of/ one procedure with so plenty Registergeschiebe u.ä. joined, that the integrally beautiful long lasts. in the practice rewards it therefore not, a FB-Function for the Stringfunktionen To write, everybody can then in the Profan-Program benefit would. but within of/ one fbProc can whom Geschwindigkeitsvorteil, the evident still existing, naturally finish playing.

Greeting, Jens-Arne

XProfan X4
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

RudiB.

You promise straight The FB-functions on. Why becomes The really not of JRPC3 recognized, have You, the not implementiert ?

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

Jens-Arne
Reumschüssel

I meant so FreeBasic-Procs (fbProcs). The go still hopefully of JRPC3 recognized. I have hereon angespielt, that evident jedweder Funktionsaufruf with very plenty Overhead happens, the Time cost. otherwise understand I The question not integrally, erläutere me tappt im dunkeln Please once more (have You with "FB-Funktion" something other meant as i?).

and our small example have I once more something verfeinert. because circa really justice produce, must too The Profan-function with call called and be moreover a Parameter having (even if the present nothing does):


declare i%,tc&,s$,funcaddr%

fbPROC fbupper(ByRef s As ZString) As Integer export
  s=ucase(s)
  return 0
ENDPROC

PROC upper
  parameters dummy%
  s$=@upper$(s$)
ENDPROC

cls
funcaddr%=@procaddr("upper",1)

tc&:=&GetTickCount
for i%,1,10000
  s$:="asdjhaskdjhaskjdhkajshdkjhaksjdhkjahö+12"
  call(funcaddr%,@addr(s$))
endfor
print "@upper$: "+@st$(&GetTickCount-tc&)

tc&:=&GetTickCount
for i%,1,10000
  s$:="asdjhaskdjhaskjdhkajshdkjhaksjdhkjahö+12"
  @fbupper(@addr(s$))
endfor
print "@fbupper: "+@st$(&GetTickCount-tc&)

waitinput
end

now are both mutants almost same quick (compiled) with still one small benefit with FreeBasic.

XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

RudiB.

Hello Jens-Arne,

....everything well. The fbProcs go naturally tidy recognized and processing. I meant Freebasic-functions. have still moreover The File "datei_fb_test.prf" uploaded. These have You then too rewritten to a fbProc.
As I said under Freebasic give Yes Sub´s and functions....

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

Jens-Arne
Reumschüssel

one can crept not directly in FreeBasic program, means neither directly functions of there Call, because the Profan-Compiler these functions not directly in his Program install can. circa tappt im dunkeln To benefit, must always a DLL created go, in the natural functions (Procs) stand, everybody can then from the outside Call can, around the therein encompassed nativen FreeBasic-Code benefit. the is not without whom detour over a DLL-function. the power too the XProfan-Inline-Assembler so, the XPSE-Inline-Assembler and XPSE-nPROCs ditto.

EDIT: Perhaps once more differently around declared: circa FreeBasic-Code produce, must the FreeBasic-Compiler uses go. the goes naturally not "plötzlich" within one Profan-Program. by the Use of DLL-functions is the FreeBasic-code against so zoned, that the FreeBasic-Compiler the vorgesetzt get, take off it virtual is, and the Profan-Compiler its share.

XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

RudiB.

Hello Jens-Arne,

thanks for your response......understand....one can the whole indeed with Sub´s solve. but well to know.
i want my Program now with fbProcs optimize, there it me simply too slow is.....

Greeting Rudi

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

Jens-Arne
Reumschüssel

very for are fbProcs there. the rewards itself but only Programmpassagen, The plenty calculate or integrally often called go, about in a large Loop. Z.B. is it a extreme good idea, The Subclassproc to FreeBasic To verlagern, if The longer as a couple Lines is. If one therein bspw. OwnerDraw-items keeps, then is the in Profan often too slow. One example for wären coloured items in Gridboxen.

XProfan X4
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de