From 0ca117e1e474ea50b9c0e006b68b6bff30b60496 Mon Sep 17 00:00:00 2001
From: pimjager <pim@pimjager.nl>
Date: Mon, 9 May 2016 00:46:24 +0200
Subject: [PATCH] codegen work in progress

---
 gen.icl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gen.icl b/gen.icl
index e1f6838..e87542c 100644
--- a/gen.icl
+++ b/gen.icl
@@ -113,8 +113,8 @@ instance g Stmt where
         g e >>|
         abort "Shit, an assignment, figure out something with storing vars or something"
         //vars will be on stack in locals (possible pointers to heap)
-    g (FunStmt _ _) = abort "CodeGen FunStmt unused" //not used
-    g (ReturnStmt Nothing)  = tell [Instr "ret" [] ""]
+    g (FunStmt _ _) = abort "CodeGen, FunStmt unused" //not used
+    g (ReturnStmt Nothing)  = tell [Instr "ret" [] ""] //NOTE! Assumes only return address on stack, safe?
     g (ReturnStmt (Just e)) = 
         g e >>|
         tell [Instr "str" [Raw "RR"] ""] >>|
-- 
2.20.1