X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=ginac%2Finifcns_gamma.cpp;h=15b1a9a5e851ea19dc68992a576de7eee5c0febe;hp=497c37a6adf62beccb007f46406c628337e98d33;hb=86403ac639de455166ea58d5c561db7de477fcd8;hpb=27d6204effdef95a00af461fff98024e290dbaa7 diff --git a/ginac/inifcns_gamma.cpp b/ginac/inifcns_gamma.cpp index 497c37a6..15b1a9a5 100644 --- a/ginac/inifcns_gamma.cpp +++ b/ginac/inifcns_gamma.cpp @@ -4,7 +4,7 @@ * some related stuff. */ /* - * GiNaC Copyright (C) 1999-2001 Johannes Gutenberg University Mainz, Germany + * GiNaC Copyright (C) 1999-2002 Johannes Gutenberg University Mainz, Germany * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -234,8 +234,8 @@ static ex beta_eval(const ex & x, const ex & y) // treat all problematic x and y that may not be passed into tgamma, // because they would throw there although beta(x,y) is well-defined // using the formula beta(x,y) == (-1)^y * beta(1-x-y, y) - const numeric nx = ex_to(x); - const numeric ny = ex_to(y); + const numeric &nx = ex_to(x); + const numeric &ny = ex_to(y); if (nx.is_real() && nx.is_integer() && ny.is_real() && ny.is_integer()) { if (nx.is_negative()) { @@ -345,7 +345,7 @@ static ex psi1_evalf(const ex & x) static ex psi1_eval(const ex & x) { if (x.info(info_flags::numeric)) { - const numeric nx = ex_to(x); + const numeric &nx = ex_to(x); if (nx.is_integer()) { // integer case if (nx.is_positive()) { @@ -453,8 +453,8 @@ static ex psi2_eval(const ex & n, const ex & x) return log(tgamma(x)); if (n.info(info_flags::numeric) && n.info(info_flags::posint) && x.info(info_flags::numeric)) { - const numeric nn = ex_to(n); - const numeric nx = ex_to(x); + const numeric &nn = ex_to(n); + const numeric &nx = ex_to(x); if (nx.is_integer()) { // integer case if (nx.is_equal(_num1))