From 6319e0312dd77ff0f59399a26ef96bfccacdf302 Mon Sep 17 00:00:00 2001
From: Mike Pall <mike>
Date: Sat, 27 Dec 2014 06:05:50 +0100
Subject: [PATCH] PPC: Fix excess stack growth in interpreter.

---
 src/vm_ppc.dasc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/vm_ppc.dasc b/src/vm_ppc.dasc
index 7ae40ecd..30e4c663 100644
--- a/src/vm_ppc.dasc
+++ b/src/vm_ppc.dasc
@@ -586,7 +586,7 @@ static void build_subroutines(BuildCtx *ctx)
   |  // - A return back from a lua_call() with (high) nresults adjustment.
   |  stp BASE, L->top			// Save current top held in BASE (yes).
   |   mr SAVE0, RD
-  |  mr CARG2, TMP2
+  |  srwi CARG2, TMP2, 3
   |  mr CARG1, L
   |  bl extern lj_state_growstack	// (lua_State *L, int n)
   |    lwz TMP2, SAVE_NRES