paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-24 04:39:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Merge commit #39997

Browse Source 
------------------------------------------------------------------------
r39997 | pierre | 2018-10-20 18:11:25 +0000 (Sat, 20 Oct 2018) | 1 line

 Also fix first_abs_real like in rev 39988
------------------------------------------------------------------------
--- Merging r39997 into '.':
U    compiler/ninl.pas
--- Recording mergeinfo for merge of r39997 into '.':
 U   .

git-svn-id: branches/fixes_3_2@46555 -
This commit is contained in:
pierre 2020-08-22 21:12:55 +00:00
parent d276e94e0f
commit 2dbe24fec5
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ninl.pas
View File

@ -4071,12 +4071,15 @@ implementation
end; end;
function tinlinenode.first_abs_real : tnode; function tinlinenode.first_abs_real : tnode;
var
callnode : tcallnode;
begin begin
{ create the call to the helper } { create the call to the helper }
{ on entry left node contains the parameter } { on entry left node contains the parameter }
result := ctypeconvnode.create(ccallnode.createintern('fpc_abs_real', callnode:=ccallnode.createintern('fpc_abs_real',
ccallparanode.create(left,nil)),resultdef); ccallparanode.create(left,nil));
include(tcallnode(result).callnodeflags,cnf_check_fpu_exceptions); result := ctypeconvnode.create(callnode,resultdef);
include(callnode.callnodeflags,cnf_check_fpu_exceptions);
left := nil; left := nil;
end; end;