+static void ascend_from_subtype(type_path_t *path)
+{
+ type_path_entry_t *top = get_type_path_top(path);
+
+ path->top_type = top->type;
+
+ size_t len = ARR_LEN(path->path);
+ ARR_RESIZE(type_path_entry_t, path->path, len-1);
+}
+
+static void walk_designator(type_path_t *path, const designator_t *designator)
+{
+ /* designators start at current object type */
+ ARR_RESIZE(type_path_entry_t, path->path, 1);
+
+ for( ; designator != NULL; designator = designator->next) {
+ type_path_entry_t *top = get_type_path_top(path);
+ type_t *orig_type = top->type;
+ type_t *type = skip_typeref(orig_type);
+
+ if(designator->symbol != NULL) {
+ assert(is_type_compound(type));
+ size_t index = 0;
+ symbol_t *symbol = designator->symbol;
+
+ declaration_t *declaration = type->compound.declaration;
+ declaration_t *iter = declaration->scope.declarations;
+ for( ; iter != NULL; iter = iter->next, ++index) {
+ if(iter->symbol == symbol) {
+ break;
+ }
+ }
+ assert(iter != NULL);
+
+ top->type = orig_type;
+ top->compound_entry = iter;
+ top->index = index;
+ orig_type = iter->type;
+ } else {
+ expression_t *array_index = designator->array_index;
+ assert(designator->array_index != NULL);
+ assert(is_type_array(type));
+ assert(is_type_valid(array_index->base.type));
+
+ long index = fold_constant(array_index);
+ assert(index >= 0);
+#ifndef NDEBUG
+ if(type->array.size_constant == 1) {
+ long array_size = type->array.size;
+ assert(index < array_size);
+ }
+#endif
+
+ top->type = orig_type;
+ top->index = (size_t) index;
+ orig_type = type->array.element_type;
+ }
+ path->top_type = orig_type;
+
+ if(designator->next != NULL) {
+ descend_into_subtype(path);
+ }
+ }
+
+ path->invalid = false;
+}
+
+static void advance_current_object(type_path_t *path)
+{
+ if(path->invalid) {
+ /* TODO: handle this... */
+ panic("invalid initializer in ast2firm (excessive elements)");
+ return;
+ }
+
+ type_path_entry_t *top = get_type_path_top(path);
+
+ type_t *type = skip_typeref(top->type);
+ if(is_type_union(type)) {
+ top->compound_entry = NULL;
+ } else if(is_type_struct(type)) {
+ declaration_t *entry = top->compound_entry;
+
+ top->index++;
+ entry = entry->next;
+ top->compound_entry = entry;
+ if(entry != NULL) {
+ path->top_type = entry->type;
+ return;
+ }
+ } else {
+ assert(is_type_array(type));
+
+ top->index++;
+ if(!type->array.size_constant || top->index < type->array.size) {
+ return;
+ }
+ }
+
+ /* we're past the last member of the current sub-aggregate, try if we
+ * can ascend in the type hierarchy and continue with another subobject */
+ size_t len = ARR_LEN(path->path);
+
+ if(len > 1) {
+ ascend_from_subtype(path);
+ advance_current_object(path);
+ } else {
+ path->invalid = true;
+ }
+}
+
+
+static ir_initializer_t *create_ir_initializer(
+ const initializer_t *initializer, type_t *type);
+
+static ir_initializer_t *create_ir_initializer_value(
+ const initializer_value_t *initializer)
+{
+ if (is_type_compound(initializer->value->base.type)) {
+ panic("initializer creation for compounds not implemented yet");
+ }
+ ir_node *value = expression_to_firm(initializer->value);
+ return create_initializer_const(value);
+}
+
+static ir_initializer_t *create_ir_initializer_list(
+ const initializer_list_t *initializer, type_t *type)
+{
+ type_path_t path;
+ memset(&path, 0, sizeof(path));
+ path.top_type = type;
+ path.path = NEW_ARR_F(type_path_entry_t, 0);
+
+ descend_into_subtype(&path);
+
+ for(size_t i = 0; i < initializer->len; ++i) {
+ const initializer_t *sub_initializer = initializer->initializers[i];
+
+ if(sub_initializer->kind == INITIALIZER_DESIGNATOR) {
+ walk_designator(&path, sub_initializer->designator.designator);
+ continue;
+ }
+
+ if(sub_initializer->kind == INITIALIZER_VALUE) {
+ /* we might have to descend into types until we're at a scalar
+ * type */
+ while(true) {
+ type_t *orig_top_type = path.top_type;
+ type_t *top_type = skip_typeref(orig_top_type);
+
+ if(is_type_scalar(top_type))
+ break;
+ descend_into_subtype(&path);
+ }
+ }
+
+ ir_initializer_t *sub_irinitializer
+ = create_ir_initializer(sub_initializer, path.top_type);
+
+ size_t path_len = ARR_LEN(path.path);
+ assert(path_len >= 1);
+ type_path_entry_t *entry = & path.path[path_len-1];
+ ir_initializer_t *tinitializer = entry->initializer;
+ set_initializer_compound_value(tinitializer, entry->index,
+ sub_irinitializer);
+
+ advance_current_object(&path);
+ }
+
+ assert(ARR_LEN(path.path) >= 1);
+ ir_initializer_t *result = path.path[0].initializer;
+ DEL_ARR_F(path.path);
+
+ return result;
+}
+
+static ir_initializer_t *create_ir_initializer_string(
+ const initializer_string_t *initializer, type_t *type)
+{
+ type = skip_typeref(type);
+
+ size_t string_len = initializer->string.size;
+ assert(type->kind == TYPE_ARRAY && type->array.size_constant);
+ size_t len = type->array.size;
+ ir_initializer_t *irinitializer = create_initializer_compound(len);
+
+ const char *string = initializer->string.begin;
+ ir_mode *mode = get_type_mode(ir_type_const_char);
+
+ for(size_t i = 0; i < len; ++i) {
+ char c = 0;
+ if(i < string_len)
+ c = string[i];
+
+ tarval *tv = new_tarval_from_long(c, mode);
+ ir_initializer_t *char_initializer = create_initializer_tarval(tv);
+
+ set_initializer_compound_value(irinitializer, i, char_initializer);
+ }
+
+ return irinitializer;
+}
+
+static ir_initializer_t *create_ir_initializer_wide_string(
+ const initializer_wide_string_t *initializer, type_t *type)
+{
+ size_t string_len = initializer->string.size;
+ assert(type->kind == TYPE_ARRAY && type->array.size_constant);
+ size_t len = type->array.size;
+ ir_initializer_t *irinitializer = create_initializer_compound(len);
+
+ const wchar_rep_t *string = initializer->string.begin;
+ ir_mode *mode = get_type_mode(ir_type_wchar_t);
+
+ for(size_t i = 0; i < len; ++i) {
+ wchar_rep_t c = 0;
+ if(i < string_len) {
+ c = string[i];
+ }
+ tarval *tv = new_tarval_from_long(c, mode);
+ ir_initializer_t *char_initializer = create_initializer_tarval(tv);
+
+ set_initializer_compound_value(irinitializer, i, char_initializer);
+ }
+
+ return irinitializer;
+}
+
+static ir_initializer_t *create_ir_initializer(
+ const initializer_t *initializer, type_t *type)
+{
+ switch(initializer->kind) {
+ case INITIALIZER_STRING:
+ return create_ir_initializer_string(&initializer->string, type);
+
+ case INITIALIZER_WIDE_STRING:
+ return create_ir_initializer_wide_string(&initializer->wide_string,
+ type);
+
+ case INITIALIZER_LIST:
+ return create_ir_initializer_list(&initializer->list, type);
+
+ case INITIALIZER_VALUE:
+ return create_ir_initializer_value(&initializer->value);
+
+ case INITIALIZER_DESIGNATOR:
+ panic("unexpected designator initializer found");
+ }
+ panic("unknown initializer");
+}
+
+static void create_dynamic_null_initializer(ir_type *type, dbg_info *dbgi,
+ ir_node *base_addr)
+{
+ if (is_atomic_type(type)) {
+ ir_mode *mode = get_type_mode(type);
+ tarval *zero = get_mode_null(mode);
+ ir_node *cnst = new_d_Const(dbgi, mode, zero);
+
+ /* TODO: bitfields */
+ ir_node *mem = get_store();
+ ir_node *store = new_d_Store(dbgi, mem, base_addr, cnst);
+ ir_node *proj_m = new_Proj(store, mode_M, pn_Store_M);
+ set_store(proj_m);
+ } else {
+ assert(is_compound_type(type));
+
+ int n_members;
+ if(is_Array_type(type)) {
+ assert(has_array_upper_bound(type, 0));
+ n_members = get_array_upper_bound_int(type, 0);
+ } else {
+ n_members = get_compound_n_members(type);
+ }
+
+ for(int i = 0; i < n_members; ++i) {
+ ir_node *addr;
+ ir_type *irtype;
+ if(is_Array_type(type)) {
+ ir_entity *entity = get_array_element_entity(type);
+ tarval *index_tv = new_tarval_from_long(i, mode_uint);
+ ir_node *cnst = new_d_Const(dbgi, mode_uint, index_tv);
+ ir_node *in[1] = { cnst };
+ irtype = get_array_element_type(type);
+ addr = new_d_Sel(dbgi, new_NoMem(), base_addr, 1, in, entity);
+ } else {
+ ir_entity *member = get_compound_member(type, i);
+
+ irtype = get_entity_type(member);
+ addr = new_d_simpleSel(dbgi, new_NoMem(), base_addr, member);
+ }
+
+ create_dynamic_null_initializer(irtype, dbgi, addr);
+ }
+ }
+}
+
+static void create_dynamic_initializer_sub(ir_initializer_t *initializer,
+ ir_type *type, dbg_info *dbgi, ir_node *base_addr)
+{
+ switch(get_initializer_kind(initializer)) {
+ case IR_INITIALIZER_NULL: {
+ create_dynamic_null_initializer(type, dbgi, base_addr);
+ return;
+ }
+ case IR_INITIALIZER_CONST: {
+ ir_node *node = get_initializer_const_value(initializer);
+ ir_mode *mode = get_irn_mode(node);
+ assert(get_type_mode(type) == mode);
+
+ /* TODO: bitfields... */
+ ir_node *mem = get_store();
+ ir_node *store = new_d_Store(dbgi, mem, base_addr, node);
+ ir_node *proj_m = new_Proj(store, mode_M, pn_Store_M);
+ set_store(proj_m);
+ return;
+ }
+ case IR_INITIALIZER_TARVAL: {
+ tarval *tv = get_initializer_tarval_value(initializer);
+ ir_mode *mode = get_tarval_mode(tv);
+ ir_node *cnst = new_d_Const(dbgi, mode, tv);
+ assert(get_type_mode(type) == mode);
+
+ /* TODO: bitfields... */
+ ir_node *mem = get_store();
+ ir_node *store = new_d_Store(dbgi, mem, base_addr, cnst);
+ ir_node *proj_m = new_Proj(store, mode_M, pn_Store_M);
+ set_store(proj_m);
+ return;
+ }
+ case IR_INITIALIZER_COMPOUND: {
+ assert(is_compound_type(type));
+ int n_members;
+ if(is_Array_type(type)) {
+ assert(has_array_upper_bound(type, 0));
+ n_members = get_array_upper_bound_int(type, 0);
+ } else {
+ n_members = get_compound_n_members(type);
+ }
+
+ if(get_initializer_compound_n_entries(initializer)
+ != (unsigned) n_members)
+ panic("initializer doesn't match compound type");
+
+ for(int i = 0; i < n_members; ++i) {
+ ir_node *addr;
+ ir_type *irtype;
+ if(is_Array_type(type)) {
+ ir_entity *entity = get_array_element_entity(type);
+ tarval *index_tv = new_tarval_from_long(i, mode_uint);
+ ir_node *cnst = new_d_Const(dbgi, mode_uint, index_tv);
+ ir_node *in[1] = { cnst };
+ irtype = get_array_element_type(type);
+ addr = new_d_Sel(dbgi, new_NoMem(), base_addr, 1, in, entity);
+ } else {
+ ir_entity *member = get_compound_member(type, i);
+
+ irtype = get_entity_type(member);
+ addr = new_d_simpleSel(dbgi, new_NoMem(), base_addr, member);
+ }
+
+ ir_initializer_t *sub_init
+ = get_initializer_compound_value(initializer, i);
+
+ create_dynamic_initializer_sub(sub_init, irtype, dbgi, addr);
+ }
+ return;
+ }
+ }
+
+ panic("invalid IR_INITIALIZER found");
+}
+
+static void create_dynamic_initializer(ir_initializer_t *initializer,
+ dbg_info *dbgi, ir_entity *entity)
+{
+ ir_node *frame = get_local_frame(entity);
+ ir_node *base_addr = new_d_simpleSel(dbgi, new_NoMem(), frame, entity);
+ ir_type *type = get_entity_type(entity);
+
+ create_dynamic_initializer_sub(initializer, type, dbgi, base_addr);
+}
+
+static void create_local_initializer(initializer_t *initializer, dbg_info *dbgi,
+ ir_entity *entity, type_t *type)
+{
+ ir_node *memory = get_store();
+ ir_node *nomem = new_NoMem();
+ ir_node *frame = get_irg_frame(current_ir_graph);
+ ir_node *addr = new_d_simpleSel(dbgi, nomem, frame, entity);
+
+ if(initializer->kind == INITIALIZER_VALUE) {
+ initializer_value_t *initializer_value = &initializer->value;
+
+ ir_node *value = expression_to_firm(initializer_value->value);
+ type = skip_typeref(type);
+ assign_value(dbgi, addr, type, value);
+ return;
+ }
+
+ if(!is_constant_initializer(initializer)) {
+ ir_initializer_t *irinitializer
+ = create_ir_initializer(initializer, type);
+
+ create_dynamic_initializer(irinitializer, dbgi, entity);
+ return;
+ }
+
+ /* create the ir_initializer */
+ ir_graph *const old_current_ir_graph = current_ir_graph;
+ current_ir_graph = get_const_code_irg();
+
+ ir_initializer_t *irinitializer = create_ir_initializer(initializer, type);
+
+ assert(current_ir_graph == get_const_code_irg());
+ current_ir_graph = old_current_ir_graph;
+
+ /* create a "template" entity which is copied to the entity on the stack */
+ ident *const id = id_unique("initializer.%u");
+ ir_type *const irtype = get_ir_type(type);
+ ir_type *const global_type = get_glob_type();
+ ir_entity *const init_entity = new_d_entity(global_type, id, irtype, dbgi);
+ set_entity_ld_ident(init_entity, id);
+
+ set_entity_variability(init_entity, variability_initialized);
+ set_entity_visibility(init_entity, visibility_local);
+ set_entity_allocation(init_entity, allocation_static);
+
+ set_entity_initializer(init_entity, irinitializer);
+
+ 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);
+ set_store(copyb_mem);
+}
+
+static void create_initializer_local_variable_entity(declaration_t *declaration)
+{
+ initializer_t *initializer = declaration->init.initializer;
+ dbg_info *dbgi = get_dbg_info(&declaration->source_position);
+ ir_entity *entity = declaration->v.entity;
+ type_t *type = declaration->type;
+ create_local_initializer(initializer, dbgi, entity, type);
+}
+
+static void create_declaration_initializer(declaration_t *declaration)
+{
+ initializer_t *initializer = declaration->init.initializer;
+ if(initializer == NULL)
+ return;
+
+ 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->kind == INITIALIZER_VALUE) {
+ initializer_value_t *initializer_value = &initializer->value;
+
+ ir_node *value = expression_to_firm(initializer_value->value);
+
+ if(declaration_kind == DECLARATION_KIND_LOCAL_VARIABLE) {
+ set_value(declaration->v.value_number, value);
+ } else {
+ assert(declaration_kind == DECLARATION_KIND_GLOBAL_VARIABLE);
+
+ ir_entity *entity = declaration->v.entity;
+
+ set_entity_variability(entity, variability_initialized);
+ set_atomic_ent_value(entity, value);
+ }
+ } else {
+ assert(declaration_kind == DECLARATION_KIND_LOCAL_VARIABLE_ENTITY
+ || declaration_kind == DECLARATION_KIND_GLOBAL_VARIABLE);
+
+ ir_entity *entity = declaration->v.entity;
+ ir_initializer_t *irinitializer
+ = create_ir_initializer(initializer, declaration->type);
+
+ set_entity_variability(entity, variability_initialized);
+ set_entity_initializer(entity, irinitializer);
+ }
+}
+
+static void create_variable_length_array(declaration_t *declaration)
+{
+ dbg_info *dbgi = get_dbg_info(&declaration->source_position);
+ type_t *type = declaration->type;
+ ir_node *mem = get_store();
+ ir_type *el_type = get_ir_type(type->array.element_type);
+
+ /* make sure size_node is calculated */
+ get_type_size(type);
+ ir_node *elems = type->array.size_node;
+ ir_node *alloc = new_d_Alloc(dbgi, mem, elems, el_type, stack_alloc);
+
+ ir_node *proj_m = new_d_Proj(dbgi, alloc, mode_M, pn_Alloc_M);
+ ir_node *addr = new_d_Proj(dbgi, alloc, mode_P_data, pn_Alloc_res);
+ set_store(proj_m);
+
+ /* initializers are not allowed for VLAs */
+ assert(declaration->init.initializer == NULL);
+
+ declaration->declaration_kind = DECLARATION_KIND_VARIABLE_LENGTH_ARRAY;
+ declaration->v.vla_base = addr;
+
+ /* TODO: record VLA somewhere so we create the free node when we leave
+ * it's scope */
+}
+
+/**
+ * Creates a Firm local variable from a declaration.
+ */
+static void create_local_variable(declaration_t *declaration)
+{
+ assert(declaration->declaration_kind == DECLARATION_KIND_UNKNOWN);
+
+ bool needs_entity = declaration->address_taken;
+ type_t *type = skip_typeref(declaration->type);
+
+ /* is it a variable length array? */
+ if(is_type_array(type) && !type->array.size_constant) {
+ create_variable_length_array(declaration);
+ return;
+ } else if(is_type_array(type) || is_type_compound(type)) {
+ needs_entity = true;
+ } else if(type->base.qualifiers & TYPE_QUALIFIER_VOLATILE) {
+ needs_entity = true;
+ }
+
+ if(needs_entity) {
+ ir_type *frame_type = get_irg_frame_type(current_ir_graph);
+ create_declaration_entity(declaration,
+ DECLARATION_KIND_LOCAL_VARIABLE_ENTITY,
+ frame_type);
+ } else {
+ 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;
+ }
+
+ create_declaration_initializer(declaration);
+}
+
+static void create_local_static_variable(declaration_t *declaration)
+{
+ assert(declaration->declaration_kind == DECLARATION_KIND_UNKNOWN);
+
+ type_t *const type = skip_typeref(declaration->type);
+ ir_type *const global_type = get_glob_type();
+ ident *const id = new_id_from_str(declaration->symbol->string);
+ ir_type *const irtype = get_ir_type(type);
+ dbg_info *const dbgi = get_dbg_info(&declaration->source_position);
+ ir_entity *const entity = new_d_entity(global_type, id, irtype, dbgi);
+
+ if(type->base.qualifiers & TYPE_QUALIFIER_VOLATILE) {
+ set_entity_volatility(entity, volatility_is_volatile);
+ }
+
+ declaration->declaration_kind = DECLARATION_KIND_GLOBAL_VARIABLE;
+ declaration->v.entity = entity;
+ set_entity_ld_ident(entity, create_ld_ident(entity, declaration));
+ set_entity_variability(entity, variability_uninitialized);
+ set_entity_visibility(entity, visibility_local);
+ set_entity_allocation(entity, allocation_static);
+
+ ir_graph *const old_current_ir_graph = current_ir_graph;
+ current_ir_graph = get_const_code_irg();
+
+ create_declaration_initializer(declaration);
+
+ assert(current_ir_graph == get_const_code_irg());
+ current_ir_graph = old_current_ir_graph;
+}
+
+
+
+static void return_statement_to_firm(return_statement_t *statement)
+{
+ if(get_cur_block() == NULL)
+ return;
+
+ dbg_info *dbgi = get_dbg_info(&statement->base.source_position);
+ ir_type *func_irtype = get_ir_type(current_function_decl->type);
+
+
+ ir_node *in[1];
+ int in_len;
+ if(get_method_n_ress(func_irtype) > 0) {
+ ir_type *res_type = get_method_res_type(func_irtype, 0);
+
+ if(statement->value != NULL) {
+ ir_node *node = expression_to_firm(statement->value);
+ node = do_strict_conv(dbgi, node);
+ in[0] = node;
+ } else {
+ ir_mode *mode;
+ if(is_compound_type(res_type)) {
+ mode = mode_P_data;
+ } else {
+ mode = get_type_mode(res_type);
+ }
+ in[0] = new_Unknown(mode);
+ }
+ in_len = 1;
+ } else {
+ /* build return_value for its side effects */
+ if(statement->value != NULL) {
+ expression_to_firm(statement->value);
+ }
+ in_len = 0;
+ }
+
+ ir_node *store = get_store();
+ ir_node *ret = new_d_Return(dbgi, store, in_len, in);
+
+ ir_node *end_block = get_irg_end_block(current_ir_graph);
+ add_immBlock_pred(end_block, ret);
+
+ set_cur_block(NULL);
+}
+
+static ir_node *expression_statement_to_firm(expression_statement_t *statement)
+{
+ if(get_cur_block() == NULL)
+ return NULL;
+
+ return expression_to_firm(statement->expression);
+}
+
+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->scope);
+
+ if(statement->base.next == NULL
+ && statement->kind == STATEMENT_EXPRESSION) {
+ result = expression_statement_to_firm(
+ &statement->expression);
+ break;
+ }
+ statement_to_firm(statement);
+ }
+
+ return result;
+}
+
+static void create_global_variable(declaration_t *declaration)
+{
+ ir_visibility vis;
+ ir_type *var_type;
+ switch ((storage_class_tag_t)declaration->storage_class) {
+ case STORAGE_CLASS_STATIC:
+ vis = visibility_local;
+ goto global_var;
+
+ case STORAGE_CLASS_EXTERN:
+ vis = visibility_external_allocated;
+ goto global_var;
+
+ case STORAGE_CLASS_NONE:
+ vis = visibility_external_visible;
+ goto global_var;
+
+ case STORAGE_CLASS_THREAD:
+ vis = visibility_external_visible;
+ goto tls_var;
+
+ case STORAGE_CLASS_THREAD_EXTERN:
+ vis = visibility_external_allocated;
+ goto tls_var;
+
+ case STORAGE_CLASS_THREAD_STATIC:
+ vis = visibility_local;
+ goto tls_var;
+
+tls_var:
+ var_type = get_tls_type();
+ goto create_var;
+
+global_var:
+ var_type = get_glob_type();
+ goto create_var;
+
+create_var:
+ create_declaration_entity(declaration,
+ DECLARATION_KIND_GLOBAL_VARIABLE,
+ var_type);
+ set_entity_visibility(declaration->v.entity, vis);
+
+ return;
+
+ case STORAGE_CLASS_TYPEDEF:
+ case STORAGE_CLASS_AUTO:
+ case STORAGE_CLASS_REGISTER:
+ case STORAGE_CLASS_ENUM_ENTRY:
+ break;
+ }
+ panic("Invalid storage class for global variable");
+}
+
+static void create_local_declaration(declaration_t *declaration)
+{
+ if(declaration->symbol == NULL)
+ return;
+
+ type_t *type = skip_typeref(declaration->type);
+
+ switch ((storage_class_tag_t) declaration->storage_class) {
+ case STORAGE_CLASS_STATIC:
+ create_local_static_variable(declaration);
+ return;
+ case STORAGE_CLASS_EXTERN:
+ create_global_variable(declaration);
+ create_declaration_initializer(declaration);
+ return;
+ case STORAGE_CLASS_NONE:
+ case STORAGE_CLASS_AUTO:
+ case STORAGE_CLASS_REGISTER:
+ if(is_type_function(type)) {
+ if(declaration->init.statement != NULL) {
+ panic("nested functions not supported yet");
+ } else {
+ get_function_entity(declaration);
+ }
+ } else {
+ create_local_variable(declaration);
+ }
+ return;
+ case STORAGE_CLASS_ENUM_ENTRY:
+ case STORAGE_CLASS_TYPEDEF:
+ case STORAGE_CLASS_THREAD:
+ case STORAGE_CLASS_THREAD_EXTERN:
+ case STORAGE_CLASS_THREAD_STATIC:
+ return;
+ }
+ panic("invalid storage class found");
+}
+
+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_declaration(declaration);
+ }
+}
+
+static void if_statement_to_firm(if_statement_t *statement)
+{
+ ir_node *cur_block = get_cur_block();
+
+ ir_node *fallthrough_block = new_immBlock();
+
+ /* the true (blocks) */
+ ir_node *true_block;
+ if (statement->true_statement != NULL) {
+ true_block = new_immBlock();
+ statement_to_firm(statement->true_statement);
+ if(get_cur_block() != NULL) {
+ ir_node *jmp = new_Jmp();
+ add_immBlock_pred(fallthrough_block, jmp);
+ }
+ } else {
+ true_block = fallthrough_block;
+ }
+
+ /* the false (blocks) */