Преглед изворни кода

* Merge commit #39997
------------------------------------------------------------------------
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 -

pierre пре 5 година
родитељ
комит
2dbe24fec5
1 измењених фајлова са 6 додато и 3 уклоњено
  1. 6 3
      compiler/ninl.pas

+ 6 - 3
compiler/ninl.pas

@@ -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',
-                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;
         left := nil;
       end;
       end;