working mono

compiler/builtins/src/bitcode.rs

@@ -1,3 +1,4 @@
+use roc_module::symbol::Symbol;
 use std::ops::Index;
 
 pub const BUILTINS_HOST_OBJ_PATH: &str = env!(
@@ -27,13 +28,55 @@ pub enum DecWidth {
 }
 
 #[repr(u8)]
+#[derive(Copy, Clone, PartialEq, Eq, Hash, Debug)]
 pub enum FloatWidth {
     F32,
     F64,
     F128,
 }
 
+impl FloatWidth {
+    pub const fn stack_size(&self) -> u32 {
+        use FloatWidth::*;
+
+        match self {
+            F32 => 4,
+            F64 => 8,
+            F128 => 16,
+        }
+    }
+
+    pub const fn alignment_bytes(&self) -> u32 {
+        use std::mem::align_of;
+        use FloatWidth::*;
+
+        // TODO actually alignment is architecture-specific
+        match self {
+            F32 => align_of::<f32>() as u32,
+            F64 => align_of::<f64>() as u32,
+            F128 => align_of::<i128>() as u32,
+        }
+    }
+
+    pub const fn try_from_symbol(symbol: Symbol) -> Option<Self> {
+        match symbol {
+            Symbol::NUM_FLOAT => Some(FloatWidth::F64),
+
+            Symbol::NUM_F64 | Symbol::NUM_BINARY64 | Symbol::NUM_AT_BINARY64 => {
+                Some(FloatWidth::F64)
+            }
+
+            Symbol::NUM_F32 | Symbol::NUM_BINARY32 | Symbol::NUM_AT_BINARY32 => {
+                Some(FloatWidth::F32)
+            }
+
+            _ => None,
+        }
+    }
+}
+
 #[repr(u8)]
+#[derive(Copy, Clone, PartialEq, Eq, Hash, Debug)]
 pub enum IntWidth {
     U8,
     U16,
@@ -47,6 +90,61 @@ pub enum IntWidth {
     I128,
 }
 
+impl IntWidth {
+    pub const fn stack_size(&self) -> u32 {
+        use IntWidth::*;
+
+        match self {
+            U8 | I8 => 1,
+            U16 | I16 => 2,
+            U32 | I32 => 4,
+            U64 | I64 => 8,
+            U128 | I128 => 16,
+        }
+    }
+
+    pub const fn alignment_bytes(&self) -> u32 {
+        use std::mem::align_of;
+        use IntWidth::*;
+
+        // TODO actually alignment is architecture-specific
+        match self {
+            U8 | I8 => align_of::<i8>() as u32,
+            U16 | I16 => align_of::<i16>() as u32,
+            U32 | I32 => align_of::<i32>() as u32,
+            U64 | I64 => align_of::<i64>() as u32,
+            U128 | I128 => align_of::<i128>() as u32,
+        }
+    }
+
+    pub const fn try_from_symbol(symbol: Symbol) -> Option<Self> {
+        match symbol {
+            Symbol::NUM_INT => Some(IntWidth::I64),
+            Symbol::NUM_I128 | Symbol::NUM_SIGNED128 | Symbol::NUM_AT_SIGNED128 => {
+                Some(IntWidth::I128)
+            }
+            Symbol::NUM_I64 | Symbol::NUM_SIGNED64 | Symbol::NUM_AT_SIGNED64 => Some(IntWidth::I64),
+            Symbol::NUM_I32 | Symbol::NUM_SIGNED32 | Symbol::NUM_AT_SIGNED32 => Some(IntWidth::I32),
+            Symbol::NUM_I16 | Symbol::NUM_SIGNED16 | Symbol::NUM_AT_SIGNED16 => Some(IntWidth::I16),
+            Symbol::NUM_I8 | Symbol::NUM_SIGNED8 | Symbol::NUM_AT_SIGNED8 => Some(IntWidth::I8),
+            Symbol::NUM_U128 | Symbol::NUM_UNSIGNED128 | Symbol::NUM_AT_UNSIGNED128 => {
+                Some(IntWidth::U128)
+            }
+            Symbol::NUM_U64 | Symbol::NUM_UNSIGNED64 | Symbol::NUM_AT_UNSIGNED64 => {
+                Some(IntWidth::U64)
+            }
+            Symbol::NUM_U32 | Symbol::NUM_UNSIGNED32 | Symbol::NUM_AT_UNSIGNED32 => {
+                Some(IntWidth::U32)
+            }
+            Symbol::NUM_U16 | Symbol::NUM_UNSIGNED16 | Symbol::NUM_AT_UNSIGNED16 => {
+                Some(IntWidth::U16)
+            }
+            Symbol::NUM_U8 | Symbol::NUM_UNSIGNED8 | Symbol::NUM_AT_UNSIGNED8 => Some(IntWidth::U8),
+            _ => None,
+        }
+    }
+}
+
 impl Index<DecWidth> for IntrinsicName {
     type Output = str;