* fixed memory leak in conversion of realconstn to currency

git-svn-id: trunk@7630 -

compiler/ncnv.pas

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