paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 01:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for the handling of abs(real), sqr(real) and sqrt(real) when the result is returned in param

Browse Source 
git-svn-id: branches/z80@45011 -
This commit is contained in:
nickysn 2020-04-22 23:42:32 +00:00
parent a189ea4b0b
commit 0e605eb30e
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ninl.pas
View File

@ -3572,7 +3572,14 @@ implementation
in_sqr_real,
in_sqrt_real :
begin
set_varstate(left,vs_read,[vsf_must_be_valid]);
{ on the Z80, the double result is returned in a var param, because
it's too big to fit in registers. In that case we have 2 parameters
and left.nodetype is a callparan. }
if left.nodetype = callparan then
temp_pnode := @tcallparanode(left).left
else
temp_pnode := @left;
set_varstate(temp_pnode^,vs_read,[vsf_must_be_valid]);
setfloatresultdef;
end;