integer was wrong padded§ length
or rather right (2 as should be and will be) but currently we use next AND value + type means 3, rounded 4 because we can’t swap types at compile time (as is planned at runtime, we use next OR value)
This commit is contained in:
parent
53107d3ef8
commit
e86ca5ae9d
@ -27,47 +27,31 @@ module Parfait
|
|||||||
def self.integer_index
|
def self.integer_index
|
||||||
type_length
|
type_length
|
||||||
end
|
end
|
||||||
def data_length
|
|
||||||
raise "called #{self}"
|
|
||||||
end
|
|
||||||
def self.type_length
|
def self.type_length
|
||||||
raise "called #{self}"
|
raise "called #{self}"
|
||||||
end
|
end
|
||||||
|
def padded_length
|
||||||
|
self.class.memory_size * 4
|
||||||
|
end
|
||||||
|
def data_length
|
||||||
|
self.class.memory_size
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
class Data4 < DataObject
|
class Data4 < DataObject
|
||||||
def self.memory_size
|
def self.memory_size
|
||||||
4
|
4
|
||||||
end
|
end
|
||||||
def data_length
|
|
||||||
4
|
|
||||||
end
|
end
|
||||||
def padded_length
|
|
||||||
2 * 4
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
class Data8 < DataObject
|
class Data8 < DataObject
|
||||||
def self.memory_size
|
def self.memory_size
|
||||||
8
|
8
|
||||||
end
|
end
|
||||||
def data_length
|
|
||||||
8
|
|
||||||
end
|
|
||||||
def padded_length
|
|
||||||
8 * 4
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
class Data16 < DataObject
|
class Data16 < DataObject
|
||||||
def self.memory_size
|
def self.memory_size
|
||||||
16
|
16
|
||||||
end
|
end
|
||||||
def data_length
|
|
||||||
16
|
|
||||||
end
|
|
||||||
def padded_length
|
|
||||||
16 * 4
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
class Data32 < DataObject
|
class Data32 < DataObject
|
||||||
def self.memory_size
|
def self.memory_size
|
||||||
|
@ -91,6 +91,8 @@ module Risc
|
|||||||
write_String obj
|
write_String obj
|
||||||
when Parfait::BinaryCode
|
when Parfait::BinaryCode
|
||||||
write_BinaryCode obj
|
write_BinaryCode obj
|
||||||
|
when Parfait::Integer
|
||||||
|
write_integer obj
|
||||||
when Parfait::Data4
|
when Parfait::Data4
|
||||||
write_data4 obj
|
write_data4 obj
|
||||||
else
|
else
|
||||||
@ -143,7 +145,17 @@ module Risc
|
|||||||
written
|
written
|
||||||
end
|
end
|
||||||
|
|
||||||
|
def write_integer( int )
|
||||||
|
write_ref_for( int.get_type )
|
||||||
|
write_ref_for( int.next_integer )
|
||||||
|
@stream.write_signed_int_32( int.value )
|
||||||
|
@stream.write_signed_int_32( 0 )
|
||||||
|
log.debug "Integer witten stream 0x#{@stream.length.to_s(16)}"
|
||||||
|
end
|
||||||
|
|
||||||
def write_data4( code )
|
def write_data4( code )
|
||||||
|
write_ref_for( code.get_type )
|
||||||
|
write_ref_for( code.get_type )
|
||||||
write_ref_for( code.get_type )
|
write_ref_for( code.get_type )
|
||||||
write_ref_for( code.get_type )
|
write_ref_for( code.get_type )
|
||||||
log.debug "Data4 witten stream 0x#{@stream.length.to_s(16)}"
|
log.debug "Data4 witten stream 0x#{@stream.length.to_s(16)}"
|
||||||
|
@ -3,7 +3,7 @@ require_relative "../helper"
|
|||||||
class HelloTest < MiniTest::Test
|
class HelloTest < MiniTest::Test
|
||||||
|
|
||||||
def setup
|
def setup
|
||||||
Risc.machine
|
Risc.machine.boot
|
||||||
end
|
end
|
||||||
def check
|
def check
|
||||||
Vool::VoolCompiler.ruby_to_binary( "class Space;def main(arg);#{@input};end;end" )
|
Vool::VoolCompiler.ruby_to_binary( "class Space;def main(arg);#{@input};end;end" )
|
||||||
|
@ -14,7 +14,7 @@ end
|
|||||||
|
|
||||||
require "minitest/color"
|
require "minitest/color"
|
||||||
require "minitest/autorun"
|
require "minitest/autorun"
|
||||||
require "minitest/fail_fast"
|
#require "minitest/fail_fast"
|
||||||
|
|
||||||
$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
|
$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
|
||||||
$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'test'))
|
$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'test'))
|
||||||
|
46
test/parfait/test_data_object.rb
Normal file
46
test/parfait/test_data_object.rb
Normal file
@ -0,0 +1,46 @@
|
|||||||
|
require_relative "helper"
|
||||||
|
|
||||||
|
module Parfait
|
||||||
|
class TestClass < ParfaitTest
|
||||||
|
|
||||||
|
def test_data_class_api_base
|
||||||
|
assert_raises {DataObject.type_length}
|
||||||
|
end
|
||||||
|
def test_data_class_api4
|
||||||
|
assert_equal 4 , Data4.memory_size
|
||||||
|
end
|
||||||
|
def test_data_class_api8
|
||||||
|
assert_equal 8 , Data8.memory_size
|
||||||
|
end
|
||||||
|
def test_data_class_api16
|
||||||
|
assert_equal 16 , Data16.memory_size
|
||||||
|
end
|
||||||
|
def test_data_class_api32
|
||||||
|
assert_equal 32 , Data32.memory_size
|
||||||
|
end
|
||||||
|
def test_int_len
|
||||||
|
assert_equal 4 , Integer.new(1).data_length
|
||||||
|
end
|
||||||
|
def test_true_len
|
||||||
|
assert_equal 4 , TrueClass.new.data_length
|
||||||
|
end
|
||||||
|
def test_false_len
|
||||||
|
assert_equal 4 , FalseClass.new.data_length
|
||||||
|
end
|
||||||
|
def test_nil_len
|
||||||
|
assert_equal 4 , NilClass.new.data_length
|
||||||
|
end
|
||||||
|
def test_int_pad
|
||||||
|
assert_equal 16 , Integer.new(2).padded_length
|
||||||
|
end
|
||||||
|
def test_true_pad
|
||||||
|
assert_equal 16 , TrueClass.new.padded_length
|
||||||
|
end
|
||||||
|
def test_false_pad
|
||||||
|
assert_equal 16 , FalseClass.new.padded_length
|
||||||
|
end
|
||||||
|
def test_nil_pad
|
||||||
|
assert_equal 16 , NilClass.new.padded_length
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
@ -46,7 +46,7 @@ module Risc
|
|||||||
ret = main_ticks(63)
|
ret = main_ticks(63)
|
||||||
assert_equal FunctionReturn , ret.class
|
assert_equal FunctionReturn , ret.class
|
||||||
assert_equal :r1 , ret.register.symbol
|
assert_equal :r1 , ret.register.symbol
|
||||||
assert_equal 18628 , @interpreter.get_register(ret.register)
|
assert_equal 19460 , @interpreter.get_register(ret.register)
|
||||||
end
|
end
|
||||||
def test_sys
|
def test_sys
|
||||||
sys = main_ticks(65)
|
sys = main_ticks(65)
|
||||||
|
@ -52,7 +52,7 @@ module Risc
|
|||||||
end
|
end
|
||||||
def test_pc1
|
def test_pc1
|
||||||
@interpreter.tick
|
@interpreter.tick
|
||||||
assert_equal 18392 , @interpreter.pc
|
assert_equal 19224 , @interpreter.pc
|
||||||
end
|
end
|
||||||
def test_tick2
|
def test_tick2
|
||||||
@interpreter.tick
|
@interpreter.tick
|
||||||
@ -66,7 +66,7 @@ module Risc
|
|||||||
def test_pc2
|
def test_pc2
|
||||||
@interpreter.tick
|
@interpreter.tick
|
||||||
@interpreter.tick
|
@interpreter.tick
|
||||||
assert_equal 18396 , @interpreter.pc
|
assert_equal 19228 , @interpreter.pc
|
||||||
end
|
end
|
||||||
def test_tick_14_jump
|
def test_tick_14_jump
|
||||||
14.times {@interpreter.tick}
|
14.times {@interpreter.tick}
|
||||||
|
@ -29,10 +29,10 @@ module Risc
|
|||||||
assert_equal 0 , Position.get(@machine.cpu_init).at
|
assert_equal 0 , Position.get(@machine.cpu_init).at
|
||||||
end
|
end
|
||||||
def test_cpu_at
|
def test_cpu_at
|
||||||
assert_equal "0x5714" , Position.get(@machine.cpu_init.first).to_s
|
assert_equal "0x5a54" , Position.get(@machine.cpu_init.first).to_s
|
||||||
end
|
end
|
||||||
def test_cpu_bin
|
def test_cpu_bin
|
||||||
assert_equal "0x570c" , Position.get(Position.get(@machine.cpu_init.first).binary).to_s
|
assert_equal "0x5a4c" , Position.get(Position.get(@machine.cpu_init.first).binary).to_s
|
||||||
end
|
end
|
||||||
def test_cpu_label
|
def test_cpu_label
|
||||||
assert_equal Position::InstructionPosition , Position.get(@machine.cpu_init.first).class
|
assert_equal Position::InstructionPosition , Position.get(@machine.cpu_init.first).class
|
||||||
|
Loading…
Reference in New Issue
Block a user