49da77f996
and fix for the change in call sequence
56 lines
2.2 KiB
Ruby
56 lines
2.2 KiB
Ruby
require_relative "helper"
|
|
|
|
module Register
|
|
class IfCalledTest < 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,
|
|
SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
|
|
LoadConstant, RegToSlot, RegisterTransfer, FunctionCall, Label,
|
|
LoadConstant, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
|
|
LoadConstant, OperatorInstruction, IsZero, SlotToReg, LoadConstant,
|
|
RegToSlot, LoadConstant, RegToSlot, LoadConstant, SlotToReg,
|
|
RegToSlot, LoadConstant, RegToSlot, RegisterTransfer, FunctionCall,
|
|
Label, LoadConstant, SlotToReg, RegToSlot, SlotToReg,
|
|
SlotToReg, RegisterTransfer, Syscall, RegisterTransfer, RegisterTransfer,
|
|
RegToSlot, Label, FunctionReturn, RegisterTransfer, SlotToReg,
|
|
SlotToReg, Branch, Label, Label, FunctionReturn,
|
|
RegisterTransfer, SlotToReg, SlotToReg, LoadConstant, SlotToReg,
|
|
RegToSlot, Label, FunctionReturn, RegisterTransfer, Syscall,
|
|
NilClass]
|
|
end
|
|
end
|
|
end
|