From dacc0c39003dad32c7edb7d61fe2ab398fc0c934 Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Thu, 29 Dec 2011 16:00:38 -0500 Subject: Remove support for pown function pown is only supported in OpenCL, and does not seem to give a performance improvement. --- Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h | 1 - Tools/CodeGen/CodeGenCactus.m | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h index d768625..0be42d3 100644 --- a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h +++ b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h @@ -1,5 +1,4 @@ #ifdef KRANC_C -# define pown(x,y) pow(x,y) # define IfThen(x,y,z) ((x) ? (y) : (z)) #else # define Abs(x) (abs(x)) diff --git a/Tools/CodeGen/CodeGenCactus.m b/Tools/CodeGen/CodeGenCactus.m index 60b9f9d..1a34074 100644 --- a/Tools/CodeGen/CodeGenCactus.m +++ b/Tools/CodeGen/CodeGenCactus.m @@ -738,7 +738,7 @@ DefFn[ from here. *) rhs = rhs //. Power[E, power_] -> exp[power]; rhs = rhs //. Log[x_] -> log[x]; - rhs = rhs //. Power[x_, n_Integer] -> pown[x,y]; + (* rhs = rhs //. Power[x_, n_Integer] -> pown[x,n]; *) rhs = rhs //. Power[x_, y_] -> pow[x,y]; rhs = rhs //. Sin[x_] -> sin[x]; rhs = rhs //. Cos[x_] -> cos[x]; -- cgit v1.2.3