split the if test into a plain and one with call
This commit is contained in:
50
test/register/interpreter/test_called_if.rb
Normal file
50
test/register/interpreter/test_called_if.rb
Normal file
@ -0,0 +1,50 @@
|
||||
require_relative "helper"
|
||||
|
||||
class IfTest < MiniTest::Test
|
||||
include Ticker
|
||||
include Compiling
|
||||
|
||||
def setup
|
||||
@string_input = <<HERE
|
||||
class Space
|
||||
int itest(int n)
|
||||
if_zero( n - 12)
|
||||
"then".putstring()
|
||||
else
|
||||
"else".putstring()
|
||||
end
|
||||
end
|
||||
|
||||
int main()
|
||||
itest(20)
|
||||
end
|
||||
end
|
||||
HERE
|
||||
@input = s(:statements, s(:call, s(:name, :itest), s(:arguments, s(:int, 20))))
|
||||
super
|
||||
end
|
||||
|
||||
# must be after boot, but before main compile, to define method
|
||||
def do_clean_compile
|
||||
clean_compile :Space , :itest , {:n => :Integer} ,
|
||||
s(:statements, s(:if_statement, :zero, s(:condition, s(:operator_value, :-, s(:name, :n), s(:int, 12))),
|
||||
s(:true_statements, s(:call, s(:name, :putstring), s(:arguments), s(:receiver, s(:string, "then")))),
|
||||
s(:false_statements, s(:call, s(:name, :putstring), s(:arguments), s(:receiver, s(:string, "else"))))))
|
||||
end
|
||||
def test_if
|
||||
#show_ticks # get output of what is
|
||||
check_chain ["Branch","Label","LoadConstant","SlotToReg","RegToSlot",
|
||||
"LoadConstant","RegToSlot","FunctionCall","Label","SlotToReg",
|
||||
"SlotToReg","RegToSlot","LoadConstant","RegToSlot","LoadConstant",
|
||||
"RegToSlot","LoadConstant","RegToSlot","LoadConstant","RegToSlot",
|
||||
"RegisterTransfer","FunctionCall","Label","SlotToReg","LoadConstant",
|
||||
"OperatorInstruction","IsZero","SlotToReg","LoadConstant","RegToSlot",
|
||||
"LoadConstant","RegToSlot","LoadConstant","RegToSlot","LoadConstant",
|
||||
"RegToSlot","RegisterTransfer","FunctionCall","Label","SlotToReg",
|
||||
"SlotToReg","RegisterTransfer","Syscall","RegisterTransfer","RegisterTransfer",
|
||||
"RegToSlot","Label","FunctionReturn","RegisterTransfer","SlotToReg",
|
||||
"SlotToReg","Branch","Label","Label","FunctionReturn",
|
||||
"RegisterTransfer","SlotToReg","SlotToReg","Label","FunctionReturn",
|
||||
"RegisterTransfer","Syscall","NilClass"]
|
||||
end
|
||||
end
|
Reference in New Issue
Block a user