* fixed memory leak in conversion of realconstn to currency

git-svn-id: trunk@7630 -

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;