3090ccffea
that overwriting was a bit of thorn
70 lines
2.0 KiB
Ruby
70 lines
2.0 KiB
Ruby
require_relative "stream_writer"
|
|
require_relative 'object_file'
|
|
require_relative 'symbol_table_section'
|
|
require_relative 'text_section'
|
|
require_relative 'string_table_section'
|
|
|
|
module Elf
|
|
|
|
class ObjectWriter
|
|
def initialize( machine , objects )
|
|
@machine = machine
|
|
@objects = objects
|
|
target = Elf::Constants::TARGET_ARM
|
|
@object = Elf::ObjectFile.new(target)
|
|
sym_strtab = Elf::StringTableSection.new(".strtab")
|
|
@object.add_section sym_strtab
|
|
@symbol_table = Elf::SymbolTableSection.new(".symtab", sym_strtab)
|
|
@object.add_section @symbol_table
|
|
|
|
@text = Elf::TextSection.new(".text")
|
|
@object.add_section @text
|
|
|
|
assembler = Risc::Assembler.new(@machine , @objects)
|
|
set_text assembler.write_as_string
|
|
|
|
# for debug add labels for labels
|
|
Parfait.object_space.each_type do |type|
|
|
type.methods.each do |f|
|
|
f.risc_instructions.each_label do |label|
|
|
add_symbol "#{type.name}::#{f.name}:#{label.name}" , Positioned.position(label)
|
|
end
|
|
end
|
|
end
|
|
|
|
@objects.each do |id,slot|
|
|
next if slot.is_a?(Parfait::BinaryCode)
|
|
if( slot.respond_to? :sof_reference_name )
|
|
label = "#{slot.sof_reference_name}"
|
|
else
|
|
label = "#{slot.class.name}::#{Positioned.position(slot).to_s(16)}"
|
|
end
|
|
label += "=#{slot}" if slot.is_a?(Symbol) or slot.is_a?(String)
|
|
add_symbol label , Positioned.position(slot)
|
|
if slot.is_a?(Parfait::TypedMethod)
|
|
add_symbol slot.name.to_s , Positioned.position(slot.binary)
|
|
end
|
|
end
|
|
end
|
|
|
|
attr_reader :text
|
|
|
|
def set_text(text)
|
|
@text.text = text
|
|
add_symbol "_start", 0
|
|
end
|
|
|
|
def add_symbol(name, offset, linkage = Elf::Constants::STB_GLOBAL)
|
|
return add_symbol( name + "_" , offset ) if @symbol_table.has_name(name)
|
|
@symbol_table.add_func_symbol name, offset, @text, linkage
|
|
end
|
|
|
|
def save(filename)
|
|
to = File.open(filename, 'wb')
|
|
@object.write to
|
|
to.close
|
|
end
|
|
|
|
end
|
|
end
|