Kaydet (Commit) 4085c1e1 authored tarafından haochen's avatar haochen Kaydeden (comit) Kohei Yoshida

Implement fix for COUPDAYSNC in GPU Calc

Change-Id: I9c263c028682dc7083efbf5d8c487279b881f247
Signed-off-by: 's avatarWei Wei <weiwei@multicorewareinc.com>
üst 2b338845
...@@ -1357,6 +1357,94 @@ public: ...@@ -1357,6 +1357,94 @@ public:
} }
virtual std::string BinFuncName(void) const { return "Coupdays";} virtual std::string BinFuncName(void) const { return "Coupdays";}
};
class OpCoupdaysnc:public Normal
{
public:
virtual std::string GetBottom(void) { return "0";}
virtual void GenSlidingWindowFunction(std::stringstream &ss,
const std::string sSymName, SubArguments &vSubArguments)
{
ss << "\ndouble " << sSymName;
ss << "_"<< BinFuncName() <<"(";
for (unsigned i = 0; i < vSubArguments.size(); i++)
{
if (i)
ss << ",";
vSubArguments[i]->GenSlidingWindowDecl(ss);
}
ss << ") {\n\t";
ss << "double tmp = " << GetBottom() <<";\n\t";
ss << "int gid0 = get_global_id(0);\n\t";
ss << "int nSettle,nMat,nFreq,nBase;\n\t";
#ifdef ISNAN
FormulaToken *tmpCur0 = vSubArguments[0]->GetFormulaToken();
const formula::SingleVectorRefToken*tmpCurDVR0= dynamic_cast<const
formula::SingleVectorRefToken *>(tmpCur0);
FormulaToken *tmpCur1 = vSubArguments[1]->GetFormulaToken();
const formula::SingleVectorRefToken*tmpCurDVR1= dynamic_cast<const
formula::SingleVectorRefToken *>(tmpCur1);
FormulaToken *tmpCur2 = vSubArguments[2]->GetFormulaToken();
const formula::SingleVectorRefToken*tmpCurDVR2= dynamic_cast<const
formula::SingleVectorRefToken *>(tmpCur2);
FormulaToken *tmpCur3 = vSubArguments[3]->GetFormulaToken();
const formula::SingleVectorRefToken*tmpCurDVR3= dynamic_cast<const
formula::SingleVectorRefToken *>(tmpCur3);
ss<< "int buffer_nSettle_len = ";
ss<< tmpCurDVR0->GetArrayLength();
ss << ";\n\t";
ss<< "int buffer_nMat_len = ";
ss<< tmpCurDVR1->GetArrayLength();
ss << ";\n\t";
ss<< "int buffer_nFreq_len = ";
ss<< tmpCurDVR2->GetArrayLength();
ss << ";\n\t";
ss<< "int buffer_nBase_len = ";
ss<< tmpCurDVR3->GetArrayLength();
ss << ";\n\t";
#endif
#ifdef ISNAN
ss <<"if(gid0 >= buffer_nSettle_len || isNan(";
ss <<vSubArguments[0]->GenSlidingWindowDeclRef();
ss <<"))\n\t\t";
ss <<"nSettle = 0;\n\telse\n\t\t";
#endif
ss << "nSettle=(int)";
ss << vSubArguments[0]->GenSlidingWindowDeclRef();
ss <<";\n\t";
#ifdef ISNAN
ss <<"if(gid0 >= buffer_nMat_len || isNan(";
ss <<vSubArguments[1]->GenSlidingWindowDeclRef();
ss <<"))\n\t\t";
ss <<"nMat = 0;\n\telse\n\t\t";
#endif
ss << "nMat=(int)";
ss << vSubArguments[1]->GenSlidingWindowDeclRef();
ss << ";\n\t";
#ifdef ISNAN
ss <<"if(gid0 >= buffer_nFreq_len || isNan(";
ss <<vSubArguments[2]->GenSlidingWindowDeclRef();
ss <<"))\n\t\t";
ss <<"nFreq = 0;\n\telse\n\t\t";
#endif
ss << "nFreq=(int)";
ss << vSubArguments[2]->GenSlidingWindowDeclRef();
ss <<";\n\t";
#ifdef ISNAN
ss <<"if(gid0 >= buffer_nBase_len || isNan(";
ss <<vSubArguments[3]->GenSlidingWindowDeclRef();
ss <<"))\n\t\t";
ss <<"nBase = 0;\n\telse\n\t\t";
#endif
ss << "nBase=(int)";
ss << vSubArguments[3]->GenSlidingWindowDeclRef();
ss << ";\n\t";
ss <<"tmp = coupdaysnc(nSettle,nMat,nFreq,nBase);\n\t";
ss << "return tmp;\n";
ss << "}";
}
virtual std::string BinFuncName(void) const { return "Coupdaysnc";}
}; };
class OpReceived:public Normal class OpReceived:public Normal
......
...@@ -918,6 +918,12 @@ DynamicKernelSoPArguments<Op>::DynamicKernelSoPArguments(const std::string &s, ...@@ -918,6 +918,12 @@ DynamicKernelSoPArguments<Op>::DynamicKernelSoPArguments(const std::string &s,
mvSubArguments.push_back(SoPHelper<OpCoupdays>(ts, mvSubArguments.push_back(SoPHelper<OpCoupdays>(ts,
ft->Children[i])); ft->Children[i]));
} }
else if ( !(pChild->GetExternal().compareTo(OUString(
"com.sun.star.sheet.addin.Analysis.getCoupdaysnc"))))
{
mvSubArguments.push_back(SoPHelper<OpCoupdaysnc>(ts,
ft->Children[i]));
}
break; break;
default: default:
assert(0 && "Unsupported"); assert(0 && "Unsupported");
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment