fix integer and data object get/set word
instance variables first, then raw data keep value reader for now
This commit is contained in:
@ -22,22 +22,25 @@
|
||||
module Parfait
|
||||
class DataObject < Object
|
||||
def initialize
|
||||
super
|
||||
@memory = []
|
||||
end
|
||||
def data_length
|
||||
raise "called #{self}"
|
||||
end
|
||||
def data_start
|
||||
return type.length
|
||||
return get_type.get_length
|
||||
end
|
||||
|
||||
# 1 -based index
|
||||
def get_internal_word(index)
|
||||
return super if index <= data_start
|
||||
@memory[index]
|
||||
end
|
||||
|
||||
# 1 -based index
|
||||
def set_internal_word(index , value)
|
||||
return super if index <= data_start
|
||||
raise "Word[#{index}] = nil" if( value.nil? )
|
||||
@memory[index] = value
|
||||
value
|
||||
|
@ -11,19 +11,18 @@ module Parfait
|
||||
|
||||
def initialize(value , next_i = nil)
|
||||
super()
|
||||
@value = value
|
||||
@next_integer = next_i
|
||||
set_internal_word(Integer.integer_index, value)
|
||||
end
|
||||
attr_reader :next_integer, :value
|
||||
attr_reader :next_integer
|
||||
|
||||
def value
|
||||
get_internal_word(Integer.integer_index)
|
||||
end
|
||||
def self.integer_index
|
||||
3 # 1 type, 2 next_i
|
||||
end
|
||||
|
||||
def get_internal_word( index )
|
||||
return super(index) unless index == Integer.integer_index
|
||||
return @value
|
||||
end
|
||||
# :integer?, :odd?, :even?, :upto, :downto, :times, :succ, :next, :pred, :chr, :ord, :to_i, :to_int, :floor,
|
||||
# :ceil, :truncate, :round, :gcd, :lcm, :gcdlcm, :numerator, :denominator, :to_r, :rationalize,
|
||||
# :singleton_method_added, :coerce, :i, :+@, :-@, :fdiv, :div, :divmod, :%, :modulo, :remainder, :abs, :magnitude,
|
||||
|
Reference in New Issue
Block a user