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

implement greater than

Browse Source
This commit is contained in:
Torsten Ruger
2018-04-19 22:57:31 +03:00
parent be3d125b82
commit 04359546b7
5 changed files with 38 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/risc/boot.rb
View File

@ -184,7 +184,7 @@ module Risc
Risc.operators.each do |op|
obj.instance_type.add_method Builtin::Integer.operator_method(op)
end
[:putint, :div4, :div10 , :<].each do |f| #div4 is just a forward declaration
[:putint, :div4, :div10 , :<, :>].each do |f| #div4 is just a forward declaration
obj.instance_type.add_method Builtin::Integer.send(f , nil)
end
end

24
lib/risc/builtin/integer.rb
View File

@ -19,22 +19,28 @@ module Risc
compiler.add_mom( Mom::ReturnSequence.new)
return compiler.method
end
def >( context )
comparison( :> , Risc::IsMinus)
end
def <( context )
compiler = compiler_for(:Integer, :< ,{other: :Integer})
comparison( :< , Risc::IsPlus)
end
def comparison( operator , branch )
compiler = compiler_for(:Integer, operator ,{other: :Integer})
builder = compiler.builder(true, compiler.method)
me , other = builder.self_and_int_arg("< load receiver and arg")
me , other = builder.self_and_int_arg("#{operator} load receiver and arg")
false_label = Risc.label(compiler.method , "false_label_#{builder.object_id}")
merge_label = Risc.label(compiler.method , "merge_label_#{builder.object_id}")
builder.reduce_int( "< fix me", me )
builder.reduce_int( "< fix arg", other )
builder.add_code Risc.op( "< operator", :- , me , other)
builder.add_code Risc::IsPlus.new( "< if", false_label)
builder.add_load_constant("< new int", Parfait.object_space.true_object , other)
builder.reduce_int( "#{operator} fix me", me )
builder.reduce_int( "#{operator} fix arg", other )
builder.add_code Risc.op( "#{operator} operator", :- , me , other)
builder.add_code branch.new( "#{operator} if", false_label)
builder.add_load_constant("#{operator} new int", Parfait.object_space.true_object , other)
builder.add_code Risc::Branch.new("jump over false", merge_label)
builder.add_code false_label
builder.add_load_constant("< new int", Parfait.object_space.false_object , other)
builder.add_load_constant("#{operator} new int", Parfait.object_space.false_object , other)
builder.add_code merge_label
builder.add_reg_to_slot( "< save ret" , other , :message , :return_value)
builder.add_reg_to_slot( "#{operator} save ret" , other , :message , :return_value)
compiler.add_mom( Mom::ReturnSequence.new)
return compiler.method
end