X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fbe%2Fbegnuas.c;h=cdd927f6995f72f68ce4167b604d17ead8b19548;hb=e9cbeeb505a3c9ef5c5dccfb76118516bab8bcef;hp=6d4d337d646793f7025ed53d547cffacb251e774;hpb=14b4e9b3f48cd53db6c3179283ce8354d5127ce1;p=libfirm

diff --git a/ir/be/begnuas.c b/ir/be/begnuas.c
index 6d4d337d6..cdd927f69 100644
--- a/ir/be/begnuas.c
+++ b/ir/be/begnuas.c
@@ -102,6 +102,55 @@ static void emit_section_macho(be_gas_section_t section)
 	}
 }
 
+static void emit_section_sparc(be_gas_section_t section, const ir_entity *entity)
+{
+	be_gas_section_t base = section & GAS_SECTION_TYPE_MASK;
+	be_gas_section_t flags = section & ~GAS_SECTION_TYPE_MASK;
+	static const char *const basename[] = {
+		"text", "data", "rodata", "bss", "ctors", "dtors"
+	};
+
+	if (current_section == section && !(section & GAS_SECTION_FLAG_COMDAT))
+		return;
+	current_section = section;
+
+	be_emit_cstring("\t.section\t\".");
+
+	/* Part1: section-name */
+	if (flags & GAS_SECTION_FLAG_TLS)
+		be_emit_char('t');
+	assert(base < sizeof(basename)/sizeof(basename[0]));
+	be_emit_string(basename[base]);
+
+	if (flags & GAS_SECTION_FLAG_COMDAT) {
+		be_emit_char('.');
+		be_gas_emit_entity(entity);
+	}
+	be_emit_char('"');
+
+	/* for the simple sections we're done here */
+	if (flags == 0)
+		goto end;
+
+	be_emit_cstring(",#alloc");
+
+	switch (base) {
+	case GAS_SECTION_TEXT: be_emit_cstring(",#execinstr"); break;
+	case GAS_SECTION_DATA:
+	case GAS_SECTION_BSS:  be_emit_cstring(",#write"); break;
+	default:
+		/* nothing */
+		break;
+	}
+	if (flags & GAS_SECTION_FLAG_TLS) {
+		be_emit_cstring(",#tls");
+	}
+
+end:
+	be_emit_char('\n');
+	be_emit_write_line();
+}
+
 static void emit_section(be_gas_section_t section, const ir_entity *entity)
 {
 	be_gas_section_t base = section & GAS_SECTION_TYPE_MASK;
@@ -116,6 +165,9 @@ static void emit_section(be_gas_section_t section, const ir_entity *entity)
 	if (be_gas_object_file_format == OBJECT_FILE_FORMAT_MACH_O) {
 		emit_section_macho(section);
 		return;
+	} else if(be_gas_object_file_format == OBJECT_FILE_FORMAT_ELF_SPARC) {
+		emit_section_sparc(section, entity);
+		return;
 	}
 
 	if (current_section == section && !(section & GAS_SECTION_FLAG_COMDAT))
@@ -161,15 +213,20 @@ static void emit_section(be_gas_section_t section, const ir_entity *entity)
 	be_emit_cstring(",\"");
 	if (be_gas_object_file_format != OBJECT_FILE_FORMAT_COFF)
 		be_emit_char('a');
-	if (base != GAS_SECTION_RODATA)
+	if (base == GAS_SECTION_TEXT)
+		be_emit_char('x');
+	if (base != GAS_SECTION_RODATA && base != GAS_SECTION_TEXT)
 		be_emit_char('w');
 	if (flags & GAS_SECTION_FLAG_TLS)
 		be_emit_char('T');
 	if (flags & GAS_SECTION_FLAG_COMDAT)
 		be_emit_char('G');
-	be_emit_cstring("\",");
-	be_emit_char(be_gas_elf_type_char);
-	be_emit_string(type[base]);
+	/* section type */
+	if (be_gas_object_file_format != OBJECT_FILE_FORMAT_COFF) {
+		be_emit_cstring("\",");
+		be_emit_char(be_gas_elf_type_char);
+		be_emit_string(type[base]);
+	}
 
 	if (flags & GAS_SECTION_FLAG_COMDAT) {
 		be_emit_char(',');
@@ -180,6 +237,8 @@ static void emit_section(be_gas_section_t section, const ir_entity *entity)
 	be_emit_write_line();
 }
 
+
+
 void be_gas_emit_switch_section(be_gas_section_t section)
 {
 	/* you have to produce a switch_section call with entity manually
@@ -333,6 +392,7 @@ static bool entity_is_null(const ir_entity *entity)
 	} else if (entity_has_compound_ent_values(entity)) {
 		/* I'm too lazy to implement this case as compound graph paths will be
 		 * remove anyway in the future */
+		return false;
 	}
 	/* uninitialized, NULL is fine */
 	return true;
@@ -393,6 +453,11 @@ static be_gas_section_t determine_section(be_gas_decl_env_t *env,
 		return section | GAS_SECTION_FLAG_TLS;
 	}
 
+	/* the java frontend keeps some functions inside classes */
+	if (is_Class_type(owner)) {
+		return determine_basic_section(entity);
+	}
+
 	panic("Couldn't determine section for %+F?!?", entity);
 }
 
