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

* write false/true lower case in iso mode

Browse Source 
git-svn-id: trunk@15678 -
This commit is contained in:
florian 2010-07-31 20:40:43 +00:00
parent ced4f95c56
commit d0ea23f39e
3 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ninl.pas
View File

@ -507,6 +507,11 @@ implementation
else
begin
name := procprefixes[do_read]+'boolean';
{ iso pascal needs a different handler }
if (m_iso in current_settings.modeswitches) and not(do_read) then
name:=name+'_iso';
readfunctype:=booltype;
end
else
@ -778,7 +783,6 @@ implementation
para,nextpara:Tcallparanode;
p1:Tnode;
temp:Ttempcreatenode;
begin
found_error:=false;
para:=Tcallparanode(params);

1
rtl/inc/compproc.inc
View File

@ -485,6 +485,7 @@ procedure fpc_write_text_enum(typinfo,ord2strindex:pointer;len:sizeint;var t:tex
Procedure fpc_Write_Text_Currency(fixkomma,Len : Longint;var t : Text;c : Currency); compilerproc;
{$endif FPC_HAS_STR_CURRENCY}
Procedure fpc_Write_Text_Boolean(Len : Longint;var t : Text;b : Boolean); compilerproc;
Procedure fpc_Write_Text_Boolean_Iso(Len : Longint;var t : Text;b : Boolean); compilerproc;
Procedure fpc_Write_Text_Char(Len : Longint;var t : Text;c : Char); compilerproc;
{$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
Procedure fpc_Write_Text_WideChar(Len : Longint;var t : Text;c : WideChar); compilerproc;

12
rtl/inc/text.inc
View File

@ -848,6 +848,18 @@ Begin
End;
Procedure fpc_Write_Text_Boolean_Iso(Len : Longint;var t : Text;b : Boolean); iocheck; compilerproc;
Begin
If (InOutRes<>0) then
exit;
{ Can't use array[boolean] because b can be >0 ! }
if b then
Write_Str(Len,t,'true')
else
Write_Str(Len,t,'false');
End;
Procedure fpc_Write_Text_Char(Len : Longint;var t : Text;c : Char); iocheck; compilerproc;
Begin
If (InOutRes<>0) then