paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bug for boolean values greater than one fixed

Browse Source
This commit is contained in:
pierre 1998-06-02 16:47:56 +00:00
parent ebd2e9107b
commit ad8d0efb52
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/text.inc
View File

@ -499,7 +499,10 @@ Procedure wc(Len : Longint;var t : TextRec;b : Boolean);[Public,Alias: 'WRITE_TE
const const
BoolString:array[0..1] Of String[5]=('False','True'); BoolString:array[0..1] Of String[5]=('False','True');
Begin Begin
w(Len,t,String(BoolString[byte(b)])); if b then
w(Len,t,String(BoolString[1]))
else
w(Len,t,String(BoolString[0]));
End; End;
@ -948,7 +951,10 @@ Begin
End; End;
{ {
$Log$ $Log$
Revision 1.8 1998-05-31 14:14:54 peter Revision 1.9 1998-06-02 16:47:56 pierre
* bug for boolean values greater than one fixed
Revision 1.8 1998/05/31 14:14:54 peter
* removed warnings using comp() * removed warnings using comp()
Revision 1.7 1998/05/27 00:19:21 peter Revision 1.7 1998/05/27 00:19:21 peter