Skip to content
Snippets Groups Projects
Commit c6e9b66f authored by wlott's avatar wlott
Browse files

Flushed sap-ref stuff, because it was commented out and is now superceeded

by noise in sap.lisp.
parent 824fc330
No related branches found
No related tags found
No related merge requests found
......@@ -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:
......
......@@ -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:
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment