[Gambas-user] New JIT Compiler, Trying.... QUINQUES

Ru Vuott vuott at ...325...
Thu May 24 02:42:42 CEST 2012


> 
> > Try to run the benchmark
> > http://gambasdoc.org/help/doc/benchmark/polynom
> > <http://gambasdoc.org/help/doc/benchmark/polynom>and
> 


I wrote it:

Public Sub Button1_Click()

Dim I As Integer

For I = 1 To 10
  Print Test(0.2)
Next

 End


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) / 2.0
      aPoly[J] = Mu
    Next
    Su = 0.0
    For J = 0 To 99
      Su = X * Su + aPoly[J]
    Next
    Pu += Su
  Next

  Return Pu

End


I launched and I received in console:

1250000
1250000
1250000
1250000
1250000
1250000
1250000
1250000
1250000
1250000




More information about the User mailing list