[fpc-devel] compiler bug?

[Jesus Reyes]

Never mind, I friend of mine confirmed that delphi does the same
output.

regards.

 --- Jesus Reyes <jesusrmx at yahoo.com.mx> escribió: 
> 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
> 
> _______________________________________________
> 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