PPC: Fix excess stack growth in interpreter.

diff --git a/src/vm_ppc.dasc b/src/vm_ppc.dasc
index 7ae40ecd9afaee67fc59851d915de3dcf314960d..30e4c6637a537c1dcea8429e5d89472fe14c41ac 100644 (file)
--- 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