gforth/engine/profile.c - diff

Return to profile.c CVS log

Up to [gforth] / gforth / engine

version 1.2, 2001/02/28 22:31:43	version 1.5, 2001/03/18 10:33: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 127 void postprocess(void)	Line 128 void postprocess(void)
}	}
}	}

	#if 0
void print_block(FILE file, block_count b)	void print_block(FILE file, block_count b)
{	{
size_t i;	size_t i;
Line 136 void print_block(FILE *file, block_count	Line 138 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

	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; k<i+j; k++)
	fprintf(file, "%s ", b->insts[k]);
	putc('\n', file);
	}
	}

void vm_print_profile(FILE *file)	void vm_print_profile(FILE *file)
{	{