From 7fbcdce30af3a755feacc1ab436ecca6da48b3ed Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 22 Jan 1992 18:10:05 +0000 Subject: [PATCH] Deleted all uses of mc68881-wait, since they are now implicit in the load/store pseudo-instructions. --- compiler/rt/mc68881.lisp | 21 ++++++--------------- 1 file changed, 6 insertions(+), 15 deletions(-) diff --git a/compiler/rt/mc68881.lisp b/compiler/rt/mc68881.lisp index e8f93fee5..e92833b65 100644 --- a/compiler/rt/mc68881.lisp +++ b/compiler/rt/mc68881.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/mc68881.lisp,v 1.9 1991/10/03 14:31:22 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/mc68881.lisp,v 1.10 1992/01/22 18:10:05 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -93,8 +93,7 @@ ((mc68881-single-reg) (single-stack)) (inst cal lip-tn (current-nfp-tn vop) (* (tn-offset y) vm:word-bytes)) (with-fp-temp (temp) - (inst mc68881-store x lip-tn :single temp)) - (inst mc68881-wait)) + (inst mc68881-store x lip-tn :single temp))) (define-move-function (load-double 7) (vop x y) ((double-stack) (mc68881-double-reg)) @@ -106,8 +105,7 @@ ((mc68881-double-reg) (double-stack)) (inst cal lip-tn (current-nfp-tn vop) (* (tn-offset y) vm:word-bytes)) (with-fp-temp (temp) - (inst mc68881-store x lip-tn :double temp)) - (inst mc68881-wait)) + (inst mc68881-store x lip-tn :double temp))) ;;;; Move VOPs: @@ -157,8 +155,7 @@ (:generator 20 (with-fixed-allocation (y ndescr alloc type size) (inst cal lip-tn y (- (* data vm:word-bytes) vm:other-pointer-type)) - (inst mc68881-store x lip-tn format ndescr) - (inst mc68881-wait)))) + (inst mc68881-store x lip-tn format ndescr)))) (macrolet ((frob (name sc &rest args) `(progn @@ -187,8 +184,7 @@ (inst mc68881-move y x temp))) ((single-stack double-stack) (inst cal lip-tn (current-nfp-tn vop) (* (tn-offset y) vm:word-bytes)) - (inst mc68881-store y lip-tn format temp) - (inst mc68881-wait))))) + (inst mc68881-store y lip-tn format temp))))) (macrolet ((frob (name format sc) `(progn @@ -294,7 +290,6 @@ (let ((nfp (current-nfp-tn vop))) (inst cal loc nfp (* (tn-offset loc-tn) word-bytes))) (inst mc68881-store-status :fpsr loc temp) - (inst mc68881-wait) (loadw temp loc) (ecase condition ((< >) @@ -414,13 +409,11 @@ (signed-stack (inst cal addr (current-nfp-tn vop) (* (tn-offset y) vm:word-bytes)) - (inst mc68881-store temp addr :integer scratch) - (inst mc68881-wait)) + (inst mc68881-store temp addr :integer scratch)) (signed-reg (inst cal addr (current-nfp-tn vop) (* (tn-offset stack-temp) vm:word-bytes)) (inst mc68881-store temp addr :integer scratch) - (inst mc68881-wait) (loadw y (current-nfp-tn vop) (tn-offset stack-temp)))))))) (frob %unary-truncate mc68881-single-reg mc68881-single-float :intrz) @@ -503,7 +496,6 @@ (inst cal addr (current-nfp-tn vop) (* (tn-offset stack-temp) vm:word-bytes)) (inst mc68881-store float addr :single scratch) - (inst mc68881-wait) (loadw bits (current-nfp-tn vop) (tn-offset stack-temp)))) (define-vop (mc68881-double-float-high-bits) @@ -523,7 +515,6 @@ (inst cal addr (current-nfp-tn vop) (* (tn-offset stack-temp) vm:word-bytes)) (inst mc68881-store float addr :double scratch) - (inst mc68881-wait) (loadw bits (current-nfp-tn vop) (+ (tn-offset stack-temp) offset)))) (define-vop (mc68881-double-float-low-bits mc68881-double-float-high-bits) -- GitLab