diff --git a/src/vm_x64.dasc b/src/vm_x64.dasc
index bba89aaf..ad50fa18 100644
--- a/src/vm_x64.dasc
+++ b/src/vm_x64.dasc
@@ -1804,7 +1804,11 @@ static void build_subroutines(BuildCtx *ctx)
   |  jmp ->fff_res1
   |
   |.ffunc_n math_frexp
+  |.if X64WIN
+  |  lea CARG2, TMP1
+  |.else
   |  lea CARG1, TMP1
+  |.endif
   |  mov RB, BASE
   |  call extern frexp
   |  mov BASE, RB
@@ -1822,7 +1826,11 @@ static void build_subroutines(BuildCtx *ctx)
   |  jmp ->fff_res
   |
   |.ffunc_n math_modf
+  |.if X64WIN
+  |  lea CARG2, [BASE-16]
+  |.else
   |  lea CARG1, [BASE-16]
+  |.endif
   |  mov PC, [BASE-8]
   |  mov RB, BASE
   |  call extern modf