--- gforth/engine/profile.c 2001/02/28 22:31:43 1.2 +++ gforth/engine/profile.c 2001/03/18 10:33:25 1.5 @@ -102,6 +102,7 @@ void postprocess_block(block_count *b) add_inst(b,"unknown"); ip++; } + _endif_: next_block = block_lookup(ip); } while (next_block == NULL); /* we fell through, so set fallthrough and update the count */ @@ -127,6 +128,7 @@ void postprocess(void) } } +#if 0 void print_block(FILE *file, block_count *b) { size_t i; @@ -136,6 +138,20 @@ void print_block(FILE *file, block_count fprintf(file, "%s ", b->insts[i]); putc('\n', file); } +#endif + +void print_block(FILE *file, block_count *b) +{ + size_t i,j,k; + + for (i=2; i<12; i++) + for (j=0; i+j<=b->ninsts; j++) { + fprintf(file,"%14lld\t",b->count); + for (k=j; kinsts[k]); + putc('\n', file); + } +} void vm_print_profile(FILE *file) {