Diff for /gforth/engine/profile.c between versions 1.4 and 1.6

version 1.4, 2001/03/04 13:39:35 version 1.6, 2002/02/10 14:02:25
Line 102  void postprocess_block(block_count *b) Line 102  void postprocess_block(block_count *b)
       add_inst(b,"unknown");        add_inst(b,"unknown");
       ip++;        ip++;
     }      }
     _endif_:
     next_block = block_lookup(ip);      next_block = block_lookup(ip);
   } while (next_block == NULL);    } while (next_block == NULL);
   /* we fell through, so set fallthrough and update the count */    /* we fell through, so set fallthrough and update the count */
Line 128  void postprocess(void) Line 129  void postprocess(void)
 }  }
   
 #if 0  #if 0
   /* full basic blocks only */
 void print_block(FILE *file, block_count *b)  void print_block(FILE *file, block_count *b)
 {  {
   size_t i;    size_t i;
Line 137  void print_block(FILE *file, block_count Line 139  void print_block(FILE *file, block_count
     fprintf(file, "%s ", b->insts[i]);      fprintf(file, "%s ", b->insts[i]);
   putc('\n', file);    putc('\n', file);
 }  }
 #endif  #elif 0
   /* full basic blocks and all their prefixes */
   void print_block(FILE *file, block_count *b)
   {
     size_t i,j;
   
     for (j=1; j<=b->ninsts; j++) {
       fprintf(file,"%14lld\t",b->count);
       for (i=0; i<j; i++)
         fprintf(file, "%s ", b->insts[i]);
       putc('\n', file);
     }
   }
   #else
   /* all subsequences up to length 12 */
 void print_block(FILE *file, block_count *b)  void print_block(FILE *file, block_count *b)
 {  {
   size_t i,j,k;    size_t i,j,k;
Line 151  void print_block(FILE *file, block_count Line 166  void print_block(FILE *file, block_count
       putc('\n', file);        putc('\n', file);
     }      }
 }  }
   #endif
   
 void vm_print_profile(FILE *file)  void vm_print_profile(FILE *file)
 {  {

Removed from v.1.4  
changed lines
  Added in v.1.6


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>