Bug in /= operator

[Enrico Maria Giordano]

This is the sample:

Code: Select all  Expand view  RUN

#include "Fwce.ch"


FUNCTION MAIN()

    LOCAL nVal1 := 2.000
    LOCAL nVal2 := 10

    MSGINFO( nVal1 /= nVal2 )

    RETURN NIL

It terminates with an error when operator /= is executed.

EMG

[Antonio Linares]

Enrico,

This is a workaround:

Code: Select all  Expand view  RUN

#include "Fwce.ch"

FUNCTION MAIN()

    LOCAL nVal1 := 2.000
    LOCAL nVal2 := 10
    local nVal3 := nVal1 / nVal2

    MSGINFO( nVal3 )

    RETURN NIL


Anyhow we are going to check where the error comes from

[Enrico Maria Giordano]

Enrico,

This is a workaround:

Code: Select all  Expand view  RUN

#include "Fwce.ch"

FUNCTION MAIN()

    LOCAL nVal1 := 2.000
    LOCAL nVal2 := 10
    local nVal3 := nVal1 / nVal2

    MSGINFO( nVal3 )

    RETURN NIL


Yes, I did already know it.

Anyhow we are going to check where the error comes from

Thank you!

EMG

[Antonio Linares]

Enrico,

It looks as a bug in the Harbour build used for Pocket PC, as this sample with no FWPPC code in it also fails:

nVal1 /= nVal2

[Enrico Maria Giordano]

Thank you. I'm going to report it to the Harbour developers list.

EMG

[Antonio Linares]

Enrico,

Wait, its ok in the current Harbour version, so it looks as the bug is just contained in the build used for Pocket PC

We may upgrade soon Harbour for Pocket PC to the current Harbour build

[Enrico Maria Giordano]

Yes, you are right.

Thank you.

EMG