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

* bugfix of WRITE_TEXT_BOOLEAN , was not TP compatible

Browse Source 
+ added explicit typecast in OpenText
This commit is contained in:
carl 1998-07-01 14:48:10 +00:00
parent 7e95e0140e
commit 6d5e917e60
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/text.inc
View File

@ -115,7 +115,7 @@ Begin
exit; exit;
End; End;
End; End;
TextRec(t).mode:=mode; TextRec(t).mode:=word(mode);
{ If TextRec(t).Name[0]<>#0 Then } { If TextRec(t).Name[0]<>#0 Then }
FileFunc(TextRec(t).OpenFunc)(TextRec(t)) FileFunc(TextRec(t).OpenFunc)(TextRec(t))
{ else { else
@ -500,7 +500,7 @@ End;
{ Is called wc to avoid recursive calling. } { Is called wc to avoid recursive calling. }
Procedure wc(Len : Longint;var t : TextRec;b : Boolean);[Public,Alias: 'WRITE_TEXT_BOOLEAN']; Procedure wc(Len : Longint;var t : TextRec;b : Boolean);[Public,Alias: 'WRITE_TEXT_BOOLEAN'];
const const
BoolString:array[0..1] Of String[5]=('False','True'); BoolString:array[0..1] Of String[5]=('FALSE','TRUE');
Begin Begin
if b then if b then
w(Len,t,String(BoolString[1])) w(Len,t,String(BoolString[1]))
@ -959,7 +959,11 @@ End;
{ {
$Log$ $Log$
Revision 1.11 1998-06-25 09:44:22 daniel Revision 1.12 1998-07-01 14:48:10 carl
* bugfix of WRITE_TEXT_BOOLEAN , was not TP compatible
+ added explicit typecast in OpenText
Revision 1.11 1998/06/25 09:44:22 daniel
+ RTLLITE directive to compile minimal RTL. + RTLLITE directive to compile minimal RTL.
Revision 1.10 1998/06/04 23:46:03 peter Revision 1.10 1998/06/04 23:46:03 peter