cleanup

crates/compiler/gen_llvm/src/llvm/build_str.rs

@@ -1,79 +1,15 @@
-use crate::llvm::build::{Env, Scope};
-use inkwell::builder::Builder;
-use inkwell::values::{BasicValueEnum, IntValue, PointerValue, StructValue};
+use crate::llvm::build::Env;
+use inkwell::values::{BasicValueEnum, PointerValue, StructValue};
 use inkwell::AddressSpace;
-use roc_builtins::bitcode::{self, FloatWidth, IntWidth};
-use roc_module::symbol::Symbol;
-use roc_mono::layout::{Builtin, Layout};
+use roc_builtins::bitcode;
+use roc_mono::layout::Layout;
 use roc_target::PtrWidth;
 
 use super::bitcode::{call_str_bitcode_fn, BitcodeReturns};
-use super::build::{create_entry_block_alloca, load_symbol};
 
 pub static CHAR_LAYOUT: Layout = Layout::u8();
 
-pub fn str_symbol_to_c_abi<'a, 'ctx, 'env>(
-    env: &Env<'a, 'ctx, 'env>,
-    scope: &Scope<'a, 'ctx>,
-    symbol: Symbol,
-) -> PointerValue<'ctx> {
-    let string = load_symbol(scope, &symbol);
-
-    str_to_c_abi(env, string)
-}
-
-pub fn str_to_c_abi<'a, 'ctx, 'env>(
-    env: &Env<'a, 'ctx, 'env>,
-    value: BasicValueEnum<'ctx>,
-) -> PointerValue<'ctx> {
-    let parent = env
-        .builder
-        .get_insert_block()
-        .and_then(|b| b.get_parent())
-        .unwrap();
-
-    let str_type = super::convert::zig_str_type(env);
-    let string_alloca = create_entry_block_alloca(env, parent, str_type.into(), "str_alloca");
-
-    env.builder.build_store(string_alloca, value);
-
-    string_alloca
-}
-
-pub fn destructure<'ctx>(
-    builder: &Builder<'ctx>,
-    wrapper_struct: StructValue<'ctx>,
-) -> (PointerValue<'ctx>, IntValue<'ctx>) {
-    let length = builder
-        .build_extract_value(wrapper_struct, Builtin::WRAPPER_LEN, "list_len")
-        .unwrap()
-        .into_int_value();
-
-    // a `*mut u8` pointer
-    let generic_ptr = builder
-        .build_extract_value(wrapper_struct, Builtin::WRAPPER_PTR, "read_list_ptr")
-        .unwrap()
-        .into_pointer_value();
-
-    (generic_ptr, length)
-}
-
-/// Str.fromInt : Int -> Str
-pub fn str_from_int<'a, 'ctx, 'env>(
-    env: &Env<'a, 'ctx, 'env>,
-    value: IntValue<'ctx>,
-    int_width: IntWidth,
-) -> BasicValueEnum<'ctx> {
-    call_str_bitcode_fn(
-        env,
-        &[],
-        &[value.into()],
-        BitcodeReturns::Str,
-        &bitcode::STR_FROM_INT[int_width],
-    )
-}
-
-pub fn decode_from_utf8_result<'a, 'ctx, 'env>(
+pub(crate) fn decode_from_utf8_result<'a, 'ctx, 'env>(
     env: &Env<'a, 'ctx, 'env>,
     pointer: PointerValue<'ctx>,
 ) -> StructValue<'ctx> {
@@ -109,23 +45,8 @@ pub fn decode_from_utf8_result<'a, 'ctx, 'env>(
     }
 }
 
-/// Str.fromFloat : Float * -> Str
-pub fn str_from_float<'a, 'ctx, 'env>(
-    env: &Env<'a, 'ctx, 'env>,
-    float: BasicValueEnum<'ctx>,
-    float_width: FloatWidth,
-) -> BasicValueEnum<'ctx> {
-    call_str_bitcode_fn(
-        env,
-        &[],
-        &[float],
-        BitcodeReturns::Str,
-        &bitcode::STR_FROM_FLOAT[float_width],
-    )
-}
-
 /// Dec.toStr : Dec -> Str
-pub fn dec_to_str<'a, 'ctx, 'env>(
+pub(crate) fn dec_to_str<'a, 'ctx, 'env>(
     env: &Env<'a, 'ctx, 'env>,
     dec: BasicValueEnum<'ctx>,
 ) -> BasicValueEnum<'ctx> {