35 lines
1013 B
Ruby
35 lines
1013 B
Ruby
module Mom
|
|
module Builtin
|
|
class GetInternalByte < ::Mom::Instruction
|
|
def to_risc(compiler)
|
|
builder = compiler.builder(compiler.source)
|
|
integer_tmp = builder.allocate_int
|
|
builder.build do
|
|
object! << message[:receiver]
|
|
integer! << message[:arg1] #"at"
|
|
integer.reduce_int
|
|
object <= object[integer]
|
|
integer_tmp[Parfait::Integer.integer_index] << object
|
|
message[:return_value] << integer_tmp
|
|
end
|
|
return compiler
|
|
end
|
|
end
|
|
end
|
|
class GetInternalByte < Macro
|
|
def to_risc(compiler)
|
|
builder = compiler.builder(compiler.source)
|
|
integer_tmp = builder.allocate_int
|
|
builder.build do
|
|
object! << message[:receiver]
|
|
integer! << message[:arg1] #"at"
|
|
integer.reduce_int
|
|
object <= object[integer]
|
|
integer_tmp[Parfait::Integer.integer_index] << object
|
|
message[:return_value] << integer_tmp
|
|
end
|
|
return compiler
|
|
end
|
|
end
|
|
end
|