diff --git a/compiler/ninl.pas b/compiler/ninl.pas index 454d576599..2341788cd1 100644 --- a/compiler/ninl.pas +++ b/compiler/ninl.pas @@ -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;