*** empty log message ***

[libfirm] / testprograms / call_str_example.c

diff --git a/testprograms/call_str_example.c b/testprograms/call_str_example.c
index cfac7a3..57e677e 100644 (file)
--- a/testprograms/call_str_example.c
+++ b/testprograms/call_str_example.c
@@ -23,18 +23,23 @@
 
 int main(int argc, char **argv)
 {
-  ir_graph *irg;          /* this variable contains the irgraph */
-  type_class *owner;      /* the class in which this method is defined */
-  type_method *proc_main; /* type information for the method main */
-  type_method *proc_called; /* type information for called method f */
-  entity *ent;            /* represents this method as entity of owner */
-  ir_node *x, *const_str, *proc_ptr, *call;
+  ir_graph *irg;         /* this variable contains the irgraph */
+  type     *owner;       /* the class in which this method is defined */
+  type     *proc_main;   /* type information for the method main */
+  type     *proc_called; /* type information for called method f */
+  type     *string_ptr;  /* type for pointers to strings. */
+  entity   *ent;         /* represents this method as entity of owner */
+  ir_node  *x, *const_str, *proc_ptr, *call;
 
   printf("\nCreating an IR graph: CALL_STR_EXAMPLE...\n");
 
   /* init library */
   init_firm ();
 
+  string_ptr = new_type_pointer (
+                id_from_str ("ptr_to_string", 13),
+                new_type_array (id_from_str ("char_arr", 8), 1,
+                                new_type_primitive (id_from_str("char", 4), mode_c)));
   /* FIRM was designed for oo languages where all methods belong to a class.
    * For imperative languages like C we view a program as a large class containing
    * all functions of the program as methods in this class.  This class is
@@ -56,11 +61,12 @@ int main(int argc, char **argv)
   owner = get_glob_type();
   proc_called = new_type_method(id_from_str(F_METHODNAME, strlen(F_METHODNAME)),
                               F_NRARGS, F_NRES);
+  set_method_param_type(proc_called, 0, string_ptr);
 
   /* Make the entity for main needed for a correct  ir_graph.  */
 #define ENTITYNAME "main"
-  ent = new_entity ((type *)owner, id_from_str (ENTITYNAME, strlen(ENTITYNAME)),
-                    (type *)proc_main);
+  ent = new_entity (owner, id_from_str (ENTITYNAME, strlen(ENTITYNAME)),
+                    proc_main);
 
   /* Generates the basic graph for the method represented by entity ent, that
    * is, generates start and end blocks and nodes and a first, initial block.
@@ -103,6 +109,8 @@ int main(int argc, char **argv)
   /* Now we can mature the end block as all it's predecessors are known. */
   mature_block (get_irg_end_block(irg));
 
+  finalize_cons (irg);
+
   printf("Optimizing ...\n");
   dead_node_elimination(irg);