summaryrefslogtreecommitdiff
path: root/Build/source/utils/asymptote/runarray.in
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/asymptote/runarray.in')
-rw-r--r--Build/source/utils/asymptote/runarray.in2
1 files changed, 2 insertions, 0 deletions
diff --git a/Build/source/utils/asymptote/runarray.in b/Build/source/utils/asymptote/runarray.in
index 4d0aaaa8d28..c9f80a12297 100644
--- a/Build/source/utils/asymptote/runarray.in
+++ b/Build/source/utils/asymptote/runarray.in
@@ -1599,10 +1599,12 @@ real simpson(callableReal *f, real a, real b, real acc=DBL_EPSILON,
{
real integral;
if(dxmax <= 0) dxmax=fabs(b-a);
+ callable *oldFunc=Func;
Func=f;
FuncStack=Stack;
if(!simpson(integral,wrapFunction,a,b,acc,dxmax))
error("nesting capacity exceeded in simpson");
+ Func=oldFunc;
return integral;
}