adding word functions for byte access

This commit is contained in:
Torsten Ruger 2015-11-19 10:08:41 +02:00
parent ff65952a3e
commit dffa3fbf42
2 changed files with 45 additions and 2 deletions

View File

@ -150,10 +150,13 @@ module Register
obj.add_instance_method Builtin::Kernel.send(f , nil)
end
@space.get_class_by_name(:Word).add_instance_method Builtin::Word.send(:putstring , nil)
obj = @space.get_class_by_name(:Word)
[:putstring , :get_internal_byte , :set_internal_byte ].each do |f|
obj.add_instance_method Builtin::Word.send(f , nil)
end
obj = @space.get_class_by_name(:Integer)
[ :putint, :mod4].each do |f|
[ :putint, :mod4].each do |f| #mod4 is just a forward declaration
obj.add_instance_method Builtin::Integer.send(f , nil)
end
end

View File

@ -2,6 +2,8 @@ module Register
module Builtin
module Word
module ClassMethods
include AST::Sexp
def putstring context
compiler = Soml::Compiler.new.create_method(:Word , :putstring ).init_method
compiler.add_code Register.get_slot( "putstring" , :message , :receiver , :new_message )
@ -11,6 +13,44 @@ module Register
Kernel.emit_syscall( compiler , :putstring )
compiler.method
end
# self[index] basically. Index is the first arg > 0
# return (and word sized int) is stored in return_value
def get_internal_byte context
compiler = Soml::Compiler.new.create_method(:Word , :get_internal_byte , {:index => :Integer }).init_method
source = "get_internal_word"
#Load self by "calling" on_name
me = compiler.process( s(:name , :self) )
# Load the argument
index = compiler.use_reg :Integer
compiler.add_code Register.get_slot(source , :message , Parfait::Message.get_indexed(1), index )
# reduce me to me[index]
compiler.add_code GetByte.new( source , me , index , me)
# and put it back into the return value
compiler.add_code Register.set_slot( source , me , :message , :return_value)
return compiler.method
end
# self[index] = val basically. Index is the first arg ( >0),
# value the second
# no return
def set_internal_byte context
compiler = Soml::Compiler.new.create_method(:Word , :set_internal_byte ,
{:index => :Integer, :value => :Integer } ).init_method
source = "set_internal_word"
#Load self by "calling" on_name
me = compiler.process( s(:name , :self) )
# Load the index
index = compiler.use_reg :Integer
compiler.add_code Register.get_slot(source , :message , Parfait::Message.get_indexed(1), index )
# Load the value
value = compiler.use_reg :Integer
compiler.add_code Register.get_slot(source , :message , Parfait::Message.get_indexed(2), value )
# do the set
compiler.add_code SetByte.new( source , value , me , index)
return compiler.method
end
end
extend ClassMethods
end