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

* Also merge 39991 to avoid wrong typecast in first_sqrt_real

Browse Source 
------------------------------------------------------------------------
r39991 | florian | 2018-10-20 10:18:45 +0000 (Sat, 20 Oct 2018) | 2 lines

* same fix as in r39988 for fpc_first_sqrt

------------------------------------------------------------------------
--- Merging r39991 into '.':
U    compiler/ninl.pas
--- Recording mergeinfo for merge of r39991 into '.':
 U   .

git-svn-id: branches/fixes_3_2@46285 -
This commit is contained in:
pierre 2020-08-06 09:13:20 +00:00
parent c39c8c1794
commit 4ba3bfb227
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ninl.pas
View File

@ -4102,6 +4102,7 @@ implementation
var
fdef: tdef;
procname: string[31];
callnode: tcallnode;
begin
if ((cs_fp_emulation in current_settings.moduleswitches)
{$ifdef cpufpemu}
@ -4133,9 +4134,10 @@ implementation
begin
{ create the call to the helper }
{ on entry left node contains the parameter }
result := ctypeconvnode.create(ccallnode.createintern('fpc_sqrt_real',
ccallparanode.create(left,nil)),resultdef);
include(tcallnode(result).callnodeflags,cnf_check_fpu_exceptions);
callnode := ccallnode.createintern('fpc_sqrt_real',
ccallparanode.create(left,nil));
result := ctypeconvnode.create(callnode,resultdef);
include(callnode.callnodeflags,cnf_check_fpu_exceptions);
end;
left := nil;
end;