}
}
+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;
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))
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(',');
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
} 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;
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);
}
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(", ");
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);
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");
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)