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

* fix for webbug 886

Browse Source
This commit is contained in:
Jonas Maebe 2000-03-22 17:34:53 +00:00
parent 03939d1fb1
commit 82da57a765
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/tcinl.pas
View File

@ -686,6 +686,9 @@ implementation
if ((not dowrite) and is_shortstring(hpp^.left^.resulttype)) or if ((not dowrite) and is_shortstring(hpp^.left^.resulttype)) or
(is_chararray(hpp^.left^.resulttype)) then (is_chararray(hpp^.left^.resulttype)) then
gen_high_tree(hpp,true); gen_high_tree(hpp,true);
{ read(ln) is call by reference (JM) }
if not dowrite then
make_not_regable(hpp^.left);
hpp:=hpp^.right; hpp:=hpp^.right;
end; end;
end; end;
@ -1303,7 +1306,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.70 2000-03-21 09:12:40 florian Revision 1.71 2000-03-22 17:34:53 jonas
* fix for webbug 886
Revision 1.70 2000/03/21 09:12:40 florian
* fixed bug 879: high and low take now any kind of expression * fixed bug 879: high and low take now any kind of expression
Revision 1.69 2000/02/18 13:52:38 jonas Revision 1.69 2000/02/18 13:52:38 jonas