Skip to content
Snippets Groups Projects
Commit bd13e527 authored by ram's avatar ram
Browse files

Swapped compare less and greater because that seems to be how things

really work (because of using compare trapped instruction?)
Fixed args to afpa-get-float.
parent 2cbcd5e5
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.1 1991/07/23 12:14:16 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/afpa.lisp,v 1.2 1991/08/25 19:04:46 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -30,9 +30,9 @@
;;; The condition code bits.
;;;
(defconstant afpa-compare-lss #b00)
(defconstant afpa-compare-gtr #b00)
(defconstant afpa-compare-eql #b01)
(defconstant afpa-compare-gtr #b10)
(defconstant afpa-compare-lss #b10)
(defconstant afpa-compare-unordered #b11)
......@@ -346,7 +346,7 @@
(:generator 10
(note-this-location vop :internal-error)
(inst afpa-unop fp-temp x ,op temp)
(inst afpa-get-float y temp fp-temp)))))
(inst afpa-get-float y fp-temp temp)))))
(frob %unary-round %unary-round/afpa-single-float
afpa-single-reg afpa-single-float :rsw)
......
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