Skip to content
Snippets Groups Projects
Commit c93b3e4b authored by dtc's avatar dtc
Browse files

Fix a typo in the complex single float move-argument VOP.

parent d49c8523
No related branches found
No related tags found
No related merge requests found
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/float.lisp,v 1.9 1998/03/04 16:41:55 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/float.lisp,v 1.10 1998/03/10 18:21:27 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -337,7 +337,7 @@ ...@@ -337,7 +337,7 @@
(let ((real-tn (complex-single-reg-real-tn x))) (let ((real-tn (complex-single-reg-real-tn x)))
(inst sts real-tn offset nfp)) (inst sts real-tn offset nfp))
(let ((imag-tn (complex-single-reg-imag-tn x))) (let ((imag-tn (complex-single-reg-imag-tn x)))
(inst sts imag-tn (+ offset world-bytes) nfp))))))) (inst sts imag-tn (+ offset word-bytes) nfp)))))))
(define-move-vop move-complex-single-float-argument :move-argument (define-move-vop move-complex-single-float-argument :move-argument
(complex-single-reg descriptor-reg) (complex-single-reg)) (complex-single-reg descriptor-reg) (complex-single-reg))
......
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