gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

Diff for /gforth/engine/main.c between versions 1.188 and 1.189

version 1.188, 2007/09/29 22:20:02	version 1.189, 2007/10/29 13:45:50
Line 220 static int diag = 0; /* if true: print d	Line 220 static int diag = 0; /* if true: print d
static int tpa_noequiv = 0; /* if true: no state equivalence checking */	static int tpa_noequiv = 0; /* if true: no state equivalence checking */
static int tpa_noautomaton = 0; /* if true: no tree parsing automaton */	static int tpa_noautomaton = 0; /* if true: no tree parsing automaton */
static int tpa_trace = 0; /* if true: data for line graph of new states etc. */	static int tpa_trace = 0; /* if true: data for line graph of new states etc. */
	static int print_sequences = 0; /* print primitive sequences for optimization */
static int relocs = 0;	static int relocs = 0;
static int nonrelocs = 0;	static int nonrelocs = 0;

Line 1637 static void optimize_rewrite(Cell *instp	Line 1638 static void optimize_rewrite(Cell *instp

lb_basic_blocks++;	lb_basic_blocks++;
ts[ninsts] = termstate;	ts[ninsts] = termstate;
	#ifndef NO_DYNAMIC
	if (print_sequences) {
	for (i=0; i<ninsts; i++)
	fprintf(stderr, "%s ", prim_names[origs[i]]);
	fprintf(stderr, "\n");
	}
	#endif
for (i=ninsts-1; i>=0; i--) {	for (i=ninsts-1; i>=0; i--) {
struct tpa_state **tp = lookup_tpa(origs[i],ts[i+1]);	struct tpa_state **tp = lookup_tpa(origs[i],ts[i+1]);
struct tpa_state t = tp;	struct tpa_state t = tp;
Line 2074 void gforth_args(int argc, char ** argv,	Line 2082 void gforth_args(int argc, char ** argv,
{"no-dynamic", no_argument, &no_dynamic, 1},	{"no-dynamic", no_argument, &no_dynamic, 1},
{"dynamic", no_argument, &no_dynamic, 0},	{"dynamic", no_argument, &no_dynamic, 0},
{"print-metrics", no_argument, &print_metrics, 1},	{"print-metrics", no_argument, &print_metrics, 1},
	{"print-sequences", no_argument, &print_sequences, 1},
{"ss-number", required_argument, NULL, ss_number},	{"ss-number", required_argument, NULL, ss_number},
{"ss-states", required_argument, NULL, ss_states},	{"ss-states", required_argument, NULL, ss_states},
#ifndef NO_DYNAMIC	#ifndef NO_DYNAMIC
Line 2139 Engine Options:\n\	Line 2148 Engine Options:\n\
--offset-image Load image at a different position\n\	--offset-image Load image at a different position\n\
-p PATH, --path=PATH Search path for finding image and sources\n\	-p PATH, --path=PATH Search path for finding image and sources\n\
--print-metrics Print some code generation metrics on exit\n\	--print-metrics Print some code generation metrics on exit\n\
	--print-sequences Print primitive sequences for optimization\n\
-r SIZE, --return-stack-size=SIZE Specify return stack size\n\	-r SIZE, --return-stack-size=SIZE Specify return stack size\n\
--ss-greedy Greedy, not optimal superinst selection\n\	--ss-greedy Greedy, not optimal superinst selection\n\
--ss-min-codesize Select superinsts for smallest native code\n\	--ss-min-codesize Select superinsts for smallest native code\n\

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

Removed from v.1.188
changed lines
	Added in v.1.189