X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=testprograms%2Farray-heap_example.c;h=fff4171c7d1db743970f1b61d318d765d3b78203;hb=612b107ac253aa67833f836ab3a8c553fea808e6;hp=c22621229cf1db30e5062c33ec4506de8b1b70f8;hpb=8a828c064c24643f30d68b67808a62e8a7ae1d80;p=libfirm diff --git a/testprograms/array-heap_example.c b/testprograms/array-heap_example.c index c22621229..fff4171c7 100644 --- a/testprograms/array-heap_example.c +++ b/testprograms/array-heap_example.c @@ -69,7 +69,7 @@ main(void) ir_graph *main_irg; ir_node *array, *array_ptr, *c3, *elt, *val, *x; - init_firm (); + init_firm (NULL); /* make basic type information for primitive type int. In Sather primitive types are represented by a class. @@ -93,8 +93,8 @@ main(void) # define U_BOUND 9 array_type = new_type_array(id_from_str("a", 1), N_DIMS, prim_t_int); set_array_bounds(array_type, 1, - new_Const(mode_Iu, tarval_from_long (mode_Iu, L_BOUND)), - new_Const(mode_Iu, tarval_from_long (mode_Iu, U_BOUND))); + new_Const(mode_Iu, new_tarval_from_long (L_BOUND, mode_Iu)), + new_Const(mode_Iu, new_tarval_from_long (U_BOUND, mode_Iu))); /* As the array is accessed by Sel nodes, we need information about the entity the node selects. Entities of an array are it's elements which are, in this case, integers. */ @@ -107,9 +107,9 @@ main(void) elt_type = get_array_element_type(array_type); elt_type_mode = get_type_mode(elt_type); /* better: read bounds out of array type information */ - size = (U_BOUND - L_BOUND + 1) * get_mode_size(elt_type_mode); + size = (U_BOUND - L_BOUND + 1) * get_mode_size_bytes(elt_type_mode); /* make constant representing the size */ - arr_size = new_Const(mode_Iu, tarval_from_long (mode_Iu, size)); + arr_size = new_Const(mode_Iu, new_tarval_from_long (size, mode_Iu)); /* allocate and generate the Proj nodes. */ array = new_Alloc(get_store(), arr_size, (type*)array_type, stack_alloc); set_store(new_Proj(array, mode_M, 0)); /* make the changed memory visible */ @@ -121,7 +121,7 @@ main(void) by (three * elt_size), but this complicates some optimizations. The type information accessible via the entity allows to generate the pointer increment later. */ - c3 = new_Const (mode_Iu, tarval_from_long (mode_Iu, 3)); + c3 = new_Const (mode_Iu, new_tarval_from_long (3, mode_Iu)); { ir_node *in[1]; in[0] = c3;