diff options
Diffstat (limited to '')
-rw-r--r-- | src/VBox/VMM/testcase/tstX86-FpuSaveRestoreA.asm | 127 |
1 files changed, 127 insertions, 0 deletions
diff --git a/src/VBox/VMM/testcase/tstX86-FpuSaveRestoreA.asm b/src/VBox/VMM/testcase/tstX86-FpuSaveRestoreA.asm new file mode 100644 index 00000000..424ecc6a --- /dev/null +++ b/src/VBox/VMM/testcase/tstX86-FpuSaveRestoreA.asm @@ -0,0 +1,127 @@ +; $Id: tstX86-FpuSaveRestoreA.asm $ +;; @file +; tstX86-FpuSaveRestore - Experimenting with saving and restoring FPU, assembly bits. +; + +; +; Copyright (C) 2013-2023 Oracle and/or its affiliates. +; +; This file is part of VirtualBox base platform packages, as +; available from https://www.virtualbox.org. +; +; This program is free software; you can redistribute it and/or +; modify it under the terms of the GNU General Public License +; as published by the Free Software Foundation, in version 3 of the +; License. +; +; This program is distributed in the hope that it will be useful, but +; WITHOUT ANY WARRANTY; without even the implied warranty of +; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +; General Public License for more details. +; +; You should have received a copy of the GNU General Public License +; along with this program; if not, see <https://www.gnu.org/licenses>. +; +; SPDX-License-Identifier: GPL-3.0-only +; + + + +;******************************************************************************* +;* Header Files * +;******************************************************************************* +%include "iprt/asmdefs.mac" +%include "iprt/x86.mac" + + +;******************************************************************************* +;* Global Variables * +;******************************************************************************* +BEGINCODE +g_r80_Zero: dt 0.0 +g_r80_One: dt 1.0 + + +BEGINCODE + +;; Prepares a FPU exception. +BEGINPROC MyFpuPrepXcpt + fld tword [g_r80_One xWrtRIP] + fld tword [g_r80_Zero xWrtRIP] + fdiv st0 + ret +ENDPROC MyFpuPrepXcpt + + +;; Same as above, just different address. +BEGINPROC MyFpuPrepXcpt2 + fld tword [g_r80_One xWrtRIP] + fld tword [g_r80_Zero xWrtRIP] + fdiv st0 + ret +ENDPROC MyFpuPrepXcpt2 + + +BEGINPROC MyFpuSave +%ifdef ASM_CALL64_MSC + o64 fxsave [rcx] +%elifdef ASM_CALL64_GCC + o64 fxsave [rdi] +%elifdef RT_ARCH_X86 + mov ecx, [esp + 4] + fxsave [ecx] +%else + %error "Unsupported architecture." + bad arch +%endif + ret +ENDPROC MyFpuSave + + +BEGINPROC MyFpuStoreEnv +%ifdef ASM_CALL64_MSC + fstenv [rcx] +%elifdef ASM_CALL64_GCC + fstenv [rdi] +%elifdef RT_ARCH_X86 + mov ecx, [esp + 4] + fstenv [ecx] +%else + %error "Unsupported architecture." + bad arch +%endif + ret +ENDPROC MyFpuStoreEnv + + +BEGINPROC MyFpuRestore +%ifdef ASM_CALL64_MSC + o64 fxrstor [rcx] +%elifdef ASM_CALL64_GCC + o64 fxrstor [rdi] +%elifdef RT_ARCH_X86 + mov ecx, [esp + 4] + fxrstor [ecx] +%else + %error "Unsupported architecture." + bad arch +%endif + ret +ENDPROC MyFpuRestore + + +BEGINPROC MyFpuLoadEnv +%ifdef ASM_CALL64_MSC + fldenv [rcx] +%elifdef ASM_CALL64_GCC + fldenv [rdi] +%elifdef RT_ARCH_X86 + mov ecx, [esp + 4] + fldenv [ecx] +%else + %error "Unsupported architecture." + bad arch +%endif + ret +ENDPROC MyFpuLoadEnv + |