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

* fix for bug0238.pp

Browse Source
This commit is contained in:
pierre 1999-04-15 14:10:51 +00:00
parent 9bca84a43d
commit abef5e7814
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/tcinl.pas
View File

@ -558,6 +558,7 @@ implementation
file_is_typed:=false;
if assigned(p^.left) then
begin
dowrite:=(p^.inlinenumber in [in_write_x,in_writeln_x]);
firstcallparan(p^.left,nil);
{ now we can check }
hp:=p^.left;
@ -579,6 +580,11 @@ implementation
CGMessage(type_e_cant_read_write_type);
if not is_equal(hpp^.resulttype,pfiledef(hp^.resulttype)^.typed_as) then
CGMessage(type_e_mismatch);
if hpp^.resulttype^.deftype=stringdef then
{ generate the high() value for the shortstring }
if (not dowrite) and
is_shortstring(hpp^.left^.resulttype) then
gen_high_tree(hpp,true);
hpp:=hpp^.right;
end;
end;
@ -587,7 +593,6 @@ implementation
{ insert type conversions for write(ln) }
if (not file_is_typed) then
begin
dowrite:=(p^.inlinenumber in [in_write_x,in_writeln_x]);
hp:=p^.left;
while assigned(hp) do
begin
@ -1073,7 +1078,10 @@ implementation
end.
{
$Log$
Revision 1.25 1999-04-15 10:00:35 peter
Revision 1.26 1999-04-15 14:10:51 pierre
* fix for bug0238.pp
Revision 1.25 1999/04/15 10:00:35 peter
* writeln(procvar) support for tp7 mode
Revision 1.24 1999/04/14 09:15:07 peter