Advertisement
Guest User

Untitled

a guest
Nov 20th, 2019
126
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.10 KB | None | 0 0
  1. /* CHECK */
  2. // The whole for-loop is in PARDEBUG
  3. for (n = 0; n < flow->stop - flow->start; n++) {
  4. DEBUG(PAR, "[%d] %d\n", flow->start + n, n);
  5. debugInstruction(PAR, mb, 0, getInstrPtr(mb, n + flow->start), LIST_MAL_ALL);
  6. DEBUG(PAR, "[%d] dependents block count %d wakeup\n", flow->start + n, flow->status[n].blocks);
  7. for (j = n; flow->edges[j]; j = flow->edges[j]) {
  8. DEBUG(PAR, "%d\n", flow->start + flow->nodes[j]);
  9. if (flow->edges[j] == -1)
  10. break;
  11. }
  12. }
  13.  
  14. ----------
  15.  
  16. /* CHECK */
  17. // The 1st DEBUG message and the for loop are both in DEBUG MAL_REDUCE
  18. DEBUG(MAL_REDUCE, "Variable reduction %d -> %d\n", mb->vtop, cnt);
  19. for (i = 0; i < mb->vtop; i++)
  20. DEBUG(MAL_REDUCE, "map %d -> %d\n", i, alias[i]);
  21.  
  22. ----------
  23. /* CHECK */
  24. // If is in DEBUG MAL_RESOLVE
  25. if (sig->polymorphic || sig->retc == p->retc) {
  26. DEBUG(MAL_RESOLVE, "Resolving\n");
  27. debugInstruction(MAL_RESOLVE, mb, 0, p, LIST_MAL_ALL);
  28. DEBUG(MAL_RESOLVE, "Against\n");
  29. debugInstruction(MAL_RESOLVE, s->def, 0, getSignature(s), LIST_MAL_ALL);
  30. }
  31. ----------
  32.  
  33. /* CHECK */
  34. // From here
  35. DEBUG(MAL_RESOLVE,
  36. "Finished %s.%s unmatched=%d polymorphic=%d %d\n",
  37. getModuleId(sig), getFunctionId(sig), unmatched,
  38. sig->polymorphic, p == sig);
  39.  
  40. if (sig->polymorphic) {
  41. int l;
  42. for (l = 0; l < 2 * p->argc; l++)
  43. if (polytype[l] != TYPE_any) {
  44. DEBUG(MAL_RESOLVE, "Polymorphic: %d %s\n", l, getTypeName(polytype[l]));
  45. }
  46. }
  47.  
  48. DEBUG(MAL_RESOLVE, "Resolving\n");
  49. debugInstruction(MAL_RESOLVE, mb, 0, p, LIST_MAL_ALL);
  50. DEBUG(MAL_RESOLVE, "Against\n");
  51. debugInstruction(MAL_RESOLVE, s->def, 0, getSignature(s), LIST_MAL_ALL);
  52.  
  53. if(unmatched)
  54. DEBUG(MAL_RESOLVE,
  55. "Unmatched '%d' (test: %s - polymorphic: %s)\n",
  56. unmatched,
  57. getTypeName(getArgType(mb, p, unmatched)),
  58. getTypeName(getArgType(s->def, sig, unmatched)));
  59. // Till here - in in DEBUG MAL_RESOLVE
  60.  
  61. ----------
  62.  
  63. /* CHECK */
  64. // The for-loop is in DEBUG MAL_GROUPBY
  65. for(i=0; i<a->last; i++)
  66. DEBUG(MAL_GROUPBY, "Group '%d' unique "BUNFMT "\n", i, a->unique[i]);
  67.  
  68. -----------
  69.  
  70. /* CHECK */
  71. // If is in DEBUG MAL_TABLET
  72. if ((i % 1000000) == 0)
  73. DEBUG(MAL_TABLET, "Dumped " BUNFMT " lines\n", i);
  74.  
  75. -----------
  76.  
  77. /* CHECK */
  78. // If is in DEBUG MAL_TABLET
  79. if (!ateof[cur])
  80. DEBUG(MAL_TABLET,
  81. "Read '%zu' bytes - pos=%zu eof=%d offset=" LLFMT " \n",
  82. task->b->len, task->b->pos, task->b->eof, (lng) (s - task->input[cur]));
  83.  
  84. ----------
  85.  
  86. /* CHECK */
  87. // From here
  88. DEBUG(MAL_OPT_DATAFLOW, "Variable states\n");
  89. debugInstruction(MAL_OPT_DATAFLOW, mb, 0, p, LIST_MAL_ALL);
  90. for(k = 0; k < p->argc; k++)
  91. DEBUG(MAL_OPT_DATAFLOW, "%s %d\n", getVarName(mb,getArg(p,k)), states[getArg(p,k)]);
  92. // To here - is in DEBUG MAL_OPT_DATAFLOW
  93.  
  94. ----------
  95.  
  96. /* CHECK */
  97. // From here
  98. int k;
  99. DEBUG(MAL_OPT_GC, "Garbage collected BAT variables\n");
  100. for ( k =0; k < mb->vtop; k++)
  101. DEBUG(MAL_OPT_GC, "%10s eolife %3d begin %3d lastupd %3d end %3d\n",
  102. getVarName(mb,k), getVarEolife(mb,k),
  103. getBeginScope(mb,k), getLastUpdate(mb,k), getEndScope(mb,k));
  104. chkFlow(mb);
  105. if ( mb->errors != MAL_SUCCEED ){
  106. DEBUG(MAL_OPT_GC, "%s\n", mb->errors);
  107. freeException(mb->errors);
  108. mb->errors = MAL_SUCCEED;
  109. }
  110. // To here is in DEBUG MAL_OPT_GC
  111.  
  112. -----------
  113.  
  114. /* CHECK */
  115. // This part of the code is executed on certain conditions
  116. // if( OPTdebug & OPTprojectionpath){
  117. if( actions > 0){
  118. chkTypes(cntxt->usermodule, mb, FALSE);
  119. chkFlow(mb);
  120. chkDeclarations(mb);
  121. }
  122. mnstr_printf(cntxt->fdout,"#projectionpath prefix actions %d\n",actions);
  123. if(actions) printFunction(cntxt->fdout,mb, 0, LIST_MAL_ALL);
  124. // }
  125. ----------
  126.  
  127. /* CHECK */
  128. // From here
  129. if( s== NULL) {
  130. DEBUG(MAL_OPT_REMAP, "Not found\n");
  131. } else {
  132. DEBUG(MAL_OPT_REMAP, "Side effects\n");
  133. }
  134. // To here is in DBEUG MAL_OPT_REMAP
  135.  
  136. ----------
  137.  
  138. /* CHECK */
  139. // From here
  140. DEBUG(MAL_OPT_REMAP, "Abort remap\n");
  141. if (q)
  142. debugInstruction(MAL_OPT_REMAP, mb, 0, q, LIST_MAL_ALL);
  143. // To here is in DEBUG MAL_OPT_REMAP
  144.  
  145. -----------
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement