From 9a52f0dd19a1d3314b435fade0a5338609e838a1 Mon Sep 17 00:00:00 2001
From: Christian Kamm <christian.d.kamm@nokia.com>
Date: Fri, 26 Feb 2010 13:57:50 +0100
Subject: Add scripting support.

---
 library/fibers/switchstack_msvc_64.asm | 98 ++++++++++++++++++++++++++++++++++
 1 file changed, 98 insertions(+)
 create mode 100644 library/fibers/switchstack_msvc_64.asm

(limited to 'library/fibers/switchstack_msvc_64.asm')

diff --git a/library/fibers/switchstack_msvc_64.asm b/library/fibers/switchstack_msvc_64.asm
new file mode 100644
index 0000000..3c6f321
--- /dev/null
+++ b/library/fibers/switchstack_msvc_64.asm
@@ -0,0 +1,98 @@
+.model flat, c
+.code
+
+_switchStackInternal PROC to:QWORD, from:QWORD
+    ; save callee-saved registers
+    PUSH RBP
+    MOV RBP, RSP
+    PUSH RBX
+    PUSH ESI
+    PUSH EDI
+
+    PUSH R12
+    PUSH R13
+    PUSH R14
+    PUSH R15
+
+    PUSH RSI
+    PUSH RDI
+
+    SUB RSP, 0x10
+    MOVUPD [RSP], XMM6
+    SUB RSP, 0x10
+    MOVUPD [RSP], XMM7
+    SUB RSP, 0x10
+    MOVUPD [RSP], XMM8
+    SUB RSP, 0x10
+    MOVUPD [RSP], XMM9
+    SUB RSP, 0x10
+    MOVUPD [RSP], XMM10
+    SUB RSP, 0x10
+    MOVUPD [RSP], XMM11
+    SUB RSP, 0x10
+    MOVUPD [RSP], XMM12
+    SUB RSP, 0x10
+    MOVUPD [RSP], XMM13
+    SUB RSP, 0x10
+    MOVUPD [RSP], XMM14
+    SUB RSP, 0x10
+    MOVUPD [RSP], XMM15
+
+    ; store SIMD floating point control word
+    SUB RSP, 4
+    STMXCSR [RSP]
+
+    ; store floating point control bytes
+    SUB RSP, 4
+    FSTCW [RSP]
+
+    ; save the old stack pointer
+    MOV [from], RSP
+    ; set the new stack pointer
+    MOV RSP, to
+
+    ; restore floating point control bytes
+    FNCLEX
+    FLDCW [RSP]
+    ADD RSP, 4
+
+    ; restore SIMD floating point control word
+    LDMXCSR [RSP]
+    ADD RSP, 4
+
+    ; pop callee-saved registers
+    MOVUPD XMM15, [RSP]
+    ADD RSP, 0x10
+    MOVUPD XMM14, [RSP]
+    ADD RSP, 0x10
+    MOVUPD XMM13, [RSP]
+    ADD RSP, 0x10
+    MOVUPD XMM12, [RSP]
+    ADD RSP, 0x10
+    MOVUPD XMM11, [RSP]
+    ADD RSP, 0x10
+    MOVUPD XMM10, [RSP]
+    ADD RSP, 0x10
+    MOVUPD XMM9, [RSP]
+    ADD RSP, 0x10
+    MOVUPD XMM8, [RSP]
+    ADD RSP, 0x10
+    MOVUPD XMM7, [RSP]
+    ADD RSP, 0x10
+    MOVUPD XMM6, [RSP]
+    ADD RSP, 0x10
+
+    POP RDI
+    POP RSI
+
+    POP R15
+    POP R14
+    POP R13
+    POP R12
+    POP RBX
+    POP RBP
+
+    RET
+_switchStackInternal ENDP
+
+end
-- 
cgit v1.2.3