6fc6a48818
[BENCHMARKS] * NEW: Compute the duration of JIT Gambas code without JIT compilation time.
34 lines
452 B
Text
Executable file
34 lines
452 B
Text
Executable file
#!/usr/bin/env gbs3
|
|
|
|
Sub Test(X As Float) As Float
|
|
|
|
Dim Mu As Float = 10.0
|
|
Dim Pu, Su As Float
|
|
Dim I, J, N As Integer
|
|
Dim aPoly As New Float[100]
|
|
|
|
N = 500000
|
|
|
|
For I = 0 To N - 1
|
|
For J = 0 To 99
|
|
Mu = Mu / 2.0 + 1
|
|
aPoly[J] = Mu
|
|
Next
|
|
Su = 0.0
|
|
For J = 0 To 99
|
|
Su = X * Su + aPoly[J]
|
|
Next
|
|
Pu += Su
|
|
Next
|
|
|
|
Return Pu
|
|
|
|
End
|
|
|
|
Dim I as Integer
|
|
|
|
For I = 1 To 2
|
|
Print Test(0.2)
|
|
Next
|
|
|
|
Error CStr(Jit.Time)
|