diff --git a/compiler/rt/afpa.lisp b/compiler/rt/afpa.lisp index b73c3698294e210d3c5fa67d7b710bfa91d8b95e..45395b94c3448bd221af8124668c0007e17b9b98 100644 --- a/compiler/rt/afpa.lisp +++ b/compiler/rt/afpa.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/afpa.lisp,v 1.3 1992/02/01 13:55:28 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/afpa.lisp,v 1.4 1992/03/09 20:37:26 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -445,44 +445,6 @@ (:generator 5 (inst afpa-get-float-odd lo-bits float temp))) - -;;;; SAP accessors/setters - -#| -(define-vop (sap-ref-afpa-single sap-ref) - (:translate sap-ref-single) - (:results (result :scs (afpa-single-reg))) - (:result-types afpa-single-float) - (:variant :afpa-single nil)) - -(define-vop (sap-set-afpa-single sap-set) - (:translate %set-sap-ref-single) - (:args (sap :scs (sap-reg)) - (offset :scs (any-reg signed-reg zero immediate)) - (value :scs (afpa-single-reg) :target result)) - (:arg-types system-area-pointer positive-fixnum afpa-single-float) - (:results (result :scs (afpa-single-reg))) - (:result-types afpa-single-float) - (:variant :afpa-single)) - -(define-vop (sap-ref-afpa-double sap-ref) - (:translate sap-ref-double) - (:results (result :scs (afpa-double-reg))) - (:result-types afpa-double-float) - (:variant :afpa-double nil)) - -(define-vop (sap-set-afpa-double sap-set) - (:translate %set-sap-ref-double) - (:args (sap :scs (sap-reg)) - (offset :scs (signed-reg any-reg zero immediate)) - (value :scs (afpa-double-reg) :target result)) - (:arg-types system-area-pointer positive-fixnum afpa-double-float) - (:results (result :scs (afpa-double-reg))) - (:result-types afpa-double-float) - (:variant :afpa-double)) - -|# - ;;;; Float mode hackery: diff --git a/compiler/rt/mc68881.lisp b/compiler/rt/mc68881.lisp index e92833b659a916afdf3ab55d5463b8196f91ba64..33a33a8fd85a42a538b2167c2a8b2ae3a55c0340 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.10 1992/01/22 18:10:05 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/mc68881.lisp,v 1.11 1992/03/09 20:37:46 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -523,44 +523,6 @@ (:variant 1) (:translate double-float-low-bits)) - -;;;; SAP accessors/setters - -#| -(define-vop (sap-ref-mc68881-single sap-ref) - (:translate sap-ref-single) - (:results (result :scs (mc68881-single-reg))) - (:result-types mc68881-single-float) - (:variant :mc68881-single nil)) - -(define-vop (sap-set-mc68881-single sap-set) - (:translate %set-sap-ref-single) - (:args (sap :scs (sap-reg)) - (offset :scs (any-reg signed-reg zero immediate)) - (value :scs (mc68881-single-reg) :target result)) - (:arg-types system-area-pointer positive-fixnum mc68881-single-float) - (:results (result :scs (mc68881-single-reg))) - (:result-types mc68881-single-float) - (:variant :mc68881-single)) - -(define-vop (sap-ref-mc68881-double sap-ref) - (:translate sap-ref-double) - (:results (result :scs (mc68881-double-reg))) - (:result-types mc68881-double-float) - (:variant :mc68881-double nil)) - -(define-vop (sap-set-mc68881-double sap-set) - (:translate %set-sap-ref-double) - (:args (sap :scs (sap-reg)) - (offset :scs (signed-reg any-reg zero immediate)) - (value :scs (mc68881-double-reg) :target result)) - (:arg-types system-area-pointer positive-fixnum mc68881-double-float) - (:results (result :scs (mc68881-double-reg))) - (:result-types mc68881-double-float) - (:variant :mc68881-double)) - -|# - ;;;; Float mode hackery: