ruby-x/rubyx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix allocate in builder

Browse Source 
which accessed unknown types.
also moved assert_allocate to support
This commit is contained in:
Torsten
2020-03-09 19:22:02 +02:00
parent c9fedec230
commit 8abcaa330b
5 changed files with 48 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
test/risc/test_builder1.rb
View File

@ -3,6 +3,8 @@ require_relative "../helper"
module Risc
class TestCompilerBuilder < MiniTest::Test
include Parfait::MethodHelper
include HasCompiler
def setup
Parfait.boot!(Parfait.default_test_options)
@method = SlotMachine::SlotCollection.compiler_for( :Space , :main,{},{}).callable
@ -18,7 +20,11 @@ module Risc
end
def test_allocate_len
int = @builder.allocate_int
assert_equal 23 , @builder.compiler.risc_instructions.length
assert_equal 22 , @builder.compiler.risc_instructions.length
end
def test_allocate
int = @builder.allocate_int
assert_allocate
end
end
end

35
test/slot_machine/macro/helper.rb
View File

@ -18,41 +18,6 @@ module SlotMachine
@risc_i.next( at )
end
def assert_return(at)
assert_label at , "return_label"
assert_slot_to_reg at + 1 , :message , 6 , "message.caller"
assert_slot_to_reg at + 2 , "message" , 5 , "message.return_value"
assert_reg_to_slot at + 3 ,"message.return_value" , "message.caller" , 5
assert_slot_to_reg at + 4 , :message , 4 , "message.return_address"
assert_slot_to_reg at + 5 , :message , 6 , :message
assert_equal Risc::FunctionReturn , risc(at + 6).class
assert_label at + 7 , "unreachable"
end
def assert_allocate
assert_load 1 , Parfait::Factory , "id_factory_"
assert_load 2 , Parfait::NilClass , "id_nilclass_"
assert_slot_to_reg 3 , "id_factory_" , 2 , "id_factory_.next_object"
assert_operator 4 , :- , "id_nilclass_" , "id_factory_.next_object"
assert_not_zero 5 , "cont_label"
assert_slot_to_reg 6 , "id_factory_" , 2 , "id_factory_.next_object"
assert_reg_to_slot 7 , "id_factory_.next_object" , "id_factory_" , 2
assert_load 8 , Parfait::Factory , "id_factory_"
assert_load 9 , Parfait::CallableMethod , "id_callablemethod"
assert_slot_to_reg 10 , :message , 1 , "message.next_message"
assert_reg_to_slot 11 , "id_callablemethod_" , "message.next_message" , 7
assert_reg_to_slot 12 , "id_factory_" , :message , 2
assert_load 13 , Risc::Label , "id_label"
assert_slot_to_reg 14 , :message , 1 , "message.next_message"
assert_reg_to_slot 15 , "id_label" , "message.next_message" , 4
assert_slot_to_reg 16 ,:message , 1 , :message
assert_equal Risc::FunctionCall, risc(17).class
assert_equal :main, risc(17).method.name
assert_label 18 , "after_main_"
assert_label 19 , "cont_label"
assert_slot_to_reg 20 , "id_factory_" , 2 , "id_factory_.next_object"
assert_slot_to_reg 21 , "id_factory_" , 2 , "id_factory_.next_object"
assert_reg_to_slot 22 , "id_factory_.next_object" , "id_factory_" , 2
end
end
end
end

38
test/support/risc_assert.rb
View File

@ -136,5 +136,43 @@ module Minitest
assert_equal Risc::LoadData , ins.class, "Class at:#{ins_i}"
assert_equal data , ins.constant , "Data at:#{ins_i}"
end
def assert_return(at)
assert_label at , "return_label"
assert_slot_to_reg at + 1 , :message , 6 , "message.caller"
assert_slot_to_reg at + 2 , "message" , 5 , "message.return_value"
assert_reg_to_slot at + 3 ,"message.return_value" , "message.caller" , 5
assert_slot_to_reg at + 4 , :message , 4 , "message.return_address"
assert_slot_to_reg at + 5 , :message , 6 , :message
assert_equal Risc::FunctionReturn , risc(at + 6).class
assert_label at + 7 , "unreachable"
end
def assert_allocate
assert_load 1 , Parfait::Factory , "id_factory_"
assert_load 2 , Parfait::NilClass , "id_nilclass_"
assert_slot_to_reg 3 , "id_factory_" , 2 , "id_factory_.next_object"
assert_operator 4 , :- , "id_nilclass_" , "id_factory_.next_object"
assert_not_zero 5 , "cont_label"
assert_slot_to_reg 6 , "id_factory_" , 3 , "id_factory_.reserve"
assert_reg_to_slot 7 , "id_factory_.reserve" , "id_factory_" , 2
assert_load 8 , Parfait::Factory , "id_factory_"
assert_load 9 , Parfait::CallableMethod , "id_callablemethod"
assert_slot_to_reg 10 , :message , 1 , "message.next_message"
assert_reg_to_slot 11 , "id_callablemethod_" , "message.next_message" , 7
assert_reg_to_slot 12 , "id_factory_" , :message , 2
assert_load 13 , Risc::Label , "id_label"
assert_slot_to_reg 14 , :message , 1 , "message.next_message"
assert_reg_to_slot 15 , "id_label" , "message.next_message" , 4
assert_slot_to_reg 16 ,:message , 1 , :message
assert_equal Risc::FunctionCall, risc(17).class
assert_equal :main, risc(17).method.name
assert_label 18 , "after_main_"
assert_label 19 , "cont_label"
assert_slot_to_reg 20 , "id_factory_.next_object" , 1 , "id_factory_.next_object.next_integer"
assert_reg_to_slot 21 , "id_factory_.next_object.next_integer" , "id_factory_" , 2
end
end
end
def Risc.allocate_length
21
end