19 lines
627 B
Ruby
19 lines
627 B
Ruby
module Register
|
|
module Builtin
|
|
module Word
|
|
module ClassMethods
|
|
def putstring context
|
|
compiler = Soml::Compiler.new.create_method(:Word , :putstring ).init_method
|
|
compiler.add_code Register.get_slot( "putstring" , :message , :receiver , :new_message )
|
|
index = Parfait::Word.get_length_index
|
|
reg = RegisterValue.new(:r2 , :Integer)
|
|
compiler.add_code Register.get_slot( "putstring" , :new_message , index , reg )
|
|
Kernel.emit_syscall( compiler , :putstring )
|
|
compiler.method
|
|
end
|
|
end
|
|
extend ClassMethods
|
|
end
|
|
end
|
|
end
|