language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-30 07:14:46 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Fix stack overflow in monomorphization

Browse source
This commit is contained in:
Richard Feldman 2020-07-16 19:27:47 -04:00
parent fb8ff03670
commit 2babe67998
4 changed files with 268 additions and 144 deletions
Download patch file Download diff file Expand all files Collapse all files

17
compiler/build/src/program.rs
View file

@ -240,7 +240,7 @@ pub fn build(
assert_eq!(
procs.runtime_errors,
roc_collections::all::MutSet::default()
roc_collections::all::MutMap::default()
);
// Put this module's ident_ids back in the interns, so we can use them in env.
@ -252,10 +252,19 @@ pub fn build(
// We have to do this in a separate pass first,
// because their bodies may reference each other.
for ((symbol, layout), proc) in procs.specialized.drain() {
let (fn_val, arg_basic_types) =
build_proc_header(&env, &mut layout_ids, symbol, &layout, &proc);
use roc_mono::expr::InProgressProc::*;
headers.push((proc, fn_val, arg_basic_types));
match proc {
InProgress => {
panic!("A specialization was still marked InProgress after monomorphization had completed: {:?} with layout {:?}", symbol, layout);
}
Done(proc) => {
let (fn_val, arg_basic_types) =
build_proc_header(&env, &mut layout_ids, symbol, &layout, &proc);
headers.push((proc, fn_val, arg_basic_types));
}
}
}
// Build each proc using its header info.