X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=testprograms%2Fconst_ent_example.c;h=fa117ed25cbfc355b578c8913230e860d135c6f4;hb=4cc947f5e0fb5ff5a9f61815ca1344d44d5fa8dd;hp=c9df09a3cfba6c5c6adefa3bdc07547647ab8b8d;hpb=9fbc46dc213871984b377a2b622a7ca8817fb0ad;p=libfirm diff --git a/testprograms/const_ent_example.c b/testprograms/const_ent_example.c index c9df09a3c..fa117ed25 100644 --- a/testprograms/const_ent_example.c +++ b/testprograms/const_ent_example.c @@ -1,70 +1,76 @@ -/* Copyright (C) 2000 by Universitaet Karlsruhe -* All rights reserved. -* -* Author: Goetz Lindenmaier -* -* testprogram. -*/ +/* + * Project: libFIRM + * File name: testprograms/const_ent_example.c + * Purpose: Shows how to construct ir_type information for constant entities. + * Author: Goetz Lindenmaier + * Modified by: + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 1999-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ + #include -# include +#include + + -# include "irvrfy.h" -# include "irdump.h" -# include "firm.h" +#include /** -* This file constructs type information for constant entities. -* -* It constructs the information for a class type with a dispatch -* table. The class has a field a, and two methods f and g. The -* class is represented by a class type with two entities for the -* field a and the reference to the dispatch table. This reference -* is a constant entity. Ther dispatch table is also represented -* by a class type that contains the two methods. There is one entity -* of the dispatch table which is constant. -* -* Further the example shows the representation of a constant global -* array. -* -* class C { -* int a; -* void f(); -* void g(int); -* } -* int[4] arre = (7, 2, 13, 92); -**/ - -int main(int argc, char **argv) + * This file constructs ir_type information for constant entities. + * + * It constructs the information for a class ir_type with a dispatch + * table. The class has a field a, and two methods f and g. The + * class is represented by a class ir_type with two entities for the + * field a and the reference to the dispatch table. This reference + * is a constant ir_entity. Ther dispatch table is also represented + * by a class ir_type that contains the two methods. There is one ir_entity + * of the dispatch table which is constant. + * + * Further the example shows the representation of a constant global + * array. + * + * class C { + * int a; + * void f(); + * void g(int); + * } + * int[4] arre = (7, 2, 13, 92); + **/ + +int main(void) { ident *Ci, *ai, *fi, *fti, *gi, *gti, *inti, *dipti, *diptpi, *diptpei, *diptei; /* suffix i names identifiers */ - type *Ct, *intt, *at, *ft, *gt, *diptt, *diptpt; + ir_type *Ct, *intt, *ft, *gt, *diptt, *diptpt; /* t names types */ - entity *ae, *fe, *ge, *dipte, *diptpe; /* e names entities */ + ir_entity *ae, *fe, *ge, *dipte, *diptpe; /* e names entities */ + symconst_symbol sym; ir_node *n; printf("\nExample program for constant entites.\n"); - printf("Creating type information...\n"); + printf("Creating ir_type information...\n"); /** init library */ init_firm (NULL); /** make idents for all used identifiers in the program. */ - Ci = id_from_str("C", strlen("C")); - ai = id_from_str("a", strlen("a")); - fi = id_from_str("f", strlen("f")); - fti = id_from_str("f_type", strlen("f_type")); - gi = id_from_str("g", strlen("g")); - gti = id_from_str("g_type", strlen("g_type")); - inti = id_from_str("int", strlen("int")); - dipti = id_from_str("C_dispatch_table_type", strlen("C_dispatch_table_type")); - diptei = id_from_str("C_dispatch_table", strlen("C_dispatch_table")); - diptpi = id_from_str("C_dispatch_table_p_type", strlen("C_dispatch_table_p_type")); - diptpei = id_from_str("C_dispatch_table_p", strlen("C_dispatch_table_p")); - - - /** make the type information needed */ + Ci = new_id_from_chars("C", strlen("C")); + ai = new_id_from_chars("a", strlen("a")); + fi = new_id_from_chars("f", strlen("f")); + fti = new_id_from_chars("f_type", strlen("f_type")); + gi = new_id_from_chars("g", strlen("g")); + gti = new_id_from_chars("g_type", strlen("g_type")); + inti = new_id_from_chars("int", strlen("int")); + dipti = new_id_from_chars("C_dispatch_table_type", strlen("C_dispatch_table_type")); + diptei = new_id_from_chars("C_dispatch_table", strlen("C_dispatch_table")); + diptpi = new_id_from_chars("C_dispatch_table_p_type", strlen("C_dispatch_table_p_type")); + diptpei = new_id_from_chars("C_dispatch_table_p", strlen("C_dispatch_table_p")); + + + /** make the ir_type information needed */ /* Language defined types */ intt = new_type_primitive(inti, mode_Is); /* Program defined types */ @@ -73,8 +79,8 @@ int main(int argc, char **argv) gt = new_type_method(gti, 1, 0); /* 1 parameter, 0 results */ /* Compiler defined types: dispatch table and pointer to it */ diptt = new_type_class(dipti); - diptpt = new_type_pointer(diptpi, diptt); - /** add structure to type graph **/ + diptpt = new_type_pointer(diptpi, diptt, mode_P); + /** add structure to ir_type graph **/ /* parameters of methods */ set_method_param_type(gt, 0, intt); @@ -85,53 +91,54 @@ int main(int argc, char **argv) dipte = new_entity(get_glob_type(), diptei, diptt); diptpe = new_entity(Ct, diptpei, diptpt); - /** Add constant entity information **/ + /** Add constant ir_entity information **/ current_ir_graph = get_const_code_irg(); /* The pointer to the dispatch table is constant. */ - /* The constant is the address of the given entity */ - n = new_Const(mode_P, tarval_p_from_entity(dipte)); - set_entity_variability(diptpe, constant); + /* The constant is the address of the given ir_entity */ + sym.entity_p = dipte; + n = new_SymConst(mode_P, sym, symconst_addr_ent); + set_entity_variability(diptpe, variability_constant); set_atomic_ent_value(diptpe, n); - /* The entity representing the dispatch table is constant, too. */ - set_entity_variability(dipte, constant); + /* The ir_entity representing the dispatch table is constant, too. */ + set_entity_variability(dipte, variability_constant); add_compound_ent_value(dipte, get_atomic_ent_value(fe), fe); add_compound_ent_value(dipte, get_atomic_ent_value(ge), ge); { /*** Example with an array ***/ ident *arrei, *arrti; - type *arrt; - entity *arre, *arrelte; + ir_type *arrt; + ir_entity *arre, *arrelte; - arrei = id_from_str("arr", strlen("arr")); - arrti = id_from_str("arr_t", strlen("arr_t")); + arrei = new_id_from_chars("arr", strlen("arr")); + arrti = new_id_from_chars("arr_t", strlen("arr_t")); - /** The array type **/ - /* Don't reuse int type so that graph layout is better readable */ + /** The array ir_type **/ + /* Don't reuse int ir_type so that graph layout is better readable */ intt = new_type_primitive(inti, mode_Is); arrt = new_type_array(arrti, 1, intt); set_array_bounds_int(arrt, 0, 0, 4); arrelte = get_array_element_entity(arrt); - /** The constant array entity **/ + /** The constant array ir_entity **/ arre = new_entity(get_glob_type(), arrei, arrt); - set_entity_variability(arre, constant); + set_entity_variability(arre, variability_constant); current_ir_graph = get_const_code_irg(); - n = new_Const(mode_Is, tarval_from_long (mode_Is, 7)); + n = new_Const(mode_Is, new_tarval_from_long (7, mode_Is)); add_compound_ent_value(arre, n, arrelte); - n = new_Const(mode_Is, tarval_from_long (mode_Is, 2)); + n = new_Const(mode_Is, new_tarval_from_long (2, mode_Is)); add_compound_ent_value(arre, n, arrelte); - n = new_Const(mode_Is, tarval_from_long (mode_Is, 13)); + n = new_Const(mode_Is, new_tarval_from_long (13, mode_Is)); add_compound_ent_value(arre, n, arrelte); - n = new_Const(mode_Is, tarval_from_long (mode_Is, 92)); + n = new_Const(mode_Is, new_tarval_from_long (92, mode_Is)); add_compound_ent_value(arre, n, arrelte); } printf("Done building the graph. Dumping it.\n"); - dump_all_types(); + dump_all_types(0); - printf("use xvcg to view this graph:\n"); - printf("/ben/goetz/bin/xvcg GRAPHNAME\n\n"); + printf("Use ycomp to view this graph:\n"); + printf("ycomp GRAPHNAME\n\n"); return (0); }