language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-08-04 04:08:19 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

TERRIBLE HACK to support x86 compilation

Browse source
This commit is contained in:
Ayaz Hafiz 2023-06-15 15:04:43 -05:00 • committed by Ayaz Hafiz
parent 5488b3a3eb
commit 2294f6994f
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
5 changed files with 149 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

26
crates/compiler/gen_llvm/src/llvm/build.rs
View file

@ -2373,9 +2373,10 @@ pub fn store_roc_value<'a, 'ctx>(
let align_bytes = layout_interner.alignment_bytes(layout);
if align_bytes > 0 {
let size = env
.ptr_int()
.const_int(layout_interner.stack_size(layout) as u64, false);
let width = basic_type_from_layout(env, layout_interner, layout)
.size_of()
.unwrap();
let align_bytes = layout_interner.alignment_bytes_for_llvm(layout);
env.builder
.build_memcpy(
@ -2383,7 +2384,7 @@ pub fn store_roc_value<'a, 'ctx>(
align_bytes,
value.into_pointer_value(),
align_bytes,
size,
width,
)
.unwrap();
}
@ -2951,8 +2952,10 @@ fn build_return<'a, 'ctx>(
//
// Hence, we explicitly memcpy source to destination, and rely on
// LLVM optimizing away any inefficiencies.
let width = layout_interner.stack_size(layout);
let size = env.ptr_int().const_int(width as _, false);
let width = basic_type_from_layout(env, layout_interner, layout)
.size_of()
.unwrap();
let align_bytes = layout_interner.alignment_bytes_for_llvm(layout);
env.builder
.build_memcpy(
@ -2960,7 +2963,7 @@ fn build_return<'a, 'ctx>(
align_bytes,
value.into_pointer_value(),
align_bytes,
size,
width,
)
.unwrap();
}
@ -5153,9 +5156,10 @@ fn build_closure_caller<'a, 'ctx>(
let align_bytes = layout_interner.alignment_bytes(return_layout);
if align_bytes > 0 {
let size = env
.ptr_int()
.const_int(layout_interner.stack_size(return_layout) as u64, false);
let width = basic_type_from_layout(env, layout_interner, return_layout)
.size_of()
.unwrap();
let align_bytes = layout_interner.alignment_bytes_for_llvm(return_layout);
env.builder
.build_memcpy(
@ -5163,7 +5167,7 @@ fn build_closure_caller<'a, 'ctx>(
align_bytes,
call_result.into_pointer_value(),
align_bytes,
size,
width,
)
.unwrap();
}

13
crates/compiler/gen_llvm/src/llvm/convert.rs
View file

@ -444,17 +444,20 @@ impl<'ctx> RocUnion<'ctx> {
data_layout.stack_size_and_alignment(layout_interner, env.target_info);
if payload_stack_size > 0 {
let bytes_to_memcpy = env
.context
.i32_type()
.const_int(payload_stack_size as _, false);
let bytes_to_memcpy = payload_data_ptr
.get_type()
.get_element_type()
.size_of()
.unwrap();
let align_bytes =
data_layout.alignment_bytes_for_llvm(layout_interner, env.target_info);
env.builder
.build_memcpy(
cast_tag_pointer,
self.data_align,
payload_data_ptr,
payload_align,
align_bytes,
bytes_to_memcpy
)
.unwrap_or_else(|e|internal_error!( "memcpy invariants must have been upheld: {e:?}. Union data align={}, source data align={}.", self.data_align, payload_align));