[fpc-devel] compiler bug?

[Jesus Reyes]

update: the following program output:
TRUE
OTHER

program problem;
var
        B: boolean;
begin

        FillChar(B, SizeOf(B), 255);
        if b then WriteLn(TRUE)
        else WriteLn(FALSE);
        case b of
                true: WriteLn(True);
                false: WriteLn(False);
                else WriteLn('OTHER');
        end;
end.

this one tested with: Free Pascal Compiler version 1.0.10
[2003/09/01] for i386 and  Free Pascal Compiler version 1.9.5
[2004/12/29] for i386

 --- Jesus Reyes <jesusrmx at yahoo.com.mx> escribió: 
> I have doubts about this so I made a small test, what I want to
> know
> is if a true boolean value be internally be represented by any
> value
> different from 0.
> 
> program problem;
> var
>   B: boolean;
> begin
>   FillChar(B, SizeOf(B), 255);
>   case b of
>     true: WriteLn(True);
>     false: WriteLn(False);
>     else WriteLn('OTHER');
>   end;
> end.
> 
> I'm using : Free Pascal Compiler version 1.9.5 [2004/12/29] for
> i386
> under linux.
> 
> the program output: OTHER, it's a compiler bug?
> 
> _________________________________________________________
> Do You Yahoo!?
> La mejor conexión a internet y 25MB extra a tu correo por $100 al
> mes. http://net.yahoo.com.mx
> 
> _______________________________________________
> fpc-devel maillist  -  fpc-devel at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-devel
>  

_________________________________________________________
Do You Yahoo!?
La mejor conexión a internet y 25MB extra a tu correo por $100 al mes. http://net.yahoo.com.mx