From b28291c22f8afd3a433abf8b6e76af3b12c78cf0 Mon Sep 17 00:00:00 2001 From: Richard M Kreuter Date: Mon, 30 Jun 2008 19:37:01 +0000 Subject: [PATCH] 1.0.18.9: Fix fpu_save, fpu_restore on x86-64. * Incorrect definition lead to segfault during gencgc when gencgc_verbose>1. --- src/runtime/x86-64-assem.S | 6 ++---- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/src/runtime/x86-64-assem.S b/src/runtime/x86-64-assem.S index af5db224e..5f1ff8b2d 100644 --- a/src/runtime/x86-64-assem.S +++ b/src/runtime/x86-64-assem.S @@ -248,8 +248,7 @@ LsingleValue: TYPE(GNAME(fpu_save)) .align 2,0x90 GNAME(fpu_save): - mov 4(%rsp),%rax - fnsave (%rax) # Save the NPX state. (resets NPX) + fnsave (%rdi) # Save the NPX state. (resets NPX) ret SIZE(GNAME(fpu_save)) @@ -257,8 +256,7 @@ GNAME(fpu_save): TYPE(GNAME(fpu_restore)) .align 2,0x90 GNAME(fpu_restore): - mov 4(%rsp),%rax - frstor (%rax) # Restore the NPX state. + frstor (%rdi) # Restore the NPX state. ret SIZE(GNAME(fpu_restore)) diff --git a/version.lisp-expr b/version.lisp-expr index e62abb266..6257d103d 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.18.8" +"1.0.18.9" -- 2.11.4.GIT