use explicit 128 MiB stack

Author: seeden

build.rs

@@ -11,6 +11,8 @@ use chialisp::classic::platform::argparse::ArgumentValue;
 use chialisp::compiler::comptypes::CompileErr;
 use chialisp::compiler::srcloc::Srcloc;
 
+const CHIALISP_COMPILER_STACK_SIZE: usize = 128 * 1024 * 1024;
+
 fn do_compile(title: &str, filename: &str) -> Result<(), CompileError> {
     let mut allocator = Allocator::new();
     let mut arguments: HashMap<String, ArgumentValue> = HashMap::new();
@@ -71,6 +73,22 @@ fn compile_chialisp() -> Result<(), CompileError> {
     Ok(())
 }
 
+fn compile_chialisp_with_large_stack() {
+    let compiler = std::thread::Builder::new()
+        .name("chialisp-compiler".to_string())
+        .stack_size(CHIALISP_COMPILER_STACK_SIZE)
+        .spawn(|| {
+            if let Err(e) = compile_chialisp() {
+                panic!("error compiling chialisp: {e:?}");
+            }
+        })
+        .expect("failed to start Chialisp compiler thread");
+
+    if let Err(payload) = compiler.join() {
+        std::panic::resume_unwind(payload);
+    }
+}
+
 fn emit_rerun_directives(dir: &Path) {
     if let Ok(entries) = fs::read_dir(dir) {
         for entry in entries.flatten() {
@@ -92,8 +110,6 @@ fn main() {
     println!("cargo:rerun-if-env-changed=CHIALISP_COMPILE");
 
     if std::env::var("CHIALISP_COMPILE").is_ok() {
-        if let Err(e) = compile_chialisp() {
-            panic!("error compiling chialisp: {e:?}");
-        }
+        compile_chialisp_with_large_stack();
     }
 }