Explorar o código

* fixed memory leak in conversion of realconstn to currency

git-svn-id: trunk@7630 -
Jonas Maebe %!s(int64=18) %!d(string=hai) anos
pai
achega
8d13899d84
Modificáronse 1 ficheiros con 5 adicións e 3 borrados
  1. 5 3
      compiler/ncnv.pas

+ 5 - 3
compiler/ncnv.pas

@@ -1086,9 +1086,11 @@ implementation
         if left.nodetype=realconstn then
           result:=cordconstnode.create(round(trealconstnode(left).value_real),resultdef,false)
         else
-          result:=ccallnode.createinternres('fpc_round_real',
-            ccallparanode.create(left,nil),resultdef);
-        left:=nil;
+          begin
+            result:=ccallnode.createinternres('fpc_round_real',
+              ccallparanode.create(left,nil),resultdef);
+            left:=nil;
+          end;
       end;