static void dbg_gen_if(FILE *fp,if_t *ifstmt) { DB0(debug_constant, "\t\t\t\tEN dbg_gen_if \n"); if (ifstmt == NULL) { DB0(debug_constant, "\t\t\t\tEX dbg_gen_if due to null\n"); return; } if (ST_TYPE(ifstmt) != IF_T) { DB0(debug_constant, "dbg_gen_array_decl : wrong pointer type\n"); dbg_error_recovery(fp, (statement_t *)ifstmt); return; } fprintf(fp, "if ("); fflush(fp); dbg_gen_expr(fp, T_IFCOND(ifstmt)); fprintf(fp, ") {\n"); fflush(fp); dbg_gen_stmtls(fp, T_THEN(ifstmt)); fprintf(fp, "}\nelse {"); fflush(fp); dbg_gen_stmtls(fp, T_ELSE(ifstmt)); fprintf(fp, "}\n"); fflush(fp); fflush(stdout); DB0(debug_constant, "\t\t\t\tEX dbg_gen_if\n"); }
void traverse_stmtls_g(statement_t *stmtls,void (*pre_s) (statement_t *), void (*post_s) (statement_t *),void (*e) (expr_t *), void (*d) (symboltable_t *)) { statement_t *next; DB0(50,"{traverse_stmtls_g(,,,,)\n"); for (; stmtls != NULL; stmtls = next) { next = T_NEXT(stmtls); traverse_stmt_g(stmtls,pre_s,post_s,e,d); } DB0(55,"}returning from traverse_stmtls_g(,,,,)\n"); }
static void traverse_if_g(if_t *ifstmt,void (*pre_s) (statement_t *), void (*post_s) (statement_t *),void (*e) (expr_t *), void (*d) (symboltable_t *)) { DB0(80,"{traverse_if_g(,,,,);\n"); if (ifstmt == NULL) { INT_FATAL(NULL, "Null ifstmt in traverse_if_g()"); } if (e != NULL) { (*e)(T_IFCOND(ifstmt)); } traverse_stmtls_g(T_THEN(ifstmt),pre_s,post_s,e,d); traverse_stmtls_g(T_ELSE(ifstmt),pre_s,post_s,e,d); DB0(85,"}returning from traverse_if_g();\n"); }
void traverse_exprls_g(expr_t *exprls,void (*pre_e) (expr_t *), void (*post_e) (expr_t *)) { expr_t *next; DB0(70,"{traverse_exprls_g(,,);\n"); if (pre_e == NULL && post_e == NULL) { DB0(75,"}returning from traverse_exprls_g(,,);\n"); return; } for (; exprls != NULL; exprls = next) { next = T_NEXT(exprls); traverse_expr_g(exprls,pre_e,post_e); } DB0(75,"}returning from traverse_exprls_g(,,);\n"); }
complex LoopToolsWrapper::PV_B0p(const double muIR2, const double p2, const double m02, const double m12) const { setmudim(muIR2); std::complex<double> B0pval = DB0(p2, m02, m12); return complex( B0pval.real(), B0pval.imag(), false ); }
static void traverse_nloop_g(nloop_t *nloop,void (*pre_s) (statement_t *), void (*post_s) (statement_t *), void (*e) (expr_t *),void (*d) (symboltable_t *)) { DB0(80,"traverse_nloop_g(,,,,);\n"); if (nloop == NULL) { INT_FATAL(NULL, "Null loop in traverse_nloop_g()"); } traverse_stmtls_g(T_NLOOP_BODY(nloop),pre_s,post_s,e,d); }
static void traverse_region_g(region_t *region,void (*pre_s) (statement_t *), void (*post_s) (statement_t *), void (*e) (expr_t *), void (*d) (symboltable_t *)) { DB0(80,"traverse_region_g(,,,,);\n"); if (region == NULL) { INT_FATAL(NULL, "Null region in traverse_region_g()"); } if (e) (*e)(T_MASK_EXPR(region)); traverse_stmtls_g(T_BODY(region),pre_s,post_s,e,d); }
static void traverse_if(if_t *ifstmt,int postorder,void (*f) (statement_t *), void (*e) (expr_t *),void (*d) (symboltable_t *)) { DB1(80,"{traverse_if(,%d,,,);\n",postorder); if (ifstmt == NULL) { INT_FATAL(NULL, "Null ifstmt in traverse_if()"); } if (e != NULL) { (*e)(T_IFCOND(ifstmt)); } traverse_stmtls(T_THEN(ifstmt),postorder,f,e,d); traverse_stmtls(T_ELSE(ifstmt),postorder,f,e,d); DB0(85,"}returning from traverse_if();\n"); }
void traverse_expr_g(expr_t *expr,void (*pre_e) (expr_t *), void (*post_e) (expr_t *)) { DB0(70,"traverse_expr_g(,,);\n"); if ((expr == NULL) || ((pre_e == NULL) && (post_e == NULL))) { return; } if (pre_e != NULL) (*pre_e)(expr); traverse_exprls_g(T_OPLS(expr),pre_e,post_e); if (post_e != NULL) (*post_e)(expr); }
static void traverse_loop_g(loop_t *loop,void (*pre_s) (statement_t *), void (*post_s) (statement_t *),void (*e) (expr_t *), void (*d) (symboltable_t *)) { DB0(80,"traverse_loop_g(,,,,);\n"); if (loop == NULL) { INT_FATAL(NULL, "Null loop in traverse_loop_g()"); return; } switch (T_TYPE(loop)) { case L_DO: if (e != NULL) { (*e)(T_IVAR(loop)); (*e)(T_START(loop)); (*e)(T_STOP(loop)); if (T_STEP(loop) != NULL) { (*e)(T_STEP(loop)); } } traverse_stmtls_g(T_BODY(loop),pre_s,post_s,e,d); break; case L_WHILE_DO: case L_REPEAT_UNTIL: if (e != NULL) { (*e)(T_LOOPCOND(loop)); } traverse_stmtls_g(T_BODY(loop),pre_s,post_s,e,d); break; default: INT_FATAL(NULL, "Bad looptype (%d) in traverse_loop_g()",T_TYPE(loop)); } #ifdef DEBUG fflush(stdout); #endif }
void traverse_stmt_g(statement_t *stmt,void (*pre_s) (statement_t *), void (*post_s) (statement_t *),void (*e) (expr_t *), void (*d) (symboltable_t *)) { DB0(60,"traverse_stmt_g(,,,,)\n"); if (stmt == NULL) { return; } if (pre_s) (*pre_s)(stmt); switch (T_TYPE(stmt)) { case S_NULL: case S_EXIT: case S_END: case S_HALT: case S_CONTINUE: case S_ZPROF: /* MDD */ break; case S_WRAP: case S_REFLECT: traverse_wrap_g(T_WRAP(stmt), pre_s, post_s, e, d); break; case S_COMM: traverse_comm_g(T_COMM(stmt), pre_s, post_s, e, d); break; case S_REGION_SCOPE: RMSPushScope(T_REGION(stmt)); traverse_region_g(T_REGION(stmt),pre_s,post_s,e,d); RMSPopScope(T_REGION(stmt)); break; case S_MLOOP: traverse_mloop_g(T_MLOOP(stmt),pre_s,post_s,e,d); break; case S_NLOOP: traverse_nloop_g(T_NLOOP(stmt),pre_s,post_s,e,d); break; case S_COMPOUND: case S_MSCAN: if (d != NULL) (*d)(T_CMPD_DECL(stmt)); traverse_stmtls_g(T_CMPD_STLS(stmt),pre_s,post_s,e,d); break; case S_EXPR: if (e != NULL) (*e)(T_EXPR(stmt)); break; case S_IF: traverse_if_g(T_IF(stmt),pre_s,post_s,e,d); break; case S_LOOP: traverse_loop_g(T_LOOP(stmt),pre_s,post_s,e,d); break; case S_RETURN: if (e != NULL && T_RETURN(stmt) != NULL) (*e)(T_RETURN(stmt)); break; case S_IO: if (e != NULL) (*e)(IO_EXPR1(T_IO(stmt))); break; default: DB1(70,"Type of structure == %d\n",ST_TYPE(stmt)); INT_FATAL(stmt, "Bad statementtype (%d) in traverse_stmt_g()",T_TYPE(stmt)); } if (post_s) (*post_s)(stmt); }