2014-04-16 11:03:39 +02:00
|
|
|
module Asm
|
|
|
|
|
|
|
|
class Node
|
|
|
|
end
|
|
|
|
|
|
|
|
class InstructionNode < Node
|
|
|
|
attr_accessor :opcode, :args
|
|
|
|
end
|
|
|
|
|
|
|
|
class ShiftNode < Node
|
|
|
|
attr_accessor :type, :value, :argument
|
|
|
|
end
|
|
|
|
|
2014-04-22 11:23:55 +02:00
|
|
|
# Registers have off course a name (r1-16 for arm)
|
|
|
|
# but also refer to an address. In other words they can be an operand for instructions.
|
|
|
|
# Arm has addressing modes abound, and so can add to a register before actually using it
|
|
|
|
# If can actually shift or indeed shift what it adds, but not implemented
|
2014-04-21 16:35:38 +02:00
|
|
|
class RegisterNode < Node
|
2014-04-22 11:23:55 +02:00
|
|
|
attr_accessor :name , :offset
|
2014-04-18 18:19:57 +02:00
|
|
|
def initialize name
|
|
|
|
@name = name
|
2014-04-22 11:23:55 +02:00
|
|
|
@offset = 0
|
|
|
|
end
|
|
|
|
|
|
|
|
# this is for the dsl, so we can write pretty code like r1 + 4
|
|
|
|
# when we want to access the next word (4) after r1
|
|
|
|
def + number
|
|
|
|
@offset = number
|
|
|
|
self
|
2014-04-18 18:19:57 +02:00
|
|
|
end
|
2014-04-16 11:03:39 +02:00
|
|
|
end
|
|
|
|
|
2014-04-20 22:48:04 +02:00
|
|
|
#maybe not used at all as code_gen::instruction raises if used.
|
|
|
|
# instead now using Arrays
|
2014-04-21 16:35:38 +02:00
|
|
|
class RegisterListNode < Node
|
2014-04-16 11:03:39 +02:00
|
|
|
attr_accessor :registers
|
2014-04-20 22:48:04 +02:00
|
|
|
def initialize regs
|
2014-04-22 10:58:17 +02:00
|
|
|
@registers = regs
|
|
|
|
regs.each{ |reg| raise "not a reg #{sym} , #{reg}" unless reg.is_a?(Asm::RegisterNode) }
|
2014-04-20 22:48:04 +02:00
|
|
|
end
|
2014-04-16 11:03:39 +02:00
|
|
|
end
|
|
|
|
|
2014-04-21 16:35:38 +02:00
|
|
|
class NumLiteralNode < Node
|
2014-04-16 11:03:39 +02:00
|
|
|
attr_accessor :value
|
2014-04-18 18:19:57 +02:00
|
|
|
def initialize val
|
|
|
|
@value = val
|
|
|
|
end
|
2014-04-16 11:03:39 +02:00
|
|
|
end
|
|
|
|
|
2014-04-21 16:35:38 +02:00
|
|
|
class LabelRefNode < Node
|
2014-04-16 11:03:39 +02:00
|
|
|
attr_accessor :label, :label_object
|
2014-04-18 18:19:57 +02:00
|
|
|
def initialize label , object = nil
|
|
|
|
@label = label
|
|
|
|
@label_object = object
|
|
|
|
end
|
2014-04-16 11:03:39 +02:00
|
|
|
end
|
|
|
|
|
|
|
|
class ParseError < StandardError
|
|
|
|
def initialize(message, s)
|
|
|
|
super(message)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|