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\ |