From d512d8cae1678e07a594d97a6160d54048c6fdac Mon Sep 17 00:00:00 2001 From: pierre Date: Sat, 20 Oct 2018 18:11:25 +0000 Subject: [PATCH] Also fix first_abs_real like in rev 39988 git-svn-id: trunk@39997 - --- compiler/ninl.pas | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/compiler/ninl.pas b/compiler/ninl.pas index f7b7e461de..9d963b6f1e 100644 --- a/compiler/ninl.pas +++ b/compiler/ninl.pas @@ -4093,12 +4093,15 @@ implementation end; function tinlinenode.first_abs_real : tnode; + var + callnode : tcallnode; begin { create the call to the helper } { on entry left node contains the parameter } - result := ctypeconvnode.create(ccallnode.createintern('fpc_abs_real', - ccallparanode.create(left,nil)),resultdef); - include(tcallnode(result).callnodeflags,cnf_check_fpu_exceptions); + callnode:=ccallnode.createintern('fpc_abs_real', + ccallparanode.create(left,nil)); + result := ctypeconvnode.create(callnode,resultdef); + include(callnode.callnodeflags,cnf_check_fpu_exceptions); left := nil; end;