[Gambas-user] If x <> +Inf Then [Error]

[Benoit Minisini]

Le 18/04/2023 à 23:17, Martín a écrit :
> Hi,
> 
> There maybe are an error in the evaluation of expression:
> 
> If x <> +Inf Then ...
> 
> To reproduce the error you can use this code (it occurs in 3.18.2 & 
> 3.18.90 but not in 3.18.0)
> 
> Public Sub Form_Open()
> 
>    Dim i As Integer
>    'Dim inFinito As Integer = (2 ^ 31) - 1
>    Dim inFinito As Integer = +Inf
>    Dim a As New Integer[]
> 
>    For i = 0 To 9
>      a.Add(Rand(0, inFinito))
>    Next
> 
>    For i = 0 To 9
>      'If a[i] <> +Inf Then ' it doesn't works
>      If a[i] <> inFinito Then ' it works
> 
>        Print "Continua jugando"
>      Else
>        Print "Fin del juego"
>      Endif
>    Next
> 
> End
> 
> 
> Best regards
> 
> Martin.
> 

It should be fixed by last commit.

Anyway, it makes no sense for me to compare an integer to '+Inf', which 
is a floating point constant that represents positive infinity.

Regards,

-- 
Benoît Minisini.