127 lines
3.1 KiB
Ruby
127 lines
3.1 KiB
Ruby
module Mom
|
|
module Builtin
|
|
class Div10 < ::Mom::Instruction
|
|
def to_risc(compiler)
|
|
s = "div_10 "
|
|
builder = compiler.builder(compiler.source)
|
|
integer_tmp = builder.allocate_int
|
|
builder.build do
|
|
integer_self! << message[:receiver]
|
|
integer_self.reduce_int
|
|
integer_1! << integer_self
|
|
integer_reg! << integer_self
|
|
|
|
integer_const! << 1
|
|
integer_1.op :>> , integer_const
|
|
|
|
integer_const << 2
|
|
integer_reg.op :>> , integer_const
|
|
integer_reg.op :+ , integer_1
|
|
|
|
integer_const << 4
|
|
integer_1 << integer_reg
|
|
integer_reg.op :>> , integer_1
|
|
|
|
integer_reg.op :+ , integer_1
|
|
|
|
integer_const << 8
|
|
integer_1 << integer_reg
|
|
integer_1.op :>> , integer_const
|
|
|
|
integer_reg.op :+ , integer_1
|
|
|
|
integer_const << 16
|
|
integer_1 << integer_reg
|
|
integer_1.op :>> , integer_const
|
|
|
|
integer_reg.op :+ , integer_1
|
|
|
|
integer_const << 3
|
|
integer_reg.op :>> , integer_const
|
|
|
|
integer_const << 10
|
|
integer_1 << integer_reg
|
|
integer_1.op :* , integer_const
|
|
|
|
integer_self.op :- , integer_1
|
|
integer_1 << integer_self
|
|
|
|
integer_const << 6
|
|
integer_1.op :+ , integer_const
|
|
|
|
integer_const << 4
|
|
integer_1.op :>> , integer_const
|
|
|
|
integer_reg.op :+ , integer_1
|
|
|
|
integer_tmp[Parfait::Integer.integer_index] << integer_reg
|
|
message[:return_value] << integer_tmp
|
|
|
|
end
|
|
return compiler
|
|
end
|
|
end
|
|
end
|
|
class Div10 < Macro
|
|
def to_risc(compiler)
|
|
s = "div_10 "
|
|
builder = compiler.builder(compiler.source)
|
|
integer_tmp = builder.allocate_int
|
|
builder.build do
|
|
integer_self! << message[:receiver]
|
|
integer_self.reduce_int
|
|
integer_1! << integer_self
|
|
integer_reg! << integer_self
|
|
|
|
integer_const! << 1
|
|
integer_1.op :>> , integer_const
|
|
|
|
integer_const << 2
|
|
integer_reg.op :>> , integer_const
|
|
integer_reg.op :+ , integer_1
|
|
|
|
integer_const << 4
|
|
integer_1 << integer_reg
|
|
integer_reg.op :>> , integer_1
|
|
|
|
integer_reg.op :+ , integer_1
|
|
|
|
integer_const << 8
|
|
integer_1 << integer_reg
|
|
integer_1.op :>> , integer_const
|
|
|
|
integer_reg.op :+ , integer_1
|
|
|
|
integer_const << 16
|
|
integer_1 << integer_reg
|
|
integer_1.op :>> , integer_const
|
|
|
|
integer_reg.op :+ , integer_1
|
|
|
|
integer_const << 3
|
|
integer_reg.op :>> , integer_const
|
|
|
|
integer_const << 10
|
|
integer_1 << integer_reg
|
|
integer_1.op :* , integer_const
|
|
|
|
integer_self.op :- , integer_1
|
|
integer_1 << integer_self
|
|
|
|
integer_const << 6
|
|
integer_1.op :+ , integer_const
|
|
|
|
integer_const << 4
|
|
integer_1.op :>> , integer_const
|
|
|
|
integer_reg.op :+ , integer_1
|
|
|
|
integer_tmp[Parfait::Integer.integer_index] << integer_reg
|
|
message[:return_value] << integer_tmp
|
|
|
|
end
|
|
return compiler
|
|
end
|
|
end
|
|
end
|