X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ast2firm.c;h=46f2f19aad6cf2912fa3a1ef463ed0139b337433;hb=78cc65b14fc5c53a16368fe5975c70c83e969b19;hp=56757d2ec9810dbb2245ff2be4ef7e82a5c44736;hpb=116ddd04290c56359a62a6dc4bc238a428dd8f67;p=cparser diff --git a/ast2firm.c b/ast2firm.c index 56757d2..46f2f19 100644 --- a/ast2firm.c +++ b/ast2firm.c @@ -17,7 +17,10 @@ #include "type_t.h" #include "ast_t.h" #include "parser.h" +#include "diagnostic.h" #include "lang_features.h" +#include "driver/firm_opt.h" +#include "driver/firm_cmdline.h" #define MAGIC_DEFAULT_PN_NUMBER (long) -314159265 @@ -42,31 +45,26 @@ static ir_node *current_function_name; static struct obstack asm_obst; -typedef enum declaration_type_t { - DECLARATION_TYPE_UNKNOWN, - DECLARATION_TYPE_FUNCTION, - DECLARATION_TYPE_GLOBAL_VARIABLE, - DECLARATION_TYPE_LOCAL_VARIABLE, - DECLARATION_TYPE_LOCAL_VARIABLE_ENTITY, - DECLARATION_TYPE_COMPOUND_MEMBER, - DECLARATION_TYPE_LABEL_BLOCK, - DECLARATION_TYPE_ENUM_ENTRY -} declaration_type_t; +typedef enum declaration_kind_t { + DECLARATION_KIND_UNKNOWN, + DECLARATION_KIND_FUNCTION, + DECLARATION_KIND_GLOBAL_VARIABLE, + DECLARATION_KIND_LOCAL_VARIABLE, + DECLARATION_KIND_LOCAL_VARIABLE_ENTITY, + DECLARATION_KIND_COMPOUND_MEMBER, + DECLARATION_KIND_LABEL_BLOCK, + DECLARATION_KIND_ENUM_ENTRY +} declaration_kind_t; static ir_type *get_ir_type(type_t *type); static int count_decls_in_stmts(const statement_t *stmt); ir_node *uninitialized_local_var(ir_graph *irg, ir_mode *mode, int pos) { - (void) pos; -#if 0 - const declaration_t *declaration = & value_numbers[pos]->declaration; + const declaration_t *declaration = get_irg_loc_description(irg, pos); - print_warning_prefix(declaration->source_position); - fprintf(stderr, "variable '%s' might be used uninitialized\n", - declaration->symbol->string); -#endif - fprintf(stderr, "Some variable might be used uninitialized\n"); + warningf(declaration->source_position, "variable '%#T' might be used uninitialized", + declaration->type, declaration->symbol); return new_r_Unknown(irg, mode); } @@ -223,6 +221,7 @@ static void init_atomic_modes(void) { _atomic_modes[ATOMIC_TYPE_FLOAT] = mode_F; _atomic_modes[ATOMIC_TYPE_DOUBLE] = mode_D; _atomic_modes[ATOMIC_TYPE_LONG_DOUBLE] = mode_E; + _atomic_modes[ATOMIC_TYPE_BOOL] = get_umode(int_size); #ifdef PROVIDE_COMPLEX _atomic_modes[ATOMIC_TYPE_BOOL] = _atomic_modes[ATOMIC_TYPE_INT]; @@ -242,8 +241,8 @@ static void init_atomic_modes(void) { static ir_mode *get_atomic_mode(const atomic_type_t* atomic_type) { ir_mode *res = NULL; - if ((unsigned)atomic_type->atype < (unsigned)ATOMIC_TYPE_LAST) - res = _atomic_modes[(unsigned)atomic_type->atype]; + if ((unsigned)atomic_type->akind < (unsigned)ATOMIC_TYPE_LAST) + res = _atomic_modes[(unsigned)atomic_type->akind]; if (res == NULL) panic("Encountered unknown atomic type"); return res; @@ -253,7 +252,7 @@ static unsigned get_type_size(type_t *type); static unsigned get_atomic_type_size(const atomic_type_t *type) { - switch(type->atype) { + switch(type->akind) { case ATOMIC_TYPE_CHAR: case ATOMIC_TYPE_SCHAR: case ATOMIC_TYPE_UCHAR: @@ -312,7 +311,9 @@ static unsigned get_type_size(type_t *type) { type = skip_typeref(type); - switch(type->type) { + switch(type->kind) { + case TYPE_ERROR: + panic("error type occured"); case TYPE_ATOMIC: return get_atomic_type_size(&type->atomic); case TYPE_ENUM: @@ -329,6 +330,8 @@ static unsigned get_type_size(type_t *type) return get_array_type_size(&type->array); case TYPE_BUILTIN: return get_type_size(type->builtin.real_type); + case TYPE_BITFIELD: + panic("type size of bitfield request"); case TYPE_TYPEDEF: case TYPE_TYPEOF: case TYPE_INVALID: @@ -360,7 +363,8 @@ static ir_type *create_atomic_type(const atomic_type_t *type) ident *id = get_mode_ident(mode); ir_type *irtype = new_type_primitive(id, mode); - if(type->atype == ATOMIC_TYPE_LONG_DOUBLE) { + if(type->akind == ATOMIC_TYPE_LONG_DOUBLE + || type->akind == ATOMIC_TYPE_DOUBLE) { set_type_alignment_bytes(irtype, 4); } @@ -442,6 +446,91 @@ static ir_type *create_array_type(array_type_t *type) return ir_type; } +/** + * Return the signed integer type of size bits. + * + * @param size the size + */ +static ir_type *get_signed_int_type_for_bit_size(ir_type *base_tp, + unsigned size) +{ + static ir_mode *s_modes[64 + 1] = {NULL, }; + ir_type *res; + ir_mode *mode; + + if (size <= 0 || size > 64) + return NULL; + + mode = s_modes[size]; + if (mode == NULL) { + char name[32]; + + snprintf(name, sizeof(name), "bf_I%u", size); + mode = new_ir_mode(name, irms_int_number, size, 1, irma_twos_complement, + size <= 32 ? 32 : size ); + s_modes[size] = mode; + } + + char name[32]; + snprintf(name, sizeof(name), "I%u", size); + ident *id = new_id_from_str(name); + res = new_type_primitive(mangle_u(get_type_ident(base_tp), id), mode); + set_primitive_base_type(res, base_tp); + + return res; +} + +/** + * Return the unsigned integer type of size bits. + * + * @param size the size + */ +static ir_type *get_unsigned_int_type_for_bit_size(ir_type *base_tp, + unsigned size) +{ + static ir_mode *u_modes[64 + 1] = {NULL, }; + ir_type *res; + ir_mode *mode; + + if (size <= 0 || size > 64) + return NULL; + + mode = u_modes[size]; + if (mode == NULL) { + char name[32]; + + snprintf(name, sizeof(name), "bf_U%u", size); + mode = new_ir_mode(name, irms_int_number, size, 0, irma_twos_complement, + size <= 32 ? 32 : size ); + u_modes[size] = mode; + } + + char name[32]; + + snprintf(name, sizeof(name), "U%u", size); + ident *id = new_id_from_str(name); + res = new_type_primitive(mangle_u(get_type_ident(base_tp), id), mode); + set_primitive_base_type(res, base_tp); + + return res; +} + +static ir_type *create_bitfield_type(bitfield_type_t *const type) +{ + type_t *base = skip_typeref(type->base); + assert(base->kind == TYPE_ATOMIC); + ir_type *irbase = get_ir_type(base); + + unsigned size = fold_constant(type->size); + + assert(!is_type_floating(base)); + if(is_type_signed(base)) { + return get_signed_int_type_for_bit_size(irbase, size); + } else { + return get_unsigned_int_type_for_bit_size(irbase, size); + } +} + #define INVALID_TYPE ((ir_type_ptr)-1) static ir_type *create_struct_type(compound_type_t *type) @@ -453,49 +542,98 @@ static ir_type *create_struct_type(compound_type_t *type) } else { id = unique_ident("__anonymous_struct"); } - ir_type *ir_type = new_type_struct(id); + ir_type *irtype = new_type_struct(id); - type->type.firm_type = ir_type; + type->type.firm_type = irtype; - int align_all = 1; - int offset = 0; - declaration_t *entry = type->declaration->context.declarations; + size_t align_all = 1; + size_t offset = 0; + size_t bit_offset = 0; + declaration_t *entry = type->declaration->scope.declarations; for( ; entry != NULL; entry = entry->next) { if(entry->namespc != NAMESPACE_NORMAL) continue; - ident *ident = new_id_from_str(entry->symbol->string); - ir_type_ptr entry_ir_type = get_ir_type(entry->type); + type_t *entry_type = skip_typeref(entry->type); + ir_type *base_irtype; + if(entry_type->kind == TYPE_BITFIELD) { + base_irtype = get_ir_type(entry_type->bitfield.base); + } else { + base_irtype = get_ir_type(entry_type); + } - int entry_size = get_type_size_bytes(entry_ir_type); - int entry_alignment = get_type_alignment_bytes(entry_ir_type); - int misalign = offset % entry_alignment; - if (misalign != 0) - offset += entry_alignment - misalign; + size_t entry_alignment = get_type_alignment_bytes(base_irtype); + size_t misalign = offset % entry_alignment; - dbg_info *const dbgi = get_dbg_info(&entry->source_position); - ir_entity *const entity = new_d_entity(ir_type, ident, entry_ir_type, dbgi); - set_entity_offset(entity, offset); - add_struct_member(ir_type, entity); - entry->declaration_type = DECLARATION_TYPE_COMPOUND_MEMBER; - entry->v.entity = entity; + dbg_info *dbgi = get_dbg_info(&entry->source_position); + ir_entity *entity = NULL; + if(entry->symbol != NULL) { + ident *ident = new_id_from_str(entry->symbol->string); + ir_type *entry_irtype = get_ir_type(entry_type); + entity = new_d_entity(irtype, ident, entry_irtype, dbgi); + } else { + /* only bitfields are allowed to be anonymous */ + assert(entry_type->kind == TYPE_BITFIELD); + } + + size_t base; + size_t bits_remainder; + if(entry_type->kind == TYPE_BITFIELD) { + size_t size_bits = fold_constant(entry_type->bitfield.size); + size_t rest_size_bits = (entry_alignment - misalign)*8 - bit_offset; + + if(size_bits > rest_size_bits) { + /* start a new bucket */ + offset += entry_alignment - misalign; + bit_offset = 0; + + base = offset; + bits_remainder = 0; + } else { + /* put into current bucket */ + base = offset - misalign; + bits_remainder = misalign * 8 + bit_offset; + } + + offset += size_bits / 8; + bit_offset = bit_offset + (size_bits % 8); + } else { + size_t entry_size = get_type_size_bytes(base_irtype); + if(misalign > 0 || bit_offset > 0) + offset += entry_alignment - misalign; + + base = offset; + bits_remainder = 0; + offset += entry_size; + bit_offset = 0; + } - offset += entry_size; if(entry_alignment > align_all) { if(entry_alignment % align_all != 0) { - panic("Uneven alignments not supported yet"); + panic("uneven alignments not supported yet"); } align_all = entry_alignment; } + + if(entity != NULL) { + set_entity_offset(entity, base); + set_entity_offset_bits_remainder(entity, + (unsigned char) bits_remainder); + add_struct_member(irtype, entity); + entry->declaration_kind = DECLARATION_KIND_COMPOUND_MEMBER; + entry->v.entity = entity; + } } - int misalign = offset % align_all; - offset += misalign; - set_type_alignment_bytes(ir_type, align_all); - set_type_size_bytes(ir_type, offset); - set_type_state(ir_type, layout_fixed); + size_t misalign = offset % align_all; + if(misalign > 0 || bit_offset > 0) { + offset += align_all - misalign; + } + set_type_alignment_bytes(irtype, align_all); + set_type_size_bytes(irtype, offset); + set_type_state(irtype, layout_fixed); - return ir_type; + return irtype; } static ir_type *create_union_type(compound_type_t *type) @@ -508,28 +646,29 @@ static ir_type *create_union_type(compound_type_t *type) } else { id = unique_ident("__anonymous_union"); } - ir_type *ir_type = new_type_union(id); + ir_type *irtype = new_type_union(id); - type->type.firm_type = ir_type; + type->type.firm_type = irtype; int align_all = 1; int size = 0; - declaration_t *entry = declaration->context.declarations; + declaration_t *entry = declaration->scope.declarations; for( ; entry != NULL; entry = entry->next) { if(entry->namespc != NAMESPACE_NORMAL) continue; - ident *ident = new_id_from_str(entry->symbol->string); - ir_type_ptr entry_ir_type = get_ir_type(entry->type); + ident *ident = new_id_from_str(entry->symbol->string); + ir_type *entry_ir_type = get_ir_type(entry->type); int entry_size = get_type_size_bytes(entry_ir_type); int entry_alignment = get_type_alignment_bytes(entry_ir_type); dbg_info *const dbgi = get_dbg_info(&entry->source_position); - ir_entity *const entity = new_d_entity(ir_type, ident, entry_ir_type, dbgi); - add_union_member(ir_type, entity); + ir_entity *const entity = new_d_entity(irtype, ident, entry_ir_type, + dbgi); + add_union_member(irtype, entity); set_entity_offset(entity, 0); - entry->declaration_type = DECLARATION_TYPE_COMPOUND_MEMBER; + entry->declaration_kind = DECLARATION_KIND_COMPOUND_MEMBER; entry->v.entity = entity; if(entry_size > size) { @@ -543,11 +682,11 @@ static ir_type *create_union_type(compound_type_t *type) } } - set_type_alignment_bytes(ir_type, align_all); - set_type_size_bytes(ir_type, size); - set_type_state(ir_type, layout_fixed); + set_type_alignment_bytes(irtype, align_all); + set_type_size_bytes(irtype, size); + set_type_state(irtype, layout_fixed); - return ir_type; + return irtype; } static ir_node *expression_to_firm(const expression_t *expression); @@ -566,7 +705,7 @@ static ir_type *create_enum_type(enum_type_t *const type) if (declaration->storage_class != STORAGE_CLASS_ENUM_ENTRY) break; - declaration->declaration_type = DECLARATION_TYPE_ENUM_ENTRY; + declaration->declaration_kind = DECLARATION_KIND_ENUM_ENTRY; expression_t *const init = declaration->init.enum_value; if (init != NULL) { @@ -595,7 +734,9 @@ static ir_type *get_ir_type(type_t *type) } ir_type *firm_type = NULL; - switch(type->type) { + switch(type->kind) { + case TYPE_ERROR: + panic("error type occured"); case TYPE_ATOMIC: firm_type = create_atomic_type(&type->atomic); break; @@ -620,6 +761,10 @@ static ir_type *get_ir_type(type_t *type) case TYPE_BUILTIN: firm_type = get_ir_type(type->builtin.real_type); break; + case TYPE_BITFIELD: + firm_type = create_bitfield_type(&type->bitfield); + break; + case TYPE_TYPEOF: case TYPE_TYPEDEF: case TYPE_INVALID: @@ -646,11 +791,94 @@ static inline ir_mode *get_ir_mode(type_t *type) return mode; } +static ident *predef_idents[rts_max]; + +/** Names of the runtime functions. */ +static const struct { + int id; /**< the rts id */ + int n_res; /**< number of return values */ + const char *name; /**< the name of the rts function */ + int n_params; /**< number of parameters */ + unsigned flags; /**< language flags */ +} rts_data[] = { + { rts_debugbreak, 0, "__debugbreak", 0, _MS }, + { rts_abort, 0, "abort", 0, _C89 }, + { rts_abs, 1, "abs", 1, _C89 }, + { rts_labs, 1, "labs", 1, _C89 }, + { rts_llabs, 1, "llabs", 1, _C99 }, + { rts_imaxabs, 1, "imaxabs", 1, _C99 }, + + { rts_fabs, 1, "fabs", 1, _C89 }, + { rts_sqrt, 1, "sqrt", 1, _C89 }, + { rts_cbrt, 1, "cbrt", 1, _C99 }, + { rts_exp, 1, "exp", 1, _C89 }, + { rts_exp2, 1, "exp2", 1, _C89 }, + { rts_exp10, 1, "exp10", 1, _GNUC }, + { rts_log, 1, "log", 1, _C89 }, + { rts_log2, 1, "log2", 1, _C89 }, + { rts_log10, 1, "log10", 1, _C89 }, + { rts_pow, 1, "pow", 2, _C89 }, + { rts_sin, 1, "sin", 1, _C89 }, + { rts_cos, 1, "cos", 1, _C89 }, + { rts_tan, 1, "tan", 1, _C89 }, + { rts_asin, 1, "asin", 1, _C89 }, + { rts_acos, 1, "acos", 1, _C89 }, + { rts_atan, 1, "atan", 1, _C89 }, + { rts_sinh, 1, "sinh", 1, _C89 }, + { rts_cosh, 1, "cosh", 1, _C89 }, + { rts_tanh, 1, "tanh", 1, _C89 }, + + { rts_fabsf, 1, "fabsf", 1, _C99 }, + { rts_sqrtf, 1, "sqrtf", 1, _C99 }, + { rts_cbrtf, 1, "cbrtf", 1, _C99 }, + { rts_expf, 1, "expf", 1, _C99 }, + { rts_exp2f, 1, "exp2f", 1, _C99 }, + { rts_exp10f, 1, "exp10f", 1, _GNUC }, + { rts_logf, 1, "logf", 1, _C99 }, + { rts_log2f, 1, "log2f", 1, _C99 }, + { rts_log10f, 1, "log10f", 1, _C99 }, + { rts_powf, 1, "powf", 2, _C99 }, + { rts_sinf, 1, "sinf", 1, _C99 }, + { rts_cosf, 1, "cosf", 1, _C99 }, + { rts_tanf, 1, "tanf", 1, _C99 }, + { rts_asinf, 1, "asinf", 1, _C99 }, + { rts_acosf, 1, "acosf", 1, _C99 }, + { rts_atanf, 1, "atanf", 1, _C99 }, + { rts_sinhf, 1, "sinhf", 1, _C99 }, + { rts_coshf, 1, "coshf", 1, _C99 }, + { rts_tanhf, 1, "tanhf", 1, _C99 }, + + { rts_fabsl, 1, "fabsl", 1, _C99 }, + { rts_sqrtl, 1, "sqrtl", 1, _C99 }, + { rts_cbrtl, 1, "cbrtl", 1, _C99 }, + { rts_expl, 1, "expl", 1, _C99 }, + { rts_exp2l, 1, "exp2l", 1, _C99 }, + { rts_exp10l, 1, "exp10l", 1, _GNUC }, + { rts_logl, 1, "logl", 1, _C99 }, + { rts_log2l, 1, "log2l", 1, _C99 }, + { rts_log10l, 1, "log10l", 1, _C99 }, + { rts_powl, 1, "powl", 2, _C99 }, + { rts_sinl, 1, "sinl", 1, _C99 }, + { rts_cosl, 1, "cosl", 1, _C99 }, + { rts_tanl, 1, "tanl", 1, _C99 }, + { rts_asinl, 1, "asinl", 1, _C99 }, + { rts_acosl, 1, "acosl", 1, _C99 }, + { rts_atanl, 1, "atanl", 1, _C99 }, + { rts_sinhl, 1, "sinhl", 1, _C99 }, + { rts_coshl, 1, "coshl", 1, _C99 }, + { rts_tanhl, 1, "tanhl", 1, _C99 }, + + { rts_memcpy, 1, "memcpy", 3, _C89 }, /* HMM, man say its C99 */ + { rts_memset, 1, "memset", 3, _C89 }, /* HMM, man say its C99 */ + { rts_strcmp, 1, "strcmp", 2, _C89 }, + { rts_strncmp, 1, "strncmp", 3, _C89 } +}; + static ir_entity* get_function_entity(declaration_t *declaration) { - if(declaration->declaration_type == DECLARATION_TYPE_FUNCTION) + if(declaration->declaration_kind == DECLARATION_KIND_FUNCTION) return declaration->v.entity; - assert(declaration->declaration_type == DECLARATION_TYPE_UNKNOWN); + assert(declaration->declaration_kind == DECLARATION_KIND_UNKNOWN); symbol_t *symbol = declaration->symbol; ident *id = new_id_from_str(symbol->string); @@ -669,10 +897,34 @@ static ir_entity* get_function_entity(declaration_t *declaration) set_entity_visibility(entity, visibility_external_visible); } else { set_entity_visibility(entity, visibility_external_allocated); + + /* We should check for file scope here, but as long as we compile C only + this is not needed. */ + int n_params = get_method_n_params(ir_type_method); + int n_res = get_method_n_ress(ir_type_method); + int i; + + if (n_params == 0 && n_res == 0 && id == predef_idents[rts_abort]) { + /* found abort(), store for later */ + //abort_ent = ent; + //abort_tp = ftype; + } else { + if (! firm_opt.freestanding) { + /* check for a known runtime function */ + for (i = 0; i < rts_max; ++i) { + /* ignore those rts functions not necessary needed for current mode */ + if ((c_mode & rts_data[i].flags) == 0) + continue; + if (n_params == rts_data[i].n_params && n_res == rts_data[i].n_res && + id == predef_idents[rts_data[i].id]) + rts_entities[rts_data[i].id] = entity; + } + } + } } set_entity_allocation(entity, allocation_static); - declaration->declaration_type = DECLARATION_TYPE_FUNCTION; + declaration->declaration_kind = DECLARATION_KIND_FUNCTION; declaration->v.entity = entity; return entity; @@ -701,17 +953,18 @@ static ir_node *const_to_firm(const const_expression_t *cnst) return new_d_Const(dbgi, mode, tv); } -static ir_node *create_symconst(dbg_info *dbgi, ir_entity *entity) +static ir_node *create_symconst(dbg_info *dbgi, ir_mode *mode, + ir_entity *entity) { assert(entity != NULL); union symconst_symbol sym; sym.entity_p = entity; - return new_d_SymConst(dbgi, sym, symconst_addr_ent); + return new_d_SymConst(dbgi, mode, sym, symconst_addr_ent); } static ir_node *string_to_firm(const source_position_t *const src_pos, const char *const id_prefix, - const char *const string) + const string_t *const value) { ir_type *const global_type = get_glob_type(); ir_type *const type = new_type_array(unique_ident("strtype"), 1, @@ -727,7 +980,8 @@ static ir_node *string_to_firm(const source_position_t *const src_pos, ir_type *const elem_type = ir_type_const_char; ir_mode *const mode = get_type_mode(elem_type); - const size_t slen = strlen(string) + 1; + const char* const string = value->begin; + const size_t slen = value->size; set_array_lower_bound_int(type, 0, 0); set_array_upper_bound_int(type, 0, slen); @@ -742,14 +996,14 @@ static ir_node *string_to_firm(const source_position_t *const src_pos, set_array_entity_values(entity, tvs, slen); free(tvs); - return create_symconst(dbgi, entity); + return create_symconst(dbgi, mode_P_data, entity); } static ir_node *string_literal_to_firm( const string_literal_expression_t* literal) { return string_to_firm(&literal->expression.source_position, "Lstr", - literal->value); + &literal->value); } static ir_node *wide_string_literal_to_firm( @@ -785,7 +1039,7 @@ static ir_node *wide_string_literal_to_firm( set_array_entity_values(entity, tvs, slen); free(tvs); - return create_symconst(dbgi, entity); + return create_symconst(dbgi, mode_P_data, entity); } static ir_node *deref_address(ir_type *const irtype, ir_node *const addr, @@ -827,7 +1081,7 @@ static ir_node *do_strict_conv(dbg_info *dbgi, ir_node *node) static ir_node *get_global_var_address(dbg_info *const dbgi, const declaration_t *const decl) { - assert(decl->declaration_type == DECLARATION_TYPE_GLOBAL_VARIABLE); + assert(decl->declaration_kind == DECLARATION_KIND_GLOBAL_VARIABLE); ir_entity *const entity = decl->v.entity; switch ((storage_class_tag_t)decl->storage_class) { @@ -840,7 +1094,21 @@ static ir_node *get_global_var_address(dbg_info *const dbgi, } default: - return create_symconst(dbgi, entity); + return create_symconst(dbgi, mode_P_data, entity); + } +} + +/* Returns the correct base address depending on whether it is a parameter or a + * normal local variable */ +static ir_node *get_local_frame(ir_entity *const ent) +{ + ir_graph *const irg = current_ir_graph; + const ir_type *const owner = get_entity_owner(ent); + if (owner == get_irg_frame_type(irg)) { + return get_irg_frame(irg); + } else { + assert(owner == get_method_value_param_type(get_entity_type(get_irg_entity(irg)))); + return get_irg_value_param_base(irg); } } @@ -850,42 +1118,43 @@ static ir_node *reference_expression_to_firm(const reference_expression_t *ref) declaration_t *declaration = ref->declaration; type_t *type = skip_typeref(declaration->type); - switch((declaration_type_t) declaration->declaration_type) { - case DECLARATION_TYPE_UNKNOWN: + switch((declaration_kind_t) declaration->declaration_kind) { + case DECLARATION_KIND_UNKNOWN: if (declaration->storage_class != STORAGE_CLASS_ENUM_ENTRY) { break; } get_ir_type(type); /* FALLTHROUGH */ - case DECLARATION_TYPE_ENUM_ENTRY: { + case DECLARATION_KIND_ENUM_ENTRY: { ir_mode *const mode = get_ir_mode(type); return new_Const(mode, declaration->v.enum_val); } - case DECLARATION_TYPE_LOCAL_VARIABLE: { - ir_mode *mode = get_ir_mode(type); + case DECLARATION_KIND_LOCAL_VARIABLE: { + ir_mode *const mode = get_ir_mode(type); return get_value(declaration->v.value_number, mode); } - case DECLARATION_TYPE_FUNCTION: { - return create_symconst(dbgi, declaration->v.entity); + case DECLARATION_KIND_FUNCTION: { + ir_mode *const mode = get_ir_mode(type); + return create_symconst(dbgi, mode, declaration->v.entity); } - case DECLARATION_TYPE_GLOBAL_VARIABLE: { + case DECLARATION_KIND_GLOBAL_VARIABLE: { ir_node *const addr = get_global_var_address(dbgi, declaration); ir_type *const irtype = get_entity_type(declaration->v.entity); return deref_address(irtype, addr, dbgi); } - case DECLARATION_TYPE_LOCAL_VARIABLE_ENTITY: { + case DECLARATION_KIND_LOCAL_VARIABLE_ENTITY: { ir_entity *entity = declaration->v.entity; - ir_node *frame = get_irg_frame(current_ir_graph); + ir_node *frame = get_local_frame(entity); ir_node *sel = new_d_simpleSel(dbgi, new_NoMem(), frame, entity); ir_type *irtype = get_entity_type(entity); return deref_address(irtype, sel, dbgi); } - case DECLARATION_TYPE_COMPOUND_MEMBER: - case DECLARATION_TYPE_LABEL_BLOCK: + case DECLARATION_KIND_COMPOUND_MEMBER: + case DECLARATION_KIND_LABEL_BLOCK: panic("not implemented reference type"); } @@ -897,31 +1166,33 @@ static ir_node *reference_addr(const reference_expression_t *ref) dbg_info *dbgi = get_dbg_info(&ref->expression.source_position); declaration_t *declaration = ref->declaration; - switch((declaration_type_t) declaration->declaration_type) { - case DECLARATION_TYPE_UNKNOWN: + switch((declaration_kind_t) declaration->declaration_kind) { + case DECLARATION_KIND_UNKNOWN: break; - case DECLARATION_TYPE_LOCAL_VARIABLE: + case DECLARATION_KIND_LOCAL_VARIABLE: panic("local variable without entity has no address"); - case DECLARATION_TYPE_FUNCTION: { - return create_symconst(dbgi, declaration->v.entity); + case DECLARATION_KIND_FUNCTION: { + type_t *const type = skip_typeref(ref->expression.datatype); + ir_mode *const mode = get_ir_mode(type); + return create_symconst(dbgi, mode, declaration->v.entity); } - case DECLARATION_TYPE_GLOBAL_VARIABLE: { + case DECLARATION_KIND_GLOBAL_VARIABLE: { ir_node *const addr = get_global_var_address(dbgi, declaration); return addr; } - case DECLARATION_TYPE_LOCAL_VARIABLE_ENTITY: { + case DECLARATION_KIND_LOCAL_VARIABLE_ENTITY: { ir_entity *entity = declaration->v.entity; - ir_node *frame = get_irg_frame(current_ir_graph); + ir_node *frame = get_local_frame(entity); ir_node *sel = new_d_simpleSel(dbgi, new_NoMem(), frame, entity); return sel; } - case DECLARATION_TYPE_ENUM_ENTRY: + case DECLARATION_KIND_ENUM_ENTRY: panic("trying to reference enum entry"); - case DECLARATION_TYPE_COMPOUND_MEMBER: - case DECLARATION_TYPE_LABEL_BLOCK: + case DECLARATION_KIND_COMPOUND_MEMBER: + case DECLARATION_KIND_LABEL_BLOCK: panic("not implemented reference type"); } @@ -932,7 +1203,7 @@ static ir_node *process_builtin_call(const call_expression_t *call) { dbg_info *dbgi = get_dbg_info(&call->expression.source_position); - assert(call->function->type == EXPR_BUILTIN_SYMBOL); + assert(call->function->kind == EXPR_BUILTIN_SYMBOL); builtin_symbol_expression_t *builtin = &call->function->builtin_symbol; type_t *type = skip_typeref(builtin->expression.datatype); @@ -980,7 +1251,7 @@ static ir_node *call_expression_to_firm(const call_expression_t *call) assert(get_cur_block() != NULL); expression_t *function = call->function; - if(function->type == EXPR_BUILTIN_SYMBOL) { + if(function->kind == EXPR_BUILTIN_SYMBOL) { return process_builtin_call(call); } ir_node *callee = expression_to_firm(function); @@ -1077,7 +1348,7 @@ static void assign_value(dbg_info *dbgi, ir_node *addr, type_t *type, { value = do_strict_conv(dbgi, value); - ir_node *memory = get_store(); + ir_node *memory = get_store(); if(is_type_scalar(type)) { ir_node *store = new_d_Store(dbgi, memory, addr, value); @@ -1091,23 +1362,93 @@ static void assign_value(dbg_info *dbgi, ir_node *addr, type_t *type, } } +static tarval *create_bitfield_mask(ir_mode *mode, int offset, int size) +{ + tarval *all_one = get_mode_all_one(mode); + int mode_size = get_mode_size_bits(mode); + + assert(offset >= 0 && size >= 0); + assert(offset + size <= mode_size); + if(size == mode_size) { + return all_one; + } + + long shiftr = get_mode_size_bits(mode) - size; + long shiftl = offset; + tarval *tv_shiftr = new_tarval_from_long(shiftr, mode_uint); + tarval *tv_shiftl = new_tarval_from_long(shiftl, mode_uint); + tarval *mask0 = tarval_shr(all_one, tv_shiftr); + tarval *mask1 = tarval_shl(mask0, tv_shiftl); + + return mask1; +} + +static void bitfield_store_to_firm(const unary_expression_t *expression, + ir_node *value) +{ + expression_t *select = expression->value; + assert(select->kind == EXPR_SELECT); + type_t *type = select->base.datatype; + assert(type->kind == TYPE_BITFIELD); + ir_mode *mode = get_ir_mode(type->bitfield.base); + ir_node *addr = expression_to_addr(select); + + assert(get_irn_mode(value) == mode); + + dbg_info *dbgi = get_dbg_info(&expression->expression.source_position); + + /* kill upper bits of value and shift to right position */ + ir_entity *entity = select->select.compound_entry->v.entity; + int bitoffset = get_entity_offset_bits_remainder(entity); + ir_type *entity_type = get_entity_type(entity); + int bitsize = get_mode_size_bits(get_type_mode(entity_type)); + + tarval *mask = create_bitfield_mask(mode, 0, bitsize); + ir_node *mask_node = new_d_Const(dbgi, mode, mask); + ir_node *value_masked = new_d_And(dbgi, value, mask_node, mode); + tarval *shiftl = new_tarval_from_long(bitoffset, mode_uint); + ir_node *shiftcount = new_d_Const(dbgi, mode_uint, shiftl); + ir_node *value_maskshift = new_d_Shl(dbgi, value_masked, shiftcount, mode); + + /* load current value */ + ir_node *mem = get_store(); + ir_node *load = new_d_Load(dbgi, mem, addr, mode); + ir_node *load_mem = new_d_Proj(dbgi, load, mode_M, pn_Load_M); + ir_node *load_res = new_d_Proj(dbgi, load, mode, pn_Load_res); + tarval *shift_mask = create_bitfield_mask(mode, bitoffset, bitsize); + tarval *inv_mask = tarval_not(shift_mask); + ir_node *inv_mask_node = new_d_Const(dbgi, mode, inv_mask); + ir_node *load_res_masked = new_d_And(dbgi, load_res, inv_mask_node, mode); + + /* construct new value and store */ + ir_node *new_val = new_d_Or(dbgi, load_res_masked, value_maskshift, mode); + ir_node *store = new_d_Store(dbgi, load_mem, addr, new_val); + ir_node *store_mem = new_d_Proj(dbgi, store, mode_M, pn_Store_M); + set_store(store_mem); +} + static void set_value_for_expression(const expression_t *expression, ir_node *value) { dbg_info *dbgi = get_dbg_info(&expression->base.source_position); value = do_strict_conv(dbgi, value); - if(expression->type == EXPR_REFERENCE) { - reference_expression_t *ref = (reference_expression_t*) expression; + if(expression->kind == EXPR_REFERENCE) { + const reference_expression_t *ref = &expression->reference; declaration_t *declaration = ref->declaration; - assert(declaration->declaration_type != DECLARATION_TYPE_UNKNOWN); - if(declaration->declaration_type == DECLARATION_TYPE_LOCAL_VARIABLE) { + assert(declaration->declaration_kind != DECLARATION_KIND_UNKNOWN); + if(declaration->declaration_kind == DECLARATION_KIND_LOCAL_VARIABLE) { set_value(declaration->v.value_number, value); return; } } + if(expression->kind == EXPR_UNARY_BITFIELD_EXTRACT) { + bitfield_store_to_firm(&expression->unary, value); + return; + } + ir_node *addr = expression_to_addr(expression); type_t *type = skip_typeref(expression->base.datatype); assign_value(dbgi, addr, type, value); @@ -1149,7 +1490,7 @@ static ir_node *create_incdec(const unary_expression_t *expression) offset = new_Const(mode, get_mode_one(mode)); } - switch(expression->expression.type) { + switch(expression->expression.kind) { case EXPR_UNARY_POSTFIX_INCREMENT: { ir_node *new_value = new_d_Add(dbgi, value_node, offset, mode); set_value_for_expression(value, new_value); @@ -1176,29 +1517,189 @@ static ir_node *create_incdec(const unary_expression_t *expression) } } +static bool is_local_variable(expression_t *expression) +{ + if (expression->kind != EXPR_REFERENCE) + return false; + reference_expression_t *ref_expr = &expression->reference; + declaration_t *declaration = ref_expr->declaration; + return declaration->declaration_kind == DECLARATION_KIND_LOCAL_VARIABLE; +} + +static pn_Cmp get_pnc(const expression_kind_t kind) +{ + switch(kind) { + case EXPR_BINARY_EQUAL: return pn_Cmp_Eq; + case EXPR_BINARY_ISLESSGREATER: return pn_Cmp_Lg; + case EXPR_BINARY_NOTEQUAL: return pn_Cmp_Ne; + case EXPR_BINARY_ISLESS: + case EXPR_BINARY_LESS: return pn_Cmp_Lt; + case EXPR_BINARY_ISLESSEQUAL: + case EXPR_BINARY_LESSEQUAL: return pn_Cmp_Le; + case EXPR_BINARY_ISGREATER: + case EXPR_BINARY_GREATER: return pn_Cmp_Gt; + case EXPR_BINARY_ISGREATEREQUAL: + case EXPR_BINARY_GREATEREQUAL: return pn_Cmp_Ge; + case EXPR_BINARY_ISUNORDERED: return pn_Cmp_Uo; + + default: + break; + } + panic("trying to get pn_Cmp from non-comparison binexpr type"); +} + +/** + * Handle the assume optimizer hint: check if a Confirm + * node can be created. + * + * @param dbi debug info + * @param expr the IL assume expression + * + * we support here only some simple cases: + * - var rel const + * - const rel val + * - var rel var + */ +static ir_node *handle_assume_compare(dbg_info *dbi, + const binary_expression_t *expression) +{ + expression_t *op1 = expression->left; + expression_t *op2 = expression->right; + declaration_t *var2, *var = NULL; + ir_node *res = NULL; + pn_Cmp cmp_val; + + cmp_val = get_pnc(expression->expression.kind); + + if (is_local_variable(op1) && is_local_variable(op2)) { + var = op1->reference.declaration; + var2 = op2->reference.declaration; + + type_t *const type = skip_typeref(var->type); + ir_mode *const mode = get_ir_mode(type); + + ir_node *const irn1 = get_value(var->v.value_number, mode); + ir_node *const irn2 = get_value(var2->v.value_number, mode); + + res = new_d_Confirm(dbi, irn2, irn1, get_inversed_pnc(cmp_val)); + set_value(var2->v.value_number, res); + + res = new_d_Confirm(dbi, irn1, irn2, cmp_val); + set_value(var->v.value_number, res); + + return res; + } + + expression_t *con; + if (is_local_variable(op1) && is_constant_expression(op2)) { + var = op1->reference.declaration; + con = op2; + } else if (is_constant_expression(op1) && is_local_variable(op2)) { + cmp_val = get_inversed_pnc(cmp_val); + var = op2->reference.declaration; + con = op1; + } + + if (var != NULL) { + type_t *const type = skip_typeref(var->type); + ir_mode *const mode = get_ir_mode(type); + + res = get_value(var->v.value_number, mode); + res = new_d_Confirm(dbi, res, expression_to_firm(con), cmp_val); + set_value(var->v.value_number, res); + } + return res; +} + +/** + * Handle the assume optimizer hint. + * + * @param dbi debug info + * @param expr the IL assume expression + */ +static ir_node *handle_assume(dbg_info *dbi, const expression_t *expression) { + switch(expression->kind) { + case EXPR_BINARY_EQUAL: + case EXPR_BINARY_NOTEQUAL: + case EXPR_BINARY_LESS: + case EXPR_BINARY_LESSEQUAL: + case EXPR_BINARY_GREATER: + case EXPR_BINARY_GREATEREQUAL: + return handle_assume_compare(dbi, &expression->binary); + default: + return NULL; + } +} + +static ir_node *bitfield_extract_to_firm(const unary_expression_t *expression) +{ + expression_t *select = expression->value; + assert(select->kind == EXPR_SELECT); + + type_t *type = select->base.datatype; + assert(type->kind == TYPE_BITFIELD); + ir_mode *mode = get_ir_mode(type->bitfield.base); + dbg_info *dbgi = get_dbg_info(&expression->expression.source_position); + ir_node *addr = expression_to_addr(select); + ir_node *mem = get_store(); + ir_node *load = new_d_Load(dbgi, mem, addr, mode); + ir_node *load_mem = new_d_Proj(dbgi, load, mode_M, pn_Load_M); + ir_node *load_res = new_d_Proj(dbgi, load, mode, pn_Load_res); + + load_res = create_conv(dbgi, load_res, mode_int); + + set_store(load_mem); + + /* kill upper bits */ + ir_entity *entity = select->select.compound_entry->v.entity; + int bitoffset = get_entity_offset_bits_remainder(entity); + ir_type *entity_type = get_entity_type(entity); + int bitsize = get_mode_size_bits(get_type_mode(entity_type)); + long shift_bitsl = machine_size - bitoffset - bitsize; + assert(shift_bitsl >= 0); + tarval *tvl = new_tarval_from_long(shift_bitsl, mode_uint); + ir_node *countl = new_d_Const(dbgi, mode_uint, tvl); + ir_node *shiftl = new_d_Shl(dbgi, load_res, countl, mode_int); + + long shift_bitsr = bitoffset + shift_bitsl; + assert(shift_bitsr <= (long) machine_size); + tarval *tvr = new_tarval_from_long(shift_bitsr, mode_uint); + ir_node *countr = new_d_Const(dbgi, mode_uint, tvr); + ir_node *shiftr; + if(mode_is_signed(mode)) { + shiftr = new_d_Shrs(dbgi, shiftl, countr, mode_int); + } else { + shiftr = new_d_Shr(dbgi, shiftl, countr, mode_int); + } + + return create_conv(dbgi, shiftr, mode); +} + static ir_node *unary_expression_to_firm(const unary_expression_t *expression) { dbg_info *dbgi = get_dbg_info(&expression->expression.source_position); type_t *type = skip_typeref(expression->expression.datatype); - if(expression->expression.type == EXPR_UNARY_TAKE_ADDRESS) + if(expression->expression.kind == EXPR_UNARY_TAKE_ADDRESS) return expression_to_addr(expression->value); - const expression_t *value = expression->value; - ir_node *value_node = expression_to_firm(value); + const expression_t *value = expression->value; - switch(expression->expression.type) { + switch(expression->expression.kind) { case EXPR_UNARY_NEGATE: { + ir_node *value_node = expression_to_firm(value); ir_mode *mode = get_ir_mode(type); return new_d_Minus(dbgi, value_node, mode); } case EXPR_UNARY_PLUS: - return value_node; + return expression_to_firm(value); case EXPR_UNARY_BITWISE_NEGATE: { + ir_node *value_node = expression_to_firm(value); ir_mode *mode = get_ir_mode(type); return new_d_Not(dbgi, value_node, mode); } case EXPR_UNARY_NOT: { + ir_node *value_node = expression_to_firm(value); ir_mode *mode = get_ir_mode(type); if(get_irn_mode(value_node) != mode_b) { value_node = create_conv(dbgi, value_node, mode_b); @@ -1210,6 +1711,7 @@ static ir_node *unary_expression_to_firm(const unary_expression_t *expression) return value_node; } case EXPR_UNARY_DEREFERENCE: { + ir_node *value_node = expression_to_firm(value); type_t *value_type = skip_typeref(value->base.datatype); ir_type *irtype = get_ir_type(value_type); assert(is_Pointer_type(irtype)); @@ -1222,15 +1724,24 @@ static ir_node *unary_expression_to_firm(const unary_expression_t *expression) case EXPR_UNARY_PREFIX_DECREMENT: return create_incdec(expression); case EXPR_UNARY_CAST: { + ir_node *value_node = expression_to_firm(value); ir_mode *mode = get_ir_mode(type); ir_node *node = create_conv(dbgi, value_node, mode); node = do_strict_conv(dbgi, node); return node; } case EXPR_UNARY_CAST_IMPLICIT: { + ir_node *value_node = expression_to_firm(value); ir_mode *mode = get_ir_mode(type); return create_conv(dbgi, value_node, mode); } + case EXPR_UNARY_ASSUME: + if(firm_opt.confirm) + return handle_assume(dbgi, value); + else + return NULL; + case EXPR_UNARY_BITFIELD_EXTRACT: + return bitfield_extract_to_firm(expression); default: break; @@ -1238,34 +1749,25 @@ static ir_node *unary_expression_to_firm(const unary_expression_t *expression) panic("invalid UNEXPR type found"); } -static long get_pnc(const expression_type_t type) -{ - switch(type) { - case EXPR_BINARY_EQUAL: return pn_Cmp_Eq; - case EXPR_BINARY_ISLESSGREATER: return pn_Cmp_Lg; - case EXPR_BINARY_NOTEQUAL: return pn_Cmp_Ne; - case EXPR_BINARY_ISLESS: - case EXPR_BINARY_LESS: return pn_Cmp_Lt; - case EXPR_BINARY_ISLESSEQUAL: - case EXPR_BINARY_LESSEQUAL: return pn_Cmp_Le; - case EXPR_BINARY_ISGREATER: - case EXPR_BINARY_GREATER: return pn_Cmp_Gt; - case EXPR_BINARY_ISGREATEREQUAL: - case EXPR_BINARY_GREATEREQUAL: return pn_Cmp_Ge; - case EXPR_BINARY_ISUNORDERED: return pn_Cmp_Uo; - - default: - break; - } - panic("trying to get pn_Cmp from non-comparison binexpr type"); -} - static ir_node *create_lazy_op(const binary_expression_t *expression) { dbg_info *dbgi = get_dbg_info(&expression->expression.source_position); type_t *type = expression->expression.datatype; ir_mode *mode = get_ir_mode(type); + if(is_constant_expression(expression->left)) { + long val = fold_constant(expression->left); + expression_kind_t ekind = expression->expression.kind; + if((ekind == EXPR_BINARY_LOGICAL_AND && val != 0) + || (ekind == EXPR_BINARY_LOGICAL_OR && val == 0)) { + return expression_to_firm(expression->right); + } else { + assert((ekind == EXPR_BINARY_LOGICAL_AND && val == 0) + || (ekind == EXPR_BINARY_LOGICAL_OR && val != 0)); + return new_Const(mode, get_mode_one(mode)); + } + } + ir_node *cur_block = get_cur_block(); ir_node *one_block = new_immBlock(); @@ -1318,7 +1820,7 @@ static ir_node *pointer_arithmetic(ir_node *const pointer, dbg_info *const dbgi, const create_arithmetic_func func) { - pointer_type_t *const pointer_type = (pointer_type_t*)type; + pointer_type_t *const pointer_type = &type->pointer; type_t *const points_to = pointer_type->points_to; const unsigned elem_size = get_type_size(points_to); @@ -1342,14 +1844,14 @@ static ir_node *create_arithmetic_assign_binop( ir_node *value; if (is_type_pointer(type)) { - ir_node *const pointer = expression_to_firm(expression->left); - ir_node * integer = expression_to_firm(expression->right); + ir_node *const pointer = expression_to_firm(expression->left); + ir_node * integer = expression_to_firm(expression->right); value = pointer_arithmetic(pointer, integer, type, dbgi, func); } else { value = create_arithmetic_binop(expression, func); } - ir_mode *const mode = get_ir_mode(type); + ir_mode *const mode = get_ir_mode(type); value = create_conv(dbgi, value, mode); set_value_for_expression(expression->left, value); @@ -1424,7 +1926,7 @@ static ir_node *create_shift(const binary_expression_t *expression) ir_node *res; - switch(expression->expression.type) { + switch(expression->expression.kind) { case EXPR_BINARY_SHIFTLEFT_ASSIGN: case EXPR_BINARY_SHIFTLEFT: res = new_d_Shl(dbgi, left, right, mode); @@ -1463,7 +1965,7 @@ static ir_node *create_divmod(const binary_expression_t *expression) ir_node *op; ir_node *res; - switch (expression->expression.type) { + switch (expression->expression.kind) { case EXPR_BINARY_DIV: case EXPR_BINARY_DIV_ASSIGN: if(mode_is_float(mode)) { @@ -1496,7 +1998,7 @@ static ir_node *create_arithmetic_assign_divmod( type_t *const type = expression->expression.datatype; ir_mode *const mode = get_ir_mode(type); - assert(type->type != TYPE_POINTER); + assert(type->kind != TYPE_POINTER); value = create_conv(dbgi, value, mode); set_value_for_expression(expression->left, value); @@ -1520,9 +2022,9 @@ static ir_node *create_arithmetic_assign_shift( static ir_node *binary_expression_to_firm(const binary_expression_t *expression) { - expression_type_t type = expression->expression.type; + expression_kind_t kind = expression->expression.kind; - switch(type) { + switch(kind) { case EXPR_BINARY_EQUAL: case EXPR_BINARY_NOTEQUAL: case EXPR_BINARY_LESS: @@ -1539,7 +2041,7 @@ static ir_node *binary_expression_to_firm(const binary_expression_t *expression) ir_node *left = expression_to_firm(expression->left); ir_node *right = expression_to_firm(expression->right); ir_node *cmp = new_d_Cmp(dbgi, left, right); - long pnc = get_pnc(type); + long pnc = get_pnc(kind); ir_node *proj = new_d_Proj(dbgi, cmp, mode_b, pnc); return proj; } @@ -1590,6 +2092,8 @@ static ir_node *binary_expression_to_firm(const binary_expression_t *expression) case EXPR_BINARY_SHIFTLEFT_ASSIGN: case EXPR_BINARY_SHIFTRIGHT_ASSIGN: return create_arithmetic_assign_shift(expression); + case EXPR_BINARY_BUILTIN_EXPECT: + return expression_to_firm(expression->left); default: panic("TODO binexpr type"); } @@ -1604,7 +2108,7 @@ static ir_node *array_access_addr(const array_access_expression_t *expression) type_t *ref_type = skip_typeref(expression->array_ref->base.datatype); assert(is_type_pointer(ref_type)); - pointer_type_t *pointer_type = (pointer_type_t*) ref_type; + pointer_type_t *pointer_type = &ref_type->pointer; unsigned elem_size = get_type_size(pointer_type->points_to); ir_node *elem_size_const = new_Const_long(mode_uint, elem_size); @@ -1636,11 +2140,19 @@ static ir_node *sizeof_to_firm(const sizeof_expression_t *expression) assert(type != NULL); } - ir_mode *mode = get_ir_mode(expression->expression.datatype); - unsigned size = get_type_size(type); - ir_node *size_node = new_Const_long(mode, size); + ir_mode *const mode = get_ir_mode(expression->expression.datatype); + symconst_symbol sym; + sym.type_p = get_ir_type(type); + return new_SymConst(mode, sym, symconst_type_size); +} - return size_node; +static ir_node *alignof_to_firm(const alignof_expression_t *expression) +{ + type_t *const type = expression->type; + ir_mode *const mode = get_ir_mode(expression->expression.datatype); + symconst_symbol sym; + sym.type_p = get_ir_type(type); + return new_SymConst(mode, sym, symconst_type_align); } static long fold_constant(const expression_t *expression) @@ -1669,7 +2181,7 @@ static long fold_constant(const expression_t *expression) static ir_node *conditional_to_firm(const conditional_expression_t *expression) { - dbg_info *dbgi = get_dbg_info(&expression->expression.source_position); + dbg_info *const dbgi = get_dbg_info(&expression->expression.source_position); /* first try to fold a constant condition */ if(is_constant_expression(expression->condition)) { @@ -1726,7 +2238,7 @@ static ir_node *select_addr(const select_expression_t *expression) ir_node *compound_addr = expression_to_firm(expression->compound); declaration_t *entry = expression->compound_entry; - assert(entry->declaration_type == DECLARATION_TYPE_COMPOUND_MEMBER); + assert(entry->declaration_kind == DECLARATION_KIND_COMPOUND_MEMBER); ir_entity *entity = entry->v.entity; assert(entity != NULL); @@ -1778,11 +2290,11 @@ static ir_node *classify_type_to_firm(const classify_type_expression_t *const ex const type_t *const type = expr->type_expression->base.datatype; gcc_type_class tc; - switch (type->type) + switch (type->kind) { case TYPE_ATOMIC: { const atomic_type_t *const atomic_type = &type->atomic; - switch (atomic_type->atype) { + switch (atomic_type->akind) { /* should not be reached */ case ATOMIC_TYPE_INVALID: tc = no_type_class; @@ -1859,7 +2371,8 @@ static ir_node *function_name_to_firm( const source_position_t *const src_pos = &expr->expression.source_position; const char *const name = current_function_decl->symbol->string; - current_function_name = string_to_firm(src_pos, "__func__", name); + const string_t string = { name, strlen(name) + 1 }; + current_function_name = string_to_firm(src_pos, "__func__", &string); } return current_function_name; @@ -1869,8 +2382,8 @@ static ir_node *statement_expression_to_firm(const statement_expression_t *expr) { statement_t *statement = expr->statement; - assert(statement->type == STATEMENT_COMPOUND); - return compound_statement_to_firm((compound_statement_t*) statement); + assert(statement->kind == STATEMENT_COMPOUND); + return compound_statement_to_firm(&statement->compound); } static ir_node *va_start_expression_to_firm( @@ -1901,9 +2414,9 @@ static ir_node *va_arg_expression_to_firm(const va_arg_expression_t *const expr) dbg_info *const dbgi = get_dbg_info(&expr->expression.source_position); ir_node *const res = deref_address(irtype, ap, dbgi); - size_t const parm_size = get_type_size(expr->expression.datatype); - ir_node *const cnst = new_Const_long(mode_uint, parm_size); - ir_node *const add = new_d_Add(dbgi, ap, cnst, mode_P_data); + size_t const parm_size = get_type_size(expr->expression.datatype); + ir_node *const cnst = new_Const_long(mode_uint, parm_size); + ir_node *const add = new_d_Add(dbgi, ap, cnst, mode_P_data); set_value_for_expression(expr->ap, add); return res; @@ -1911,13 +2424,13 @@ static ir_node *va_arg_expression_to_firm(const va_arg_expression_t *const expr) static ir_node *dereference_addr(const unary_expression_t *const expression) { - assert(expression->expression.type == EXPR_UNARY_DEREFERENCE); + assert(expression->expression.kind == EXPR_UNARY_DEREFERENCE); return expression_to_firm(expression->value); } static ir_node *expression_to_addr(const expression_t *expression) { - switch(expression->type) { + switch(expression->kind) { case EXPR_REFERENCE: return reference_addr(&expression->reference); case EXPR_ARRAY_ACCESS: @@ -1935,9 +2448,32 @@ static ir_node *expression_to_addr(const expression_t *expression) panic("trying to get address of non-lvalue"); } +static ir_node *builtin_constant_to_firm( + const builtin_constant_expression_t *expression) +{ + ir_mode *mode = get_ir_mode(expression->expression.datatype); + long v; + + if (is_constant_expression(expression->value)) { + v = 1; + } else { + v = 0; + } + return new_Const_long(mode, v); +} + +static ir_node *builtin_prefetch_to_firm( + const builtin_prefetch_expression_t *expression) +{ + ir_node *adr = expression_to_firm(expression->adr); + /* no Firm support for prefetch yet */ + (void) adr; + return NULL; +} + static ir_node *_expression_to_firm(const expression_t *expression) { - switch(expression->type) { + switch(expression->kind) { case EXPR_CONST: return const_to_firm(&expression->conste); case EXPR_STRING_LITERAL: @@ -1956,6 +2492,8 @@ static ir_node *_expression_to_firm(const expression_t *expression) return array_access_to_firm(&expression->array_access); case EXPR_SIZEOF: return sizeof_to_firm(&expression->sizeofe); + case EXPR_ALIGNOF: + return alignof_to_firm(&expression->alignofe); case EXPR_CONDITIONAL: return conditional_to_firm(&expression->conditional); case EXPR_SELECT: @@ -1974,6 +2512,10 @@ static ir_node *_expression_to_firm(const expression_t *expression) case EXPR_OFFSETOF: case EXPR_BUILTIN_SYMBOL: panic("unimplemented expression found"); + case EXPR_BUILTIN_CONSTANT_P: + return builtin_constant_to_firm(&expression->builtin_constant); + case EXPR_BUILTIN_PREFETCH: + return builtin_prefetch_to_firm(&expression->builtin_prefetch); case EXPR_UNKNOWN: case EXPR_INVALID: @@ -2010,7 +2552,7 @@ static void create_condition_evaluation(const expression_t *expression, ir_node *true_block, ir_node *false_block) { - switch(expression->type) { + switch(expression->kind) { case EXPR_UNARY_NOT: { const unary_expression_t *unary_expression = &expression->unary; create_condition_evaluation(unary_expression->value, false_block, @@ -2055,6 +2597,19 @@ static void create_condition_evaluation(const expression_t *expression, ir_node *true_proj = new_d_Proj(dbgi, cond, mode_X, pn_Cond_true); ir_node *false_proj = new_d_Proj(dbgi, cond, mode_X, pn_Cond_false); + /* set branch prediction info based on __builtin_expect */ + if(expression->kind == EXPR_BINARY_BUILTIN_EXPECT) { + long cnst = fold_constant(expression->binary.right); + cond_jmp_predicate pred; + + if(cnst == 0) { + pred = COND_JMP_PRED_FALSE; + } else { + pred = COND_JMP_PRED_TRUE; + } + set_Cond_jmp_pred(cond, pred); + } + add_immBlock_pred(true_block, true_proj); add_immBlock_pred(false_block, false_proj); @@ -2064,7 +2619,7 @@ static void create_condition_evaluation(const expression_t *expression, static void create_declaration_entity(declaration_t *declaration, - declaration_type_t declaration_type, + declaration_kind_t declaration_kind, ir_type *parent_type) { ident *const id = new_id_from_str(declaration->symbol->string); @@ -2073,12 +2628,12 @@ static void create_declaration_entity(declaration_t *declaration, ir_entity *const entity = new_d_entity(parent_type, id, irtype, dbgi); set_entity_ld_ident(entity, id); - declaration->declaration_type = (unsigned char) declaration_type; + declaration->declaration_kind = (unsigned char) declaration_kind; declaration->v.entity = entity; set_entity_variability(entity, variability_uninitialized); if(parent_type == get_tls_type()) set_entity_allocation(entity, allocation_automatic); - else if(declaration_type == DECLARATION_TYPE_GLOBAL_VARIABLE) + else if(declaration_kind == DECLARATION_KIND_GLOBAL_VARIABLE) set_entity_allocation(entity, allocation_static); /* TODO: visibility? */ } @@ -2141,7 +2696,7 @@ static void create_initializer_compound(initializer_list_t *initializer, { declaration_t *compound_declaration = type->declaration; - declaration_t *compound_entry = compound_declaration->context.declarations; + declaration_t *compound_entry = compound_declaration->scope.declarations; compound_graph_path_entry_t entry; entry.type = COMPOUND_GRAPH_ENTRY_COMPOUND; @@ -2163,10 +2718,10 @@ static void create_initializer_compound(initializer_list_t *initializer, initializer_t *sub_initializer = initializer->initializers[i]; assert(compound_entry != NULL); - assert(compound_entry->declaration_type - == DECLARATION_TYPE_COMPOUND_MEMBER); + assert(compound_entry->declaration_kind + == DECLARATION_KIND_COMPOUND_MEMBER); - if(sub_initializer->type == INITIALIZER_VALUE) { + if(sub_initializer->kind == INITIALIZER_VALUE) { create_initializer_value(&sub_initializer->value, entity, &entry, len); } else { @@ -2198,7 +2753,7 @@ static void create_initializer_array(initializer_list_t *initializer, initializer_t *sub_initializer = initializer->initializers[i]; - if(sub_initializer->type == INITIALIZER_VALUE) { + if(sub_initializer->kind == INITIALIZER_VALUE) { create_initializer_value(&sub_initializer->value, entity, &entry, len); } else { @@ -2231,19 +2786,18 @@ static void create_initializer_string(initializer_string_t *initializer, entry.prev = last_entry; ++len; - ir_type *irtype = get_entity_type(entity); - size_t arr_len = get_array_type_size(type); - const char *p = initializer->string; - size_t i = 0; - for(i = 0; i < arr_len; ++i, ++p) { + ir_type *const irtype = get_entity_type(entity); + size_t arr_len = get_array_type_size(type); + const char *const p = initializer->string.begin; + if (initializer->string.size < arr_len) { + arr_len = initializer->string.size; + } + for (size_t i = 0; i < arr_len; ++i) { entry.v.array_index = i; - ir_node *node = new_Const_long(mode_Bs, *p); + ir_node *node = new_Const_long(mode_Bs, p[i]); compound_graph_path *path = create_compound_path(irtype, &entry, len); add_compound_ent_value_w_path(entity, node, path); - - if(*p == '\0') - break; } } @@ -2279,7 +2833,7 @@ static void create_initializer_object(initializer_t *initializer, type_t *type, if(is_type_array(type)) { array_type_t *array_type = &type->array; - switch (initializer->type) { + switch (initializer->kind) { case INITIALIZER_STRING: { initializer_string_t *const string = &initializer->string; create_initializer_string(string, array_type, entity, entry, len); @@ -2303,7 +2857,7 @@ static void create_initializer_object(initializer_t *initializer, type_t *type, } panic("Unhandled initializer"); } else { - assert(initializer->type == INITIALIZER_LIST); + assert(initializer->kind == INITIALIZER_LIST); initializer_list_t *list = &initializer->list; assert(is_type_compound(type)); @@ -2322,7 +2876,7 @@ static void create_initializer_local_variable_entity(declaration_t *declaration) ir_node *frame = get_irg_frame(current_ir_graph); ir_node *addr = new_d_simpleSel(dbgi, nomem, frame, entity); - if(initializer->type == INITIALIZER_VALUE) { + if(initializer->kind == INITIALIZER_VALUE) { initializer_value_t *initializer_value = &initializer->value; ir_node *value = expression_to_firm(initializer_value->value); @@ -2351,7 +2905,7 @@ static void create_initializer_local_variable_entity(declaration_t *declaration) assert(current_ir_graph == get_const_code_irg()); current_ir_graph = old_current_ir_graph; - ir_node *const src_addr = create_symconst(dbgi, init_entity); + ir_node *const src_addr = create_symconst(dbgi, mode_P_data, init_entity); ir_node *const copyb = new_d_CopyB(dbgi, memory, addr, src_addr, irtype); ir_node *const copyb_mem = new_Proj(copyb, mode_M, pn_CopyB_M_regular); @@ -2364,22 +2918,22 @@ static void create_initializer(declaration_t *declaration) if(initializer == NULL) return; - declaration_type_t declaration_type - = (declaration_type_t) declaration->declaration_type; - if(declaration_type == DECLARATION_TYPE_LOCAL_VARIABLE_ENTITY) { + declaration_kind_t declaration_kind + = (declaration_kind_t) declaration->declaration_kind; + if(declaration_kind == DECLARATION_KIND_LOCAL_VARIABLE_ENTITY) { create_initializer_local_variable_entity(declaration); return; } - if(initializer->type == INITIALIZER_VALUE) { + if(initializer->kind == INITIALIZER_VALUE) { initializer_value_t *initializer_value = &initializer->value; ir_node *value = expression_to_firm(initializer_value->value); - if(declaration_type == DECLARATION_TYPE_LOCAL_VARIABLE) { + if(declaration_kind == DECLARATION_KIND_LOCAL_VARIABLE) { set_value(declaration->v.value_number, value); } else { - assert(declaration_type == DECLARATION_TYPE_GLOBAL_VARIABLE); + assert(declaration_kind == DECLARATION_KIND_GLOBAL_VARIABLE); ir_entity *entity = declaration->v.entity; @@ -2387,8 +2941,8 @@ static void create_initializer(declaration_t *declaration) set_atomic_ent_value(entity, value); } } else { - assert(declaration_type == DECLARATION_TYPE_LOCAL_VARIABLE_ENTITY - || declaration_type == DECLARATION_TYPE_GLOBAL_VARIABLE); + assert(declaration_kind == DECLARATION_KIND_LOCAL_VARIABLE_ENTITY + || declaration_kind == DECLARATION_KIND_GLOBAL_VARIABLE); ir_entity *entity = declaration->v.entity; set_entity_variability(entity, variability_initialized); @@ -2398,9 +2952,12 @@ static void create_initializer(declaration_t *declaration) } } +/** + * Creates a Firm local variable from a declaration. + */ static void create_local_variable(declaration_t *declaration) { - assert(declaration->declaration_type == DECLARATION_TYPE_UNKNOWN); + assert(declaration->declaration_kind == DECLARATION_KIND_UNKNOWN); bool needs_entity = declaration->address_taken; type_t *type = skip_typeref(declaration->type); @@ -2412,11 +2969,12 @@ static void create_local_variable(declaration_t *declaration) if(needs_entity) { ir_type *frame_type = get_irg_frame_type(current_ir_graph); create_declaration_entity(declaration, - DECLARATION_TYPE_LOCAL_VARIABLE_ENTITY, + DECLARATION_KIND_LOCAL_VARIABLE_ENTITY, frame_type); } else { - declaration->declaration_type = DECLARATION_TYPE_LOCAL_VARIABLE; + declaration->declaration_kind = DECLARATION_KIND_LOCAL_VARIABLE; declaration->v.value_number = next_value_number_function; + set_irg_loc_description(current_ir_graph, next_value_number_function, declaration); ++next_value_number_function; } @@ -2425,7 +2983,7 @@ static void create_local_variable(declaration_t *declaration) static void create_local_static_variable(declaration_t *declaration) { - assert(declaration->declaration_type == DECLARATION_TYPE_UNKNOWN); + assert(declaration->declaration_kind == DECLARATION_KIND_UNKNOWN); type_t *const type = skip_typeref(declaration->type); ir_type *const global_type = get_glob_type(); @@ -2435,7 +2993,7 @@ static void create_local_static_variable(declaration_t *declaration) ir_entity *const entity = new_d_entity(global_type, id, irtype, dbgi); set_entity_ld_ident(entity, id); - declaration->declaration_type = DECLARATION_TYPE_GLOBAL_VARIABLE; + declaration->declaration_kind = DECLARATION_KIND_GLOBAL_VARIABLE; declaration->v.entity = entity; set_entity_variability(entity, variability_uninitialized); set_entity_visibility(entity, visibility_local); @@ -2510,12 +3068,12 @@ static ir_node *compound_statement_to_firm(compound_statement_t *compound) ir_node *result = NULL; statement_t *statement = compound->statements; for( ; statement != NULL; statement = statement->base.next) { - //context2firm(&statement->context); + //context2firm(&statement->scope); if(statement->base.next == NULL - && statement->type == STATEMENT_EXPRESSION) { + && statement->kind == STATEMENT_EXPRESSION) { result = expression_statement_to_firm( - (expression_statement_t*) statement); + &statement->expression); break; } statement_to_firm(statement); @@ -2559,6 +3117,8 @@ static void declaration_statement_to_firm(declaration_statement_t *statement) declaration_t *declaration = statement->declarations_begin; declaration_t *end = statement->declarations_end->next; for( ; declaration != end; declaration = declaration->next) { + if(declaration->namespc != NAMESPACE_NORMAL) + continue; create_local_variable(declaration); } } @@ -2727,7 +3287,7 @@ static void for_statement_to_firm(for_statement_t *statement) } /* create declarations */ - declaration_t *declaration = statement->context.declarations; + declaration_t *declaration = statement->scope.declarations; for( ; declaration != NULL; declaration = declaration->next) { create_local_declaration(declaration); } @@ -2826,7 +3386,9 @@ static void switch_statement_to_firm(const switch_statement_t *statement) current_switch_cond = cond; break_label = break_block; - statement_to_firm(statement->body); + if (statement->body != NULL) { + statement_to_firm(statement->body); + } if(get_cur_block() != NULL) { ir_node *jmp = new_Jmp(); @@ -2880,23 +3442,25 @@ static void case_label_to_firm(const case_label_statement_t *statement) add_immBlock_pred(block, proj); mature_immBlock(block); - statement_to_firm(statement->label_statement); + if(statement->label_statement != NULL) { + statement_to_firm(statement->label_statement); + } } static ir_node *get_label_block(declaration_t *label) { assert(label->namespc == NAMESPACE_LABEL); - if(label->declaration_type == DECLARATION_TYPE_LABEL_BLOCK) { + if(label->declaration_kind == DECLARATION_KIND_LABEL_BLOCK) { return label->v.block; } - assert(label->declaration_type == DECLARATION_TYPE_UNKNOWN); + assert(label->declaration_kind == DECLARATION_KIND_UNKNOWN); ir_node *old_cur_block = get_cur_block(); ir_node *block = new_immBlock(); set_cur_block(old_cur_block); - label->declaration_type = DECLARATION_TYPE_LABEL_BLOCK; + label->declaration_kind = DECLARATION_KIND_LABEL_BLOCK; label->v.block = block; ARR_APP1(ir_node *, imature_blocks, block); @@ -2916,7 +3480,9 @@ static void label_to_firm(const label_statement_t *statement) set_cur_block(block); keep_alive(block); - statement_to_firm(statement->label_statement); + if(statement->label_statement != NULL) { + statement_to_firm(statement->label_statement); + } } static void goto_to_firm(const goto_statement_t *statement) @@ -3028,7 +3594,7 @@ static void asm_statement_to_firm(const asm_statement_t *statement) static void statement_to_firm(statement_t *statement) { - switch(statement->type) { + switch(statement->kind) { case STATEMENT_INVALID: panic("invalid statement found"); case STATEMENT_COMPOUND: @@ -3081,29 +3647,50 @@ static void statement_to_firm(statement_t *statement) panic("Statement not implemented\n"); } +static int count_decls_in_expression(const expression_t *expression); + static int count_local_declarations(const declaration_t * decl, const declaration_t *const end) { int count = 0; for (; decl != end; decl = decl->next) { + if(decl->namespc != NAMESPACE_NORMAL) + continue; const type_t *type = skip_typeref(decl->type); - switch (type->type) { - case TYPE_ATOMIC: - case TYPE_ENUM: - case TYPE_POINTER: - if (!decl->address_taken) - ++count; - break; - - default: break; + if (!decl->address_taken && is_type_scalar(type)) + ++count; + const initializer_t *initializer = decl->init.initializer; + /* FIXME: should walk initializer hierarchies... */ + if(initializer != NULL && initializer->kind == INITIALIZER_VALUE) { + count += count_decls_in_expression(initializer->value.value); } } return count; } -static int count_decls_in_expr(const expression_t *expr) { - if (expr != NULL && expr->base.type == EXPR_STATEMENT) - return count_decls_in_stmts(expr->statement.statement); +static int count_decls_in_expression(const expression_t *expression) { + if(expression == NULL) + return 0; + + switch(expression->base.kind) { + case EXPR_STATEMENT: + return count_decls_in_stmts(expression->statement.statement); + EXPR_BINARY_CASES { + int count_left = count_decls_in_expression(expression->binary.left); + int count_right = count_decls_in_expression(expression->binary.right); + return count_left + count_right; + } + EXPR_UNARY_CASES + return count_decls_in_expression(expression->unary.value); + + default: + break; + } + + /* TODO FIXME: finish/fix that firm patch that allows dynamic value numbers + * (or implement all the missing expressions here/implement a walker) + */ + return 0; } @@ -3111,7 +3698,7 @@ static int count_decls_in_stmts(const statement_t *stmt) { int count = 0; for (; stmt != NULL; stmt = stmt->base.next) { - switch (stmt->type) { + switch (stmt->kind) { case STATEMENT_DECLARATION: { const declaration_statement_t *const decl_stmt = &stmt->declaration; count += count_local_declarations(decl_stmt->declarations_begin, @@ -3121,14 +3708,14 @@ static int count_decls_in_stmts(const statement_t *stmt) case STATEMENT_COMPOUND: { const compound_statement_t *const comp = - (const compound_statement_t*)stmt; + &stmt->compound; count += count_decls_in_stmts(comp->statements); break; } case STATEMENT_IF: { const if_statement_t *const if_stmt = &stmt->ifs; - count += count_decls_in_expr(if_stmt->condition); + count += count_decls_in_expression(if_stmt->condition); count += count_decls_in_stmts(if_stmt->true_statement); count += count_decls_in_stmts(if_stmt->false_statement); break; @@ -3136,7 +3723,7 @@ static int count_decls_in_stmts(const statement_t *stmt) case STATEMENT_SWITCH: { const switch_statement_t *const switch_stmt = &stmt->switchs; - count += count_decls_in_expr(switch_stmt->expression); + count += count_decls_in_expression(switch_stmt->expression); count += count_decls_in_stmts(switch_stmt->body); break; } @@ -3149,37 +3736,43 @@ static int count_decls_in_stmts(const statement_t *stmt) case STATEMENT_WHILE: { const while_statement_t *const while_stmt = &stmt->whiles; - count += count_decls_in_expr(while_stmt->condition); + count += count_decls_in_expression(while_stmt->condition); count += count_decls_in_stmts(while_stmt->body); break; } case STATEMENT_DO_WHILE: { const do_while_statement_t *const do_while_stmt = &stmt->do_while; - count += count_decls_in_expr(do_while_stmt->condition); + count += count_decls_in_expression(do_while_stmt->condition); count += count_decls_in_stmts(do_while_stmt->body); break; } case STATEMENT_FOR: { const for_statement_t *const for_stmt = &stmt->fors; - count += count_local_declarations(for_stmt->context.declarations, NULL); - count += count_decls_in_expr(for_stmt->initialisation); - count += count_decls_in_expr(for_stmt->condition); - count += count_decls_in_expr(for_stmt->step); + count += count_local_declarations(for_stmt->scope.declarations, NULL); + count += count_decls_in_expression(for_stmt->initialisation); + count += count_decls_in_expression(for_stmt->condition); + count += count_decls_in_expression(for_stmt->step); count += count_decls_in_stmts(for_stmt->body); break; } + case STATEMENT_CASE_LABEL: { + const case_label_statement_t *label = &stmt->case_label; + count += count_decls_in_expression(label->expression); + count += count_decls_in_stmts(label->label_statement); + break; + } + case STATEMENT_ASM: case STATEMENT_BREAK: - case STATEMENT_CASE_LABEL: case STATEMENT_CONTINUE: break; case STATEMENT_EXPRESSION: { const expression_statement_t *expr_stmt = &stmt->expression; - count += count_decls_in_expr(expr_stmt->expression); + count += count_decls_in_expression(expr_stmt->expression); break; } @@ -3189,7 +3782,7 @@ static int count_decls_in_stmts(const statement_t *stmt) case STATEMENT_RETURN: { const return_statement_t *ret_stmt = &stmt->returns; - count += count_decls_in_expr(ret_stmt->return_value); + count += count_decls_in_expression(ret_stmt->return_value); break; } } @@ -3202,7 +3795,7 @@ static int get_function_n_local_vars(declaration_t *declaration) int count = 0; /* count parameters */ - count += count_local_declarations(declaration->context.declarations, NULL); + count += count_local_declarations(declaration->scope.declarations, NULL); /* count local variables declared in body */ count += count_decls_in_stmts(declaration->init.statement); @@ -3218,9 +3811,9 @@ static void initialize_function_parameters(declaration_t *declaration) ir_type *function_irtype = get_ir_type(declaration->type); int n = 0; - declaration_t *parameter = declaration->context.declarations; + declaration_t *parameter = declaration->scope.declarations; for( ; parameter != NULL; parameter = parameter->next, ++n) { - assert(parameter->declaration_type == DECLARATION_TYPE_UNKNOWN); + assert(parameter->declaration_kind == DECLARATION_KIND_UNKNOWN); type_t *type = skip_typeref(parameter->type); bool needs_entity = parameter->address_taken; @@ -3234,8 +3827,8 @@ static void initialize_function_parameters(declaration_t *declaration) ident *id = new_id_from_str(parameter->symbol->string); set_entity_ident(entity, id); - parameter->declaration_type - = DECLARATION_TYPE_LOCAL_VARIABLE_ENTITY; + parameter->declaration_kind + = DECLARATION_KIND_LOCAL_VARIABLE_ENTITY; parameter->v.entity = entity; continue; } @@ -3244,8 +3837,9 @@ static void initialize_function_parameters(declaration_t *declaration) long pn = n; ir_node *proj = new_r_Proj(irg, start_block, args, mode, pn); - parameter->declaration_type = DECLARATION_TYPE_LOCAL_VARIABLE; + parameter->declaration_kind = DECLARATION_KIND_LOCAL_VARIABLE; parameter->v.value_number = next_value_number_function; + set_irg_loc_description(current_ir_graph, next_value_number_function, parameter); ++next_value_number_function; set_value(parameter->v.value_number, proj); @@ -3307,7 +3901,7 @@ static void create_function(declaration_t *declaration) /* set inline flags */ if (declaration->is_inline) set_irg_inline_property(irg, irg_inline_recomended); - handle_decl_modifier_irg(irg, declaration->decl_modifiers); + handle_decl_modifier_irg(irg, declaration->modifiers); next_value_number_function = 0; initialize_function_parameters(declaration); @@ -3426,7 +4020,8 @@ global_var: goto create_var; create_var: - create_declaration_entity(declaration, DECLARATION_TYPE_GLOBAL_VARIABLE, + create_declaration_entity(declaration, + DECLARATION_KIND_GLOBAL_VARIABLE, var_type); set_entity_visibility(declaration->v.entity, vis); @@ -3443,10 +4038,10 @@ create_var: panic("Invalid storage class for global variable"); } -static void context_to_firm(context_t *context) +static void scope_to_firm(scope_t *scope) { /* first pass: create declarations */ - declaration_t *declaration = context->declarations; + declaration_t *declaration = scope->declarations; for( ; declaration != NULL; declaration = declaration->next) { if(declaration->namespc != NAMESPACE_NORMAL) continue; @@ -3465,7 +4060,7 @@ static void context_to_firm(context_t *context) } /* second pass: create code */ - declaration = context->declarations; + declaration = scope->declarations; for( ; declaration != NULL; declaration = declaration->next) { if(declaration->namespc != NAMESPACE_NORMAL) continue; @@ -3476,7 +4071,7 @@ static void context_to_firm(context_t *context) continue; type_t *type = declaration->type; - if(type->type != TYPE_FUNCTION) + if(type->kind != TYPE_FUNCTION) continue; create_function(declaration); @@ -3487,6 +4082,11 @@ void init_ast2firm(void) { obstack_init(&asm_obst); init_atomic_modes(); + + /* create idents for all known runtime functions */ + for (size_t i = 0; i < sizeof(rts_data) / sizeof(rts_data[0]); ++i) { + predef_idents[rts_data[i].id] = new_id_from_str(rts_data[i].name); + } } void exit_ast2firm(void) @@ -3513,5 +4113,5 @@ void translation_unit_to_firm(translation_unit_t *unit) break_label = NULL; current_switch_cond = NULL; - context_to_firm(& unit->context); + scope_to_firm(&unit->scope); }