From c6e9b66f3093409bfbed8655e8d6c23adb17cb58 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 9 Mar 1992 20:37:46 +0000 Subject: [PATCH] Flushed sap-ref stuff, because it was commented out and is now superceeded by noise in sap.lisp. --- compiler/rt/afpa.lisp | 40 +--------------------------------------- compiler/rt/mc68881.lisp | 40 +--------------------------------------- 2 files changed, 2 insertions(+), 78 deletions(-) diff --git a/compiler/rt/afpa.lisp b/compiler/rt/afpa.lisp index b73c36982..45395b94c 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 e92833b65..33a33a8fd 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: -- GitLab