1 files changed, 22 insertions, 4 deletions

diff --git a/src/buildvm_ppc.dasc b/src/buildvm_ppc.dasc
index d016ec47..57c146b8 100644
--- a/src/buildvm_ppc.dasc
+++ b/src/buildvm_ppc.dasc
@@ -345,14 +345,32 @@ static void build_subroutines(BuildCtx *ctx)
   |  b <2
   |
   |->vm_unwind_c:                       // Unwind C stack, return from vm_pcall.
-  |  NYI
+  |  // (void *cframe, int errcode)
+  |  mr sp, CARG1
+  |  mr CRET1, CARG2
   |->vm_unwind_c_eh:                    // Landing pad for external unwinder.
-  |  NYI
+  |  lwz L, SAVE_L
+  |   li TMP0, ~LJ_VMST_C
+  |  lwz GL:TMP1, L->glref
+  |   stw TMP0, GL:TMP1->vmstate
+  |  b ->vm_leave_unw
   |
   |->vm_unwind_ff:                      // Unwind C stack, return from ff pcall.
-  |  NYI
+  |  // (void *cframe)
+  |  rlwinm sp, CARG1, 0, 0, 29
   |->vm_unwind_ff_eh:                   // Landing pad for external unwinder.
-  |  NYI
+  |  lwz L, SAVE_L
+  |  lwz BASE, L->base
+  |  li TMP1, LJ_TFALSE
+  |   lwz DISPATCH, L->glref            // Setup pointer to dispatch table.
+  |    li_vmstate INTERP
+  |  lwz PC, FRAME_PC(BASE)             // Fetch PC of previous frame.
+  |  subi RA, BASE, 8                   // Results start at BASE-8.
+  |   addi DISPATCH, DISPATCH, GG_G2DISP
+  |  stw TMP1, 0(RA)                    // Prepend false to error message.
+  |  li RD, 16                          // 2 results: false + error message.
+  |    st_vmstate
+  |  b ->vm_returnc
   |
   |//-----------------------------------------------------------------------
   |//-- Grow stack for calls -----------------------------------------------