From 0d16fbe30820b94cd6582be1a3f43ec51f39331a Mon Sep 17 00:00:00 2001
From: Peter Cawley <corsix@corsix.org>
Date: Wed, 30 Mar 2016 23:35:07 +0100
Subject: [PATCH] x64/LJ_GC64/Windows: Fix math.frexp and math.modf

Previously, BASE was saved too late, and so didn't get restored properly,
and things went down hill from there.

Also dropped a seemingly superfluous `mov PC, [BASE-8]` from modf.
---
 src/vm_x64.dasc | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/src/vm_x64.dasc b/src/vm_x64.dasc
index 99ebb9b9..2a86826a 100644
--- a/src/vm_x64.dasc
+++ b/src/vm_x64.dasc
@@ -1804,12 +1804,12 @@ static void build_subroutines(BuildCtx *ctx)
   |  jmp ->fff_res1
   |
   |.ffunc_n math_frexp
+  |  mov RB, BASE
   |.if X64WIN
-  |  lea CARG2, TMP1
+  |  lea CARG2, TMP1		// Caveat: CARG2 == BASE
   |.else
   |  lea CARG1, TMP1
   |.endif
-  |  mov RB, BASE
   |  call extern frexp
   |  mov BASE, RB
   |  mov RBd, TMP1d
@@ -1826,13 +1826,12 @@ static void build_subroutines(BuildCtx *ctx)
   |  jmp ->fff_res
   |
   |.ffunc_n math_modf
+  |  mov RB, BASE
   |.if X64WIN
-  |  lea CARG2, [BASE-16]
+  |  lea CARG2, [BASE-16]		// Caveat: CARG2 == BASE
   |.else
   |  lea CARG1, [BASE-16]
   |.endif
-  |  mov PC, [BASE-8]
-  |  mov RB, BASE
   |  call extern modf
   |  mov BASE, RB
   |  mov PC, [BASE-8]