projects
/
libfirm
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
autoconf stuff
[libfirm]
/
testprograms
/
const_eval_example.c
diff --git
a/testprograms/const_eval_example.c
b/testprograms/const_eval_example.c
index
036e98c
..
a8e1635
100644
(file)
--- a/
testprograms/const_eval_example.c
+++ b/
testprograms/const_eval_example.c
@@
-27,27
+27,37
@@
main(void)
{
ir_graph *irg;
type_class *owner;
{
ir_graph *irg;
type_class *owner;
+ type_method *method; /* the type of this method */
entity *ent;
ir_node *a, *b, *c, *d, *x;
entity *ent;
ir_node *a, *b, *c, *d, *x;
- printf("
c
reating an IR graph: CONST_EVAL_EXAMPLE...\n");
+ printf("
\nC
reating an IR graph: CONST_EVAL_EXAMPLE...\n");
init_firm ();
/* Try both optimizations: */
set_opt_constant_folding(1);
set_opt_cse(1);
init_firm ();
/* Try both optimizations: */
set_opt_constant_folding(1);
set_opt_cse(1);
+ set_opt_dead_node_elimination (1);
owner = new_type_class (id_from_str ("CONST_EVAL_EXAMPLE", 18));
owner = new_type_class (id_from_str ("CONST_EVAL_EXAMPLE", 18));
- ent = new_entity ((type *)owner, id_from_str ("main", 4), NULL);
+ method = new_type_method (id_from_str("main", 4), 0, 2);
+ ent = new_entity ((type *)owner, id_from_str ("main", 4), (type *)method);
irg = new_ir_graph (ent, 4);
irg = new_ir_graph (ent, 4);
- a = new_Const (mode_i, tarval_from_long (mode_i,
5
));
- b = new_Const (mode_i, tarval_from_long (mode_i,
7
));
+ a = new_Const (mode_i, tarval_from_long (mode_i,
7
));
+ b = new_Const (mode_i, tarval_from_long (mode_i,
5
));
x = new_Jmp ();
x = new_Jmp ();
- mature_block (irg->current_block);
+ mature_block (get_irg_current_block(irg));
+
+ /* To test const eval on DivMod
+ c = new_DivMod(get_store(), a, b);
+ set_store(new_Proj(c, mode_M, 0));
+ d = new_Proj(c, mode_i, 3);
+ c = new_Proj(c, mode_i, 2);
+ */
c = new_Add (new_Const (mode_i, tarval_from_long (mode_i, 5)),
new_Const (mode_i, tarval_from_long (mode_i, 7)),
c = new_Add (new_Const (mode_i, tarval_from_long (mode_i, 5)),
new_Const (mode_i, tarval_from_long (mode_i, 7)),
@@
-64,14
+74,20
@@
main(void)
x = new_Return (get_store (), 2, in);
}
x = new_Return (get_store (), 2, in);
}
- add_in_edge (irg->end_block, x);
- mature_block (irg->end_block);
+ add_in_edge (get_irg_end_block(irg), x);
+ mature_block (get_irg_end_block(irg));
+
+ printf("Optimizing ...\n");
+ dead_node_elimination(irg);
+
+ printf("Done building the graph. Dumping it.\n");
+ /* verify the graph */
+ irg_vrfy(irg);
- printf("\nDone building the graph. Dumping it.\n");
dump_ir_block_graph (irg);
printf("use xvcg to view this graph:\n");
dump_ir_block_graph (irg);
printf("use xvcg to view this graph:\n");
- printf("/ben/
trapp/bin/i486/xvcg GRAPHNAME
\n");
+ printf("/ben/
goetz/bin/xvcg GRAPHNAME\n
\n");
return (0);
}
return (0);
}