From b5a009347e75df5ccb48736e22dff06ab9194658 Mon Sep 17 00:00:00 2001
From: Quentin Carbonneaux <quentin.carbonneaux@yale.edu>
Date: Fri, 11 Sep 2015 21:13:35 -0400
Subject: [PATCH] fix alignment for structs on the stack

---
 lisc/isel.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisc/isel.c b/lisc/isel.c
index 80bdae7..e3c3591 100644
--- a/lisc/isel.c
+++ b/lisc/isel.c
@@ -492,7 +492,7 @@ selcall(Fn *fn, Ins *i0, Ins *i1)
 		if ((--a)->inmem) {
 			assert(a->align <= 4);
 			stk += a->size;
-			if (a->align == 4)
+			if (a->align == 4) /* todo, bigger alignments */
 				stk += stk & 15;
 		}
 	stk += stk & 15;
@@ -537,7 +537,7 @@ selcall(Fn *fn, Ins *i0, Ins *i1)
 		if (!a->inmem)
 			continue;
 		sz = a->size;
-		if (a->align == 4 && stk % 16)
+		if (a->align == 4 && (stk-sz) % 16)
 			sz += 8;
 		stk -= sz;
 		if (i->op == OArgc) {