2017-01-19 08:02:29 +01:00
|
|
|
module Risc
|
2015-06-29 20:03:58 +02:00
|
|
|
module Builtin
|
|
|
|
class Object
|
|
|
|
module ClassMethods
|
2016-12-15 18:20:54 +01:00
|
|
|
include CompileHelper
|
2015-05-04 22:03:52 +02:00
|
|
|
|
2015-11-07 16:36:28 +01:00
|
|
|
# self[index] basically. Index is the first arg
|
|
|
|
# return is stored in return_value
|
2015-11-08 16:10:36 +01:00
|
|
|
# (this method returns a new method off course, like all builtin)
|
2018-04-01 13:09:30 +02:00
|
|
|
def get_internal_word( context )
|
2018-03-18 17:38:35 +01:00
|
|
|
compiler = compiler_for(:Object , :get_internal_word ,{at: :Integer})
|
2015-11-18 14:36:43 +01:00
|
|
|
source = "get_internal_word"
|
2018-04-01 13:09:30 +02:00
|
|
|
me , index = compiler.self_and_int_arg(source)
|
2015-11-07 16:36:28 +01:00
|
|
|
# reduce me to me[index]
|
2016-12-28 19:37:54 +01:00
|
|
|
compiler.add_slot_to_reg( source , me , index , me)
|
2015-11-07 16:36:28 +01:00
|
|
|
# and put it back into the return value
|
2016-12-28 19:37:54 +01:00
|
|
|
compiler.add_reg_to_slot( source , me , :message , :return_value)
|
2018-04-01 14:17:16 +02:00
|
|
|
compiler.add_mom( Mom::ReturnSequence.new)
|
2015-11-07 16:36:28 +01:00
|
|
|
return compiler.method
|
|
|
|
end
|
|
|
|
|
2016-12-06 10:38:09 +01:00
|
|
|
# self[index] = val basically. Index is the first arg , value the second
|
2015-11-08 16:10:36 +01:00
|
|
|
# no return
|
2018-04-01 14:17:16 +02:00
|
|
|
def set_internal_word( context )
|
2018-03-18 17:38:35 +01:00
|
|
|
compiler = compiler_for(:Object , :set_internal_word , {at: :Integer, :value => :Object} )
|
2015-11-18 14:36:43 +01:00
|
|
|
source = "set_internal_word"
|
2018-04-01 13:09:30 +02:00
|
|
|
me , index = compiler.self_and_int_arg(source)
|
|
|
|
value = compiler.load_int_arg_at(source , 2)
|
2016-12-15 18:20:54 +01:00
|
|
|
|
2015-11-08 16:10:36 +01:00
|
|
|
# do the set
|
2016-12-28 19:37:54 +01:00
|
|
|
compiler.add_reg_to_slot( source , value , me , index)
|
2018-04-01 14:17:16 +02:00
|
|
|
compiler.add_mom( Mom::ReturnSequence.new)
|
2015-11-08 16:10:36 +01:00
|
|
|
return compiler.method
|
|
|
|
end
|
|
|
|
|
2018-04-02 15:49:30 +02:00
|
|
|
# every object needs a method missing.
|
|
|
|
# Even if it's just this one, sys_exit (later raise)
|
|
|
|
def _method_missing( context )
|
|
|
|
compiler = compiler_for(:Object,:method_missing ,{})
|
|
|
|
Risc::Builtin::Kernel.emit_syscall( compiler , :exit )
|
|
|
|
return compiler.method
|
|
|
|
end
|
2014-06-03 13:49:02 +02:00
|
|
|
end
|
2015-06-29 20:03:58 +02:00
|
|
|
extend ClassMethods
|
2014-06-03 13:49:02 +02:00
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|