From 08f4a92102c9739e0736965186814e856ff727a1 Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Fri, 28 Jun 2024 10:26:03 -0400
Subject: cache sp, minor refactors

---
 main.cpp | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

(limited to 'main.cpp')

diff --git a/main.cpp b/main.cpp
index 9798d7e..8e65ec8 100644
--- a/main.cpp
+++ b/main.cpp
@@ -60,20 +60,22 @@ int main()
     }
 
     // 3. Create main() which initiate global vars and calls the top-level thunk.
-    auto func = llvmState.createFunction("main");
-    auto entry = llvmState.createEntry(func);
-    auto envtype = llvm::VectorType::get(llvmState.inttype, ThunkAST::envidx, false);
-    auto [t0, _] = Var::lookup("__t0");
-    llvmState.builder.SetInsertPoint(entry);
+    auto envtype = llvm::ArrayType::get(llvmState.inttype, llvmState.envidx);
     auto zerovec = llvm::ConstantVector::get(llvm::ArrayRef(llvmState.zero));
     auto env = new llvm::GlobalVariable(llvmState.modul, envtype, false,
         llvm::GlobalValue::InternalLinkage, zerovec, "env");
+
+    auto func = llvmState.createFunction("main");
+    auto entry = llvmState.createEntry(func);
+    llvmState.builder.SetInsertPoint(entry);
+
+    auto [t0, _] = Var::lookup("__t0");
     llvmState.builder.CreateCall(llvmState.ftype, t0, llvm::ArrayRef<llvm::Value *> {env});
     llvmState.builder.CreateRetVoid();
 
     // 4. Output the IR to stdout.
     llvmState.output();
-    std::cerr << "envidx: " << ThunkAST::envidx << std::endl;
+    std::cerr << "envidx: " << llvmState.envidx << std::endl;
 
     return 0;
 }
@@ -142,12 +144,15 @@ std::list<ThunkAST>::iterator buildThunk(std::list<ThunkAST>::iterator it)
 
     curFunc = it->func;
     curEnv = it->env;
+    llvmState.lastSp = it->lastSp;
 
     for (auto& a : it->ast) {
         if (a->name.starts_with("__t")) {
+            it->lastSp = llvmState.lastSp;
             next = buildThunk(next);
             curFunc = it->func;
             curEnv = it->env;
+            llvmState.lastSp = it->lastSp;
         }
 
         if (a->codegen(llvmState) == nullptr) {
-- 
cgit v1.2.3