X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=ginac%2Ffunction.pl;h=07e82e19d2578c73e6c10e3e9cf76caa6a60e797;hp=e1533be27aba0d57cd126b8ae27cb02f719479ec;hb=8fa654f2637fa755e890499ece1a7bc498779ea3;hpb=ee1ec9db30b446d2d6348df2ce758ed2ff62a310 diff --git a/ginac/function.pl b/ginac/function.pl index e1533be2..07e82e19 100644 --- a/ginac/function.pl +++ b/ginac/function.pl @@ -2,7 +2,7 @@ # function.pl options: \$maxargs=${maxargs} # -# GiNaC Copyright (C) 1999-2009 Johannes Gutenberg University Mainz, Germany +# GiNaC Copyright (C) 1999-2010 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 @@ -292,7 +292,7 @@ $interface=< get_registered_functions() { return registered_functions(); }; unsigned get_serial() const {return serial;} std::string get_name() const; @@ -574,7 +575,7 @@ $implementation=<setflag(status_flags::dynallocated | - status_flags::evaluated); + return (new GiNaC::power(*this, power_param))->setflag(status_flags::dynallocated | + status_flags::evaluated); current_serial = serial; if (opt.power_use_exvector_args)