Torsten
17a7f29b0c
rather than use hardcoded r0 etc use syscall_X change the syscalls and interpreter to use them later use platform to map from syscall_X to actually used register (like r0 in arm)
68 lines
2.4 KiB
Ruby
68 lines
2.4 KiB
Ruby
module SlotMachine
|
|
class Macro < Instruction
|
|
|
|
def to_s
|
|
self.class.name.split("::").last
|
|
end
|
|
|
|
# emit the syscall with given name
|
|
# there is a Syscall instruction, but the message has to be saved and restored
|
|
def self.emit_syscall( builder , name )
|
|
save_message( builder )
|
|
builder.add_code Risc::Syscall.new("emit_syscall(#{name})", name )
|
|
restore_message(builder)
|
|
return unless (@clazz and @method)
|
|
builder.add_code Risc.label( "#{@clazz.name}.#{@message.name}" , "return_syscall" )
|
|
end
|
|
|
|
# a sort of inline version of exit method.
|
|
# Used by exit and __init__ (so it doesn't have to call it)
|
|
# Assumes int return value and extracts the fixnum for process exit code
|
|
def self.exit_sequence(builder)
|
|
save_message( builder )
|
|
unix_return = Risc.syscall_reg(1)
|
|
builder.build do
|
|
unix_return << message[:return_value].reduce_int(false) #hack, noo type check
|
|
add_code Risc::Syscall.new("emit_syscall(exit)", :exit )
|
|
end
|
|
end
|
|
|
|
# save the current message, as the syscall destroys all context
|
|
#
|
|
# This relies on linux to save and restore all registers
|
|
#
|
|
def self.save_message(builder)
|
|
r8 = Risc::RegisterValue.new( :saved_message , :Message).set_compiler(builder.compiler)
|
|
builder.build {r8 << message}
|
|
end
|
|
|
|
# restore the message that we save in r8
|
|
# before th restore, the syscall return, a fixnum, is saved
|
|
# The caller of this method is assumed to caal prepare_int_return
|
|
# so that the return value already has an integer instance
|
|
# This instance is filled with os return value
|
|
def self.restore_message(builder)
|
|
r8 = Risc::RegisterValue.new( :saved_message , :Message).set_compiler(builder.compiler)
|
|
tmp = Risc::RegisterValue.new( :integer_tmp , :Integer).set_compiler(builder.compiler)
|
|
builder.build do
|
|
tmp << Risc.syscall_reg(1)
|
|
message << r8
|
|
message[:return_value][Parfait::Integer.integer_index] << tmp
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
require_relative "comparison"
|
|
require_relative "exit"
|
|
require_relative "init"
|
|
require_relative "putstring"
|
|
require_relative "set_internal_word"
|
|
require_relative "div10"
|
|
require_relative "get_internal_byte"
|
|
require_relative "method_missing"
|
|
require_relative "div4"
|
|
require_relative "get_internal_word"
|
|
require_relative "operator"
|
|
require_relative "set_internal_byte"
|