2018-06-30 18:20:17 +02:00
|
|
|
module Mom
|
2018-11-02 23:54:30 +01:00
|
|
|
# The Compiler for the Mom level is a collection of Risc level Method compilers,
|
|
|
|
# plus functions to translate from the risc to cpu specific code.
|
|
|
|
#
|
|
|
|
# Builtin functions are created here, lazily, when translate is called.
|
|
|
|
# Instantiating builtin functions results in a MethodCompiler for that function, and
|
|
|
|
# to avoid confusion, these should be instantiated only once.
|
|
|
|
#
|
|
|
|
# As RubyCompiler pools source at the vool level, when several classes are compiled
|
|
|
|
# from vool to mom, several MomCompilers get instantiated. They must be merged before
|
|
|
|
# proceeding with translate. Thus we have a append method.
|
|
|
|
#
|
2018-07-01 20:26:45 +02:00
|
|
|
class MomCompiler
|
2018-07-02 14:50:54 +02:00
|
|
|
attr_reader :method_compilers
|
2018-06-30 18:20:17 +02:00
|
|
|
|
2018-11-02 23:54:30 +01:00
|
|
|
# Initialize with an array of risc MethodCompilers
|
2018-07-01 20:26:45 +02:00
|
|
|
def initialize(compilers = [])
|
2018-11-02 23:54:30 +01:00
|
|
|
@method_compilers = compilers
|
|
|
|
end
|
|
|
|
|
|
|
|
# lazily instantiate the compilers for boot functions
|
|
|
|
# (in the hope of only booting the functions once)
|
|
|
|
def boot_compilers
|
|
|
|
@boot_compilers ||= Risc::Builtin.boot_functions
|
|
|
|
end
|
|
|
|
|
|
|
|
# Return all compilers, namely the MethodCompilers passed in, plus the
|
|
|
|
# boot_function's compilers (boot_compilers)
|
|
|
|
def compilers
|
|
|
|
@method_compilers + boot_compilers
|
2018-06-30 18:20:17 +02:00
|
|
|
end
|
2018-07-01 10:56:09 +02:00
|
|
|
|
2018-07-03 09:12:22 +02:00
|
|
|
# collects constants from all compilers into one array
|
|
|
|
def constants
|
2018-11-02 23:54:30 +01:00
|
|
|
compilers.inject([]){|sum ,comp| sum + comp.constants }
|
|
|
|
end
|
|
|
|
|
|
|
|
# Append another MomCompilers method_compilers to this one.
|
|
|
|
def append(mom_compiler)
|
|
|
|
@method_compilers += mom_compiler.method_compilers
|
|
|
|
self
|
2018-07-03 09:12:22 +02:00
|
|
|
end
|
|
|
|
|
2018-06-30 21:53:32 +02:00
|
|
|
# Translate code to whatever cpu is specified.
|
|
|
|
# Currently only :arm and :interpret
|
|
|
|
#
|
|
|
|
# Translating means translating the initial jump
|
|
|
|
# and then translating all methods
|
2018-07-01 10:56:09 +02:00
|
|
|
def translate( platform_sym )
|
|
|
|
platform_sym = platform_sym.to_s.capitalize
|
|
|
|
platform = Risc::Platform.for(platform_sym)
|
2018-07-01 20:51:48 +02:00
|
|
|
assemblers = translate_methods( platform.translator )
|
2018-07-03 09:12:22 +02:00
|
|
|
Risc::Linker.new(platform , assemblers , constants)
|
2018-06-30 21:53:32 +02:00
|
|
|
end
|
|
|
|
|
|
|
|
# go through all methods and translate them to cpu, given the translator
|
|
|
|
def translate_methods(translator)
|
2018-11-02 23:54:30 +01:00
|
|
|
compilers.collect do |compiler|
|
2018-07-01 10:56:09 +02:00
|
|
|
#log.debug "Translate method #{compiler.method.name}"
|
2018-07-30 09:27:32 +02:00
|
|
|
translate_method(compiler , translator)
|
|
|
|
end.flatten
|
|
|
|
end
|
|
|
|
|
|
|
|
# translate one method, which means the method itself and all blocks inside it
|
|
|
|
# returns an array of assemblers
|
|
|
|
def translate_method( method_compiler , translator)
|
|
|
|
all = []
|
|
|
|
all << translate_cpu( method_compiler , translator )
|
|
|
|
method_compiler.block_compilers.each do |block_compiler|
|
|
|
|
all << translate_cpu(block_compiler , translator)
|
2018-06-30 21:53:32 +02:00
|
|
|
end
|
2018-07-30 09:27:32 +02:00
|
|
|
all
|
2018-06-30 21:53:32 +02:00
|
|
|
end
|
2018-07-01 10:56:09 +02:00
|
|
|
|
2018-07-30 09:27:32 +02:00
|
|
|
# compile the callable (method or block) to cpu
|
|
|
|
# return an Assembler that will then translate to binary
|
2018-07-01 10:56:09 +02:00
|
|
|
def translate_cpu(compiler , translator)
|
|
|
|
risc = compiler.risc_instructions
|
|
|
|
cpu_instructions = risc.to_cpu(translator)
|
|
|
|
nekst = risc.next
|
|
|
|
while(nekst)
|
|
|
|
cpu = nekst.to_cpu(translator) # returning nil means no replace
|
|
|
|
cpu_instructions << cpu if cpu
|
|
|
|
nekst = nekst.next
|
|
|
|
end
|
2018-07-30 13:10:24 +02:00
|
|
|
Risc::Assembler.new(compiler.callable , cpu_instructions )
|
2018-07-01 10:56:09 +02:00
|
|
|
end
|
|
|
|
|
2018-06-30 18:20:17 +02:00
|
|
|
end
|
|
|
|
end
|