long __Call_ctg( CDSR_VMEval& /*vm*/, MMD_Address& addr, UniWord *arg ) { #if _DEBUG if( addr.param2 < 0 ) throw _T("__Call_(fun) : internal error, out of range"); #endif if( addr.param2 == 0 ) // DSRDATA_TYPE_REAL *(arg - 1) = CDSRReal( ctg( (arg - 1)->getReal() ) ); else // DSRDATA_TYPE_COMPLEX *(arg - 1) = CDSRComplex( ctg( (arg - 1)->getComplex() ) ); return 1 - addr.param3; }
void ChainVisitor::TraverseChain(CChainElement *pElement) { CChainTraverser_Generic ctg(*this); pElement->TraverseChain(&ctg); }