Rewrite interpreter generically (#2323)
* Rewrite interpreter generically This change re-implements the Cranelift interpreter to use generic values; this makes it possible to do abstract interpretation of Cranelift instructions. In doing so, the interpretation state is extracted from the `Interpreter` structure and is accessed via a `State` trait; this makes it possible to not only more clearly observe the interpreter's state but also to interpret using a dummy state (e.g. `ImmutableRegisterState`). This addition made it possible to implement more of the Cranelift instructions (~70%, ignoring the x86-specific instructions). * Replace macros with closures
This commit is contained in:
@@ -1,9 +1,10 @@
|
||||
//! This module gives users to instantiate values that Cranelift understands. These values are used,
|
||||
//! for example, during interpretation and for wrapping immediates.
|
||||
use crate::ir::immediates::{Ieee32, Ieee64, Imm64, Offset32};
|
||||
use crate::ir::immediates::{Ieee32, Ieee64, Offset32};
|
||||
use crate::ir::{types, ConstantData, Type};
|
||||
use core::convert::TryInto;
|
||||
use core::fmt::{self, Display, Formatter};
|
||||
use core::ptr;
|
||||
use thiserror::Error;
|
||||
|
||||
/// Represent a data value. Where [Value] is an SSA reference, [DataValue] is the type + value
|
||||
@@ -11,27 +12,32 @@ use thiserror::Error;
|
||||
///
|
||||
/// [Value]: crate::ir::Value
|
||||
#[allow(missing_docs)]
|
||||
#[derive(Clone, Debug, PartialEq)]
|
||||
#[derive(Clone, Debug, PartialEq, PartialOrd)]
|
||||
pub enum DataValue {
|
||||
B(bool),
|
||||
I8(i8),
|
||||
I16(i16),
|
||||
I32(i32),
|
||||
I64(i64),
|
||||
U8(u8),
|
||||
U16(u16),
|
||||
U32(u32),
|
||||
U64(u64),
|
||||
F32(Ieee32),
|
||||
F64(Ieee64),
|
||||
V128([u8; 16]),
|
||||
}
|
||||
|
||||
impl DataValue {
|
||||
/// Try to cast an immediate integer ([Imm64]) to the given Cranelift [Type].
|
||||
pub fn from_integer(imm: Imm64, ty: Type) -> Result<DataValue, DataValueCastFailure> {
|
||||
/// Try to cast an immediate integer (a wrapped `i64` on most Cranelift instructions) to the
|
||||
/// given Cranelift [Type].
|
||||
pub fn from_integer(imm: i64, ty: Type) -> Result<DataValue, DataValueCastFailure> {
|
||||
match ty {
|
||||
types::I8 => Ok(DataValue::I8(imm.bits() as i8)),
|
||||
types::I16 => Ok(DataValue::I16(imm.bits() as i16)),
|
||||
types::I32 => Ok(DataValue::I32(imm.bits() as i32)),
|
||||
types::I64 => Ok(DataValue::I64(imm.bits())),
|
||||
_ => Err(DataValueCastFailure::FromImm64(imm, ty)),
|
||||
types::I8 => Ok(DataValue::I8(imm as i8)),
|
||||
types::I16 => Ok(DataValue::I16(imm as i16)),
|
||||
types::I32 => Ok(DataValue::I32(imm as i32)),
|
||||
types::I64 => Ok(DataValue::I64(imm)),
|
||||
_ => Err(DataValueCastFailure::FromInteger(imm, ty)),
|
||||
}
|
||||
}
|
||||
|
||||
@@ -39,10 +45,10 @@ impl DataValue {
|
||||
pub fn ty(&self) -> Type {
|
||||
match self {
|
||||
DataValue::B(_) => types::B8, // A default type.
|
||||
DataValue::I8(_) => types::I8,
|
||||
DataValue::I16(_) => types::I16,
|
||||
DataValue::I32(_) => types::I32,
|
||||
DataValue::I64(_) => types::I64,
|
||||
DataValue::I8(_) | DataValue::U8(_) => types::I8,
|
||||
DataValue::I16(_) | DataValue::U16(_) => types::I16,
|
||||
DataValue::I32(_) | DataValue::U32(_) => types::I32,
|
||||
DataValue::I64(_) | DataValue::U64(_) => types::I64,
|
||||
DataValue::F32(_) => types::F32,
|
||||
DataValue::F64(_) => types::F64,
|
||||
DataValue::V128(_) => types::I8X16, // A default type.
|
||||
@@ -56,6 +62,38 @@ impl DataValue {
|
||||
_ => false,
|
||||
}
|
||||
}
|
||||
|
||||
/// Write a [DataValue] to a memory location.
|
||||
pub unsafe fn write_value_to(&self, p: *mut u128) {
|
||||
match self {
|
||||
DataValue::B(b) => ptr::write(p as *mut bool, *b),
|
||||
DataValue::I8(i) => ptr::write(p as *mut i8, *i),
|
||||
DataValue::I16(i) => ptr::write(p as *mut i16, *i),
|
||||
DataValue::I32(i) => ptr::write(p as *mut i32, *i),
|
||||
DataValue::I64(i) => ptr::write(p as *mut i64, *i),
|
||||
DataValue::F32(f) => ptr::write(p as *mut Ieee32, *f),
|
||||
DataValue::F64(f) => ptr::write(p as *mut Ieee64, *f),
|
||||
DataValue::V128(b) => ptr::write(p as *mut [u8; 16], *b),
|
||||
_ => unimplemented!(),
|
||||
}
|
||||
}
|
||||
|
||||
/// Read a [DataValue] from a memory location using a given [Type].
|
||||
pub unsafe fn read_value_from(p: *const u128, ty: Type) -> Self {
|
||||
match ty {
|
||||
types::I8 => DataValue::I8(ptr::read(p as *const i8)),
|
||||
types::I16 => DataValue::I16(ptr::read(p as *const i16)),
|
||||
types::I32 => DataValue::I32(ptr::read(p as *const i32)),
|
||||
types::I64 => DataValue::I64(ptr::read(p as *const i64)),
|
||||
types::F32 => DataValue::F32(ptr::read(p as *const Ieee32)),
|
||||
types::F64 => DataValue::F64(ptr::read(p as *const Ieee64)),
|
||||
_ if ty.is_bool() => DataValue::B(ptr::read(p as *const bool)),
|
||||
_ if ty.is_vector() && ty.bytes() == 16 => {
|
||||
DataValue::V128(ptr::read(p as *const [u8; 16]))
|
||||
}
|
||||
_ => unimplemented!(),
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/// Record failures to cast [DataValue].
|
||||
@@ -64,8 +102,8 @@ impl DataValue {
|
||||
pub enum DataValueCastFailure {
|
||||
#[error("unable to cast data value of type {0} to type {1}")]
|
||||
TryInto(Type, Type),
|
||||
#[error("unable to cast Imm64({0}) to a data value of type {1}")]
|
||||
FromImm64(Imm64, Type),
|
||||
#[error("unable to cast i64({0}) to a data value of type {1}")]
|
||||
FromInteger(i64, Type),
|
||||
}
|
||||
|
||||
/// Helper for creating conversion implementations for [DataValue].
|
||||
@@ -97,6 +135,10 @@ build_conversion_impl!(i8, I8, I8);
|
||||
build_conversion_impl!(i16, I16, I16);
|
||||
build_conversion_impl!(i32, I32, I32);
|
||||
build_conversion_impl!(i64, I64, I64);
|
||||
build_conversion_impl!(u8, U8, I8);
|
||||
build_conversion_impl!(u16, U16, I16);
|
||||
build_conversion_impl!(u32, U32, I32);
|
||||
build_conversion_impl!(u64, U64, I64);
|
||||
build_conversion_impl!(Ieee32, F32, F32);
|
||||
build_conversion_impl!(Ieee64, F64, F64);
|
||||
build_conversion_impl!([u8; 16], V128, I8X16);
|
||||
@@ -114,6 +156,10 @@ impl Display for DataValue {
|
||||
DataValue::I16(dv) => write!(f, "{}", dv),
|
||||
DataValue::I32(dv) => write!(f, "{}", dv),
|
||||
DataValue::I64(dv) => write!(f, "{}", dv),
|
||||
DataValue::U8(dv) => write!(f, "{}", dv),
|
||||
DataValue::U16(dv) => write!(f, "{}", dv),
|
||||
DataValue::U32(dv) => write!(f, "{}", dv),
|
||||
DataValue::U64(dv) => write!(f, "{}", dv),
|
||||
// The Ieee* wrappers here print the expected syntax.
|
||||
DataValue::F32(dv) => write!(f, "{}", dv),
|
||||
DataValue::F64(dv) => write!(f, "{}", dv),
|
||||
|
||||
Reference in New Issue
Block a user