gforth/engine/profile.c - diff

Return to profile.c CVS log

Up to [gforth] / gforth / engine

version 1.5, 2001/03/18 10:33:25	version 1.7, 2002/12/24 23:40:30
Line 20	Line 20
*/	*/

#include "config.h"	#include "config.h"
	#include "forth.h"
#include <stdlib.h>	#include <stdlib.h>
#include <stdio.h>	#include <stdio.h>
#include <assert.h>	#include <assert.h>
#include "forth.h"


/* data structure: simple hash table with external chaining */	/* data structure: simple hash table with external chaining */
Line 129 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 138 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 152 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)
{	{