Commit 9c0c857d authored by Raymond Toy's avatar Raymond Toy

Merge branch 'issue-98-fstpd-formatting' into 'master'

Fix #98: Use FSTP instruction with appropriate size

Closes #98

See merge request cmucl/cmucl!65
parents 5e87a39a 755f7a80
......@@ -2636,7 +2636,8 @@
;;; store single from st(0) and pop
;;;
(define-instruction fstp (segment dest)
(:printer floating-point ((op '(#b001 #b011))))
(:printer floating-point ((op '(#b001 #b011)))
'('fstp :tab 'dword " " 'ptr " " reg/mem))
(:emitter
(cond ((fp-reg-tn-p dest)
(emit-byte segment #b11011101)
......@@ -2648,7 +2649,8 @@
;;; store double from st(0) and pop
;;;
(define-instruction fstpd (segment dest)
(:printer floating-point ((op '(#b101 #b011))))
(:printer floating-point ((op '(#b101 #b011)))
'('fstp :tab 'qword " " 'ptr " " reg/mem))
(:printer floating-point-fp ((op '(#b101 #b011))))
(:emitter
(cond ((fp-reg-tn-p dest)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment