paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 03:10:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ ret in param fix for tinlinenode.first_sqr_real

Browse Source 
git-svn-id: branches/z80@45013 -
This commit is contained in:
nickysn 2020-04-23 00:08:23 +00:00
parent a1ccab5e23
commit 0b19d4235f
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ninl.pas
View File

@ -4190,6 +4190,7 @@ implementation
function tinlinenode.first_sqr_real : tnode;
var
callnode : tcallnode;
temp_pnode: pnode;
begin
{$ifndef cpufpemu}
{ this procedure might be only used for cpus definining cpufpemu else
@ -4198,11 +4199,15 @@ implementation
{$endif cpufpemu}
{ create the call to the helper }
{ on entry left node contains the parameter }
if left.nodetype = callparan then
temp_pnode := @tcallparanode(left).left
else
temp_pnode := @left;
callnode:=ccallnode.createintern('fpc_sqr_real',
ccallparanode.create(left,nil));
ccallparanode.create(temp_pnode^,nil));
result := ctypeconvnode.create(callnode,resultdef);
include(callnode.callnodeflags,cnf_check_fpu_exceptions);
left := nil;
temp_pnode^ := nil;
end;
function tinlinenode.first_sqrt_real : tnode;