2017-01-14 18:28:44 +01:00
|
|
|
module Vm
|
2015-05-08 14:10:30 +02:00
|
|
|
# collection of the simple ones, int and strings and such
|
|
|
|
|
2016-12-09 12:40:10 +01:00
|
|
|
module BasicValues
|
2015-05-08 14:10:30 +02:00
|
|
|
|
2015-10-26 21:23:06 +01:00
|
|
|
# Constant expressions can by definition be evaluated at compile time.
|
2015-05-08 14:10:30 +02:00
|
|
|
# But that does not solve their storage, ie they need to be accessible at runtime from _somewhere_
|
2017-01-19 08:02:29 +01:00
|
|
|
# So expressions move the data into a Risc.
|
2015-10-26 21:23:06 +01:00
|
|
|
# All expressions return registers
|
2015-05-08 14:10:30 +02:00
|
|
|
|
|
|
|
# But in the future (in the one that holds great things) we optimize those unneccesay moves away
|
|
|
|
|
2016-03-07 10:55:28 +01:00
|
|
|
def on_IntegerExpression expression
|
|
|
|
int = expression.value
|
2015-10-15 08:07:47 +02:00
|
|
|
reg = use_reg :Integer , int
|
2016-12-28 19:37:54 +01:00
|
|
|
add_load_constant( expression, int , reg )
|
2015-10-13 15:42:53 +02:00
|
|
|
return reg
|
2015-09-27 19:28:34 +02:00
|
|
|
end
|
|
|
|
|
2016-03-07 10:55:28 +01:00
|
|
|
def on_TrueExpression expression
|
2015-10-14 15:16:03 +02:00
|
|
|
reg = use_reg :Boolean
|
2016-12-28 19:37:54 +01:00
|
|
|
add_load_constant( expression, true , reg )
|
2015-10-13 15:42:53 +02:00
|
|
|
return reg
|
2015-09-27 19:28:34 +02:00
|
|
|
end
|
|
|
|
|
2016-03-07 10:55:28 +01:00
|
|
|
def on_FalseExpression expression
|
2015-10-14 15:16:03 +02:00
|
|
|
reg = use_reg :Boolean
|
2016-12-28 19:37:54 +01:00
|
|
|
add_load_constant( expression, false , reg )
|
2015-10-13 15:42:53 +02:00
|
|
|
return reg
|
2015-09-27 19:28:34 +02:00
|
|
|
end
|
|
|
|
|
2016-03-07 10:55:28 +01:00
|
|
|
def on_NilExpression expression
|
2015-10-14 15:16:03 +02:00
|
|
|
reg = use_reg :NilClass
|
2016-12-28 19:37:54 +01:00
|
|
|
add_load_constant( expression, nil , reg )
|
2015-10-13 15:42:53 +02:00
|
|
|
return reg
|
2015-09-27 19:28:34 +02:00
|
|
|
end
|
|
|
|
|
2016-03-07 10:55:28 +01:00
|
|
|
def on_StringExpression expression
|
|
|
|
value = Parfait.new_word expression.value.to_sym
|
2015-10-14 15:16:03 +02:00
|
|
|
reg = use_reg :Word
|
2017-01-19 08:02:29 +01:00
|
|
|
Risc.machine.constants << value
|
2016-12-28 19:37:54 +01:00
|
|
|
add_load_constant( expression, value , reg )
|
2015-10-13 15:42:53 +02:00
|
|
|
return reg
|
2015-09-27 19:28:34 +02:00
|
|
|
end
|
2015-10-26 21:23:06 +01:00
|
|
|
|
2016-03-07 10:55:28 +01:00
|
|
|
def on_ClassExpression expression
|
|
|
|
name = expression.value
|
2016-12-29 17:39:59 +01:00
|
|
|
raise "No meta class #{name}"
|
2015-10-26 21:23:06 +01:00
|
|
|
end
|
|
|
|
|
2015-05-08 14:10:30 +02:00
|
|
|
end
|
|
|
|
end
|