diff --git a/lisp/x86-assem.S b/lisp/x86-assem.S index 8c783c89c68b2c685db851b03784cc743d4507b9..6ea107c77c42faeb84b58e3660c3ded8ac55e357 100644 --- a/lisp/x86-assem.S +++ b/lisp/x86-assem.S @@ -1,6 +1,6 @@ ### x86-assem.S -*- Mode: Asm; -*- /** - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-assem.S,v 1.28 2007/07/06 08:04:39 cshapiro Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-assem.S,v 1.29 2008/03/18 04:08:49 cshapiro Exp $ * * Authors: Paul F. Werkowski <pw@snoopy.mv.com> * Douglas T. Crosher @@ -81,7 +81,7 @@ FUNCDEF(call_into_c) /* Check for a return FP value */ fxam - fnstsw %eax + fnstsw %ax andl $0x4500,%eax cmpl $0x4100,%eax jne Lfp_rtn_value