PPC: Fix interpreter state setup in callbacks.

diff --git a/src/vm_ppc.dasc b/src/vm_ppc.dasc
index 2c4940cd53015381d1cf4346b8c37f6b78c45209..7dcdf9876fcfdea383b96f0e1fd430b2277f5583 100644 (file)
--- a/src/vm_ppc.dasc
+++ b/src/vm_ppc.dasc
@@ -2601,8 +2601,10 @@ static void build_subroutines(BuildCtx *ctx)
   |     li ZERO, 0
   |   mr L, CRET1
   |     stw TMP3, TMPD
+  |     lus TMP0, 0x4338               // Hiword of 2^52 + 2^51 (double)
   |  lwz LFUNC:RB, FRAME_FUNC(BASE)
   |     ori TMP3, TMP3, 0x0004         // TONUM = 2^52 + 2^51 + 2^31 (float).
+  |     stw TMP0, TONUM_HI
   |     li TISNIL, LJ_TNIL
   |    li_vmstate INTERP
   |     lfs TOBIT, TMPD