You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
82 lines
2.3 KiB
82 lines
2.3 KiB
use std::fmt::Debug;
|
|
|
|
use dyn_clonable::*;
|
|
use sexp::Sexp;
|
|
|
|
use crate::asm::data::{
|
|
literal::DebugMsg, literal::Label,
|
|
literal::RoutineName,
|
|
Rd,
|
|
Wr,
|
|
};
|
|
use crate::asm::error::Error;
|
|
use crate::asm::instr::Cond;
|
|
use crate::runtime::fault::Fault;
|
|
use crate::runtime::frame::{CallStack, StackFrame};
|
|
use crate::runtime::program::Program;
|
|
|
|
/// A higher level simple opration
|
|
#[derive(Clone, Debug)]
|
|
pub enum HLOp {
|
|
/// Mark a jump target.
|
|
Label(Label),
|
|
/// Jump to a label
|
|
Jump(Label),
|
|
/// Jump to a label if a flag is set
|
|
JumpIf(Cond, Label),
|
|
/// Low level op
|
|
L(Op),
|
|
}
|
|
|
|
/// A low level instruction
|
|
#[derive(Clone, Debug)]
|
|
pub enum Op {
|
|
/// Do nothing
|
|
Nop,
|
|
/// Mark a far jump target (can be jumped to from another routine).
|
|
/// This label is preserved in optimized code.
|
|
FarLabel(Label),
|
|
/// Jump to a label that can be in another function
|
|
FarJump(Label),
|
|
/// Call a routine with arguments.
|
|
/// The arguments are passed as argX. Return values are stored in resX registers.
|
|
Call(RoutineName, Vec<Rd>),
|
|
/// Exit the current routine with return values
|
|
Ret(Vec<Rd>),
|
|
/// Mark a routine entry point (call target).
|
|
/// Kept in the low level instruction file for position-independent code
|
|
Routine(RoutineName),
|
|
/// Skip backward or forward
|
|
Skip(Rd),
|
|
/// Skip if a flag is set
|
|
SkipIf(Cond, Rd),
|
|
/// Deny jumps, skips and run across this address, producing a run-time fault with a message.
|
|
Barrier(Option<DebugMsg>),
|
|
/// Generate a run-time fault with a debugger message
|
|
Fault(Option<DebugMsg>),
|
|
/// Copy value
|
|
Move { dst: Wr, src: Rd },
|
|
/// Store runtime status to a register
|
|
StoreStatus { dst: Wr },
|
|
/// Load runtime status from a register
|
|
LoadStatus { src: Rd },
|
|
|
|
Extension(Box<dyn OpTrait>),
|
|
}
|
|
|
|
/// Make "into" work
|
|
impl From<Op> for HLOp {
|
|
fn from(op: Op) -> Self {
|
|
HLOp::L(op)
|
|
}
|
|
}
|
|
|
|
#[clonable]
|
|
pub trait OpTrait: Clone + Debug + Send + 'static {
|
|
fn execute(&self, program: &Program, call_stack: &mut CallStack, frame: &mut StackFrame) -> Result<(), Fault>;
|
|
}
|
|
|
|
#[clonable]
|
|
pub trait OpParser: Clone + Debug + Send + 'static {
|
|
fn parse_op(&self, keyword: &str, far: bool, arg_tokens: Vec<Sexp>) -> Result<Box<dyn OpTrait>, Error>;
|
|
}
|
|
|