|
@@ -4071,12 +4071,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;
|
|
|
|