#include "as.h"
#include "obstack.h"
const short seg_N_TYPE[] =
{
N_ABS,
N_TEXT,
N_DATA,
N_BSS,
N_UNDF,
N_UNDF,
N_UNDF,
N_UNDF,
N_UNDF,
N_UNDF,
N_REGISTER,
};
const segT N_TYPE_seg[N_TYPE + 2] =
{
SEG_UNKNOWN,
SEG_GOOF,
SEG_ABSOLUTE,
SEG_GOOF,
SEG_TEXT,
SEG_GOOF,
SEG_DATA,
SEG_GOOF,
SEG_BSS,
SEG_GOOF,
SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF,
SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF,
SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF,
SEG_REGISTER,
SEG_GOOF,
};
static void obj_bout_line PARAMS ((int));
const pseudo_typeS obj_pseudo_table[] =
{
{"line", obj_bout_line, 0},
{"def", s_ignore, 0},
{"dim", s_ignore, 0},
{"endef", s_ignore, 0},
{"ln", s_ignore, 0},
{"scl", s_ignore, 0},
{"size", s_ignore, 0},
{"tag", s_ignore, 0},
{"type", s_ignore, 0},
{"val", s_ignore, 0},
{"ABORT", s_ignore, 0},
{"ident", s_ignore, 0},
{NULL, NULL, 0}
};
void
obj_emit_relocations (where, fixP, segment_address_in_file)
char **where;
fixS *fixP;
relax_addressT segment_address_in_file;
{
for (; fixP; fixP = fixP->fx_next)
{
if (fixP->fx_done == 0
|| fixP->fx_r_type != NO_RELOC)
{
symbolS *sym;
sym = fixP->fx_addsy;
while (sym->sy_value.X_op == O_symbol
&& (! S_IS_DEFINED (sym) || S_IS_COMMON (sym)))
sym = sym->sy_value.X_add_symbol;
fixP->fx_addsy = sym;
tc_bout_fix_to_chars (*where, fixP, segment_address_in_file);
*where += md_reloc_size;
}
}
}
void
obj_header_append (where, headers)
char **where;
object_headers *headers;
{
char *p;
headers->header.a_talign = section_alignment[SEG_TEXT];
if (headers->header.a_talign < 2)
{
headers->header.a_talign = 2;
}
headers->header.a_dalign = section_alignment[SEG_DATA];
headers->header.a_balign = section_alignment[SEG_BSS];
headers->header.a_tload = 0;
headers->header.a_dload =
md_section_align (SEG_DATA, H_GET_TEXT_SIZE (headers));
headers->header.a_relaxable = linkrelax;
p = *where;
host_number_to_chars (p, headers->header.a_magic, 4);
p += 4;
host_number_to_chars (p, headers->header.a_text, 4);
p += 4;
host_number_to_chars (p, headers->header.a_data, 4);
p += 4;
host_number_to_chars (p, headers->header.a_bss, 4);
p += 4;
host_number_to_chars (p, headers->header.a_syms, 4);
p += 4;
host_number_to_chars (p, headers->header.a_entry, 4);
p += 4;
host_number_to_chars (p, headers->header.a_trsize, 4);
p += 4;
host_number_to_chars (p, headers->header.a_drsize, 4);
p += 4;
host_number_to_chars (p, headers->header.a_tload, 4);
p += 4;
host_number_to_chars (p, headers->header.a_dload, 4);
p += 4;
*p++ = headers->header.a_talign;
*p++ = headers->header.a_dalign;
*p++ = headers->header.a_balign;
*p++ = headers->header.a_relaxable;
*where = p;
}
void
obj_symbol_to_chars (where, symbolP)
char **where;
symbolS *symbolP;
{
char *p = *where;
host_number_to_chars (p, S_GET_OFFSET (symbolP), 4);
p += 4;
*p++ = symbolP->sy_symbol.n_type;
*p++ = symbolP->sy_symbol.n_other;
host_number_to_chars (p, S_GET_DESC (symbolP), 2);
p += 2;
host_number_to_chars (p, S_GET_VALUE (symbolP), 4);
p += 4;
*where = p;
}
void
obj_emit_symbols (where, symbol_rootP)
char **where;
symbolS *symbol_rootP;
{
symbolS *symbolP;
for (symbolP = symbol_rootP; symbolP; symbolP = symbol_next (symbolP))
{
char *temp;
temp = S_GET_NAME (symbolP);
S_SET_OFFSET (symbolP, symbolP->sy_name_offset);
if (!S_IS_DEBUG (symbolP) && !S_IS_DEFINED (symbolP))
S_SET_EXTERNAL (symbolP);
obj_symbol_to_chars (where, symbolP);
S_SET_NAME (symbolP, temp);
}
}
void
obj_symbol_new_hook (symbolP)
symbolS *symbolP;
{
S_SET_OTHER (symbolP, 0);
S_SET_DESC (symbolP, 0);
}
static void
obj_bout_line (ignore)
int ignore ATTRIBUTE_UNUSED;
{
new_logical_line ((char *) NULL, (int) (get_absolute_expression ()));
demand_empty_rest_of_line ();
}
void
obj_read_begin_hook ()
{
}
void
obj_crawl_symbol_chain (headers)
object_headers *headers;
{
symbolS **symbolPP;
symbolS *symbolP;
int symbol_number = 0;
tc_crawl_symbol_chain (headers);
symbolPP = &symbol_rootP;
while ((symbolP = *symbolPP) != NULL)
{
if (flag_readonly_data_in_text && (S_GET_SEGMENT (symbolP) == SEG_DATA))
{
S_SET_SEGMENT (symbolP, SEG_TEXT);
}
resolve_symbol_value (symbolP);
if (symbolP->sy_value.X_op == O_symbol
&& (! S_IS_DEFINED (symbolP) || S_IS_COMMON (symbolP)))
{
*symbolPP = symbol_next (symbolP);
continue;
}
if (1
&& !S_IS_REGISTER (symbolP)
&& (!S_GET_NAME (symbolP)
|| S_IS_DEBUG (symbolP)
#ifdef TC_I960
|| !S_IS_DEFINED (symbolP)
|| S_IS_EXTERNAL (symbolP)
#endif
|| (S_GET_NAME (symbolP)[0] != '\001'
&& (flag_keep_locals || !S_LOCAL_NAME (symbolP)))))
{
symbolP->sy_number = symbol_number++;
if (!S_IS_STABD (symbolP))
{
symbolP->sy_name_offset = string_byte_count;
string_byte_count += strlen (S_GET_NAME (symbolP)) + 1;
}
else
symbolP->sy_name_offset = 0;
symbolPP = &(symbolP->sy_next);
}
else
{
if (S_IS_EXTERNAL (symbolP) || !S_IS_DEFINED (symbolP))
{
as_bad (_("Local symbol %s never defined"),
S_GET_NAME (symbolP));
}
*symbolPP = symbol_next (symbolP);
}
}
H_SET_SYMBOL_TABLE_SIZE (headers, symbol_number);
}
void
obj_emit_strings (where)
char **where;
{
symbolS *symbolP;
md_number_to_chars (*where, string_byte_count, 4);
*where += 4;
for (symbolP = symbol_rootP; symbolP; symbolP = symbol_next (symbolP))
{
if (S_GET_NAME (symbolP))
append (where, S_GET_NAME (symbolP),
(unsigned long) (strlen (S_GET_NAME (symbolP)) + 1));
}
}