@@ -459,6 +524,7 @@ void be_gas_emit_function_prolog(const ir_entity *entity, unsigned po2alignment)
 
 	switch (be_gas_object_file_format) {
 	case OBJECT_FILE_FORMAT_ELF:
+	case OBJECT_FILE_FORMAT_ELF_SPARC:
 		be_emit_cstring("\t.type\t");
 		be_gas_emit_entity(entity);
 		be_emit_cstring(", ");
@@ -503,8 +569,6 @@ void be_gas_emit_function_epilog(const ir_entity *entity)
 	be_emit_write_line();
 }
 
-/************************************************************************/
-
 /**
  * Output a tarval.
  *
@@ -662,10 +726,6 @@ static void do_emit_atomic_init(be_gas_decl_env_t *env, ir_node *init)
 
 	case iro_SymConst:
 		switch (get_SymConst_kind(init)) {
-		case symconst_addr_name:
-			be_emit_ident(get_SymConst_name(init));
-			break;
-
 		case symconst_addr_ent:
 			ent = get_SymConst_entity(init);
 			be_gas_emit_entity(ent);
@@ -782,10 +842,6 @@ static void emit_atomic_init(be_gas_decl_env_t *env, ir_node *init)
 	be_emit_write_line();
 }
 
-/************************************************************************/
-/* Routines to dump global variables                                    */
-/************************************************************************/
-
 /**
  * Dump a string constant.
  * No checks are made!!
@@ -1309,6 +1365,7 @@ static void emit_common(const ir_entity *entity)
 		be_emit_write_line();
 		return;
 	case OBJECT_FILE_FORMAT_ELF:
+	case OBJECT_FILE_FORMAT_ELF_SPARC:
 		be_emit_cstring("\t.comm ");
 		be_gas_emit_entity(entity);
 		be_emit_irprintf(",%u,%u\n", size, alignment);
@@ -1341,6 +1398,7 @@ static void emit_local_common(const ir_entity *entity)
 		be_emit_write_line();
 		return;
 	case OBJECT_FILE_FORMAT_ELF:
+	case OBJECT_FILE_FORMAT_ELF_SPARC:
 		be_emit_cstring("\t.local ");
 		be_gas_emit_entity(entity);
 		be_emit_cstring("\n");
@@ -1384,9 +1442,7 @@ static void emit_indirect_symbol(const ir_entity *entity, be_gas_section_t secti
 
 char const *be_gas_get_private_prefix(void)
 {
-	return
-		be_gas_object_file_format == OBJECT_FILE_FORMAT_MACH_O ? "L" :
-		".L";
+	return be_gas_object_file_format == OBJECT_FILE_FORMAT_MACH_O ? "L" : ".L";
 }
 
 void be_gas_emit_entity(const ir_entity *entity)
@@ -1507,7 +1563,7 @@ static void emit_global(be_gas_decl_env_t *env, const ir_entity *entity)
 	if (entity_is_null(entity)) {
 		be_emit_irprintf("\t.space %u\n", get_type_size_bytes(type));
 		be_emit_write_line();
-	} else if(entity_has_compound_ent_values(entity)) {
+	} else if (entity_has_compound_ent_values(entity)) {
 		emit_compound_graph_init(env, entity);
 	} else {
 		assert(entity->initializer != NULL);
@@ -1531,8 +1587,6 @@ static void be_gas_emit_globals(ir_type *gt, be_gas_decl_env_t *env)
 	}
 }
 
-/************************************************************************/
-
 /* Generate all entities. */
 void be_gas_emit_decls(const be_main_env_t *main_env)
 {